Считать с TreeView1 всё что в нём находится - VB

Формулировка задачи:

здравствуйте как будет код с помощью For Each считать с TreeView1 2 в TreeView1 можно например при помощи зажатой клавиши Контрол выделять несколько сучков на дереве?

с дельфей такое

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

в ВБ(А) можно сделать??

как эту инфу использовать чтобы определить, какой узел был выбран щелчком мыши, путем проверки класса TreeViewEventArgs, в котором содержатся данные, связанные с этим событием.

Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
   ' Determine by checking the Node property of the TreeViewEventArgs.
   MessageBox.Show(e.Node.Text)
End Sub

как это затолкать например в

Sub Command1_Click()

End Sub

Решение задачи: «Считать с TreeView1 всё что в нём находится»

textual
                            Листинг программы 
                        

                            Private Sub CallRecursive(ByVal aTreeView As TreeView)
   Dim n As TreeNode
   For Each n In aTreeView.Nodes
      PrintRecursive(n)
   Next
End Sub
 
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
                        