Imports System.Xml
 
Imports <xmlns="http://www.meinpaket.de/xsd/dietmar/1.0/products">
 
    Public Class Form1
 
        Private Sub LoadXmlTree()
 
            Dim xd = XDocument.Load("X:\Test\categories.xml")
 
            Dim categories = (From cat In xd.Root.<category> Order By cat.@code _
              Select New With {.id = cat.@code, .name = cat.<name>.Value, _
              .parent = cat.<parent>.@code}).ToList()
 
            Dim pd As New Dictionary(Of String, TreeNode)
 
            For Each c In categories
                Dim tn As New TreeNode(c.name)
                If Not pd.ContainsKey(c.id) Then
                    pd.Add(c.id, tn)
                End If
                If c.parent = "root" Then
                    TreeView1.Nodes.Add(tn)
                Else
                    If Not pd.ContainsKey(c.parent) Then
                        MsgBox("parent fehlt: " & c.id)
                    Else
                        pd(c.parent).Nodes.Add(tn)
                    End If
                End If
            Next
 
        End Sub
 
    End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist