VB 用SendMessage或PostMessage如何实现鼠标移动？

系统调用直接移动鼠标不是通过 WM_MOUSEMOVE
WM_MOUSEMOVE 是鼠标移动以后发出的
应该用
Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Dim x as Long
Dim y as Long
x = 0
y = 0
SetCursorPos x, y

那只能先Call SetCursorPos(201, 201)再Call SetCursorPos(202, 202)……以此类推了。很麻烦
但，可以用按键精灵的录制功能，先录好，在把按键精灵代码中的"mousemove"替换为"Call SetCursorPos "

---