VBA GetKeyState not working?

[Peter h]

I can't seem to get this to work. I'm wondering if there is a preference that I need to turn on or something, but not sure. Can anyone give me any help?

Private Declare PtrSafe Function GetKeyState Lib "USER32" (ByVal nVKey As Long) As Integer

I'm getting a Run-Time Error 453: Cannot find DLL entry point GetKeyState in USER32

 

[RoryA]

Which version of Windows are you running?

 

[Jaafar Tribak]

Try importing the function by its ordinal number and see if it works for you.

For office 32 bit :

Declare PtrSafe Function GetKeyState Lib "user32" Alias "[COLOR=#ff0000]#1865[/COLOR]" (ByVal nVirtKey As Long) As Integer

For office 64 bit:

Declare PtrSafe Function GetKeyState Lib "user32" Alias "[COLOR=#ff0000]#1866[/COLOR]" (ByVal nVirtKey As Long) As Integer

 

[Peter h]

I'll give it a try on monday. Thanks.

 

[Peter h]

Try importing the function by its ordinal number and see if it works for you.

For office 32 bit :

Declare PtrSafe Function GetKeyState Lib "user32" Alias "[COLOR=#ff0000]#1865[/COLOR]" (ByVal nVirtKey As Long) As Integer

For office 64 bit:

Declare PtrSafe Function GetKeyState Lib "user32" Alias "[COLOR=#ff0000]#1866[/COLOR]" (ByVal nVirtKey As Long) As Integer

This worked. Thank you so much.