８９．マウスカーソルの位置を変更する

＜　使用用途　＞
マウスカーソルの位置を変更する

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞　ダウンロード・・・　下に書いてあるサンプルソースと同じです

　＜　説明　＞
ＡＰＩ関数のSetCursorPosを使用します
SetCursorPos＝＞マウスカーソルの位置を設定
　　＜引数＞
　　　　 　X水平位置
　　　　　 Y:垂直位置
　　＠戻り値＠
　　　　　 正常終了0以外
＊スクリーン座標なので注意

<　ＳＡＭＰＬＥ　＞
’ここではマウスカーソルの位置を画面の左上に変更する処理です
'標準モジュール
Public Declare Function SetCursorPos Lib "USER32" (ByVal x As Long, ByVal y As Long) As Long

'ここからはフォーム内の処理です
Private Sub Command1_Click()
　　Dim Ret As Long
　　　Ret = SetCursorPos(0, 0)
End Sub