Declare Function GetClipCursor Lib "user32" (lprc As RECT) As Long
GetClipCursor находит текущий прямоугольник отсечения курсора мыши. Курсор мыши ограничен использованием ClipCursor. Курсор ограничен в этом прямоугольнике - даже SetCursorPos не может освободить это. Если нет явного прямоугольника отсечения, это - действительно размер экрана. Координаты прямоугольника помещены в lprc
' Отобразим координаты прямоугольника отсечения Dim winrect As RECT ' координаты прямоугольника Dim retval As Long ' возвращаемое значение ' Читаем координаты и помещаем их в winrect retval = GetClipCursor(winrect) ' Координаты(x,y) верхнего левого угла Debug.Print winrect.Left; winrect.Top ' Координаты(x,y) нижнего правого угла Debug.Print winrect.Right; winrect.Bottom