IMAGEWELL

["Enrico a Libero" <enricolr at libero dot it>]

Sempre un saluto a tutti
Vorrei poter inserire a piacere una immagine in una windows trascinandola da 
una cartella (es la cartella immagini)
ho inserito in una window un oggetto IMAGEWELL e seguendo da manuale ho 
immesso i seguenti controlli :
Nella OPEN :
 Me.AcceptPictureDrop
 Me.AcceptFileDrop("image/x-jpg")

Nel DropObject
 If Obj.PictureAvailable then
   Me.Image=Obj.Picture
 elseif Obj.FolderItemAvailable then
   Me.Image=Obj. FolderItem.OpenAsPicture
 End if

Nel MouseDown
 Dim d as DragItem
 d= NewDragItem( Me.left, Me.top, Me.width, Me.height)
 d.picture= Me.Image
 d.Drag //Allow the drag

Ma non riesco a vedere l'iimagine trascinata.

Sempre un grazie a tutti
Enrico