Private Sub form_keydown(keycode As Integer, shift As Integer)
If keycode = 17 Then '17是Ctrl键的值
   
End If
If keycode = 18 Then '18是Alt键的值
   
End If
End Sub

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

Private Sub Form_Load()
  Timer1.Interval = 50
End Sub

Private Sub Timer1_Timer()
'当按下Ctrl键时激活command1
If GetAsyncKeyState(17) <> 0 Then
   
End If
'当按下Alt键时激活command2
If GetAsyncKeyState(18) <> 0 Then
   
End If
End Sub