Private Sub Picture1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Data.GetFormat(vbCFFiles) Then
For i = 1 To Data.Files.Count
MsgBox Data.Files(i)
Next
End If
End Sub