DefInt A-Z

Declare Sub StartMouseWatch Lib "mwatch.dll" (ByVal hWnd)
Declare Sub StopMouseWatch Lib "mwatch.dll" (ByVal hWnd)

Declare Function HWndTag$ Lib "mwatch.dll" (ByVal hWnd)
Declare Function HWndCtlName$ Lib "mwatch.dll" (ByVal hWnd)
Declare Function MenuCaption$ Lib "mwatch.dll" (ByVal MenuID)

Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
    If KeyCode < 0 Then
        Caption = "Menu: " + MenuCaption$(KeyCode * -1)
    Else
        Caption = "CtlName: " + HWndCtlName$(KeyCode) + ", Tag: " + HWndTag$(KeyCode)
    End If
End Sub

Sub Form_Load ()
    StartMouseWatch hWnd
End Sub

Sub Form_Unload (Cancel As Integer)
    StopMouseWatch (hWnd)
End Sub