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