برنامه نویسی ویژوال بیسیک

برای نوشتن این برنامه شما بر روی فرم خود باید یک Label و یک تایمر قرار دهید و Interval تایمر را برابر

با 1 قرار دهید سپس کد زیر را در قسمت General کپی کنید .

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

حالا در قسمت event تایمر کد زیر را قرار دهید .

For i = 1 To 255
        results = 0
   (results = GetAsyncKeyState(i
        If results <> 0 Then
         Label1.Caption= (Chr(i))
        End If
    Next