VB怎么实现多个Label控件拖动？（20分）

Question

VB怎么实现多个Label控件拖动？

Answer 1

按住Ctrl键+鼠标连选，然后拖动....

Answer 2

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
    Dim i As Integer       Me.Label1(0).Move X, Y       Me.Label1(1).Move X + 1000, Y + 1000  End If
End Sub

Answer 3

不好意思，我说的不是很清楚！这样的，是在程序运行时，多个Label控件可以单个拖动！

Answer 4

TO 楼上 Me.Label1(1).Move X + 1000, Y + 1000
谢谢你的帮助，我说单个移动，你这样是两个一起，两个XY都是同时的移动呀！

Answer 5

Dim oldX As Single, oldY As Single
    Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
     Source.Move Left + X - oldX, Top + Y - oldY
    End Sub
     
    Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
     oldX = X + Left
     oldY = Y + Top
     Label1.Drag 1
    End Sub
     
    Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
     Label1.Drag 2
    End Sub是这样吗?.........................