With AxEdit1
	.AddWild("<fgcolor=00FF00>(")
	.AddWild("<fgcolor=00FF00>)")
	.AddExpression("<fgcolor=FF0000><b>(*","<fgcolor=FF0000> ","<fgcolor=FF0000><b>*)")
	.InsertText("some text ( another text ) other text\r\n",1)
	.InsertText("some text (* another text *) other text\r\n",1)
	.Show = "expression"
End With

With AxEdit1
	.AddWild("<fgcolor=00FF00>(")
	.AddWild("<fgcolor=00FF00>)")
	.AddExpression("<fgcolor=FF0000><b>(*","<fgcolor=FF0000> ","<fgcolor=FF0000><b>*)")
	.InsertText("some text ( another text ) other text\r\n",1)
	.InsertText("some text (* another text *) other text\r\n",1)
	.Show = ""
End With

With AxEdit1
	.AddExpression("^","<fgcolor=FF0000> ",":")
	.Refresh()
End With

With AxEdit1
	.CodeCompletion = EXEDITLib.CodeCompletionEnum.exCodeCompletionEnableNoUI
	.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
	.Refresh()
	.get_Context().Add("class")
End With

With AxEdit1
	.ScrollBars = EXEDITLib.ScrollBarsEnum.exVertical
End With

With AxEdit1
	.LineHeight = "value + 8 * dpi"
	.DrawGridLines = True
End With

With AxEdit1
	With .Font
		.Name = "Consolas"
		.Size = 12
	End With
	.AddExpression("<fgcolor=FF0000><b>*","<fgcolor=FF0000> ","<fgcolor=FF0000><b>*")
	.InsertText("some text * another text * other text\r\n",1)
	.Refresh()
End With

With AxEdit1
	With .Font
		.Name = "Consolas"
		.Size = 12
	End With
	.AddWild("<fgcolor=FF0000><b>\**")
	.InsertText("some text * another text * other text\r\n",1)
	.Refresh()
End With

With AxEdit1
	With .Font
		.Name = "Consolas"
		.Size = 12
	End With
	.AddWild("<fgcolor=FF0000><b>\*")
	.InsertText("some text * another text * other text\r\n",1)
	.Refresh()
End With

With AxEdit1
	.Template = "Font { Name = `Consolas`; Size = 12 }"
	.AddKeyword("<fgcolor=FF0000>class</fgcolor>")
	.Refresh()
End With

With AxEdit1
	With .Font
		.Name = "Consolas"
		.Size = 12
	End With
	.AddKeyword("<fgcolor=FF0000>class</fgcolor>")
	.Refresh()
End With

With AxEdit1
	.OLEDropMode = EXEDITLib.exOLEDropModeEnum.exOLEDropAutomatic
End With

' Event event - Notifies the application once the control fires an event.
Private Sub AxEdit1_Event(ByVal sender As System.Object, ByVal e As AxEXEDITLib._IEditEvents_EventEvent) Handles AxEdit1.Event
	With AxEdit1
		Debug.Print( .get_EventParam(-2) )
	End With
End Sub

With AxEdit1
	.AddWild("<fgcolor=808080>(?*)</fgcolor>")
	.AddKeyword("<b>class</b>","a set or category of things having some property or attribute in common and differentiated from others by kind, type, or qualit" & _
"y")
	.Refresh()
End With

With AxEdit1
	.AddWild("<fgcolor=0000FF><b>[MC]*_HANDLER*</b></fgcolor>(*)")
	.Refresh()
End With

With AxEdit1
	.AddWild("<fgcolor=0000FF><b> *</b></fgcolor>(*)*;")
	.Refresh()
End With

' QueryContext event - Queries for the context at the specified location, to provide different tooltips for the same keyword on QueryContextToolTip event.
Private Sub AxEdit1_QueryContext(ByVal sender As System.Object, ByVal e As AxEXEDITLib._IEditEvents_QueryContextEvent) Handles AxEdit1.QueryContext
	With AxEdit1
		e.qContext = e.yCursor
	End With
End Sub

' QueryContextToolTip event - Asks for the tooltip/title of the keyword on the context retrieved by the QueryContext event.
Private Sub AxEdit1_QueryContextToolTip(ByVal sender As System.Object, ByVal e As AxEXEDITLib._IEditEvents_QueryContextToolTipEvent) Handles AxEdit1.QueryContextToolTip
	With AxEdit1
		e.qToolTip = e.qContext
		e.qToolTipTitle = "Keyword Found At Line:"
	End With
End Sub

With AxEdit1
	.LineNumberWidth = -1
	.LineNumberBackColor = RGB(240,240,240)
	.AddKeyword("<fgcolor=FF0000><b>keyword</b></fgcolor>")
	.Text = ""
	.InsertText("here's the keyword on the first line")
	.InsertText("\r\nhere's the keyword on the second line")
	.InsertText("\r\nhere's the keyword on the third line")
End With

With AxEdit1
	.LineNumberWidth = -1
	.LineNumberBackColor = RGB(240,240,240)
	.CaretLine = 6
	.set_Background(EXEDITLib.BackgroundPartEnum.exTempInlineToolTipBackColor,15790320)
	.TempInlineToolTip = "<font ;6>Left Alignment<br><c>Center Alignment<br><r>Right Alignment"
	.Refresh()
End With

With AxEdit1
	.LineNumberWidth = -1
	.LineNumberBackColor = RGB(240,240,240)
	.AddKeyword("<b>class</b>","<r>a set or category of things having some property or attribute in common and differentiated from others by kind, type, or qua" & _
"lity.")
	.AllowInlineToolTip = EXEDITLib.AllowInlineToolTipEnum.exInlineToolTipWordWrap Or EXEDITLib.AllowInlineToolTipEnum.exInlineToolTip
	.set_Background(EXEDITLib.BackgroundPartEnum.exInlineToolTipForeColor,8421504)
	.set_Background(EXEDITLib.BackgroundPartEnum.exInlineToolTipBackColor,15790320)
	.CaretLine = 6
	.set_Background(EXEDITLib.BackgroundPartEnum.exTempInlineToolTipBackColor,10495)
	.set_Background(EXEDITLib.BackgroundPartEnum.exTempInlineToolTipForeColor,65536)
	.TempInlineToolTip = "<br><c><font ;12>This is a bit of text that's shown temporarily only. <br><c>Now, click the <off -4><b>class</b></off> keyword," & _
" in the top...<br>"
	.Refresh()
End With

With AxEdit1
	.LineNumberWidth = -1
	.LineNumberBackColor = RGB(240,240,240)
	.set_Background(EXEDITLib.BackgroundPartEnum.exTempInlineToolTipBackColor,65535)
	.CaretLine = 3
	.TempInlineToolTip = "This is a bit of text that's shown under the current line, and it is displayed as soon as the control's caret is changed."
	.AllowInlineToolTip = EXEDITLib.AllowInlineToolTipEnum.exInlineToolTipWordWrap Or EXEDITLib.AllowInlineToolTipEnum.exInlineToolTipOver
	.Refresh()
End With

' SelChange event - Occurs when the user selects text in the control.
Private Sub AxEdit1_SelChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxEdit1.SelChange
	With AxEdit1
		.TempInlineToolTip = "This is a bit of text that's shown under the current line, and it is displayed as soon as the control's caret is changed."
	End With
End Sub

With AxEdit1
	.LineNumberWidth = -1
	.LineNumberBackColor = RGB(240,240,240)
	.set_Background(EXEDITLib.BackgroundPartEnum.exTempInlineToolTipBackColor,65535)
	.CaretLine = 12
	.AllowInlineToolTip = EXEDITLib.AllowInlineToolTipEnum.exInlineToolTipWordWrap
	.Refresh()
End With

With AxEdit1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.LineNumberWidth = -1
	.LineNumberBackColor = RGB(240,240,240)
	.CaretLine = 4
	.set_Background(EXEDITLib.BackgroundPartEnum.exTempInlineToolTipBackColor,16777216)
	.AllowInlineToolTip = EXEDITLib.AllowInlineToolTipEnum.exInlineToolTipWordWrap
	.TempInlineToolTip = "<img>1</img>This is a bit of text that's shown programatically under the current line"
End With

With AxEdit1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.LineNumberWidth = -1
	.LineNumberBackColor = RGB(240,240,240)
	.CaretLine = 4
	.set_Background(EXEDITLib.BackgroundPartEnum.exTempInlineToolTipBackColor,16777216)
	.AllowInlineToolTip = EXEDITLib.AllowInlineToolTipEnum.exInlineToolTipWordWrap
	.TempInlineToolTip = "This is a bit of text that's shown programatically under the current line"
End With

With AxEdit1
	.LineNumberWidth = -1
	.LineNumberBackColor = RGB(240,240,240)
	.CaretLine = 4
	.set_Background(EXEDITLib.BackgroundPartEnum.exTempInlineToolTipBackColor,15790320)
	.AllowInlineToolTip = EXEDITLib.AllowInlineToolTipEnum.exInlineToolTipWordWrap
	.TempInlineToolTip = "This is a bit of text that's shown programatically under the current line"
End With

With AxEdit1
	.LineNumberWidth = -1
	.LineNumberBackColor = RGB(240,240,240)
	.CaretLine = 4
	.set_Background(EXEDITLib.BackgroundPartEnum.exTempInlineToolTipBackColor,15790320)
	.TempInlineToolTip = "<br><c>This is a bit of text that's shown programatically under the current line<br>"
End With

With AxEdit1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.LineNumberWidth = -1
	.LineNumberBackColor = RGB(240,240,240)
	.AddKeyword("<b>class</b>","a set or category of things having some property or attribute in common and differentiated from others by kind, type, or qualit" & _
"y.")
	.AllowInlineToolTip = EXEDITLib.AllowInlineToolTipEnum.exInlineToolTipWordWrap Or EXEDITLib.AllowInlineToolTipEnum.exInlineToolTip
	.set_Background(EXEDITLib.BackgroundPartEnum.exInlineToolTipBackColor,16777216)
	.set_Background(EXEDITLib.BackgroundPartEnum.exInlineToolTipForeColor,128)
	.Refresh()
End With

With AxEdit1
	.LineNumberWidth = -1
	.LineNumberBackColor = RGB(240,240,240)
	.AddKeyword("<b>class</b>","a set or category of things having some property or attribute in common and differentiated from others by kind, type, or qualit" & _
"y.")
	.AllowInlineToolTip = EXEDITLib.AllowInlineToolTipEnum.exInlineToolTipWordWrap Or EXEDITLib.AllowInlineToolTipEnum.exInlineToolTipOver Or EXEDITLib.AllowInlineToolTipEnum.exInlineToolTip
	.set_Background(EXEDITLib.BackgroundPartEnum.exInlineToolTipBackColor,65535)
	.Refresh()
End With

With AxEdit1
	.LineNumberWidth = -1
	.LineNumberBackColor = RGB(240,240,240)
	.ToolTipOnTyping = False
	.AddKeyword("<b>class</b>","a set or category of things having some property or attribute in common and differentiated from others by kind, type, or qualit" & _
"y.")
	.AllowInlineToolTip = EXEDITLib.AllowInlineToolTipEnum.exInlineToolTipWordWrap Or EXEDITLib.AllowInlineToolTipEnum.exInlineToolTipOnChange
	.set_Background(EXEDITLib.BackgroundPartEnum.exInlineToolTipBackColor,15790320)
	.Refresh()
End With

With AxEdit1
	.LineNumberWidth = -1
	.LineNumberBackColor = RGB(240,240,240)
	.AddKeyword("<b>class</b>","a set or category of things having some property or attribute in common and differentiated from others by kind, type, or qualit" & _
"y.")
	.AllowInlineToolTip = EXEDITLib.AllowInlineToolTipEnum.exInlineToolTipWordWrap Or EXEDITLib.AllowInlineToolTipEnum.exInlineToolTip
	.set_Background(EXEDITLib.BackgroundPartEnum.exInlineToolTipForeColor,8421504)
	.Refresh()
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxEdit1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXEDITLib._IEditEvents_MouseMoveEvent) Handles AxEdit1.MouseMoveEvent
	With AxEdit1
		.ShowToolTip(.get_WordFromPoint(-1,-1),,,"+8","+8")
	End With
End Sub

' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxEdit1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXEDITLib._IEditEvents_MouseMoveEvent) Handles AxEdit1.MouseMoveEvent
	With AxEdit1
		Debug.Print( .get_WordFromPoint(-1,-1) )
	End With
End Sub

With AxEdit1
	With .get_Context()
		.Add("exText")
		.Add("exHTML")
		.Options(EXEDITLib.ContextOptionEnum.exContextDisableIncrementalSearchContains) = True
	End With
	.Text = ""
	.InsertText("Press CTRL+SPACE, and type h, so the exHTML is not selected.")
End With

With AxEdit1
	.AddExpression("<fgcolor=008000>'</fgcolor>","<fgcolor=008000> </fgcolor>","")
	With .get_Context()
		.Add("exText (0)","0 ' specifies the exText flag")
		.Add("exHTML (-1)","-1 ' specifies the exHTML flag")
		.Options(EXEDITLib.ContextOptionEnum.exContextInsertCaretPos) = "(0:=value lfind `'`) < 0 ? -1 : ( =:0 - (len(1:=(value left =:0)) - len(ltrim(reverse(=:1)))))"
	End With
	.Text = ""
	.InsertText("Press CTRL + SPACE, and select any item, a number is inserted")
End With

' Change event - Indicates that the control's text have changed.
Private Sub AxEdit1_Change(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxEdit1.Change
	With AxEdit1
		.ShowContext(.ChangeOnKey)
		.ActiveContextItems = ""
	End With
End Sub

With AxEdit1
	.Text = ""
	.InsertText("Press .(dot), :(color) or =(equal), to get different sensitive context")
	.ActiveContextItems = ""
	With .get_Context("61")
		.Add("Equal_1")
		.Add("Equal_2")
	End With
	With .get_Context("46")
		.Add("Dot_1")
		.Add("Dot_2")
	End With
	With .get_Context("58")
		.Add("Colon_1")
		.Add("Colon_2")
	End With
End With

' Change event - Indicates that the control's text have changed.
Private Sub AxEdit1_Change(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxEdit1.Change
	With AxEdit1
		.ShowContext(.ChangeOnKey)
		.ActiveContextItems = ""
	End With
End Sub

With AxEdit1
	With .get_Context("61")
		.Add("True (-1)","True")
		.Add("False (-1)","False")
		.Options(EXEDITLib.ContextOptionEnum.exContextAllowSpaceOnFront) = True
	End With
	.Text = ""
	.InsertText("Press the = key and after that press the space keys")
	.InsertText("")
End With

With AxEdit1
	With .get_Context()
		.Add("First_1")
		.Add("First_2")
	End With
	With .get_Context("Second")
		.Add("Second_1")
		.Add("Second_2")
		.Add("Second_3")
	End With
	.ActiveContextItems = "Second"
	.PagesContextItems = ":Page<font ;6><off -4>1</off></font>,Second:Page<font ;6><off -4>2</off></font>"
End With

With AxEdit1
	With .get_Context()
		.Add("Column")
		.Options(EXEDITLib.ContextOptionEnum.exContextItemToolTip) = "This is bit of text that shown when user selects the <b>Column</b> item."
		.Add("Item")
		.Options(EXEDITLib.ContextOptionEnum.exContextItemToolTip) = "This is bit of text that shown when user selects the <b>Item</b> item."
		.Options(EXEDITLib.ContextOptionEnum.exContextAllowToolTip) = False
	End With
End With

With AxEdit1
	With .get_Context()
		.Add("Column")
		.Options(EXEDITLib.ContextOptionEnum.exContextItemToolTip) = "This is bit of text that shown when user selects the <b>Column</b> item."
		.Add("Item")
		.Options(EXEDITLib.ContextOptionEnum.exContextItemToolTip) = "This is bit of text that shown when user selects the <b>Item</b> item."
	End With
End With

' OnContext event - Occurs when the user invokes the control's context window.
Private Sub AxEdit1_OnContext(ByVal sender As System.Object, ByVal e As AxEXEDITLib._IEditEvents_OnContextEvent) Handles AxEdit1.OnContext
	With AxEdit1
		Debug.Print( "CurrentContext:" )
		Debug.Print( e.context )
		.ActiveContextItems = "Second"
	End With
End Sub

With AxEdit1
	With .get_Context()
		.Add("First_1")
		.Add("First_2")
	End With
	With .get_Context("Second")
		.Add("Second_1")
		.Add("Second_2")
		.Add("Second_3")
	End With
End With

' DblClick event - Occurs when the user double clicks the left mouse button over an object.
Private Sub AxEdit1_DblClick(ByVal sender As System.Object, ByVal e As AxEXEDITLib._IEditEvents_DblClickEvent) Handles AxEdit1.DblClick
	With AxEdit1
		.ShowContext("DB")
	End With
End Sub

With AxEdit1
	With .get_Context("DB")
		.Add("BEGIN_MSG_MAP")
		.Add("<fgcolor=808080>MESSAGE_HANDLER")
		.Add("<fgcolor=808080>COMMAND_HANDLER")
		.Add("END_MSG_MAP")
	End With
End With

' Change event - Indicates that the control's text have changed.
Private Sub AxEdit1_Change(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxEdit1.Change
	With AxEdit1
		.ShowContext(.ChangeOnKey)
	End With
End Sub

With AxEdit1
	.Text = ""
	.InsertText("Press .(dot), :(colon) or CTRL + SPACE to invoke the control's context")
	With .get_Context()
		.Add("General_1")
		.Add("General_2")
	End With
	With .get_Context("46")
		.Add("Property_1")
		.Add("Property_2")
		.Add("Property_3")
	End With
	With .get_Context("58")
		.Add("Method_1")
		.Add("Method_2")
		.Add("Method_3")
	End With
End With

With AxEdit1
	.Locked = True
	.SelBackColor = RGB(128,128,128)
	.ForeColorLockedLine = RGB(128,128,128)
	.BackColorLockedLine = RGB(255,255,255)
End With

With AxEdit1
	.HideSelection = False
	.SelLength = 10
	.SelBackColorHide = RGB(255,0,0)
End With

With AxEdit1
	.set_Cursor(EXEDITLib.ClientAreaEnum.exIncrementalSearchArea,"exHelp")
	.set_Caption(EXEDITLib.DialogEnum.exIncrementalSearchField,EXEDITLib.FieldDialogEnum.exCaption,"Search for: %s")
	.IncrementalSearchError = RGB(255,0,0)
End With

With AxEdit1
	.ScrollBars = EXEDITLib.ScrollBarsEnum.exBoth
	.set_ScrollPartVisible(EXEDITLib.ScrollBarEnum.exVScroll,EXEDITLib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(EXEDITLib.ScrollBarEnum.exHScroll,EXEDITLib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(&H2,EXEDITLib.ScrollPartEnum.exExtentThumbPart,True)
	.ScrollWidth = 4
	.set_Background(EXEDITLib.BackgroundPartEnum.exVSBack,15790320)
	.set_Background(EXEDITLib.BackgroundPartEnum.exVSThumb,8421504)
	.ScrollHeight = 4
	.set_Background(EXEDITLib.BackgroundPartEnum.exHSBack,.get_Background(EXEDITLib.BackgroundPartEnum.exVSBack))
	.set_Background(EXEDITLib.BackgroundPartEnum.exHSThumb,.get_Background(EXEDITLib.BackgroundPartEnum.exVSThumb))
	.set_Background(EXEDITLib.BackgroundPartEnum.exSizeGrip,.get_Background(EXEDITLib.BackgroundPartEnum.exVSBack))
End With

With AxEdit1
	.AddKeyword("<b>CExHelperDialog</b>")
	.Refresh()
	.ScrollBars = EXEDITLib.ScrollBarsEnum.exVertical
End With

With AxEdit1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
	.AddKeyword("<b>public</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
	.Refresh()
	With .get_Context()
		.Add("<b>class</b>","",1)
		.Add("<b>public</b>","",2)
		.Options(EXEDITLib.ContextOptionEnum.exContextAllowChars) = "_ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
	End With
End With

With AxEdit1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
	.AddKeyword("<b>public</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
	.Refresh()
	.get_Context().Add("<b>public</b>","",2)
	.get_Context().Add("<b>class</b>","",1)
	.get_Context().Sort(True)
End With

With AxEdit1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
	.Refresh()
	.get_Context().Add("<b>class</b>","",1)
End With

With AxEdit1
	.ContextKey = 544
	.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
	.Refresh()
	.get_Context().Add("class")
End With

With AxEdit1
	.CodeCompletion = EXEDITLib.CodeCompletionEnum.exCodeCompletionDisable
	.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
	.Refresh()
	.get_Context().Add("class")
End With

With AxEdit1
	.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
	.Refresh()
	.get_Context().Add("class")
End With

With AxEdit1
	.AddWild("<fgcolor=808080>(*)</fgcolor>")
	.Refresh()
End With

With AxEdit1
	.AddWild("_HANDLER<fgcolor=FF0000>(*)</fgcolor>")
	.Refresh()
End With

With AxEdit1
	.AddExpression("(","<b><fgcolor=FF0000> </fgcolor></b>",")",False)
	.ClearExpressions()
	.Refresh()
End With

With AxEdit1
	.AddExpression("(","<b><fgcolor=FF0000> </fgcolor></b>",")",False)
	.DeleteExpression("(")
	.Refresh()
End With

With AxEdit1
	.AddExpression("(","<b><fgcolor=FF0000> </fgcolor></b>",")",False)
	.Refresh()
End With

With AxEdit1
	.AddExpression("<fgcolor=800000><b>BEGIN_MSG_MAP</b></fgcolor>","<b><fgcolor=FF0000> </fgcolor></b>","<fgcolor=800000><b>END_MSG_MAP</b></fgcolor>",True)
	.Refresh()
End With

With AxEdit1
	.AddKeyword("<b><fgcolor=FF0000>class</fgcolor></b>")
	.ClearKeywords()
	.Refresh()
End With

With AxEdit1
	.AddKeyword("<b><fgcolor=FF0000>class</fgcolor></b>")
	.DeleteKeyword("class")
	.Refresh()
End With

With AxEdit1
	.AddKeyword("<b><fgcolor=FF0000>class</fgcolor></b>","","",2)
	.Refresh()
	.InsertText("ClasS\r\n",1)
	.InsertText("CLASS\r\n",1)
End With

With AxEdit1
	.AddKeyword("<fgcolor=FF0000>class</fgcolor>","","",1)
	.Refresh()
	.InsertText("ClasS\r\n",1)
	.InsertText("CLASS\r\n",1)
End With

With AxEdit1
	.AddKeyword("<fgcolor=FF0000>class</fgcolor>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
	.Refresh()
End With

With AxEdit1
	.AddKeyword("<fgcolor=FF0000>class</fgcolor>")
	.Refresh()
End With

With AxEdit1
	.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
	.Refresh()
End With

With AxEdit1
	.ToolTipDelay = 1
	.ToolTipOnTyping = True
	.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
	.Refresh()
End With

With AxEdit1
	.ForeColorLockedLine = RGB(0,0,0)
	.BackColorLockedLine = RGB(255,0,0)
	.set_LockedLine(1,True)
End With

With AxEdit1
	.set_LockedLine(1,True)
End With

With AxEdit1
	.Overtype = True
End With

Dim ex,ey,sx,sy
With AxEdit1
	.GetSelection(sy,sx,ey,ex)
	Debug.Print( sy )
	Debug.Print( sx )
	Debug.Print( ey )
	Debug.Print( ex )
End With

With AxEdit1
	.SetSelection(0,0,10,0)
	.HideSelection = False
End With

With AxEdit1
	.set_Cursor(EXEDITLib.ClientAreaEnum.exSelectedText,"exHelp")
	.SelLength = 10
	.HideSelection = False
End With

With AxEdit1
	.set_Cursor(EXEDITLib.ClientAreaEnum.exIncrementalSearchArea,"exHelp")
End With

With AxEdit1
	.set_Cursor(EXEDITLib.ClientAreaEnum.exLineNumberArea,"exHelp")
	.LineNumberWidth = 16
End With

With AxEdit1
	.set_Cursor(EXEDITLib.ClientAreaEnum.exBookmarkArea,"exHelp")
	.BookmarkWidth = 16
End With

With AxEdit1
	.set_Cursor(EXEDITLib.ClientAreaEnum.exEditArea,"exHelp")
End With

With AxEdit1
	.OLEDropMode = EXEDITLib.exOLEDropModeEnum.exOLEDropAutomatic
End With

With AxEdit1
	.set_Caption(EXEDITLib.DialogEnum.exContextMenu,EXEDITLib.FieldDialogEnum.exContextUndo,"U N D O")
	.set_Caption(EXEDITLib.DialogEnum.exContextMenu,EXEDITLib.FieldDialogEnum.exContextRedo,"R E D O")
	.set_Caption(EXEDITLib.DialogEnum.exContextMenu,EXEDITLib.FieldDialogEnum.exContextCut,"C U T")
	.set_Caption(EXEDITLib.DialogEnum.exContextMenu,EXEDITLib.FieldDialogEnum.exContextCopy,"C O P Y")
	.set_Caption(EXEDITLib.DialogEnum.exContextMenu,EXEDITLib.FieldDialogEnum.exContextPaste,"P A S T E")
	.set_Caption(EXEDITLib.DialogEnum.exContextMenu,EXEDITLib.FieldDialogEnum.exContextDelete,"D E L")
	.set_Caption(EXEDITLib.DialogEnum.exContextMenu,EXEDITLib.FieldDialogEnum.exContextSelectAll,"A L L ")
End With

With AxEdit1
	.set_Caption(EXEDITLib.DialogEnum.exReplaceDialog,EXEDITLib.FieldDialogEnum.exFieldFindWhat,"What")
	.set_Caption(EXEDITLib.DialogEnum.exReplaceDialog,EXEDITLib.FieldDialogEnum.exFieldReplaceWith,"Replace")
	.set_Caption(EXEDITLib.DialogEnum.exReplaceDialog,EXEDITLib.FieldDialogEnum.exFieldWordOnly,"Word")
	.set_Caption(EXEDITLib.DialogEnum.exReplaceDialog,EXEDITLib.FieldDialogEnum.exFieldMatchCase,"Case")
	.set_Caption(EXEDITLib.DialogEnum.exReplaceDialog,EXEDITLib.FieldDialogEnum.exFieldFindNext,"Dir")
	.set_Caption(EXEDITLib.DialogEnum.exReplaceDialog,EXEDITLib.FieldDialogEnum.exFieldSelection,"Sel")
	.set_Caption(EXEDITLib.DialogEnum.exReplaceDialog,EXEDITLib.FieldDialogEnum.exFieldWholeFile,"File")
	.set_Caption(EXEDITLib.DialogEnum.exReplaceDialog,EXEDITLib.FieldDialogEnum.exFieldReplace,"Rep")
	.set_Caption(EXEDITLib.DialogEnum.exReplaceDialog,EXEDITLib.FieldDialogEnum.exFieldReplaceAll,"All")
	.set_Caption(EXEDITLib.DialogEnum.exReplaceDialog,EXEDITLib.FieldDialogEnum.exFieldCancel,"Abandon")
	.set_Caption(EXEDITLib.DialogEnum.exReplaceDialog,EXEDITLib.FieldDialogEnum.exErrorTitle,"Title")
	.set_Caption(EXEDITLib.DialogEnum.exReplaceDialog,EXEDITLib.FieldDialogEnum.exErrorFindNext,"Failed!")
	.set_Caption(EXEDITLib.DialogEnum.exReplaceDialog,EXEDITLib.FieldDialogEnum.exErrorFindNext,"Done")
End With

With AxEdit1
	.set_Caption(EXEDITLib.DialogEnum.exFindDialog,EXEDITLib.FieldDialogEnum.exFieldFindWhat,"What")
	.set_Caption(EXEDITLib.DialogEnum.exFindDialog,EXEDITLib.FieldDialogEnum.exFieldWordOnly,"Word")
	.set_Caption(EXEDITLib.DialogEnum.exFindDialog,EXEDITLib.FieldDialogEnum.exFieldMatchCase,"Case")
	.set_Caption(EXEDITLib.DialogEnum.exFindDialog,EXEDITLib.FieldDialogEnum.exFieldFindNext,"Dir")
	.set_Caption(EXEDITLib.DialogEnum.exFindDialog,EXEDITLib.FieldDialogEnum.exFieldSelection,"U")
	.set_Caption(EXEDITLib.DialogEnum.exFindDialog,EXEDITLib.FieldDialogEnum.exFieldWholeFile,"D")
	.set_Caption(EXEDITLib.DialogEnum.exFindDialog,EXEDITLib.FieldDialogEnum.exFieldFindNext,"Next")
	.set_Caption(EXEDITLib.DialogEnum.exFindDialog,EXEDITLib.FieldDialogEnum.exFieldReplace,"All")
	.set_Caption(EXEDITLib.DialogEnum.exFindDialog,EXEDITLib.FieldDialogEnum.exFieldCancel,"Abandon")
	.set_Caption(EXEDITLib.DialogEnum.exFindDialog,EXEDITLib.FieldDialogEnum.exErrorFindNext,"Failed!")
End With

With AxEdit1
	.set_Caption(EXEDITLib.DialogEnum.exReplaceDialog,EXEDITLib.FieldDialogEnum.exCaption,"Search and Replace")
End With

With AxEdit1
	.set_Caption(EXEDITLib.DialogEnum.exFindDialog,EXEDITLib.FieldDialogEnum.exCaption,"Search")
End With

With AxEdit1
	.RClick = True
End With

With AxEdit1
	.IndentOnTab = False
End With

With AxEdit1
	.LineNumberWidth = 18
	.HideSelection = False
	.SelectLine(3)
	.IndentSel(True)
End With

With AxEdit1
	.AllowSplitter = EXEDITLib.SplitterEnum.exBothSplitter
	.SplitPaneHeight = 128
	.SplitPaneWidth = 128
End With

With AxEdit1
	.LineNumberWidth = 18
	.HideSelection = False
	.SelectLine(3)
End With

With AxEdit1
	.LineNumberFont.Name = "Tahoma"
	.LineNumberWidth = 18
End With

With AxEdit1
	.Font.Size = 32
	.DrawGridLines = True
	.Refresh()
End With

With AxEdit1
	.DrawGridLines = True
End With

With AxEdit1
	.AllowMark = True
	.MarkContinueBlocks = True
	.AddKeyword("<b>CAxWnd")
	.AddExpression("<fgcolor=800000><b>BEGIN_MSG_MAP</b></fgcolor>","<b><fgcolor=FF0000> </fgcolor></b>","<fgcolor=800000><b>END_MSG_MAP</b></fgcolor>",True)
	.set_MarkColor("BEGIN_MSG_MAP",255)
	.set_MarkColor("END_MSG_MAP",128)
	.set_MarkColor("CAxWnd",0)
	.Refresh()
End With

With AxEdit1
	.InsertText("""just a string \""expression""\r\n",1)
	.AddExpression("<fgcolor=800000><b>""</b></fgcolor>","<b><fgcolor=FF0000> </fgcolor></b>","<fgcolor=800000><b>""</b></fgcolor>",True)
	.set_IgnorePrefixInExpression("""","\")
	.Refresh()
End With

With AxEdit1
	.LineNumberBorderColor = RGB(255,0,0)
	.LineNumberWidth = 18
End With

With AxEdit1
	.BookmarkBorderColor = RGB(255,0,0)
	.BookmarkWidth = 18
End With

With AxEdit1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.BookmarkImage = 1
	.set_Bookmark(2,True)
	.set_Bookmark(4,True)
	.BookmarkWidth = 18
End With

With AxEdit1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.set_BookmarkImageLine(2,1)
	.set_Bookmark(4,True)
	.BookmarkWidth = 18
End With

With AxEdit1
	.set_BackColorLine(1,255)
	.ClearBackColorLine(1)
End With

With AxEdit1
	.set_ForeColorLine(1,255)
End With

With AxEdit1
	.set_BackColorLine(1,255)
End With

With AxEdit1
	.ContextMenuItems = "New Item"
End With

With AxEdit1
	.EnsureVisibleLine(.Count)
End With

With AxEdit1
	.Redo()
End With

With AxEdit1
	.Undo()
End With

Dim var_BookmarksList
With AxEdit1
	.set_Bookmark(2,True)
	.set_Bookmark(4,True)
	.BookmarkWidth = 16
	var_BookmarksList = .BookmarksList
End With

With AxEdit1
	.set_Bookmark(2,True)
	.set_Bookmark(4,True)
	.BookmarkWidth = 16
	.PrevBookmark()
End With

With AxEdit1
	.set_Bookmark(2,True)
	.set_Bookmark(4,True)
	.BookmarkWidth = 16
	.NextBookmark()
End With