Snippet Library

none

'Call GetCursorPos() and compare with the position of the control's
'corners (which is conveniently obtained using the ClientToScreen API
'function):

    Dim Cur As POINTAPI
    Dim MyUpperLeft As POINTAPI
    Dim MyLowerRight As POINTAPI
    Dim Ret As Long

        Ret = GetCursorPos(Cur)
        Ret = ClientToScreen(UserControl.hwnd, MyUpperLeft)
        MyLowerRight.X = UserControl.Width / Screen.TwipsPerPixelX
        MyLowerRight.Y = UserControl.Height / Screen.TwipsPerPixelY
        Ret = ClientToScreen(UserControl.hwnd, MyLowerRight)
        'if the mouse not over the control...
        If Cur.X < MyUpperLeft.X Or Cur.X > MyLowerRight.X Or Cur.Y <
MyUpperLeft.Y Or Cur.Y > MyLowerRight.Y Then

'etc;