大家帮我看一下这个Label控件的过程

Question

Public Function Moves2(ByVal a1 As Label) As String
If OKmove = True Then
OKmove = False
a1.MousePointer = 99 '用户鼠标类型
a1.MouseIcon = LoadPicture(App.path & "\ico\hand.cur") '读取鼠标的图标文件
a1.Move a1.Left + X - LastX - a1.Width / 2, a1.Top + Y - LastY - a1.Height / 2
DoEvents
OKmove = True
End If
End Function引用：
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Moves2 (Label2)
End Sub错误提示说类型不对，应该怎么做？

Answer 1

~发那么多贴Public Function Moves2(ByVal a1 As Label) As String
-------------
Public Function Moves2(ByRef a1 As Label) As String另外，是不是应该把X与Y的值传到Move2过程里去？？
Public Function Moves2(ByRef a1 As Label, X As Single, Y As Single) As String

Answer 2

对啊，，要不然函数Moves2中的X和Y哪里来的？