Imports System.Xml
Imports System.Xml.Serialization
Imports System.Text
Imports System.IO
Public Class Utilities
Public Shared Function Serialize(ByVal Obj As Object) As String
Dim serializer As New XmlSerializer(Obj.GetType)
Dim sb As New StringBuilder()
Dim writer As New StringWriter(sb)
serializer.Serialize(writer, Obj)
writer.Close()
writer.Dispose()
Return sb.ToString()
End Function
Public Shared Function Deserialize(ByVal str As String, ByVal t As Type) As Object
Dim serializer As New XmlSerializer(t)
Dim reader As New StringReader(str)
Dim obj As Object = serializer.Deserialize(reader)
reader.close()
reader.Dispose()
Return obj
End Function
End Class