Imports System
Imports System.Xml
publicclass Sample
public shared Sub Main()
Dim settings As New XmlReaderSettings()
settings.IgnoreWhitespace = True
Using reader As XmlReader = XmlReader.Create("books.xml", settings)
reader.ReadToFollowing("Book")
reader.Skip()
Dim inner As XmlReader = reader.ReadSubtree()
inner.ReadToDescendant("Title")
Console.WriteLine(inner.Name)
inner.Close()
End Using
End Sub
End class