Soucis avec les attributs d'un treenode

Voilà la routine récursive avec laquelle j'ajoute mes nodes.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub AddChildNodes(ByVal XMLNode As Xml.XmlNode, ByVal ParentNode As TreeNode)
 
        Dim ChildXMLNode As Xml.XmlNode
        Dim NewNode As TreeNode
 
        For Each ChildXMLNode In XMLNode.ChildNodes
            NewNode = ParentNode.Nodes.Add(ChildXMLNode.Attributes(0).Value)
            If NewNode.Level = 5 Then
                Dim parametres(1) As String
                parametres(0) = ChildXMLNode.Attributes("observe").Value.ToString
                parametres(1) = ChildXMLNode.Attributes("chemin").Value.ToString
                NewNode.Tag = parametres
            End If
            If ChildXMLNode.ChildNodes.Count > 0 Then
                AddChildNodes(ChildXMLNode, NewNode)
            End If
        Next
 
    End Sub

On voit bien que je charge les attributs "observe" et "chemin" dans paramètres si le node est de niveau 5.
Dans l'absolu j'aimerai que ça fonctionne pour les noeuds de tout niveau.
Sauf que pour les noeuds de niveau 0, 1, 2, 3, 4, les attributs "observe" et chemin" n'existent pas.

Voilà ma question :

Comment connaitre la liste des attributs d'un node donné (ici ChildXMLNode) ?
Merci d'avance !
Sam