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?