drag & drop

[ae_jester]

I have an image inside one picture box among an array of picture boxes.

I want to be able to drag this image from one picture box to another and 'drop' the image onto the new location.

This is what I have so far...

Private Sub Picture1_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
    Source.Move (X - DragX), (Y - DragY)
End Sub

The event fires at the right time, but the image always remains in the original picture box. It DOES move, but only slightly, and I'm positive we would have to modify the parent property of the image control somehow. When I tried

Source.Parent = Picture1(Index)

it generated errors.

Is there another way to do this?

[Stiletto]

Private Sub Picture1_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
Picture1.Picture = Picture2.Picture
End Sub

[ae_jester]

I would really like to move the actual image box there rather than just copy pictures since I have information stored in the tag property

[ae_jester]

also Picture1 is a control array.

[Stiletto]

You can copy the Tag property too..
But as for your request, you want to remove the image from the original image control after you drop it?

Private Sub Picture1_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
Set Source.Picture = Nothing
End Sub

[ae_jester]

Ok thanks i figured it out

[ae_jester]

How do you make the image visible while it is being dragged?