VB里編的一個程序設置一個快捷鍵
Private Sub Command1_Click()
MsgBox "haha"
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Command1_Click
End If
End Sub
上例，按回車即可調用按鈕1。你也可以設置keyascii為別的值來實現調用不同的函數。如果不知道KeyAscii的值，可以在事件里加入msgbox keyascii，就可以讀出來了.
** 特別注意的是：要設置該畫面的屬性 Form.KeyPreview = True