Sub ebenelesen(ByVal xmlknoten As XmlNode, ByVal treeknoten As TreeNode)
        tvwkey += 1
        If xmlknoten.Attributes.Count > 0 Then
            treeknoten.Text = xmlknoten.Attributes("Nr").Value
        Else
            treeknoten.Text = xmlknoten.Name
        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