MousePosCtr

Public Function MouseOver(windowHandle As Long, _
        testc As Control)
    
    Dim windowPos As RECT
    Dim clientRect As RECT
    Dim mousePos As POINTAPI
    Dim controlRect As RECT
    
    r = GetWindowRect(windowHandle, windowPos)
    r = GetClientRect(windowHandle, clientRect)
    
    'Calculate border width - windowRect is
    'complete size and client rect is internaL
    'so subtract and divide
    BorderWidth = (windowPos.Right - windowPos.Left _
        - clientRect.Right) / 2
    
    'topOffset is difference in window and
    'Client rect sizes minus one border width
    
    topOffset = windowPos.Bottom - windowPos.Top _
        - clientRect.Bottom - BorderWidth
    
    controlRect.Left = windowPos.Left + BorderWidth + _
        (testc.LeftScreen.TwipsPerPixelX)
    
    controlRect.Right = windowPos.Left + BorderWidth + _
        (testc.Left + testc.Width) / Screen.TwipsPerPixelX)
    
    controlRect.Top = windowPos.Top + topOffset + _
        (testc.Top / Screen.TwipsPerPixelY)
    
    controlRect.Bottom = windowPos.Top + topOffset + _
        ((testc.Top + testc.Height) / Screen.TwipsPerPixelY)
    
    r = GetCursorPos(mousePos)
    
    MouseOver = (mousePos.x >= controlRect.Left And _
        mousePos.x < controlRect.Right And
    mousePos.y >= controlRect.Top And _
        mousePos.y < controlRect.Bottom)
End Function

Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Type POINTAPI
x As Long
y As Long
End Type
Public Declare Function GetClientRect Lib "user32" _
(ByVal hwnd As Long, lpRect As RECT) As Long
Public Declare Function GetWindowRect Lib "user32" _
(ByVal hwnd As Long, lpRect As RECT) As Long
Public Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long

Public Function MouseOver(windowHandle As Long, _
testc As Control)

Dim windowPos As RECT
Dim clientRect As RECT
Dim mousePos As POINTAPI
Dim controlRect As RECT

r = GetWindowRect(windowHandle, windowPos)
r = GetClientRect(windowHandle, clientRect)

'Calculate border width - windowRect is

'complete size and client rect is internaL

'so subtract and divide

BorderWidth = (windowPos.Right - windowPos.Left _
- clientRect.Right) / 2

'topOffset is difference in window and

'Client rect sizes minus one border width

topOffset = windowPos.Bottom - windowPos.Top _
- clientRect.Bottom - BorderWidth

controlRect.Left = windowPos.Left + BorderWidth + _
(testc.LeftScreen.TwipsPerPixelX)

controlRect.Right = windowPos.Left + BorderWidth + _
(testc.Left + testc.Width) / Screen.TwipsPerPixelX)

controlRect.Top = windowPos.Top + topOffset + _
(testc.Top / Screen.TwipsPerPixelY)

controlRect.Bottom = windowPos.Top + topOffset + _
((testc.Top + testc.Height) / Screen.TwipsPerPixelY)

r = GetCursorPos(mousePos)

MouseOver = (mousePos.x >= controlRect.Left And _
mousePos.x < controlRect.Right And
mousePos.y >= controlRect.Top And _
mousePos.y < controlRect.Bottom)
End Function