Leer un XML para mostrar en un TREEVIEW

Con este código podemos pasar la estructura XML en forma de árbol en un TREEVIEW. El código se ha creado en Visual Basic 8.0/2005.

Imports System.IO
Imports System.Xml
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim xmlR As New XmlTextReader("C:\Fuentes .NET\JPA_ACAFE\Ximo\TreeView\TreeView\XMLFile1.xml")

Do While xmlR.Read()
If xmlR.NodeType = XmlNodeType.Element Then
'Nodo raíz
Dim node As New TreeNode
node.Text = xmlR.Name
TreeView1.Nodes.Add(leerSubNodos(xmlR.ReadSubtree, xmlR.Depth, node))
End If
Loop
TreeView1.AllowDrop = True
End Sub
Private Function leerSubNodos(ByVal xmlR As XmlReader, ByVal nivel As Integer, ByRef node As TreeNode) As TreeNode
xmlR.Read()
Do While xmlR.Read()
If xmlR.NodeType = XmlNodeType.Element Then
Dim newNode As TreeNode = node.Nodes.Add(xmlR.Name)
If xmlR.NodeType = XmlNodeType.Element And nivel <= xmlR.Depth Then
leerSubNodos(xmlR.ReadSubtree, xmlR.Depth, newNode)
End If
End If
Loop
leerSubNodos = node
End Function
End Class