Imports System

Imports System.Xml.Serialization

Imports System.Xml

Imports System.IO

Imports System.Xml.Linq

Imports System.Collections.Generic

Imports System.Linq

​

    <XmlInclude(GetType(LoopTerminatedType))> _

    <XmlInclude(GetType(LoopDynamicLengthType))> _

    Public MustInherit Class PosResponseLoop

    End Class

    <XmlType("loopTerminatedType")> _

    Public Class LoopTerminatedType

        Inherits PosResponseLoop

    End Class

    <XmlType("loopDynamicLengthType")> _

    Public Class LoopDynamicLengthType

        Inherits PosResponseLoop

    End Class

    Public Class RootObject

        <XmlElement("loop")> Public prLoop() As PosResponseLoop 

    End Class

    Public Module Module1

        Public Sub Main()

            Dim root as New RootObject With _

            {

                .prLoop = new PosResponseLoop() { new LoopTerminatedType(), new LoopDynamicLengthType() }

            }

            Dim xml = root.GetXml()

            Console.WriteLine(xml)

        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