
Declare Function GetAsyncKeyState Lib "user32" (Byval vKey As Integer) As Integer
If GetAsyncKeyState(Keys.Insert) Then : Msgbox("Insert") : End If
If GetAsyncKeyState(Keys.ShiftKey) And GetAsyncKeyState(Keys.N) Then
MsgBox("You pressed shift + N")
End If
If GetAsyncKeyState(Keys.A) Then
If GetAsyncKeyState(Keys.B) Then
Msgbox("You pressed A AND B")
End If
End If