Previsualización de imagenes y Drag&Drop

[komodo]

Hola a todos! verán, tengo el siguiente codigo:

Public Sub carga_articulo()
Set foto = cnt.Execute("Select * from fotos where id='" & codigo.Text & "'")

i = 0
Do Until foto.EOF
i = i + 1
Load Me.Imagefoto(i)
Me.Imagefoto(i).Visible = True
Load Me.Label1(i)
Me.Label1(i).Visible = True
Me.Imagefoto(i).Picture = LoadPicture(app.Path & "\" & foto.Fields("foto_ruta"))
Me.Label1(i).Caption = foto.Fields("fecha")
Me.Imagefoto(i).Left = Me.Imagefoto(0).Width * i
Me.Label1(i).Left = Me.Label1(0).Width * i
foto.MoveNext

Loop
TotalObjetosCreados = i

End Sub

Private Sub pfotop_DragDrop(Source As Control, X As Single, Y As Single)
pfotop.Picture = Imagefoto(i).Picture
End Sub

Private Sub Imagefoto_MouseDown(i As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
'Si el boton del raton es el derecho, no hacemos nada
If Button = 2 Then Exit Sub
Imagefoto(i).Drag 1
DragX = X
DragY = Y
End Sub

Private Sub Imagefoto_MouseUp(i As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Imagefoto(i).Drag 2
End Sub

Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move (X - DragX), (Y - DragY)
End Sub

Al querer hacer Drag&Drop de una imagen selecionada y arrastrarla a otro picture siempre me muestra la ultima cargada, por ejemplo, si hay tres imagenes, seleccionando la que sea y arrastrandola al picture siempre me muestra la tercera, es un problema de indices pero nosé como solucionarlo.

También me gustaria implementar una barra de scroll horizontal en el frame donde salen las imagenes para que cuando se creen más del ancho permitdo del frame se active la barra de scroll y pueda visualizar todas las imagenes. He estado mirando codigos fuente de ejemplos pero no he dado con la solución, si alguien tiene algun ejemplo se lo agradeceria.
Un saludo y espero que me puedan ayudar