Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
Dim keystate(1) As Integer
keystate(0) = GetAsyncKeyState(vbKeyControl)
keystate(1) = GetAsyncKeyState(vbKeyTab)
If keystate(0) And keystate(1) And &H8000 Then
'If hotkey is pressed
End If
End Sub
