如何移动label控件组

Question

Dim x1 As Single, y1 As SinglePrivate Sub Label1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X: y1 = Y
End SubPrivate 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