Private Sub Form1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles MyBase.KeyPress Select Case e.KeyCode Case Keys.F1 **** End Select End Sub Private Sub Button2_MouseUp(sender As Object, e As MouseEventArgs) Handles Button2.MouseUp MsgBox("a") End Sub