[VB] Insta Hotkey

[Evan]

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