|
'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 'Jim Deutch 'MS Dev MVP |