GetAsyncKeyState work in f8 step by step only

[mtheriault2000]

Hello

I'm using GetAsyncKeyState to verify if the shift key as been press while a macro is activated. It work perfectly when i use the f8, step by step, debug process, give error 400 when running

The sub TestShiftKey is called by another macro

Private Declare Function GetAsyncKeyState Lib _
    "user32" (ByVal vKey As Long) As Integer

Public Sub TestShiftKey()
    ' (&H10) = Shift Key Code
    If GetAsyncKeyState(&H10) Then 
        ShiftKeyPress = True
        'MsgBox "Shift key is pressed"
    Else
        ShiftKeyPress = False
    End If
    
End Sub

Any help appreciated

 

[mtheriault2000]

Resolve GetAsyncKeyState work in f8 step by step only

Hello

I did resolve the problem with the help of MrExcel user: Jaafar

I added the Cbool function before the GetAsynchKeyState command.

Public Sub TestShiftKey()
    If [COLOR="Red"]CBool[/COLOR](GetAsyncKeyState(&H10)) Then
        ShiftKeyPress = True
        MsgBox "Shift key is pressed"
    Else
        ShiftKeyPress = False
    End If
End Sub