Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        Dim tn As TreeNode = Me.TreeView1.SelectedNode
        Me.PrintNode(tn)
        Me.PrintNodes(tn.Nodes, False)
    End Sub
 
    Private Sub PrintNode(ByVal Node As TreeNode)
        Debug.WriteLine(Node.Text + ": " + Node.FullPath)
    End Sub
 
    Private Sub PrintNodes(ByVal NodesCollection As TreeNodeCollection, ByVal _
      WithSubNodes As Boolean)
        Dim CurrentNode As TreeNode
        For a As Integer = 0 To NodesCollection.Count - 1
            CurrentNode = NodesCollection(a)
            PrintNode(CurrentNode)
            If WithSubNodes Then
                PrintNodes(CurrentNode.Nodes, WithSubNodes)
            End If
        Next
    End Sub