Private Type POINTAPI X As Long Y As LongEnd TypePrivate Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As LongPrivate Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, _ ByVal yPoint As Long) As Long' Return the handle of the window under the mouse cursor.Function WindowFromMouse() As Long Dim lpPoint As POINTAPI GetCursorPos lpPoint WindowFromMouse = WindowFromPoint(lpPoint.X, lpPoint.Y)End Function