'マウスカーソルデータ授受のための構造体
Type lpptMouse
    pX As Integer
    pY As Integer
End Type

'で、その大域変数
Global M As lpptMouse

'Windows API を使うための宣言
Declare Function GetCursorPos Lib "User" (M As lpptMouse) As Integer
Declare Function SetCursorPos Lib "User" (ByVal X As Integer, ByVal Y As Integer) As Integer