Option Explicit
 
Private Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vKey As Long) As Integer
 
Dim Retval As Long, i As Long
 
Private Sub Form_Load()
Label1.Left = 780: Label1.Top = 90
Label1.Height = 3000: Label1.Width = 3000
Label1.FontBold = True: Label1.FontSize = 18
Label1.Caption = vbNullString
Label1.BorderStyle = 1
Label1.Alignment = 1
 
Timer1.Interval = 3: Timer1.Enabled = True
End Sub
 
 
 
Private Sub Timer1_Timer()
' Die Zahlen über der Tastatur werden abgefangen
For i = 48 To 57
Retval = GetAsyncKeyState(i): If Retval = -32767 Then Exit For
Next i
If i < 58 Then Label1.Caption = Label1.Caption & i - 48
 
' Die Zahlen des Tastaturpads werden abgefangen
For i = 96 To 105
Retval = GetAsyncKeyState(i): If Retval = -32767 Then Exit For
Next i
If i < 106 Then Label1.Caption = Label1.Caption & i - 96
End Sub