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