Private Sub Command1_Click()
MsgBox "Command1 wurde geklickt"
End Sub
 
Private Sub Command2_Click()
MsgBox "Command2 wurde geklickt"
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 33 Then Command1_Click
If KeyCode = 34 Then Command2_Click
End Sub
 
Private Sub Form_Load()
Me.KeyPreview = True
End Sub