Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function ReleaseCapture Lib "user32" () As Long

 

Public Event MouseOver()

Public Event MouseOut()

 

Dim CtrMov As Boolean

 

Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

With UserControl

If (X < 0) Or (Y < 0) Or (X > .Width) Or (Y > .Height) Then

        ReleaseCapture

        CtrMov = False

        RaiseEvent MouseOut

Else

        If CtrMov = False Then

        SetCapture .hwnd

        CtrMov = True

               RaiseEvent MouseOver

        End If

End If

End With

End Sub