Dim d1 As New Dictionary(Of Integer, Integer)
 
        d1.Add(17, 3)
        d1.Add(4, 77)
        d1.Add(2, 3)
        d1.Add(9, 16)
 
 
        For Each x In d1.Keys
            Debug.WriteLine(x.ToString & " " & d1(x))
        Next
 
        Dim sd As New SortedDictionary(Of Integer, Integer)(d1)
 
        Dim d2 As New Dictionary(Of Integer, Integer)(sd)
 
        d1 = d2   ' orig = cpy!
 
        For Each x In d1.Keys
            Debug.WriteLine(x.ToString & " " & d1(x))
        Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist