Private Sub Drag_Drop(sender As Object, e As _
      System.Windows.Forms.DragEventArgs)
 
        Dim picsdest As List(Of Image) = _
            DirectCast(e.Data.GetData _
                (GetType(List(Of Image))), List(Of Image))
 
        pics2.Clear() 'Ziel-Bilder löschen
        For i As Integer = picsdest.Count - 1 To 0 Step -1
            'Bild im Ziel eintragen
            pics2.Add(picsdest(i))
            'Bild aus Quell-Liste löschen
            pics1.Remove(picsdest(i))
        Next i
 
        'Bilderlisten neu anzeigen
        Showpics(flp1, pics1, 0)
        Showpics(flp2, pics2, 0)
    End Sub
 
 
    Private Sub Drag_Over(sender As Object, _
                          e As System.Windows.Forms.DragEventArgs)
        e.Effect = DragDropEffects.Move
    End Sub
 
End Class