DRAG DROP --> IMAGE DANS UNE IMAGE BOX (VIA OLE)

'Code Mr_pheus@ibelgique.com
Dim CheminImage As String
Dim fn

Private Sub Form_Load()
Image1.OLEDragMode = 0 'Manual
Image1.OLEDropMode = 1 'Manual 
' image1.DragIcon = chemin_icone
End Sub

Private Sub image1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

If Data.GetFormat(15) Then
    For Each fn In Data.Files
       CheminImage = CheminImage & fn
    Next
End If

Image1.Picture = LoadPicture(CheminImage)
Text1.Text = CheminImage
CheminImage = ""

End Sub