Public Class Form1
 
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Select Case e.KeyCode
            Case Keys.F1
                MessageBox.Show("F1 wurde gedrückt ")
        End Select
    End Sub
End Class