From: robertlo@NO_SHAW.CA   
      
   Hi all,   
      
   using this API "GetWindowRect", I found it is very easy.   
   The mouse event is not broken. It is because other control has the mouse   
   event   
      
   cheers,   
   Egghead   
   "Shell"  wrote in message   
   news:smjbr2157n6m2hqdokn2eslbd2fl27cl7g@4ax.com...   
   > In response to the post:   
   > On Mon, 22 Jan 2007 15:25:26 GMT, "EggHead"   
   >  stated...and I replied:   
   >   
   >>Hi all,   
   >>   
   >>My development environment is VB 6.0, and my OS is winxp.  I would like to   
   >>know how to find the mouse location at a control when the mouse is point   
   >>at that control. The problem is that the mouse "whatever" events will not   
   >>fire since the mouse is hjhack by other control. Anyway, I have the   
   >>following code and I can check is the mouse over the control or not,   
   >>however, I cannot find out where the mouse location at that control.   
   >>   
   >>Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI)   
   >>As Long   
   >>Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As   
   >>Long, ByVal yPoint As Long) As Long   
   >>   
   >>   
   >>private sub mouseChecker()   
   >>     Dim pnt As POINTAPI   
   >>     Dim ConvertX As Double   
   >>    GetCursorPos pnt   
   >>  If WindowFromPoint(pnt.x, pnt.y) = Me.control1.hWnd Then   
   >>       'I cannot find any method in finding the mouse location in that   
   >> Visual basic control.   
   >>   
   >>  End If   
   >>end sub   
   >>   
   >>   
   >>   
   >>thanks   
   >>Egghead   
   >   
   >   
   > Try this (air code)   
   >   
   > 'begin code   
   > Type POINTAPI   
   >    X As Long   
   >    Y As Long   
   > End Type   
   >   
   > Type RECT   
   >    Left   As Long   
   >    Top    As Long   
   >    Right  As Long   
   >    Bottom As Long   
   > End Type   
   >   
   > Type WINDOWPLACEMENT   
   >    Length           As Long   
   >    flags            As Long   
   >    ShowCmd          As Long   
   >    ptMinPosition    As POINTAPI   
   >    ptMaxPosition    As POINTAPI   
   >    rcNormalPosition As RECT   
   > End Type   
   >   
   > Declare Function GetCursorPos Lib "user32" ( _   
   >    lpPoint As POINTAPI) As Long   
   >   
   > Declare Function GetWindowPlacement Lib "user32" ( _   
   >    ByVal hwnd As Long, _   
   >    lpwndpl As WINDOWPLACEMENT) As Long   
   >   
   > Public Function PointsToMe() As Boolean   
   > Dim WinPos As WINDOWPLACEMENT   
   > Dim Point As POINTAPI, lResult As Long   
   >   
   >    lResult = GetCursorPos(Point)   
   >   
   >    lResult = GetWindowPlacement(Me.hwnd, WinPos)   
   >   
   >    If Point.X >= WinPos.rcNormalPosition.Left And _   
   >       Point.X <= WinPos.rcNormalPosition.Right And _   
   >       Point.Y >= WinPos.rcNormalPosition.Top And _   
   >       Point.Y <= WinPos.rcNormalPosition.Bottom Then _   
   >        PointsToMe = True   
   > End Function   
   > 'end air code   
   >   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)