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