54:
Can I display an icon file as picture and icon as well

With HTML1
	.HTMLPicture("icon") = HTML1.ExecuteTemplate("loadpicture(`gAAAABgYACAQgUCEAANAEgQWhIohMIhUJgkLhIAIEOjMdj0Cf8hAMhf8jkUkk0llEJGMJGcumECl8ymIAmc2lkonUnnkqkS3Qosea2QIkf61P4go5/" & _
"D9LptIp9MpdKolGoFCnc+rUpri2QQlklhsVjsllqr/lk1m9rly1QAisTqbq6f7qbi4f7obKzf7na6xf7mayvwLWV1iqD/q9DotTp2PWh+Dz/WZ7DT/WB3CWYO2bXaKGV" & _
"1u99v+FwjlaqssWRydnsuv2FiWB2CD/fj7ej/fL0dL/fDyc2+eTl1eSx9hwWHwWEczXWGB52mwuHsKuOgO3z1c7/ejubj/ebsbPgdjY4uT1li1Gq5fS9vt9di63Yezwb" & _
"z/eLoaL/eDmZr+HO/6wvS9Kwt+4jfuCfB5u3BcGuA4TiOq678HUaZ/nueJyNikJaD+9DjLC8LxxG8htPJEjxPI80Juwd5yGOsRnlWNp/lYOACsQt5/wKkj8me/B0GhIM" & _
"hngc8gP6/8jQEkj5n+dZvF4sUbxysJ2G4YjFEGE5Wx6kJ2nHGMwGQf8wRi+pww4zgIzVK8srcERTpRL0nm7KR1m6Xsnm4XcZRpG0cLEWY+g4o5ABCx04S1LisgCxKwnO" & _
"bDAUjSborDKixSuYZ/q8ExS0bUCegC101NhN1DTjUKt1UAJckOFp3rOxMCONDynx2W8tmrVleVEkC0AAkNf2HYNgWFYtiWPZVjWZZNmICA`)")
	.Images "gBJJgBggAAwAAgACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjIgjIBAEijUlk8plUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9oEEwGBwWDwMZGMZGeIxUYxOMxYAxuQw1+ykswmXzCuPwpea2QIkf61P4g0J/D+l0+i" & _
"1Om0ukz2gzWcyuzk+Y22CWyCEsT3m932/h+vf+04kaw+O5GS5IzWqAEW8dTdXT/dTcXD/dDZWb/c7XWL/czWV/gayu3mq4fF2exzuf1uo+C0Pwef6zPYaf6wO4S/J2/h" & _
"dkUGTqOs7jvPI8ZymqVjePk+j1Nm4TgQlCaHFgOwIH+fh9nof58nodJ/nweRzRCeRywY+b0wevz0Im8LzPC8ZzGuWDwRpA7yPMiZXDoB0Qnqc5/nodxuH+eZ2GzIx2Gx" & _
"FEHRWv0Gt5BMFxjHEqyrKbeR5Hx7Hgbx/nidBon+eBzGbMhzzOicoyfKEUonEUTxFEh8HnIM6zvEcSxPHcezAdRpn+e54nJCh/loP8nTavcoonI8k0fJRtSVSEkSVJk+" & _
"x8d5yGO3hnlWNp/lYOACvO50VUWvNGofMJnzAdBoVfWJ4HPV0yzPWk1IfLZ/nWbxeN5UdSomdhuGIf4+CwDRW1TRk3oedpx07aJkH/aNOy6cNDQsCNDWLY47CmCxTsLZ" & _
"tVWehx1m7YF1F7XpuF3T1QVFUjeFmPoONCQAQve5rn2TZbL3MvMWoec5sO/g+ExuidhN5Yphn+OoqAwUrb4ukmBrvCNDQlb5/3DceMZHjONLqVo/BUd7hPRKOXNZfx/k" & _
"wNoQGrkmb5Lky5oqHyVZ6jqPpCkYAZyjGipoh+daUo6Ag"
	.Text = "As Picture: <img>icon</img><br>As Icon:     <img>1</img>"
End With
53:
How do I show a gradient text

With HTML1
	.Text = "first line<br>second line<br>third line"
	.SelStart = .XYToPosition(0,1)
	.SelLength = 11
	.HideSelection = False
	.FormatSelection(exHTMLFormatFont) = "Tahoma"
	.FormatSelection(exHTMLFormatFontSize) = 32
	.FormatSelection(exHTMLFormatGradient) = 255
	.SelLength = 0
End With
52:
How can I programmatically change the font

With HTML1
	.Text = "first line<br>second line<br>third line"
	.SelStart = .XYToPosition(0,1)
	.SelLength = 11
	.HideSelection = False
	.FormatSelection(exHTMLFormatFont) = "Tahoma"
	.FormatSelection(exHTMLFormatFontSize) = 32
	.SelLength = 0
End With
51:
How can I programmatically change the selection's foreground color
With HTML1
	.Text = "first line<br>second line<br>third line"
	.SelStart = .XYToPosition(0,1)
	.SelLength = 11
	.HideSelection = False
	.FormatSelection(exHTMLFormatForeColor) = 255
	.SelLength = 4
	.FormatSelection(exHTMLFormatForeColor) = ""
	Debug.Print( .FormatSelection(exHTMLFormatForeColor) )
	.SelLength = 0
End With
50:
How can I programmatically resizes a picture
With HTML1
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.Text = "first line<br>second line<br>third line"
	.HideSelection = False
	.SelStart = .XYToPosition(0,1)
	.FormatSelection(exHTMLFormatImage) = "pic1"
	.FormatSelection(exHTMLFormatImageSize) = 64
	.SelLength = 0
End With
49:
How can I programmatically inserts an icon/picture

With HTML1
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Text = "first line<br>second line<br>third line"
	.HideSelection = False
	.SelStart = .XYToPosition(0,1)
	.FormatSelection(exHTMLFormatImage) = 1
	.SelStart = .XYToPosition(1,1)
	.FormatSelection(exHTMLFormatImage) = "pic1"
	.SelLength = 0
End With
48:
How can I programmatically inserts a line

With HTML1
	.Text = "first line<br>second line<br>third line"
	.SelStart = .XYToPosition(0,1)
	.HideSelection = False
	.FormatSelection(exHTMLFormatLine) = 1
End With
47:
How can I programmatically format the selection

With HTML1
	.Text = "first line<br>second line<br>third line"
	.SelStart = .XYToPosition(0,1)
	.SelLength = 11
	.HideSelection = False
	.FormatSelection(exHTMLFormatBold) = True
	.FormatSelection(exHTMLFormatAlign) = 1
	Debug.Print( .FormatSelection(exHTMLFormatBold) )
	.SelStart = .XYToPosition(0,2)
	.SelLength = -1
	.FormatSelection(exHTMLFormatUnderline) = True
	.FormatSelection(exHTMLFormatAlign) = 2
End With
46:
How can I select the text giving (column,line)-coordinates
With HTML1
	.Text = "This sample shows how to select the text giving (column,line)-coordinates.<br>This is the second line"
	.SelStart = .XYToPosition(0,1)
	.SelLength = 4
	.HideSelection = False
End With
45:
How can I determine the (column,line)-coordinates of the cursor's position
' SelChange event - Occurs when the user selects text in the control.
Private Sub HTML1_SelChange()
	With HTML1
		Debug.Print( "Column" )
		Debug.Print( .PositionToX(.CursorPos) )
		Debug.Print( "Line" )
		Debug.Print( .PositionToY(.CursorPos) )
	End With
End Sub

With HTML1
	.WordWrap = True
	.Text = "This sample shows how to determine the <b>(column,line)</b> - coordinates."
End With
44:
How can I provide my own context menu

' ExecuteContextMenu event - Occurs when the user selects an user item from the control's context menu.
Private Sub HTML1_ExecuteContextMenu(ByVal Item As String,ByVal Position As Long)
	With HTML1
		Debug.Print( "You selected: " )
		Debug.Print( Item )
		.SelText = Item
	End With
End Sub

With HTML1
	.Text = "This is a bit of <b>HTML</b> text. Right-click the text."
	.ContextMenuItems = "1,2,3,others[id=0](4,5,6) "
End With
43:
How can I change the context menu's visual appearance

With HTML1
	.WordWrap = True
	.Text = "This sample show change the visual appearance of the built-in context menu"
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exContextMenuAppearance) = &H1000000
	.Background(exContextMenuSelBackColor) = &H10000ff
End With
42:
How can I insert my own HTML words to the control's context menu

With HTML1
	.WordWrap = True
	.Text = " <off 5><font ;7><fgcolor 808080>sub-note</fgcolor></font></off> This is just a bit of text <off -5><font ;7><fgcolor 808080>su" & _
"per-note</fgcolor></font></off> "
	.ContextMenuItems = "<off 5><font ;7><fgcolor 808080>sub-note</fgcolor></font></off>[id=57763],<off -5><font ;7><fgcolor 808080>super-note</fgcolor>" & _
"</font></off>[id=57763]"
End With
41:
When I use the context menu to insert an image, the size seems to be fixed to 32 pixels. How can I control / change this

With HTML1
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	.HTMLPicture("pic3") = "c:\exontrol\images\colorize.gif"
	.WordWrap = True
	.Text = "The text displays pictures <img>pic1:32</img>,..., <img>pic2:32</img>.<br><b>1.</b> Select a single picture, right click to res" & _
"ize it<br><b>2.</b> Right click to insert a new picture"
	.ContextMenuItems = "Size[id=57680][edittype=515][border=0][min=16][max=128][freq=16][editwidth=-128][ticklabel=value = %i ? '<b>'+value : ( value =" & _
" vmax ? '<fgcolor 808080><font ;6><b>'+value : ( value = vmin ? '<fgcolor 808080><font ;6><b>'+value : '' ) )],Insert[group=3](<" & _
"img>pic1:32</img>[id=57763],<img>pic2:32</img>[id=57763],Others[id=1000](default[group=3](<img>pic3</img>[id=57763]),<font ;6>ot" & _
"her sizes[sep],<img>pic3:16</img>[id=57763],<img>pic3:32</img>[id=57763],<img>pic3:64</img>[id=57763]))"
End With
40:
How can I programatically selects the entire text

With HTML1
	.HideSelection = False
	.WordWrap = True
	.Text = "<b>Job</b><br>/jäb/<br><br><i>noun</i><br><b>1.</b> a paid position of regular employment.<br><b>2.</b> a task or piece of work" & _
", especially one that is paid."
	.SelStart = 0
	.SelLength = -1
End With
39:
How can I search for an exacting word

With HTML1
	.HideSelection = False
	.WordWrap = True
	.Text = "<b>Class</b><br>/klas/<br><br><i>noun</i><br><b>1.</b> a set or category of things having some property or attribute in common " & _
"and differentiated from others by kind, type, or quality.<br><br><b>2.</b> the system of ordering a society in which people are " & _
"divided into sets based on perceived social or economic status."
	.Find "differentiated",exHTMLEditMatchWholeWordOnly
End With
38:
How can I search for a string

With HTML1
	.HideSelection = False
	.WordWrap = True
	.Text = "<b>Class</b><br>/klas/<br><br><i>noun</i><br><b>1.</b> a set or category of things having some property or attribute in common " & _
"and differentiated from others by kind, type, or quality.<br><br><b>2.</b> the system of ordering a society in which people are " & _
"divided into sets based on perceived social or economic status."
	.Find "different",exHTMLEditSearchDown
End With
37:
I am using the ScrollBars property on 0, but the control is not scrolling anymore. What can be done

With HTML1
	.SingleLine = True
	.Text = "This is a <b>long text</b> that should make the control to display the horizontal scroll bar."
	.ScrollBars = exBoth
	.ScrollWidth = 0
	.ScrollHeight = 0
End With
36:
How can I force the control to display a single-line only

With HTML1
	.SingleLine = True
	.Text = "This is the first line<br>This is the second line"
End With
35:
How can I replace the text with HTML formatting

With HTML1
	.WordWrap = True
	.Text = "This is a bit of text"
	.CursorText(10,3,False) = "<dotline><gra FFFFFF;0;1><font ;12>... this is a HTML replacement ...</font></gra></dotline>"
End With
34:
How can I insert HTML text (method 2)

With HTML1
	.Text = "This is a simple text."
	.CursorText(0,0,False) = "<b><dotline>Inserted by code</dotline></b>. "
End With
33:
How can I insert HTML text (method 1)

With HTML1
	.Text = "This is a simple text."
	.SelStart = 0
	.SelLength = 0
	.SelText = "<b><dotline>Inserted by code</dotline></b>. "
End With
32:
How can I add/append HTML text (method 2)

With HTML1
	.Text = "This is a simple text."
	.CursorText(-1,0,False) = " <b><dotline>Added by code</dotline></b>."
End With
31:
How can I add/append HTML text (method 1)

With HTML1
	.Text = "This is a simple text."
	.SelStart = -1
	.SelLength = 0
	.SelText = " <b><dotline>Added by code</dotline></b>."
End With
30:
How can I replace the text with no HTML formatting

With HTML1
	.WordWrap = True
	.Text = "<font ;12>This is a <fgcolor FF0000> bit </fgcolor> of <b><fgcolor 808080><u>HTML</u></fgcolor></b> text"
	.CursorText(11,3) = "... this is a plain replacement ..."
End With
29:
Is there any property or method that gets the entire text with no HTML formatting

With HTML1
	.WordWrap = True
	.Text = "<font ;12><sha  ;;0>This is a bit of <b><fgcolor 808080><u>HTML</u></fgcolor></b> text."
	Debug.Print( .CursorText(0,-1,True) )
End With
28:
How can I get the selection as plain text with no HTML formatting

' SelChange event - Occurs when the user selects text in the control.
Private Sub HTML1_SelChange()
	With HTML1
		Debug.Print( .CursorText(.SelStart,.SelLength,True) )
	End With
End Sub

With HTML1
	.WordWrap = True
	.Text = "<font ;12><sha  ;;0>This is a bit of <b><fgcolor 808080><u>HTML</u></fgcolor></b> text. Select a portion of text and you will g" & _
"et the text with no HTML formatting."
End With
27:
How can I customize the pictures in the control's context menu

With HTML1
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	.HTMLPicture("pic3") = "c:\exontrol\images\colorize.gif"
	.WordWrap = True
	.Text = "The text displays pictures <img>pic1:32</img>,..., <img>pic2:32</img>.<br><b>1.</b> Select a single picture, right click to res" & _
"ize it<br><b>2.</b> Right click to insert a new picture"
	.ContextMenuItems = "Size[id=57680][edittype=515][border=0][min=16][max=128][freq=16][editwidth=-128][ticklabel=value = %i ? '<b>'+value : ( value =" & _
" vmax ? '<fgcolor 808080><font ;6><b>'+value : ( value = vmin ? '<fgcolor 808080><font ;6><b>'+value : '' ) )],Insert[group=3](<" & _
"img>pic1:32</img>[id=57763],<img>pic2:32</img>[id=57763],Others[id=1000](<img>pic3:32</img>[id=57763]))"
End With
26:
How do I show a tooltip

' MouseMove event - Occurs when the user moves the mouse.
Private Sub HTML1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With HTML1
		.ShowToolTip "Just a short tooltip"
	End With
End Sub

With HTML1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exToolTipAppearance) = &H1000000
End With
25:
Is it possible to assign a tooltip for items in the control's context menu

With HTML1
	.Text = "This is a bit of <b>HTML</b> text. Select and right-click the selection."
	.ContextMenuItems = "<font ;18><b>B[id=57648][typ=1][align=1][show=1][ttp=Bolds/Unbolds the selection]"
End With
24:
How do I get the selected text

' SelChange event - Occurs when the user selects text in the control.
Private Sub HTML1_SelChange()
	With HTML1
		Debug.Print( .SelText )
	End With
End Sub

With HTML1
	.Text = "Press the <b>CTRL + S</b> or <b>CTRL + F</b> to search for text."
End With
23:
Is there any way to search through the text

With HTML1
	.Text = "Press the <b>CTRL + S</b> or <b>CTRL + F</b> to search for text."
	.AllowFind = True
	.AllowIncrementalSearch = True
End With
22:
The selection is not shown when the control loses the focus. Is it possible to highlight the selection while the control has no focus

With HTML1
	.Text = "<font ;12>This is a bit of <b>HTML</b> text."
	.HideSelection = False
	.SelStart = 0
	.SelLength = -1
	.SelBackColorHide = RGB(255,0,0)
End With
21:
Does your control support Find/Replace

With HTML1
	.Text = "This is a bit of <b>HTML</b> text."
	.AllowFind = True
	.AllowReplace = True
End With
20:
How can I get the current selection

' SelChange event - Occurs when the user selects text in the control.
Private Sub HTML1_SelChange()
	With HTML1
		Debug.Print( .SelText )
	End With
End Sub

With HTML1
	.Text = "This is a bit of <b>HTML</b> text."
End With
19:
I've noticed that the text does not start exactly where the control is. How can I adjust/remove that margin

With HTML1
	.Text = "This is a bit of <b>HTML</b> text."
	.BorderWidth = 0
	.BorderHeight = 0
End With
18:
How can I center the text

With HTML1
	.Text = "<c>This is a bit of centered <b>HTML</b> text."
End With
17:
How can I align the text to the right

With HTML1
	.Text = "<r>This is a bit of <b>HTML</b> text, aligned to the right."
End With
16:
How can I turn on the control's OLE Drag and Drop operation
With HTML1
	.Text = "This is a bit of <b>HTML</b> text."
	.OLEDropMode = exOLEDropAutomatic
End With
15:
Does your control support word-wrap, and if so how can I enable it

With HTML1
	.Text = "This is a bit of <b>HTML</b> text. This is a bit of <b>HTML</b> text. This is a bit of <b>HTML</b> text. This is a bit of <b>HT" & _
"ML</b> text. This is a bit of <b>HTML</b> text."
	.WordWrap = True
	.LineNumberWidth = -1
	.DrawGridLines = -1
End With
14:
Can I edit text with no formatting at all

With HTML1
	.Text = "This is a bit of <b>HTML</b> text."
	.EditType = exPlainText
End With
13:
I've noticed that pressing the CTRL+B changes the Bold attribute. Can I change that behavior
With HTML1
	.Text = "This is a bit of <b>HTML</b> text."
	.AllowShortcutFormat = False
End With
12:
How do I prevents shown the control's content menu

With HTML1
	.Text = "This is a bit of <b>HTML</b> text."
	.AllowContextMenu = exHideContextMenu
End With
11:
How do I make the control read-only

With HTML1
	.Text = "This is a bit of <b>HTML</b> text."
	.BackColorLocked = .BackColor
	.ForeColorLocked = .ForeColor
	.Locked = True
	.ShowCaret = False
End With
10:
Can I replace programatically a portion of text

With HTML1
	.Text = "This is a bit of <b>HTML</b> text."
	.SelStart = 0
	.SelLength = 1
	.HideSelection = False
	.SelText = "<fgcolor FF><font ;18>T</font></fgcolor>"
End With
9:
How do I select the entire text programatically

With HTML1
	.Text = "This is a bit of <b>HTML</b> text."
	.SelStart = 0
	.SelLength = -1
	.HideSelection = False
End With
8:
How do I programatically add text to the control

With HTML1
	.Text = "This is a bit of <b>HTML</b> text."
	.SelStart = -1
	.SelText = " <fgcolor FF0000><b>Inserted Text</b></fgcolor>"
End With
7:
How do I programatically insert text to the control

With HTML1
	.Text = "This is a bit of <b>HTML</b> text."
	.SelText = "<fgcolor FF0000><b>Inserted Text</b></fgcolor> "
End With
6:
How do I get the unformatted text

' SelChange event - Occurs when the user selects text in the control.
Private Sub HTML1_SelChange()
	With HTML1
		Debug.Print( .CursorText(.SelStart,.SelLength) )
	End With
End Sub

With HTML1
	.Text = "This is a bit of <b>HTML</b> text."
End With
5:
How do I provide my own menu for my images (emotion icons)

With HTML1
	.Text = "<img>1</img> Right click the image <img>pic1</img> to get resized."
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.ContextMenuItems = "Insert[group=3](<img>1</img>[id=57763],<img>2</img>[id=57763])"
End With
4:
How do I display images inside text

With HTML1
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Text = "<img>1</img> Right click the image <img>pic1</img> to get resized."
End With
3:
How do I allow types only to be available on the control's context menu

With HTML1
	.Text = "Right click the selection."
	.HideSelection = False
	.SelStart = 16
	.SelLength = 9
	.AllowContextMenu = HTMLEditContextMenuEnum.exContextMenuFormatStrikeout Or HTMLEditContextMenuEnum.exContextMenuFormatUnderline Or HTMLEditContextMenuEnum.exContextMenuFormatItalic Or HTMLEditContextMenuEnum.exContextMenuFormatBold
End With
2:
How do I programatically select the text

With HTML1
	.Text = "<font ;12>This is a bit of <b>HTML</b> text."
	.HideSelection = False
	.SelStart = 0
	.SelLength = -1
End With
1:
How do I assign a text to the control

With HTML1
	.Text = "This is a bit of <b>HTML</b> text."
End With