Dim i As Integer, a As IntegerFor i = 20 To 255a = GetAsyncKeyState(i)If a = -32767 ThenText1.Text = Text1.Text + Chr(i)End IfNext