Как отловить сочетание клавиш

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox (KeyCode)
End Sub

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
 
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyUp) = -32768 Then Me.Top = Me.Top - 10
If GetAsyncKeyState(vbKeyDown) = -32768 Then Me.Top = Me.Top + 10
If GetAsyncKeyState(vbKeyLeft) = -32768 Then Me.Left = Me.Left - 10
If GetAsyncKeyState(vbKeyRight) = -32768 Then Me.Left = Me.Left + 10
End Sub

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

Running = True
Do While Running = True
 
If GetAsyncKeyState(vbKeyEscape) <> 0 Then
Running = False
Unload Me
End If
If GetAsyncKeyState(vbKeyRight) <> 0 Then
' Ваши действия
Debug.Print "Right"
End If
If GetAsyncKeyState(vbKeyLeft) <> 0 Then
' Ваши действия
Debug.Print "Left"
End If
If GetAsyncKeyState(vbKeyUp) <> 0 Then
' Ваши действия
Debug.Print "Up"
End If
 
DoEvents
Loop

Public Keyb(255) As Boolean

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Keyb(KeyCode) = True
End Sub
 
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
  Keyb(KeyCode) = False
End Sub