remplir treeView Vb.net

salut
je souhaite remplir un treeView mais je ne sais pas d'avance le nombre de niveau qu'il pourra y avoir .

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 Private Sub RemplirTree(ByVal tree As TreeView, ByVal liste As ArrayList)
        Dim i, j As Integer
        Dim lstMembre As New ArrayList
        j = 0
 
        For i = 0 To liste.Count - 1
            tree.Nodes.Add(New TreeNode(liste(i)))
            lstMembre = objFait.GetReference(baseDefaut, strSchema, "Dim" & liste.Item(i))
 
            For j = 0 To lstMembre.Count - 1
 
tree.Nodes(i).Nodes.Add(New TreeNode(lstMembre.Item(j).ToString))
(comment je fait si le noeud ajouté posséde aussi des fils )
            Next
        Next
 
    End Sub

merci