DragItem.Drag
From Xojo Documentation
Method
Allows the drag to take place. Note that it is only possible to change the image before calling Drag(), any attempt to do so after that point will fail.
Sample Code
This code drags the picture that is assigned to the Image property of an ImageWell to another ImageWell. In the MouseDown event of the first ImageWell, Drag is used to allow the drag.
Var d As DragItem
d = New DragItem(Self, X, Y, Me.Width, Me.Height)
d.DragPicture = Keaton534
d.MouseCursor = System.Cursors.HandOpen
d.Picture = Me.Image
d.Drag // Allow the drag
d = New DragItem(Self, X, Y, Me.Width, Me.Height)
d.DragPicture = Keaton534
d.MouseCursor = System.Cursors.HandOpen
d.Picture = Me.Image
d.Drag // Allow the drag
In the second ImageWell, put this code in its Open event to allow the picture drop:
Me.AcceptPictureDrop