🚀 go-pugleaf

Is een manier om drag and drop tedoen tussen 2 User Controls?

Ik heb een user controle en form met 2 maal die zelfde user controle.
nu wil ik drag and drop doen onderling met elkaar.

dit is de code die ik gebruik.

*********************************************************************************************
Dim Strindex, StrText

Private Sub lblafspraak_MouseDown(Index As Integer, Button As Integer, Shift 
As Integer, X As Single, Y As Single)
    StrText = UserControl.LblAfspraak(Index).Caption
    Strindex = Index
    UserControl.LblAfspraak(Index).Drag vbBeginDrag
End Sub

Private Sub lblafspraak_MouseUp(Index As Integer, Button As Integer, Shift 
As Integer, X As Single, Y As Single)
    UserControl.LblAfspraak(Index).Drag vbEndDrag
    UserControl.LblAfspraak(Index).Caption = ""
End Sub

Private Sub lblafspraak_DragDrop(Index As Integer, Source As Control, X As 
Single, Y As Single)
    UserControl.LblAfspraak(Index).Caption = StrText
    UserControl.LblAfspraak(Strindex).Caption = ""
End Sub



Alvast bedankt