Imports System
Imports System.Xml
Imports System.Xml.Schema
Imports System.Linq
Class MainClass
Shared Sub Main()
Dim xmlTree As XDocument = _
1
2
Dim reader As XmlReader = xmlTree.CreateReader()
reader.MoveToContent()
Dim doc As XmlDocument = New XmlDocument()
Dim cd As XmlNode = doc.ReadNode(reader)
doc.AppendChild(cd)
Console.WriteLine(doc.OuterXml)
End Sub
End Class