VB点击动作

移动鼠标到某个位置
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Sub Command1_Click()
SetCursorPos 10, 20 '这就是坐标了 写什么就移动到什么位置
End Sub
让它点击的话：
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0'模拟鼠标单击事件 可是我用的时候不行

如果是移动到固定坐标单击才有效：
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X = 横坐标 And Y = 纵坐标 Then
……
End If
End Sub
如果是单击时输出横纵坐标值：
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print X
Print Y
End Sub