Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown Select Case e.KeyCode Case Keys.F1 Button2_MouseUp(sender, Nothing) End Select End Sub
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown Select Case e.KeyCode Case Keys.F1 やりたい処理() End Select End Sub Private Sub Button2_MouseUp(sender As Object, e As MouseEventArgs) Handles Button2.MouseUp やりたい処理() End Sub Private Sub やりたい処理() MsgBox("a") End Sub
Private Sub Form1_HelpRequested(sender As Object, hlpevent As HelpEventArgs) Handles MyBase.HelpRequested MsgBox("Help Requested") End Sub