How the heck do i create a DRAG-DROP in VB6?

[OneOfTheseDays]

i'm using visual basic 6 and want to know how to use the drag drop. I have several picture boxes and i want to drag them into other picture boxes.

 

[splice]

something like so:

Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)

If TypeOf Source Is PictureBox Then
Picture1.Picture = Source.Picture
End If

End Sub

Make sure you have DragMode set to 1 (Automatic) in the source picture box