'Eingabe der Ergebnisse per Tastatur
    Private Sub ListView1_KeyPress1(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyPressEventArgs) Handles ListView1.KeyPress
        Try
            If e.KeyChar.ToString = "1" Then
                'Dieser Trick funktioniert leider nicht so ganz, die erste 
                ' Zeile wird trotzdem übersprungen
                'Erst ab der zweiten Zeile geht das
                If Not Me.ListView1.SelectedIndices(0) = 0 Then
                    Me.ListView1.Items(Me.ListView1.SelectedIndices(0) - _
                      1).Focused = True
                End If
            End If
 
 
            If e.KeyChar.ToString = Microsoft.VisualBasic.ChrW(27) Then
                Me.ergebnis = ""
                Me.TextBox3.Text = ""
                Exit Try
            End If
            If IsNumeric(e.KeyChar.ToString) Then
                Me.ergebnis += e.KeyChar.ToString
                Me.TextBox3.Text = Me.ergebnis
                Exit Try
            End If
            If e.KeyChar.ToString = ":" Then
                Me.ergebnis += ":"
                Me.TextBox3.Text = Me.ergebnis
                Exit Try
            End If
            If e.KeyChar.ToString = "o" Then
                Me.ergebnis += "o"
                Me.TextBox3.Text = Me.ergebnis
                Exit Try
            End If
            If e.KeyChar.ToString = "f" Then
                Me.ergebnis += "f"
                Me.TextBox3.Text = Me.ergebnis
                Exit Try
            End If
            If Not IsNumeric(e.KeyChar.ToString) And Not e.KeyChar.ToString = _
              Microsoft.VisualBasic.ChrW(13) Then
                Me.ergebnis = ""
                Me.TextBox3.Text = ""
                Exit Try
            End If
 
            'abschließen der eingabe
            If e.KeyChar.ToString = Microsoft.VisualBasic.ChrW(13) And Not _
              Me.ergebnis = "" Then
                RefreshDS()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
            Me.ergebnis = ""
            Me.TextBox3.Text = Me.ergebnis
        End Try
     End Sub