Public Function DeepClone(ByVal obj As System.Object) As System.Object
        If obj Is Nothing Then Return Nothing
 
        Using stream As IO.MemoryStream = New IO.MemoryStream
            Dim formatter As _
              Runtime.Serialization.Formatters.Binary.BinaryFormatter = _
      New Runtime.Serialization.Formatters.Binary.BinaryFormatter
            formatter.Serialize(stream, obj)
 
            stream.Position = 0
 
            Return formatter.Deserialize(stream)
        End Using
 
    End Function