Visual Basic - ¿Como mover varias imagenes en un mismo formulario?

Private Sub Form_Load()

Picture1(0).AutoSize = True

'colocamos el picture principal en la esquina superior izq.

Picture1(0).Move 0, 0

Text1.Move 900, 4000

'Cargaremos dinamicamente 9 controles picture uno a lado del otro

For i = 1 To 10

Load Picture1(i)

Picture1(i).Visible = True

Picture1(i).Move Picture1(i).ScaleWidth * i, 2000, 790

Picture1(i) = LoadPicture("")

Next

End Sub

Private Sub Picture1_DragDrop(Index As Integer, Sourse As Control, X As Single, Y As Single)

'Al soltar le establecemos el grafico al picture destino

Picture1(Index).Picture = Sourse.Picture

'Borramos los demas

For i = 0 To Picture1.Count - 1

If Index <> i Then

Picture1(i).Picture = LoadPicture("")

End If

Next

End Sub

Private Sub Picture1_MouseDown(Index As Integer, button As Integer, shift As Integer, X As Single, Y As Single)

'Si arrastramos un picture que no tiene grafico salimos

If Picture1(Index).Picture = Empty Then Exit Sub

'Comenzamos la operacion de Drag para ese picture

Picture1(Index).Drag 1

End Sub