'挿入ツールバーにアクセスします
Dim d As ToolbarDropDown = DirectCast(Me.WebHtmlEditor1.Toolbar.Items.GetByType(ToolbarItemType.Insert), ToolbarDropDown)
'項目 0 は挨拶です
DirectCast(d.Items(0), ToolbarDropDownItem).Text = "Custom Greeting"
DirectCast(d.Items(0), ToolbarDropDownItem).Value = "Hello there..."
'項目 1 は署名です
DirectCast(d.Items(1), ToolbarDropDownItem).Text = "Custom Signature"
DirectCast(d.Items(1), ToolbarDropDownItem).Value = "Yours Truly,Christopher Lukas"
'カスタム項目を追加します
d.Items.Add(New ToolbarDropDownItem("Coolness", "<H3>Coolness</H3>"))
‘ d.Items.Clear (); は挿入ツールバーからすべての項目を完全にクリアして最初から始めます