Originariamente inviato da GudFella
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyF3 Then Command1_Click ()

codice:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyF3 Then
    Command1.value = true
End if
Prova così