Public Class Form1
 
 Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As _
   Int32) As Int32
 
  Private WithEvents t As Timer
 
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
 t = New Timer
 t.Interval = 10
 t.Start()
 End Sub
 
 Private Sub t_Tick(ByVal sender As Object, ByVal e As System.EventArgs) _
   Handles t.Tick
 t.Stop()
  For i As Integer = 0 To 255
  Dim ret As Integer = GetAsyncKeyState(i)
  If ret = -32767 Then
  Me.TextBox1.Text = Me.TextBox1.Text + Chr(i)
  End If
  Next
 t.Start()
 End Sub
End Class