<Serializable()>
    Public Class MyObject
        Implements ICloneable
        Public Property int1 As Integer
        Public Property str1 As String
 
        Public Sub New(int As Integer, str As String)
            _int1 = int
            _str1 = str
        End Sub
 
        Public Function Clone() As Object Implements System.ICloneable.Clone
            Return Me.MemberwiseClone()
        End Function
    End Class

 
    Private Sub cloneList()
        Dim myObjects As New List(Of MyObject)
        For i = 1 To 5
            myObjects.Add(New MyObject(i, "xxx" & i.ToString()))
        Next
 
        Dim myObjects1 As New List(Of MyObject)
        For Each mo As MyObject In myObjects
            myObjects1.Add(mo.Clone())
        Next
 
        Debug.WriteLine(myObjects(0).int1)
        myObjects1(0).int1 = 99
        Debug.WriteLine(myObjects1(0).int1)
        Debug.WriteLine(myObjects(0).int1)
    End Sub

    Public Function DeepClone(Of T)(ByVal obj As T) As T
        If obj Is Nothing Then Return Nothing
        Dim stream As IO.MemoryStream = New IO.MemoryStream
        Dim ser As New Runtime.Serialization.Formatters.Binary.BinaryFormatter
        ser.Serialize(stream, obj)
        stream.Position = 0
        Return ser.Deserialize(stream)
    End Function

   Private Sub cloneList1()
        Dim myObjects As New List(Of MyObject)
        For i = 1 To 5
            myObjects.Add(New MyObject(i, "xxx" & i.ToString()))
        Next
 
        Dim myobjects2 As List(Of MyObject) = DeepClone(Of List(Of MyObject))( _
          myObjects)
 
        Debug.WriteLine(myObjects(0).int1)
        myobjects2(0).int1 = 99
        Debug.WriteLine(myobjects2(0).int1)
        Debug.WriteLine(myObjects(0).int1)
    End Sub

________
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