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

Private Sub Timer1_Timer()

Dim key1 As Long, key2 As Long

key1 = GetAsyncKeyState(vbKeyMenu)

key2 = GetAsyncKeyState(vbKeyA)

If key1 <> 0 And key2 <> 0 Then MsgBox "Вы нажали Alt+A"

End Sub