[Débutant] Treeview Masquer un niveau !

Cette procédure remplit un TreeNode à 3 niveaux, déploie les 2 premiers niveaux et réduit le 3ème :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
    Private Sub Arbre()
        'Création des noeuds
        With TreeView1
            '1er niveau
            For i As Integer = 1 To 4
                Dim texte As String = "Niveau " & i.ToString
                Dim noeud As New TreeNode(texte)
                .Nodes.Add(noeud)
            Next
            '2ème niveau
            For i As Integer = 1 To .Nodes.Count
                For j As Integer = 1 To 4
                    Dim texte As String = .Nodes(i - 1).Text & " - " & j.ToString
                    Dim noeud As New TreeNode(texte)
                    .Nodes(i - 1).Nodes.Add(noeud)
                Next
            Next
            '3ème niveau
            For i As Integer = 1 To .Nodes.Count
                For j As Integer = 1 To .Nodes(i - 1).Nodes.Count
                    For k As Integer = 1 To 4
                        Dim texte As String = .Nodes(i - 1).Nodes(j - 1).Text & " - " & k.ToString
                        Dim noeud As New TreeNode(texte)
                        .Nodes(i - 1).Nodes(j - 1).Nodes.Add(noeud)
                    Next
                Next
            Next
            'Expansion (tout)
            .ExpandAll()
            'Réduction du 3ème niveau
            For Each noeud As TreeNode In .Nodes
                For Each sousNoeud As TreeNode In noeud.Nodes
                    sousNoeud.Collapse()
                Next
            Next
        End With
    End Sub

PS : A noter qu'il doit être possible de créer une procédure récursive de telle sorte que le dernier niveau de chaque nœud soit fermé et cela quelque soit le nombre de niveaux de chacun des nœuds de l'arbre.