Me.KeyPreview = True

fg viperbone

    Private Sub Form1_Modul_KeyPress(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        Debug.Print(Asc(e.KeyChar))
        Select Case Asc(e.KeyChar)
            Case 13 'Entertaste 
 
        End Select
    End Sub

mein aktuelles .net-Projekt:
http://www.fiman.de
freue mich über Test-Informationen.

Screenshots gibt es hier: http://www.fiman.de

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        Me.KeyPreview = True
    End Sub
 
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Select Case e.KeyCode
            Case Keys.Enter
                MsgBox("Enter wurde gdrückt")
            Case Keys.A
                MsgBox("A wurde gdrückt")
                ' u.s.w.
        End Select
    End Sub

mein aktuelles .net-Projekt:
http://www.fiman.de
freue mich über Test-Informationen.

Screenshots gibt es hier: http://www.fiman.de