Private Sub Command1_KeyUp(KeyCode As Integer, Shift As _
    Integer)
    If KeyCode = vbKeySpace Then
        Beep    ' Do something
    End If
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As _
    Integer, X As Single, Y As Single)
    If X >= 0 And X <= Command1.Width And _
       Y >= 0 And Y <= Command1.Height _
    Then
        Beep    ' Do something
    End If
End Sub