Function compKey(ByVal KeyCode As Integer, ByVal KeyText As String) As _
      Boolean
        result = GetAsyncKeyState(KeyCode)
        If result = -32767 Then
            Me.txtText.Text = Me.txtText.Text & String.Format("{0}", KeyText)
            Me.txtText.SelectionStart = Me.txtText.SelectionLength
            Return True
        End If
        Return False
    End Function
 
    Sub checkKey()
 
        If compKey(8, vbCr) Then
            Return
        End If
        //Weitere ifs...
 
    end sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
 
        Me.checkKey()
        Me.txtText.SelectionStart = Me.txtText.TextLength
        Me.txtText.ScrollToCaret()
 
    End Sub