怎么移动label控件组

如何移动label控件组
窗体上有N个label1控件组，点击任意一个都可以移动
下面是移动一个label1的源码，我做成移动控件组的怎么改

Dim x1 As Single, y1 As Single


Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

x1 = X: y1 = Y

End Sub


Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)


If Button = 1 Then

    Label1.Left = Label1.Left + X - x1

    Label1.Top = Label1.Top + Y - y1

End If

End Sub

------解决方案--------------------

Dim x1 As Single, y1 As Single


Private Sub Label1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

x1 = X: y1 = Y

End Sub


Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then

    Label1(Index).Left = Label1(Index).Left + X - x1

    Label1(Index).Top = Label1(Index).Top + Y - y1

End If

End Sub