Error !!!!!!!!!!!!!!!!

[Geobas]

Windows 7 64 bit , VB 6.0

l have the foll procedure but when l press 'Enter' l get
'Run-time error '70'
Permission denied

Could someone tell me what is the problem . VB 6 is running with XP compatibility and full access to the project has been set .

Private Sub Dummy_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{TAB}"
End If
End Sub

Thanks

[dglienna]

You need to ELEVATE Visual Studio in order to compile/test apps. VB6 - VS2010

[Geobas]

Thanks reply David , but can you please clarify , l am not an expert

[dglienna]

Click the Start Button, in the SEARCH BOX, type Visual Studio and you'll see it at the top of the menu bar. (or find it in All Programs). Right click on the correct version, and select RUN AS ADMINISTRATOR. Give it permission, and then it will work.

[Geobas]

Forgot to mention that David , but VB6.exe including the exe of the project l am working on l run them all as administrator but the code is not working .

[dglienna]

What are you trying to send a key to?

[Geobas]

In a listview by pressing 'Enter' to jump from a column to the next

[dglienna]

What Listview? Yours?

[Geobas]

Of course mine , the one l use in my project

[dglienna]

Then, why send a TAB?

[avidichard]

Did you try to send Chr(9) instead of "{TAB}"? It may work. I don't really know what you are trying to do but when I want to send the TAB string, I use the Chr(vbKeyTab) which I think is 9. Try that and give feedback!

[Geobas]

"{TAB}" and Chr(9) do not work when running the project .
As strange as it may seem , they work though , when one makes a .exe and runs the exe

[avidichard]

Use Keyascii = vbKeyTab instead of SendKeys "{TAB}"

This should solve your problem. I remember having that problem. When I want to use the Enter Key but I don't want to hear the 'ding' sound, I use Keyascii = 0. I'm pretty sure your problem will be fixed. Give me some news if it works or not!

[Geobas]

Private Sub Dummy_KeyPress(Index As Integer, KeyAscii As Integer)

If KeyAscii = 13 Then
KeyAscii = vbKeyTab
End If
End Sub

If you mean this routine , no , it does not .
Doesn't matter though , as long as it works when you run the exe of the project
It definitely has to do with win 7/64 , but it's not worth going back to 32 bit just for that and some other minor difficulties one faces with 64 bit .
Thanks anyway