Asp Control ASP.Net

<%@ Page Language="VB" %>
    
   Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        TreeView1.ExpandAll()
   End Sub
    
   Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        TreeView1.CollapseAll()
   End Sub
    
   Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim myNode As New TreeNode
        myNode.Text = TextBox1.Text
        myNode.NavigateUrl = TextBox2.Text
        TreeView1.FindNode("Home/Finance/Markets").ChildNodes.Add(myNode)
   End Sub



    TreeView Control


    
                                    Runat="server" 
                        Text="Expand Nodes" 
                        OnClick="Button1_Click" />
                                    Runat="server" 
                        Text="Collapse Nodes" 
                        OnClick="Button2_Click" />


            Text of new node:
            
            
            Desination URL of new node:
            
            
                                    Runat="server" 
                        Text="Add New Node" 
                        OnClick="Button3_Click" />
                              runat="server" 
                      DataSourceId="SiteMapDataSource1">
        


        


    


File: Web.sitemap