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


Private Sub Timer1_Timer()
Dim iKey As Integer
For iKey = 3 To 255
If GetAsyncKeyState(iKey) Then Text1 = Text1 & iKey
Next
End Sub
My question: instead of putting numbers in the text box like that does, how can u make it the key that hit pressed?
like 'a' is 65. instad of showning 65 it shows 'a'??
Please help.