Drag & Drop на форме - VB

Формулировка задачи:

Здравствуйте Я опять к за советом. Проблема вот в чем: Есть форма на ней десять Text1(i) и Label, хочу сделать так чтобы когда я перетащил Label допустим на Text1(5)и отпустил кнопку мыши чтобы Caption Label-а записался именно в Text1(5) (т.е. в тот Text1(i) над которым я отпустил кнопку мыши). делаю так:

Private Sub label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Drag vbBeginDrag
End Sub
Private Sub Text1_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
Text1(i).Text = Text1(i).Text & Label1.Caption
End Sub

Подскажите, пожалуйста, как мне определить Index Text1(i).

Решение задачи: «Drag & Drop на форме»

textual
                            Листинг программы 
                        

                            Dim indxLab
Private Sub Picture1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
i = Index
Picture1(i).Drag vbBeginDrag
indxLab = Picture1(i).Index
Picture1(i).DragIcon = Picture1(i).Picture
End Sub
Private Sub Text1_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
Dim st As String
i = Index
st = Picture1(indxLab).DataField
Text1(i).Text = Text1(i).Text & Picture1(indxLab).DataField
End Sub
                        