how to write this code recursive

[mred]

Hello,

how can i write this code recursive?

If Flag2 = True Then
    Root.Expand()
    For i = 0 To RootNodes.Count - 1
        RootNodes.Item(i).Expand()
        Dim RootItemsfori = Root.Nodes.Item(i).Nodes
        For j = 0 To RootItemsfori.Count - 1
            RootItemsfori.Item(j).Expand()
            Dim RootItemsforj = Root.Nodes.Item(i).Nodes.Item(j).Nodes
            For k = 0 To RootItemsforj.Count - 1
                RootItemsforj.Item(k).Expand()
                Dim RootItemsforw = Root.Nodes.Item(i).Nodes.Item(j).Nodes.Item(k).Nodes
                For w = 0 To RootItemsforw.Count - 1
                    Dim cNI = TryCast(RootItemsforw.Item(w).Tag, RiskeySIITreeBuilder.NodeInfo)
                    If Not cNI.Key.UnterStArt.Value.ToString() Is Nothing Then
                        RootItemsforw.Item(w).Expand()
                    Else
                        Exit Sub
                    End If
                Next
            Next
        Next
    Next

[dday9]

So you want to call the expand method on the parent element and all of its children? If so, create a method that accepts a single argument for the root TreeNode and inside the method:

1. Call expand on the argument
2. Loop over any children
3. Recursively call the method on the child node

Here is an example:

Private Shared Sub RecursivelyExpandTreeNode(root As TreeNode)
    root.Expand()

    For Each child In root.Nodes
        RecursivelyExpandTreeNode(child)
    Next
End Sub

[mred]

Thank you