<Serializable()> Public Class Person
    Public Function Clone() As Person
        Dim BinFormatter As New _
          System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
        Dim memStream As New System.IO.MemoryStream
        BinFormatter.Serialize(memStream, Me)
        memStream.Position = 0
        Return CType(BinFormatter.Deserialize(memStream), Person)
    End Function
 '// ....

        Dim p1, p2 As Person
        p1 = New Person("Peter", "Lustig", 30, 1)
        p2 = p1.Clone
 
        '// ggf. zurück setzen
        p1 = p2.Clone