Debiste haber hecho tu "primera toma" o haber iniciado tu Proyecto mucho tiempo antes....
Consulta la ayuda sobre el método DRAG.
"...Inicia, termina o cancela una operación de arrastre de cualquier control excepto los controles Line, Menu, Shape, Timer o CommonDialog..."
COPIADO DE LA AYUDA DEL MSDN....
Este ejemplo utiliza el método Drag para arrastrar el nombre de un archivo de mapa de bits (.bmp) a un cuadro de imagen donde se muestra el mapa de bits. Para probar este ejemplo, pegue todo el código en la sección Declaraciones de un formulario que contenga controles DriveListBox, DirListBox, FileListBox, PictureBox y Label. Utilice los nombres predeterminados para todos los controles. Ajuste el tamaño y la posición de todos los controles de forma que se puedan ver y usar fácilmente. El tamaño y la posición de la etiqueta no son importantes porque cambian en tiempo de ejecución. Cuando el programa comienza, puede examinar el sistema de archivos y cargar mapas de bits. Cuando haya encontrado el mapa de bits que desea mostrar, haga clic en el nombre de archivo de ese mapa de bits y arrástrelo al cuadro de imagen.
Private Sub Form_Load ()
Picture1.AutoSize = -1 ' Activa AutoSize.
Label1.Visible = 0 ' Hace la etiqueta invisible.
File1.Pattern = "*.BMP; *.ICO; *.WMF" ' Establece patrones de
' archivos.
End Sub
Private Sub Dir1_Change () ' Cualquier cambio en Dir1
File1.Path = Dir1.Path ' se refleja en File1.
End Sub
Private Sub Drive1_Change () ' Cualquier cambio en Drive1
Dir1.Path = Drive1.Drive ' se refleja en Dir1.
End Sub
Private Sub File1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim DY ' Declara variable.
DY = TextHeight("A") ' Obtiene el alto de una línea.
Label1.Move File1.Left, File1.Top + Y - DY /2, File1.Width, DY
Label1.Drag ' Arrastra el contorno de la etiqueta.
End Sub
Private Sub Dir1_DragOver (Source As Control, X As Single, Y As Single, State As Integer)
' Cambia el puntero a no colocar.
If State = 0 Then Source.MousePointer = 12
' Utiliza el puntero predeterminado del mouse.
If State = 1 Then Source.MousePointer = 0
End Sub
Private Sub Drive1_DragOver (Source As Control, X As Single, Y As Single, State As Integer)
' Cambia el puntero a no colocar.
If State = 0 Then Source.MousePointer = 12
' Utiliza el puntero predeterminado del mouse.
If State = 1 Then Source.MousePointer = 0
End Sub
Private Sub Form_DragOver (Source As Control, X As Single, Y As Single, State As Integer)
' Cambia el puntero a no colocar.
If State = 0 Then Source.MousePointer = 12
' Utiliza el puntero predeterminado del mouse.
If State = 1 Then Source.MousePointer = 0
End Sub
Private Sub File1_DragOver (Source As Control, X As Single, Y As Single, State As Integer)
On Error Resume Next
If State = 0 And Right$(File1.Filename,4) = ".ICO" Then
Label1.DragIcon = LoadPicture(File1.Path + "\" + File1.Filename)
If Err Then MsgBox "Imposible cargar el archivo de iconos."
ElseIf State = 1 Then
Label1.DragIcon = LoadPicture () ' Usa icono de no arrastrar.
End If
End Sub
Private Sub Picture1_DragDrop (Source As Control, X As Single, Y As Single)
On Error Resume Next
Picture1.Picture = LoadPicture(File1.Path + "\" + File1.Filename)
If Err Then MsgBox "Imposible cargar el archivo de imagen."
End Sub