oops... sorry... here's the code
content = strBody
Dim editor1
Set editor1 = New CuteEditor
editor1.ID = "strBody"
editor1.Text = content
editor1.FilesPath = "CuteEditor_Files"
editor1.ImageGalleryPath = "/Uploads"
editor1.MaxImageSize = 50
editor1.Template = "PasteText,Separator,Bold,Italic,Underline,Separator,JustifyLeft,JustifyCenter,JustifyRight,Separator," + _
"InsertOrderedList,InsertUnorderedList,Separator,Indent,Outdent,Separator," + _
"FontColor,HighLight,Separator,Hr,Link,ImageGallery,InsertTable," + _
"Separator,Undo,Redo,InsertTemplate,Help,Separator,StyleDropDown,RemoveFormat"
editor1.StyleDropDownMenuNames = temp_styledropdownMenuNames
editor1.StyleDropDownMenuList = temp_styledropdownMenuList
editor1.Width = 580
editor1.Height = 250
editor1.Draw()