Excel VBA中捕捉屏幕坐标问题

代码如下
Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Public Function MoveTo(X As Long, Y As Long)
SetCursorPos X, Y
End Function
然后在后面的代码中用moveTo这个方法的时候，后面加数字就没问题，可放成变量的时候就出错
Sub test()
Dim w1, w2 As Long
w1 = 463
w2 = 300
MoveTo w1, w2
End Sub
这样就是提示说Byref参数类型不符，跪求为什么啊

Dim w1, w2 As Long——这样只是对w2定义了类型，w1还是任意型，改为
Dim w1 As Long, w2 As Long 或 Dim w1&, w2&

faceld代表取系统内值的图标代码。你可以使用不的数值，来看看效果的变化。 controls.add 控件的增加使用的就是这个。 commandbarscontrol这个是什么呢？我也不太清楚。呵呵！