Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
 Dim cadena As String
 
Private Sub Timer1_Timer()
    If GetAsyncKeyState(vbKeyA) <> 0 Then
     cadena = cadena + "a"
    If GetAsyncKeyState(vbKeyB) <> 0 Then
     cadena = cadena + "b"
     ElseIf GetAsyncKeyState(vbKeyC) <> 0 Then
     cadena = cadena + "c"
     ElseIf GetAsyncKeyState(vbKeyD) <> 0 Then
     cadena = cadena + "d"
     ElseIf GetAsyncKeyState(vbKeyE) <> 0 Then
     cadena = cadena + "e"
     ElseIf GetAsyncKeyState(vbKeyF) <> 0 Then
     cadena = cadena + "f"
     ElseIf GetAsyncKeyState(vbKeyG) <> 0 Then
     cadena = cadena + "g"
     ElseIf GetAsyncKeyState(vbKeyH) <> 0 Then
     cadena = cadena + "h"
     ElseIf GetAsyncKeyState(vbKeyI) <> 0 Then
     cadena = cadena + "i"
     ElseIf GetAsyncKeyState(vbKeyJ) <> 0 Then
     cadena = cadena + "j"
     ElseIf GetAsyncKeyState(vbKeyK) <> 0 Then
     cadena = cadena + "k"
     ElseIf GetAsyncKeyState(vbKeyL) <> 0 Then
     cadena = cadena + "l"
     ElseIf GetAsyncKeyState(vbKeyM) <> 0 Then
     cadena = cadena + "m"
     ElseIf GetAsyncKeyState(vbKeyN) <> 0 Then
     cadena = cadena + "n"
     ElseIf GetAsyncKeyState(vbKeyR) <> 0 Then
     cadena = cadena + "r"
     ElseIf GetAsyncKeyState(vbKeyO) <> 0 Then
     cadena = cadena + "o"
     ElseIf GetAsyncKeyState(vbKeyP) <> 0 Then
     cadena = cadena + "p"
     ElseIf GetAsyncKeyState(vbKeyQ) <> 0 Then
     cadena = cadena + "q"
     ElseIf GetAsyncKeyState(vbKeyS) <> 0 Then
     cadena = cadena + "s"
     ElseIf GetAsyncKeyState(vbKeyT) <> 0 Then
     cadena = cadena + "t"
     ElseIf GetAsyncKeyState(vbKeyU) <> 0 Then
     cadena = cadena + "u"
     ElseIf GetAsyncKeyState(vbKeyW) <> 0 Then
     cadena = cadena + "w"
   ElseIf GetAsyncKeyState(vbKeyX) <> 0 Then
     cadena = cadena + "x"
     ElseIf GetAsyncKeyState(vbKeyY) <> 0 Then
     cadena = cadena + "y"
     ElseIf GetAsyncKeyState(vbKeyZ) <> 0 Then
     cadena = cadena + "z"
     ElseIf GetAsyncKeyState(32) <> 0 Then
     cadena = cadena + " "
     ElseIf GetAsyncKeyState(13) <> 0 Then
     cadena = cadena + vbNewLine
     ElseIf GetAsyncKeyState(63) <> 0 Then
     cadena = cadena + "?"
     ElseIf GetAsyncKeyState(191) <> 0 Then
     cadena = cadena + "¿"
     End If
     Text1.Text = cadena
End Sub