Функция GetCursorPos

Declare Function GetCursorPos Lib "user32"  _
        (lpPoint As POINTAPI) As Long

GetCursorPos возвращает текущие координаты курсора мыши. Координаты x и y (относятся ко всему экрану) передаются в переменную lpPoint

lpPoint

Получаемые координаты X и Y курсора

Пример

' смотри также пример Показать текст за звездочками
' Определим координаты курсора
Dim coord As POINTAPI  ' координаты курсора

GetCursorPos coord  
MsgBox "Координаты курсора:"; coord.x; coord.y

Смотри также

SetCursorPos

Категория

Курсоры