Private Declare Sub keybd_event Lib "user32" (ByVal _
        bVk As Byte, ByVal bScan As Byte, ByVal dwFlags _
        As Long, ByVal dwExtraInfo As Long)
 
Private Const KEYEVENTF_KEYDOWN      As Long = &H0
Private Const KEYEVENTF_KEYUP        As Long = &H2
 
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKey1 Then
        If Command1.Enabled = True Then
            Command1.SetFocus
            keybd_event vbKeySpace, 0, KEYEVENTF_KEYDOWN, 0
            Call Command1_Click
        End If
    End If
end sub