Dim tvwkey As Integer
 
    Sub tvwfüllen()
        txtAusgabe.Text = ""
        tvw.BeginUpdate()
        tvw.Nodes.Clear()
        Dim xknotenliste As XmlNodeList = xdok.SelectNodes("*")
        Dim tknoten As TreeNode = tvw.Nodes.Add("")
        tvwkey = 0
        tknoten.Name = tvwkey.ToString("00")
        For Each xn As XmlNode In xknotenliste
            ebenelesen(xn, tknoten)
        Next
        tvw.EndUpdate()
    End Sub
 
    Sub ebenelesen(ByVal xmlknoten As XmlNode, ByVal treeknoten As TreeNode)
        tvwkey += 1
 
        If xmlknoten.Attributes.Count > 0 AndAlso xmlknoten.Attributes("Nr") _
          IsNot Nothing Then
            treeknoten.Text = xmlknoten.Attributes("Nr").Value
        Else
            If xmlknoten.Name = "Name" Or xmlknoten.Name = "Punkte" Or _
              xmlknoten.Name = "Bezeichnung" Then
                treeknoten.Text = xmlknoten.InnerText
            Else
                treeknoten.Text = xmlknoten.Name
            End If
        End If
        Dim tn As TreeNode
        Dim xn As XmlNode
        If xmlknoten.HasChildNodes Then
            For Each xn In xmlknoten.ChildNodes
                If xn.NodeType = XmlNodeType.Element Then
                    tn = treeknoten.Nodes.Add(tvwkey.ToString("00"), xn.Name)
                    ebenelesen(xn, tn)
                End If
            Next
        End If
    End Sub

________
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