Imports System
Imports System.Xml
Imports System.Xml.XPath
Public Class MainClass
Public Shared Sub Main()
Dim xmlTree As XDocument = _
content
Text content
For Each node In xmlTree.Nodes
Console.WriteLine(node.NodeType.ToString())
If node.NodeType = XmlNodeType.Element Then
For Each att In DirectCast(node, XElement).Attributes
Console.WriteLine(att.NodeType.ToString())
Next
For Each node2 In DirectCast (node, XElement).Nodes()
Console.WriteLine(node2.NodeType.ToString())
If node2.NodeType = XmlNodeType.Element Then
For Each node3 In DirectCast (node2, XElement).Nodes
Console.WriteLine(node3.NodeType.ToString())
Next
End If
Next
End If
Next
End Sub
End Class