Per Drag and Drop Grafiken verschieben?

[daDom]

So, habe es inzwischen wie folgt gelöst:

Private Sub Liste_DblClick()
    Dim idx As Integer
    idx = getFreeIndex(collIndex)
    Load Einrichtung(idx)
    With Einrichtung(idx)
        .Picture = LoadPicture(PicPath & Liste.List(Liste.ListIndex) & ".bmp")
        .Left = 0 'Anfangs Left-Position
        .Top = 0 'Anfangs Top-Position
        .Visible = True
        .ZOrder 0 ' Bei neuerstellung ganz oben Plazieren
    End With
    Einrichtung(idx).ToolTipText = Liste.List(Liste.ListIndex)
    'Selektiertes Objekt merken
    Label1.Caption = Einrichtung(idx).ToolTipText
    
    collIndex.Add idx
End Sub

Private Sub Index_Click()
    'Liste leeren
    lstPosition.Clear
    Label2.Caption = Einrichtung.Count - 1 & " Komponenten"
    'Von 0 bis zum Ende der Einrichtungszahl
    For posSchleife = 0 To Einrichtung.Count - 1
        If posSchleife > 0 Then
            posTop = Einrichtung(posSchleife).Top
            posLeft = Einrichtung(posSchleife).Left
            lstPosition.AddItem ("Oben: " & posTop & ";  Links: " & posLeft & "; (" & Einrichtung(posSchleife).ToolTipText & ")")
        End If
    Next posSchleife
End Sub

Ich füge der angeklickten Einrichtung also einen ToolTipText zu und frage diesen Dann ab und speichere ihn für jedes Objekt mittels der 2. Schleife...

Funktioniert also