GetAsyncKeyState (mismatch error)

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

Code:

---

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?

Is the API declared correctly?

No error here using,

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