With Exedit1
	.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 Exedit1
	.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 Exedit1
	.AddExpression("^","<fgcolor=FF0000> ",":")
	.Refresh()
End With

With Exedit1
	.CodeCompletion = exontrol.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 Exedit1
	.ScrollBars = exontrol.EXEDITLib.ScrollBarsEnum.exVertical
End With

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

With Exedit1
	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 Exedit1
	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 Exedit1
	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 Exedit1
	.Template = "Font { Name = `Consolas`; Size = 12 }"
	.AddKeyword("<fgcolor=FF0000>class</fgcolor>")
	.Refresh()
End With

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

With Exedit1
	.OLEDropMode = exontrol.EXEDITLib.exOLEDropModeEnum.exOLEDropAutomatic
End With

' Event event - Notifies the application once the control fires an event.
Private Sub Exedit1_Event(ByVal sender As System.Object,ByVal EventID As Integer) Handles Exedit1.Event
	With Exedit1
		Debug.Print( .get_EventParam(-2) )
	End With
End Sub

With Exedit1
	.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 Exedit1
	.AddWild("<fgcolor=0000FF><b>[MC]*_HANDLER*</b></fgcolor>(*)")
	.Refresh()
End With

With Exedit1
	.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 Exedit1_QueryContext(ByVal sender As System.Object,ByVal XCursor As Integer,ByVal YCursor As Integer,ByRef QContext As Object) Handles Exedit1.QueryContext
	With Exedit1
		QContext = 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 Exedit1_QueryContextToolTip(ByVal sender As System.Object,ByVal QContext As String,ByVal Keyword As String,ByRef QToolTip As Object,ByRef QToolTipTitle As Object) Handles Exedit1.QueryContextToolTip
	With Exedit1
		QToolTip = QContext
		QToolTipTitle = "Keyword Found At Line:"
	End With
End Sub

With Exedit1
	.LineNumberWidth = -1
	.LineNumberBackColor = Color.FromArgb(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 Exedit1
	.LineNumberWidth = -1
	.LineNumberBackColor = Color.FromArgb(240,240,240)
	.CaretLine = 6
	.set_Background(exontrol.EXEDITLib.BackgroundPartEnum.exTempInlineToolTipBackColor,Color.FromArgb(240,240,240))
	.TempInlineToolTip = "<font ;6>Left Alignment<br><c>Center Alignment<br><r>Right Alignment"
	.Refresh()
End With

With Exedit1
	.LineNumberWidth = -1
	.LineNumberBackColor = Color.FromArgb(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 = exontrol.EXEDITLib.AllowInlineToolTipEnum.exInlineToolTipWordWrap Or exontrol.EXEDITLib.AllowInlineToolTipEnum.exInlineToolTip
	.set_Background(exontrol.EXEDITLib.BackgroundPartEnum.exInlineToolTipForeColor,Color.FromArgb(128,128,128))
	.set_Background(exontrol.EXEDITLib.BackgroundPartEnum.exInlineToolTipBackColor,Color.FromArgb(240,240,240))
	.CaretLine = 6
	.set_Background(exontrol.EXEDITLib.BackgroundPartEnum.exTempInlineToolTipBackColor,Color.FromArgb(255,40,0))
	.set_Background(exontrol.EXEDITLib.BackgroundPartEnum.exTempInlineToolTipForeColor,Color.FromArgb(0,0,1))
	.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 Exedit1
	.LineNumberWidth = -1
	.LineNumberBackColor = Color.FromArgb(240,240,240)
	.set_Background(exontrol.EXEDITLib.BackgroundPartEnum.exTempInlineToolTipBackColor,Color.FromArgb(255,255,0))
	.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 = exontrol.EXEDITLib.AllowInlineToolTipEnum.exInlineToolTipWordWrap Or exontrol.EXEDITLib.AllowInlineToolTipEnum.exInlineToolTipOver
	.Refresh()
End With

' SelChange event - Occurs when the user selects text in the control.
Private Sub Exedit1_SelChange(ByVal sender As System.Object) Handles Exedit1.SelChange
	With Exedit1
		.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 Exedit1
	.LineNumberWidth = -1
	.LineNumberBackColor = Color.FromArgb(240,240,240)
	.set_Background(exontrol.EXEDITLib.BackgroundPartEnum.exTempInlineToolTipBackColor,Color.FromArgb(255,255,0))
	.CaretLine = 12
	.AllowInlineToolTip = exontrol.EXEDITLib.AllowInlineToolTipEnum.exInlineToolTipWordWrap
	.Refresh()
End With

With Exedit1
	.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 = Color.FromArgb(240,240,240)
	.CaretLine = 4
	.set_Background32(exontrol.EXEDITLib.BackgroundPartEnum.exTempInlineToolTipBackColor,&H1000000)
	.AllowInlineToolTip = exontrol.EXEDITLib.AllowInlineToolTipEnum.exInlineToolTipWordWrap
	.TempInlineToolTip = "<img>1</img>This is a bit of text that's shown programatically under the current line"
End With

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

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

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

With Exedit1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.LineNumberWidth = -1
	.LineNumberBackColor = Color.FromArgb(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 = exontrol.EXEDITLib.AllowInlineToolTipEnum.exInlineToolTipWordWrap Or exontrol.EXEDITLib.AllowInlineToolTipEnum.exInlineToolTip
	.set_Background32(exontrol.EXEDITLib.BackgroundPartEnum.exInlineToolTipBackColor,&H1000000)
	.set_Background(exontrol.EXEDITLib.BackgroundPartEnum.exInlineToolTipForeColor,Color.FromArgb(128,0,0))
	.Refresh()
End With

With Exedit1
	.LineNumberWidth = -1
	.LineNumberBackColor = Color.FromArgb(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 = exontrol.EXEDITLib.AllowInlineToolTipEnum.exInlineToolTipWordWrap Or exontrol.EXEDITLib.AllowInlineToolTipEnum.exInlineToolTipOver Or exontrol.EXEDITLib.AllowInlineToolTipEnum.exInlineToolTip
	.set_Background(exontrol.EXEDITLib.BackgroundPartEnum.exInlineToolTipBackColor,Color.FromArgb(255,255,0))
	.Refresh()
End With

With Exedit1
	.LineNumberWidth = -1
	.LineNumberBackColor = Color.FromArgb(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 = exontrol.EXEDITLib.AllowInlineToolTipEnum.exInlineToolTipWordWrap Or exontrol.EXEDITLib.AllowInlineToolTipEnum.exInlineToolTipOnChange
	.set_Background(exontrol.EXEDITLib.BackgroundPartEnum.exInlineToolTipBackColor,Color.FromArgb(240,240,240))
	.Refresh()
End With

With Exedit1
	.LineNumberWidth = -1
	.LineNumberBackColor = Color.FromArgb(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 = exontrol.EXEDITLib.AllowInlineToolTipEnum.exInlineToolTipWordWrap Or exontrol.EXEDITLib.AllowInlineToolTipEnum.exInlineToolTip
	.set_Background(exontrol.EXEDITLib.BackgroundPartEnum.exInlineToolTipForeColor,Color.FromArgb(128,128,128))
	.Refresh()
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exedit1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exedit1.MouseMoveEvent
	With Exedit1
		.ShowToolTip(.get_WordFromPoint(-1,-1),,,"+8","+8")
	End With
End Sub

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exedit1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exedit1.MouseMoveEvent
	With Exedit1
		Debug.Print( .get_WordFromPoint(-1,-1) )
	End With
End Sub

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

With Exedit1
	.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")
		.set_Options(exontrol.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 Exedit1_Change(ByVal sender As System.Object) Handles Exedit1.Change
	With Exedit1
		.ShowContext(.ChangeOnKey)
		.ActiveContextItems = ""
	End With
End Sub

With Exedit1
	.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 Exedit1_Change(ByVal sender As System.Object) Handles Exedit1.Change
	With Exedit1
		.ShowContext(.ChangeOnKey)
		.ActiveContextItems = ""
	End With
End Sub

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

With Exedit1
	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 Exedit1
	With .get_Context()
		.Add("Column")
		.set_Options(exontrol.EXEDITLib.ContextOptionEnum.exContextItemToolTip,"This is bit of text that shown when user selects the <b>Column</b> item.")
		.Add("Item")
		.set_Options(exontrol.EXEDITLib.ContextOptionEnum.exContextItemToolTip,"This is bit of text that shown when user selects the <b>Item</b> item.")
		.set_Options(exontrol.EXEDITLib.ContextOptionEnum.exContextAllowToolTip,False)
	End With
End With

With Exedit1
	With .get_Context()
		.Add("Column")
		.set_Options(exontrol.EXEDITLib.ContextOptionEnum.exContextItemToolTip,"This is bit of text that shown when user selects the <b>Column</b> item.")
		.Add("Item")
		.set_Options(exontrol.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 Exedit1_OnContext(ByVal sender As System.Object,ByVal Start As Integer,ByVal Context As String) Handles Exedit1.OnContext
	With Exedit1
		Debug.Print( "CurrentContext:" )
		Debug.Print( Context )
		.ActiveContextItems = "Second"
	End With
End Sub

With Exedit1
	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 Exedit1_DblClick(ByVal sender As System.Object,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exedit1.DblClick
	With Exedit1
		.ShowContext("DB")
	End With
End Sub

With Exedit1
	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 Exedit1_Change(ByVal sender As System.Object) Handles Exedit1.Change
	With Exedit1
		.ShowContext(.ChangeOnKey)
	End With
End Sub

With Exedit1
	.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 Exedit1
	.Locked = True
	.SelBackColor = Color.FromArgb(128,128,128)
	.ForeColorLockedLine = Color.FromArgb(128,128,128)
	.BackColorLockedLine = Color.FromArgb(255,255,255)
End With

With Exedit1
	.HideSelection = False
	.SelLength = 10
	.SelBackColorHide = Color.FromArgb(255,0,0)
End With

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

With Exedit1
	.ScrollBars = exontrol.EXEDITLib.ScrollBarsEnum.exBoth
	.set_ScrollPartVisible(exontrol.EXEDITLib.ScrollBarEnum.exVScroll,exontrol.EXEDITLib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(exontrol.EXEDITLib.ScrollBarEnum.exHScroll,exontrol.EXEDITLib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(&H2,exontrol.EXEDITLib.ScrollPartEnum.exExtentThumbPart,True)
	.ScrollWidth = 4
	.set_Background(exontrol.EXEDITLib.BackgroundPartEnum.exVSBack,Color.FromArgb(240,240,240))
	.set_Background(exontrol.EXEDITLib.BackgroundPartEnum.exVSThumb,Color.FromArgb(128,128,128))
	.ScrollHeight = 4
	.set_Background(exontrol.EXEDITLib.BackgroundPartEnum.exHSBack,.get_Background(exontrol.EXEDITLib.BackgroundPartEnum.exVSBack))
	.set_Background(exontrol.EXEDITLib.BackgroundPartEnum.exHSThumb,.get_Background(exontrol.EXEDITLib.BackgroundPartEnum.exVSThumb))
	.set_Background(exontrol.EXEDITLib.BackgroundPartEnum.exSizeGrip,.get_Background(exontrol.EXEDITLib.BackgroundPartEnum.exVSBack))
End With

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

With Exedit1
	.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)
		.set_Options(exontrol.EXEDITLib.ContextOptionEnum.exContextAllowChars,"_ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz")
	End With
End With

With Exedit1
	.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 Exedit1
	.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 Exedit1
	.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 Exedit1
	.CodeCompletion = exontrol.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 Exedit1
	.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 Exedit1
	.AddWild("<fgcolor=808080>(*)</fgcolor>")
	.Refresh()
End With

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

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

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

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

With Exedit1
	.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 Exedit1
	.AddKeyword("<b><fgcolor=FF0000>class</fgcolor></b>")
	.ClearKeywords()
	.Refresh()
End With

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

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

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

With Exedit1
	.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 Exedit1
	.AddKeyword("<fgcolor=FF0000>class</fgcolor>")
	.Refresh()
End With

With Exedit1
	.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 Exedit1
	.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 Exedit1
	.ForeColorLockedLine = Color.FromArgb(0,0,0)
	.BackColorLockedLine = Color.FromArgb(255,0,0)
	.set_LockedLine(1,True)
End With

With Exedit1
	.set_LockedLine(1,True)
End With

With Exedit1
	.Overtype = True
End With

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

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

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

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

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

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

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

With Exedit1
	.OLEDropMode = exontrol.EXEDITLib.exOLEDropModeEnum.exOLEDropAutomatic
End With

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

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

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

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

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

With Exedit1
	.RClick = True
End With

With Exedit1
	.IndentOnTab = False
End With

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

With Exedit1
	.AllowSplitter = exontrol.EXEDITLib.SplitterEnum.exBothSplitter
	.SplitPaneHeight = 128
	.SplitPaneWidth = 128
End With

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

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

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

With Exedit1
	.DrawGridLines = True
End With

With Exedit1
	.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",Color.FromArgb(255,0,0))
	.set_MarkColor("END_MSG_MAP",Color.FromArgb(128,0,0))
	.set_MarkColor("CAxWnd",Color.FromArgb(0,0,0))
	.Refresh()
End With

With Exedit1
	.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 Exedit1
	.LineNumberBorderColor = Color.FromArgb(255,0,0)
	.LineNumberWidth = 18
End With

With Exedit1
	.BookmarkBorderColor = Color.FromArgb(255,0,0)
	.BookmarkWidth = 18
End With

With Exedit1
	.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 Exedit1
	.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 Exedit1
	.set_BackColorLine(1,Color.FromArgb(255,0,0))
	.ClearBackColorLine(1)
End With

With Exedit1
	.set_ForeColorLine(1,Color.FromArgb(255,0,0))
End With

With Exedit1
	.set_BackColorLine(1,Color.FromArgb(255,0,0))
End With

With Exedit1
	.ContextMenuItems = "New Item"
End With

With Exedit1
	.EnsureVisibleLine(.Count)
End With

With Exedit1
	.Redo()
End With

With Exedit1
	.Undo()
End With

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

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

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