Código:
Private Sub Command7_Click()
MsgBox "7"
End Sub
Private Sub Command7_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyNumpad7 Then
Command7_Click
End If
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyNumpad7 Then
Command7_Click
End If
End Sub
la accion "Keydown segun donde tengas el foco"
y con "Command7_Click" hace lo mismo que si uno hiciera clic en el Command7.
Si no entendes avisame...
Esper que te sea de ayuda suerte