Drag and drop

[Mystical]

Hi i want to learn about doing drag and drop of objects.
Basicly what i wanna do is: having 3 buttons (A,B,C)on a form......i wanna drag and drop button C on top of button A and display something. If i drag and drop it on the C buton i want another message. I really have no idea how to go about it. Any suggestions or tutorials would be appreciated

[JordanChris]

Create a form.
Add 3 buttons. Call then btnA, btnB and btnC.

On btnA, modify the DragMode to 1 (Automatic).
Then add the following code:

Private Sub btnB_DragDrop(Source As Control, X As Single, Y As Single)
    MsgBox "Dropped on B at " & X & " : " & Y
End Sub
 
Private Sub btnC_DragDrop(Source As Control, X As Single, Y As Single)
    MsgBox "Dropped on C at " & X & " : " & Y
End Sub

Run the program, and drag button A to B or C.

Then extend the program a bit by:
Add two image controls. Add different Pictures to them (from the \Graphics\Icons\DragDrop folder). Add this code:

Private Sub btnB_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
    btnA.DragIcon = Image1.Picture
End Sub
 
Private Sub btnC_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
    btnA.DragIcon = Image1.Picture
End Sub
 
Private Sub Form_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
    btnA.DragIcon = Image2.Picture
End Sub

[Mystical]

thanx for replying ... i will try this