If Not Page.IsPostBack Then
  If Not Editor1.ToolControls("FontSize") Is Nothing Then

      Dim dropdown As CuteEditor.RichDropDownList
      Dim richitem As CuteEditor.RichListItem

      dropdown = DirectCast(Editor1.ToolControls("FontSize").Control, CuteEditor.RichDropDownList)

      'the first item is the caption
      richitem = dropdown.Items(0)

      'clear the items from configuration files
      dropdown.Items.Clear()

      'add the caption
      dropdown.Items.Add(richitem)

      'add value only
      dropdown.Items.Add("1")

      'add text and value
      dropdown.Items.Add("2 (10pt)","2")

      'Add html and text and value
      dropdown.Items.Add("<span style='font-size:18pt'>5 </span>(18pt)", "5 (18pt)", "5")

  End If
End If