drag & drop pictures

[henk54]

Betreft VB6
Ik heb een form met daarop 2 pictures.
(picture1 is een grote; picture2 is een keine)
Ik wil picture2 draggen & droppen op piccture1.
Het slepen gaat prima, maar het droppen werkt niet.
Code:

Private Sub Picture1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)

If Source.Name = "Picture2" And State = 0 Then
Picture2.DragIcon = LoadPicture(App.Path & "\yes.ico")
End If

End Sub



Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then
Picture2.Drag vbBeginDrag
Picture2.DragIcon = LoadPicture(App.Path & "\yes.ico")
End If

End Sub