Salve to creando un piccolo keylogger per passatempo
questo è il codice

Private Sub Form_KeyPress(KeyAscii As Integer)
Text1.Text = Text1.Text & Chr$(KeyAscii)
End Sub

Private Sub Form_Load()
Show
End Sub

Private Sub Timer1_Timer()
Form1.ZOrder
End Sub


quindi quando uno preme un tasto sul form,esso viene scritto nel textbox
con il timer il form si mette in focus in automatico ogni 100 ms

il problema è che il form può benissimo perdere lo stato di focus per esempio con il programma "Mostra desktop" di win
come faccio a farlo rimanere sempre in focus?