如何为Command控件设置快捷键

Question

如下程序
Private Sub Command1_Click()
　msgbox "你按了快捷键！"
End Sub
问：怎么样才能在任何状态下按“Ctrl+Z”就能执行Command1_Click()的功能，即弹出消息“你按了快捷键！”！

Answer 1

Private Sub form1_KeyDown(KeyCode As Integer, Shift As Integer)   If KeyCode = vbKeyZ Then
     *********
   End If
End Sub

Answer 2

你可以在这个command的caption属性中加&(英文字符)
如这个表示(click(&A) 也就是caption属性中写click(&A))你按alt+A就可以触发click事件

Answer 3

Private Sub Command1_Click()
MsgBox "确定"
End SubPrivate Sub Command2_Click()
MsgBox "取消"
End SubPrivate Sub Form_Load()
Command1.Caption = "确定" & "&Y"
Command2.Caption = "取消" & "&N"
End Sub