Problemitas con XML

[mikolbe]

Hola amigos foreros, estoy aquí nuevamente para contarles una inquietud al generar un XML. El archivo se genera perfecto, pero se genera en una sola línea, lo que pasa es que genero un XML muy grande en ciertas oportunidades y si quiero ver que quede bien, tengo que estar separando TAG por TAG y es un embole.
Les pongo el código y el resultado.

VISUAL BASIC 2008

Código vb:

Public Sub Generate_XML_Object(ByVal lpFile As String, ByVal lpObjectName As String)
        Dim XML As New XmlTextWriter(lpFile, Encoding.GetEncoding("UTF-8"))
        XML.WriteStartDocument()
        XML.WriteStartElement(lpObjectName)   'Objeto
 
        XML.WriteStartElement("Propiedades")   'Propiedades
        XML.WriteElementString("Titulo", WebPanel.Titulo)
        XML.WriteElementString("Main", WebPanel.Main)
        XML.WriteElementString("Start", WebPanel.Generar_Start)
        XML.WriteElementString("Volver", WebPanel.Generar_Volver)
        XML.WriteElementString("Mensaje", WebPanel.Generar_Reportar_Mensaje)
        XML.WriteEndElement()   '/Propiedades
 
        XML.WriteEndElement()   '/Objeto
        XML.Close()
End Sub
 

Ese es el ejemplo de un solo elemento, tengo muchísimos mas que se generan.

Paso una parte del XML

Código XML:

<?xml version="1.0" encoding="utf-8"?><Objeto><Form><Propiedades><Titulo>Titulon</Titulo><Main>True</Main><Start>True</Start><Volver>True</Volver><Mensaje>True</Mensaje></Propiedades><Objetos /></Form></Objeto>
 

Queda todo en una linea sola, yo prefiero que quede así:

Código XML:

<?xml version="1.0" encoding="utf-8"?>
<Objeto>
    <Form>
        <Propiedades>
            <Titulo>Titulon</Titulo>
            <Main>True</Main>
            <Start>True</Start>
            <Volver>True</Volver>
            <Mensaje>True</Mensaje>
        </Propiedades>
        <Objetos />
    </Form>
</Objeto>
 

Cualquier ayuda se agradece.

<<[[MIKOLBE]]>>