关于控件的移动？

Question

Dim xs As Integer
Dim ys As Integer
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    xs = X
    ys = Y
End SubPrivate Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then Label1.Move Label1.Left + X - xs, Label1.Top + Y - ys
End Sub

Answer 1

用不了，LABEL不听指挥，鼠标没有控制权了，连窗口都关不了。BUTTON值在MOUSRMOVE中为4。

Answer 2

to :hzc1(笨笨)
我这使用没有任何问题，你把Email告诉我，我发给你源程序！

Answer 3

BUTTON=4表示按下的是鼠标中键

Answer 4

我的程序中Form.ScaleMode=1,否则拖动不正常

Answer 5

[email protected] 谢谢了！
另你知道控件注册的事吗？我有一个控件，可以加载，但使用时却出现没有许可证的信息的提示。如何解决？