VB.Net by API/System.Xml/XmlWriterSettings

XmlWriterSettings.Indent

<source lang="vbnet"> Imports System.Xml Imports System.Xml.Serialization Imports System.IO

Public Class MainClass

  Public Shared Sub Main()
       Dim myXmlSettings As New XmlWriterSettings
       myXmlSettings.Indent = True
       myXmlSettings.NewLineOnAttributes = True
       Using ProductWriter As XmlWriter = XmlWriter.Create("test.xml", myXmlSettings)
           ProductWriter.WriteComment("www.vbex.ru ")
           ProductWriter.WriteStartElement("Product")
           ProductWriter.WriteAttributeString("Id", "101")
           ProductWriter.WriteAttributeString("COunt", "10")
           ProductWriter.WriteElementString("P1", "P2")
           ProductWriter.WriteEndElement() 
       End Using
  End Sub

End Class

 </source>

XmlWriterSettings.NewLineOnAttributes

<source lang="vbnet"> Imports System.Xml Imports System.Xml.Serialization Imports System.IO

Public Class MainClass

  Public Shared Sub Main()
       Dim myXmlSettings As New XmlWriterSettings
       myXmlSettings.Indent = True
       myXmlSettings.NewLineOnAttributes = True
       Using ProductWriter As XmlWriter = XmlWriter.Create("test.xml", myXmlSettings)
           ProductWriter.WriteComment("www.vbex.ru ")
           ProductWriter.WriteStartElement("Product")
           ProductWriter.WriteAttributeString("Id", "101")
           ProductWriter.WriteAttributeString("COunt", "10")
           ProductWriter.WriteElementString("P1", "P2")
           ProductWriter.WriteEndElement() 
       End Using
  End Sub

End Class

 </source>