【VB声明】
Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Long, ByVal y As Long) As Long

【说明】
设置指针的位置

【返回值】
Long，非零表示成功，零表示失败。会设置GetLastError

【参数表】
x,y ------------ 鼠标指针在屏幕像素坐标系统中的X，Y位置

[此贴子已经被作者于2007-5-25 17:22:53编辑过]

不是这个哟 这个我试过 只能测试位置
我是想说 比如点Command1 鼠标移动到A点 Command2 鼠标到B点

Option Explicit
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Sub Command1_Click()
Print SetCursorPos(330, 310)
End SubPrivate Sub Command2_Click()
Print SetCursorPos(330, 210)
End Sub

是这个意思吧？

[此贴子已经被作者于2007-5-27 14:00:12编辑过]

不错 就是这样 呵呵 谢谢啦

为什么会输出的一个1呢?

那怎么样才可以不输出了？难道要在后面加Cls ？