Public Shared Function Serialize(Of T)(value As T, Optional emptyNs As Boolean = False) As String
        If value.Equals(Nothing) Then Return Nothing
        Dim xmlNamespaces As XmlSerializerNamespaces
        If Not emptyNs Then
            xmlNamespaces = New XmlSerializerNamespaces()
            xmlNamespaces.Add("x", "http://www.w3.org/2001/XMLSchema-instance")
        Else
            xmlNamespaces = New XmlSerializerNamespaces({XmlQualifiedName.Empty})
        End If

        Dim serializer = XmlSerializer.FromTypes({GetType(T)})(0)
        Dim settings = New XmlWriterSettings() With {.Encoding = New UnicodeEncoding(False, False), .Indent = True, .IndentChars = vbTab, .NewLineChars = vbCrLf, .OmitXmlDeclaration = emptyNs}
        Using textWriter = New StringWriterUtf8()
            Using xmlWriter__1 = XmlWriter.Create(textWriter, settings)
                serializer.Serialize(xmlWriter__1, value, xmlNamespaces)
            End Using
            serializer = Nothing
            xmlNamespaces = Nothing
            settings = Nothing
            Return textWriter.ToString()
        End Using
    End Function