Private Sub TreeView1_SelectedIndexChange(ByVal sender As Object, ByVal e As Microsoft.Web.UI.WebControls.TreeViewSelectEventArgs) Handles TreeView1.SelectedIndexChange
        Dim MyTV As Microsoft.Web.UI.WebControls.TreeView = DirectCast(sender, Microsoft.Web.UI.WebControls.TreeView)
        Dim SelectedNode As Microsoft.Web.UI.WebControls.TreeNode = MyTV.Nodes(MyTV.SelectedNodeIndex)
        Response.Write(SelectedNode.Text)
    End Sub