[VB6]Problema evento change textbox.

[Cobrettis]

Sto creando un applicazione che registra i tasti premuti.Per registrarli faccio in questo modo:

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

Private Sub Timer1_Timer()
If GetAsyncKeyState (valore) then
Text1.Text = "key"
End If
End Sub

Private Sub Text1_Change()
Text2.Text=Text1.Text
End Sub

Sto provando con il timer ma al posto di scrivermi una lettera me ne scrive quattro. Così ho pensato di utlizzare la proprietà change della testbox, ma se digito più di una volta la stessa lettera non mi conta il cambiamento e di conseguenza non mi rileva la seconda pressione del tasto.Il timer è impostato interval 1. Ho provato anche a scrivere, nel evento change, text1.text="". Ma niente. Qualcuno riuscirebbe ad illuminarmi? Grazie in anticipo. Esiste un qualche altro evento che mi possa aiutare?

[oregon]

Ma che ci devi fare con un codice simile?