Как определить координаты мыши в любом месте экрана

Поставьте на форму Timer c Interval=1 и Label. Введите следующий код:

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

Private Type POINTAPI
		x As Long
		y As Long
End Type

Private Sub Timer1_Timer()
Dim p As POINTAPI
' Получаем координаты курсора
GetCursorPos p
Label1.Caption = "x=" + Str$(p.x) + "; y=" + Str$(p.y)
End Sub

Аналогично, чтобы установить координаты мыши:

Private Declare Function SetCursorPos Lib "user32" _
(ByVal x As Long, ByVal y As Long) As Long

' Устанавливаем координаты курсора в точку (10, 10)
SetCursorPos 10, 10