Imports System.Xml
Public Class Example1
Shared Sub Main()
Dim reader As XmlReader
Dim writer As XmlWriter
reader = XmlReader.Create("pubs.xml")
writer = XmlWriter.Create("output.xml")
While reader.Read()
writer.WriteNode(reader, True)
End While
reader.Close()
writer.Close()
End Sub
End Class