[VB6] Drag & Drop con Esplora Risorse

[giustavalla]

Selezionando un file JPG in Esplora Risorse e trasciandolo sulla finestra di, ad esempio, Paint Shop, viene caricata automaticamente l'immagine relativa. Benissimo !
Trasciando viceversa il file JPG su una Picture Box di un form VB6 appare un "segnale di divieto di sosta" ad indicare che l'operazione è impossibile.
Davvero non si può fare ? Ossia impostare con un Drag & Drop la proprietà Picture di una Picture Box caricandone l'immagine corrispondente ?
Grazie per l'attenzione.

[giustavalla]

Risolto !

'.OLEDragMode = 1 - Automatic ' = vbOLEDragAutomatic
'.OLEDropMode = 1 - Manually ' = vbOLEDropManual
Private Sub Picture1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
AllOLEDragDrop Data
End Sub


Private Sub AllOLEDragDrop(Data As DataObject)
If Data.GetFormat(vbCFFiles) Then
Dim FileName
FileName = Data.Files(1)
MsgBox FileName
Picture1.Picture = LoadPicture(FileName)
End If
End Sub