デスクトップ上のカーソルの位置をセットする

カーソルの座標をセットするには、SetCursorPosというAPIを使います。
とても簡単です。
次のコードはマウスカーソルを画面の左端にセットします。
コマンドボタンを一つ配置してください。

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

Private Sub Command1_Click()
SetCursorPos 0, 0
End Sub

BACK