XElement.WriteTo Method

'Declaration
Public Overrides Sub WriteTo ( _
	writer As XmlWriter _
)

Dim sb As StringBuilder = New StringBuilder()
Dim xws As XmlWriterSettings = New XmlWriterSettings()
xws.OmitXmlDeclaration = True
xws.Indent = True

Using xw = XmlWriter.Create(sb, xws)
    xw.WriteStartElement("Root")
    Dim child1 As XElement = _
        <Child>
            <GrandChild>some content</GrandChild>
        </Child>
    child1.WriteTo(xw)
    Dim child2 As XElement = _ 
        <AnotherChild>
            <GrandChild>different content</GrandChild>
        </AnotherChild>
    child2.WriteTo(xw)
    xw.WriteEndElement()
End Using

Console.WriteLine(sb.ToString())

<Root>
  <Child>
    <GrandChild>some content</GrandChild>
  </Child>
  <AnotherChild>
    <GrandChild>different content</GrandChild>
  </AnotherChild>
</Root>