Public Sub Page_Load(sender As object, e As System.EventArgs)
 
  If Not Page.IsPostBack Then
   If Not Editor1.ToolControls("LinkTree") Is Nothing Then
    Dim tdd As CuteEditor.TreeDropDownList
    Dim richitem As CuteEditor.RichListItem
    tdd = DirectCast(Editor1.ToolControls("LinkTree").Control, CuteEditor.TreeDropDownList)

    'clear the items from configuration files
    'see Configuration/Shared/Common.config
    'tdd.Items.Clear()

    'Add items by code

    Dim rootitem As CuteEditor.TreeListItem
    rootitem=new CuteEditor.TreeListItem("Root")
    rootitem.Selectable=false
    tdd.Items.Add(rootitem)
    rootitem.Items.Add("Asp.Net","Asp.Net","http:'asp.net")
    rootitem.Items.Add("DotNetNuke.Net","DotNetNuke.Net","http:'DotNetNuke.com")
    rootitem.Items.Add("CuteSoft","CuteSoft","http:'CuteSoft.net")
   End If
  End If

 End Sub