Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

doGlobal.checkLogin(Session("Access"), Application("logGeneral"))

If Not Page.IsPostBack Then

If Not ContentTextBox.ToolControls("LinkTree") Is Nothing Then

Dim tdd As CuteEditor.TreeDropDownList

Dim richitem As CuteEditor.RichListItem

tdd = DirectCast(ContentTextBox.ToolControls("LinkTree").Control, CuteEditor.TreeDropDownList)

Dim rootitem As CuteEditor.TreeListItem

rootitem = New CuteEditor.TreeListItem("Root")

rootitem.Selectable = False

rootitem.Items.Add("Asp.Net", "Asp.Net", "http:'asp.net")

rootitem.Items.Add("DotNetNuke.Net", "DotNetNuke.Net", "http:'DotNetNuke.com")

End If

End If

<div class="Row">

<asp:Label ID="ContentLabel" runat="server" CssClass="FormLabel" Text="Content:"></asp:Label>

<CE:Editor Id="ContentTextBox" runat="server" Height="300px" Width="700px" RemoveServerNamesFromUrl="true" EditorWysiwygModeCss="~/css/editsuite_editor.css" ConfigurationPath="~/CuteSoft_Client/CuteEditor/Configuration/clearchannel.config" BackColor="#D4EAFF" BorderColor="#666666" CustomCulture="en" ThemeType="Office2003_BlueTheme" ></CE:Editor>

</div>