Imports System
Imports System.Xml.Linq
Imports System.Linq
Imports System.Xml.XPath
Imports System.Xml
Public Class MainClass
Public Shared Sub Main()
Dim nt As NameTable = New NameTable()
Dim book As object = nt.Add("book")
Dim price As object = nt.Add("price")
Dim settings As XmlReaderSettings = New XmlReaderSettings()
settings.NameTable = nt
Dim reader As XmlReader = XmlReader.Create("books.xml", settings)
reader.MoveToContent()
reader.ReadToDescendant("book")
End Sub
End Class