简单的办法:
Option Explicit
Private Sub Command1_Click()
MsgBox "YOU CLICKED COMMAND1!"
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF2 Then Command1_Click
End Sub
Private Sub Form_Load()
Me.KeyPreview = True
End Sub