Me.KeyPreview = True

    Private Sub lvwTiere_KeyPress(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyPressEventArgs) Handles lvwTiere.KeyPress
        'Hier wird verhindert das in den Zeitenhinzufügenfeldern Buchstaben 
        ' eingegeben werden können.
        Select Case Asc(e.KeyChar)
            Case 13  '  Enter(Return)
                BearbeitenToolStripMenuItem_Click(sender, e)
            Case 8   ' Backspace 
                tsblöschen_Click(sender, e)
            Case 127 ' Delete 
                tsblöschen_Click(sender, e)
        End Select
    End Sub

fg viperbone