Private WithEvents os As CSYSMOUSE
 
Private Sub Form_Load()
    Set os = New CSysMouseLib.CSYSMOUSE
 
    If os.DLLMODULEHANDLE > 0 Then
        os.START
    End If
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
   os.STOP
End Sub
 
Private Sub os_BEVORESTART(BCANCEL As Long)
    BCANCEL = 0 'Nicht aufhalten, größer null wäre Abbruch
End Sub
 
Private Sub os_SYSMOUSEACTION(ByVal WPARAM As Long, LPARAM As Long)
    Form1.Caption WPARAM
End Sub