Dim TreeView1Nodes As String
   TreeView1Nodes = ""
   
   Dim i As Long
   
   For i = 0 To TreeView1.Nodes.Count - 1
   TreeView1Nodes = TreeView1Nodes & TreeView1.Nodes(i).Text
   Next
   
   MsgBox TreeView1Nodes

Private Sub PrintRecursive(ByVal n As TreeNode)
   System.Diagnostics.Debug.WriteLine (n.Text)
   MessageBox.Show (n.Text)
   Dim aNode As TreeNode
   For Each aNode In n.Nodes
      PrintRecursive (aNode)
   Next
End Sub

'Вызов процедуры с использованием верхнего узла дерева
'Call the procedure using the top nodes of the treeview

Private Sub CallRecursive(ByVal aTreeView As TreeView)

   Dim n As TreeNode
   For Each n In aTreeView.Nodes
      PrintRecursive (n)
   Next
End Sub

Dim TreeView1Nodes As String
TreeView1Nodes = ""
   
Dim aNode As Node
   
For Each uc In TreeView1.Nodes
'изменение цвета узла
aNode.ForeColor = 255
TreeView1Nodes = TreeView1Nodes & aNode.Text
Next
  
MsgBox TreeView1Nodes

 TreeView1.SaveToFile ("C:\tree.txt")