Imports System

Imports System.Xml.Serialization

Imports System.Xml

Imports System.IO

Imports System.Xml.Linq

Imports System.Collections.Generic

Imports System.Linq

​

Public Class MyVar

  <XmlElement("var")> Public name As String

  <XmlElement("troublecodes")> Public troubleCodes As TroubleCodes

End Class

​

Public Class TroubleCodes

<XmlArrayItem("troublecode")> Public troubleCode() As TroubleCode

<XmlArrayItem("statusbyte")> Public statusByte() As StatusByte

End Class

​

Public Class TroubleCode

  <XmlElement("one")> Public one As String

  <XmlElement("two")> Public two As String

End Class

​

Public Class StatusByte

    <XmlElement("three")> Public three As String

    <XmlElement("four")> Public four As String

End Class

Public Module Module1

    Public Sub Main()

        Dim myVar = new MyVar() With { _

            .name = "my name", _

            .troubleCodes = new TroubleCodes() With { _ 

                .troubleCode = { new TroubleCode With { .one = "one", .two = "two" } }, _

                .statusByte = { new StatusByte With { .three = "three", .four = "four" } } _

            }

        }

        Dim newXml = myVar.GetXml(true)

        Console.WriteLine(newXml)

    End Sub

End Module

​

Public Module XmlSerializationHelper

    <System.Runtime.CompilerServices.Extension> _

    Public Function LoadFromXML(Of T)(xmlString As String) As T

        Using reader As New StringReader(xmlString)

            Return DirectCast(New XmlSerializer(GetType(T)).Deserialize(reader), T)

        End Using

    End Function

​

    <System.Runtime.CompilerServices.Extension> _

    Public Function GetXml(Of T)(obj As T, Optional omitStandardNamespaces As Boolean = False) As String

        Dim ns As XmlSerializerNamespaces = Nothing

        If omitStandardNamespaces Then

            ns = New XmlSerializerNamespaces()

                ' Disable the xmlns:xsi and xmlns:xsd lines.

            ns.Add("", "")

        End If

        Using textWriter = New StringWriter()

            Dim settings = New XmlWriterSettings() With { _

                .Indent = True _

            }

            ' For cosmetic purposes.

            Using xmlWriter = System.Xml.XmlWriter.Create(textWriter, settings)

                Dim serializer as New XmlSerializer(obj.GetType()) 

                serializer.Serialize(xmlWriter, obj, ns)

            End Using

            Return textWriter.ToString()

        End Using

    End Function

End Module

​