GetAsyncKeyState (mismatch error)

[JoshA56]

I get a mismatch error when I try to do this:

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyControl) And GetAsyncKeyState(vbKey1) Then
'do stuff
End If
End Sub

Why do you think I keep getting this error? Is there an alternative code I can use?

[Edgemeal]

Is the API declared correctly?

No error here using,

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