Just cycle through child nodes for selected node and add their text. Here is how:
Code:If TreeView1.SelectedNode.Level = 0 Then
For Each node As LidorSystems.IntegralUI.Lists.TreeNode In TreeView1.SelectedNode.Nodes
TextBox1.Text = TextBox1.Text & vbCrLf & vbTab & "Text = " & node.Text
Next
End If
If the child nodes also have their own child nodes, then use a method:
Code:ShowChildren(TreeView1.SelectedNode)
Code:Private Sub ShowChildren(ByVal parentNode As LidorSystems.IntegralUI.Lists.TreeNode)
For Each node As LidorSystems.IntegralUI.Lists.TreeNode In parentNode.Nodes
TextBox1.Text = TextBox1.Text & vbCrLf
For i As Integer = 0 To parentNode.Level
TextBox1.Text = TextBox1.Text & vbTab
Next
TextBox1.Text = TextBox1.Text & "Text = " & node.Text
ShowChildren(node)
Next
End Sub