'▼APIの宣言
Declare Function SetCursorPos Lib "user32" ( _
    ByVal x As Long, _
    ByVal y As Long _
) As Long

Dim Ret As Integer
Ret = GetCursorPos(100,200)

Ret…関数が成功したかどうかが返ります。
  0以外…関数成功
  0    …関数失敗

  100 …マウスポインタのX座標を指定します。
  200 …マウスポインタのY座標を指定します。