Public Class Form1 Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown Select Case e.KeyCode Case Keys.Home MessageBox.Show("Homeが押されたときの処理") Case Keys.PageDown MessageBox.Show("PageDownが押されたときの処理") Case Keys.End MessageBox.Show("Endが押されたときの処理") End Select End Sub End Class