Private Sub PrintRecursive(ByVal n As TreeNode)
        Dim aNode As TreeNode
        For Each aNode In n.Nodes
            If aNode.Checked Then
                proveChecked = True
                listPath.Add(aNode.FullPath)
                filesCount += My.Computer.FileSystem.GetFiles( _
                  aNode.FullPath).Count
            End If
            PrintRecursive(aNode)
        Next
    End Sub
 
 
    ' Call the procedure using the top nodes of the treeview.
    Private Sub CallRecursive(ByVal aTreeView As TreeView)
        'If aTreeView.TopNode.Checked Then 
        '    proveChecked = True
        '    listPath.Add(aTreeView.TopNode.FullPath)
        'End If
        Dim n As TreeNode
        For Each n In aTreeView.Nodes
            PrintRecursive(n)
        Next
    End Sub