Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)

    ' If the TreeView control contains any root nodes, perform a
    ' preorder traversal of the tree and display the text of each node.
    If LinksTreeView.Nodes.Count > 0 Then

      ' Iterate through the root nodes in the Nodes property.
      Dim i As Integer

      For i = 0 To LinksTreeView.Nodes.Count - 1

        ' Display the nodes.
        DisplayChildNodeText(LinksTreeView.Nodes(i))

      Next i

    Else

      Message.Text = "The TreeView control does not have any nodes."

    End If
								If Not IsPostBack Then

												' Use the Add and Remove methods to programmatically 
												' remove the Appendix C node and replace it with a new 
												' node. 
												LinksTreeView.Nodes.Remove(LinksTreeView.Nodes(3))
												LinksTreeView.Nodes.Add(New TreeNode("New Appendix C"))

												' Use the AddAt and RemoveAt methods to programmatically 
												' remove the Chapter One node and replace it with a new node.
												LinksTreeView.Nodes(0).ChildNodes.RemoveAt(0)
												LinksTreeView.Nodes(0).ChildNodes.AddAt(0, New TreeNode("New Chapter One"))

												' Use the Clear method to remove all the child nodes of the 
												' Chapter Two node.
												LinksTreeView.Nodes(0).ChildNodes(1).ChildNodes.Clear()

								End If


  End Sub

  Sub DisplayChildNodeText(ByVal node As TreeNode)

    ' Display the node's text value.
    Message.Text &= node.Text & "
"

    ' Iterate through the child nodes of the parent node passed into
    ' this method and display their values.
    Dim i As Integer

    For i = 0 To node.ChildNodes.Count - 1

      ' Recursively call the DisplayChildNodeText method to
      ' traverse the tree and display all the child nodes.
      DisplayChildNodeText(node.ChildNodes(i))

    Next i

  End Sub