Creates an XPathNavigator for navigating this object.
Option Explicit On
Option Strict On
Imports System
Imports System.IO
Imports System.Xml
Imports System.Xml.XPath
Imports System.Xml.Xsl
Public Class Sample
Public Shared Sub Main()
Dim doc As XmlDocument = New XmlDocument()
doc.Load("books.xml")
Dim root As XmlElement = doc.DocumentElement
root.FirstChild.LastChild.InnerText = "12.95"
Dim nav As XPathNavigator = root.CreateNavigator()
Dim xslt As XslCompiledTransform = New XslCompiledTransform()
xslt.Load("output.xsl")
Dim writer As XmlTextWriter = New XmlTextWriter("books.html", Nothing)
xslt.Transform(nav, Nothing, writer, Nothing)
End Sub 'Main
End Class 'Sample