With Edit1
	.InsertText " - insert the line as the first - \r\n",1
End With

With Edit1
	.InsertText " - insert the line as the last - \r\n"
End With

With Edit1
	.Appearance = exNone
End With

With Edit1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Appearance = 16777216
End With

With Edit1
	.Picture = Edit1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
End With

With Edit1
	.Picture = Edit1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = exUpperLeft
End With

With Edit1
	.Picture = Edit1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = exUpperRight
End With

With Edit1
	.Picture = Edit1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = exUpperCenter
End With

With Edit1
	.Picture = Edit1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = exLowerLeft
End With

With Edit1
	.Picture = Edit1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = exLowerRight
End With

With Edit1
	.Picture = Edit1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = exStretch
End With

With Edit1
	.Picture = Edit1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = exMiddleCenter
End With

With Edit1
	.Font.Name = "Verdana"
End With

With Edit1
	.BackColor = 13158600
End With

With Edit1
	.ForeColor = 255
End With

With Edit1
	.ScrollPartVisible(exHScroll,exLeftB1Part) = True
	.ScrollPartVisible(exHScroll,exLeftB2Part) = True
	.ScrollPartVisible(exHScroll,exRightB6Part) = True
	.ScrollPartVisible(exHScroll,exRightB5Part) = True
End With

With Edit1
	.ScrollPartVisible(exHScroll,exLeftB1Part) = True
	.ScrollPartCaption(exHScroll,exLeftB1Part) = "1"
End With

With Edit1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.ScrollPartVisible(exHScroll,exLeftB1Part) = True
	.ScrollPartCaption(exHScroll,exLeftB1Part) = "<img>1</img>"
	.ScrollHeight = 18
	.ScrollButtonWidth = 18
End With

With Edit1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.ScrollToolTip(exHScroll) = "This is a <img>16777216</img>tooltip being shown when you click and drag the thumb in the horiz" & _
"ontal scroll bar"
End With

With Edit1
	.ScrollPartCaption(exHScroll,exThumbPart) = "this is just a text"
	.ScrollThumbSize(exHScroll) = 96
End With

With Edit1
	.ScrollPartCaption(exHScroll,exThumbPart) = "This is just a text"
	.ScrollFont(exHScroll).Size = 12
	.ScrollThumbSize(exHScroll) = 128
	.ScrollHeight = 24195
	.ScrollPartCaption(exHScroll,exThumbPart) = "This is <s><font Tahoma;12> just </font></s> text"
	.ScrollHeight = 20
End With

With Edit1
	.ScrollHeight = 18
	.ScrollWidth = 18
	.ScrollButtonWidth = 18
	.ScrollButtonHeight = 18
End With

With Edit1
	.ScrollThumbSize(exHScroll) = 164
End With

With Edit1
	.ScrollOrderParts(exHScroll) = "t,l,r"
	.ScrollOrderParts(exVScroll) = "t,l,r"
End With

With Edit1
	.ToolTipDelay = 1
	.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 Edit1
	.ToolTipDelay = 0
	.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 Edit1
	.ToolTipPopDelay = 10000
	.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 Edit1
	.ToolTipWidth = 328
	.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 Edit1
	.ToolTipDelay = 1
	With .ToolTipFont
		.Name = "Tahoma"
		.Size = 14
	End With
	.ToolTipWidth = 364
	.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 Edit1
	.Template = "BackColor = RGB(255,0,0)"
End With

With Edit1
	.ExecuteTemplate "BackColor = RGB(255,0,0)"
End With

With Edit1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exToolTipAppearance) = 16777216
	.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 Edit1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Background(exToolTipBackColor) = 255
	.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 Edit1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Background(exToolTipForeColor) = 255
	.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 Edit1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.VisualAppearance.Add 3,"c:\exontrol\images\hot.ebn"
	.Background(exSBtn) = 16777216
	.Background(exSBtnP) = 33554432
	.Background(exSBtnH) = 50331648
	.Background(exHSBack) = 15790320
	.Background(exVSBack) = 15790320
	.Background(exSizeGrip) = 15790320
End With

With Edit1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.VisualAppearance.Add 3,"c:\exontrol\images\hot.ebn"
	.Background(exHSThumb) = 16777216
	.Background(exHSThumbP) = 33554432
	.Background(exHSThumbH) = 50331648
	.ScrollThumbSize(exHScroll) = 96
End With

With Edit1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.VisualAppearance.Add 3,"c:\exontrol\images\hot.ebn"
	.Background(exHSThumb) = 16777216
	.Background(exHSThumbP) = 33554432
	.Background(exHSThumbH) = 50331648
	.Background(exVSThumb) = 16777216
	.Background(exVSThumbP) = 33554432
	.Background(exVSThumbH) = 50331648
End With

With Edit1
	.AllowSplitter = exBothSplitter
	.SplitPaneHeight = 128
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exVSplitterApp) = 16777216
End With

With Edit1
	.AllowSplitter = exBothSplitter
	.SplitPaneWidth = 128
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exHSplitterApp) = 16777216
End With

With Edit1
	.AllowSplitter = exBothSplitter
	.SplitPaneWidth = 128
	.SplitPaneHeight = 128
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.Background(exHSplitterApp) = 16777216
	.Background(exVSplitterApp) = 16777216
	.Background(exISplitterApp) = 33554432
End With

With Edit1
	.Enabled = False
End With

With Edit1
	.Locked = True
End With

With Edit1
	.BookmarkWidth = 16
End With

With Edit1
	.BookmarkWidth = 0
End With

With Edit1
	.Text = "new line\r\nnew line"
End With

With Edit1
	.Text = ""
End With

With Edit1
	.LineNumberWidth = 32
End With

With Edit1
	.LineNumberWidth = 0
End With

With Edit1
	.UseTabKey = False
End With

With Edit1
	.AutoIndent = False
End With

With Edit1
	.HideSelection = False
	.SelLength = 10
End With

With Edit1
	.ShowCaret = False
End With

With Edit1
	.AllowContextMenu = False
End With

With Edit1
	.HideSelection = False
	.SelLength = 10
	.SelForeColor = 255
End With

With Edit1
	.HideSelection = False
	.SelLength = 10
	.SelBackColor = 255
End With

With Edit1
	.MultiLine = False
End With

With Edit1
	.MultiLine = False
End With

With Edit1
	.EditType = exStandard
End With

With Edit1
	.EditType = exHTML
	.Text = "<b>just a HTML text</b>\r\nnew <s>line</s>"
End With

With Edit1
	.ApplyColors = False
	.AddKeyword "<fgcolor=FF0000><b>class</b></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 Edit1
	.SelLength = 10
	.SelText = "-new selection-"
End With

With Edit1
	.SelLength = 10
	var_SelText = .SelText
End With

With Edit1
	.SelLength = 10
	.HideSelection = False
End With

With Edit1
	.SelStart = 4
	.SelLength = 10
	.HideSelection = False
End With

With Edit1
	var_Count = .Count
End With

With Edit1
	.TextLine(1) = "new line"
End With

With Edit1
	.TextLine(1) = "new line"
End With

With Edit1
	.CaretLine = 10
End With

With Edit1
	.CaretPos = 10
End With

With Edit1
	.DeleteLine 1
End With

With Edit1
	.Text = ""
End With

With Edit1
	.InsertText "newline\r\n",2
	.BackColorLine(2) = 255
End With

With Edit1
	.ScrollBars = exNoScroll
End With

With Edit1
	.ScrollBars = exHorizontal
End With

With Edit1
	.ScrollBars = exVertical
End With

With Edit1
	.ScrollBars = exBoth
End With

With Edit1
	.DisplaySelection = False
End With

With Edit1
	.OpenBrackets = "<"
	.CloseBrackets = ">"
End With

With Edit1
	.TabLength = 8
End With

With Edit1
	.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 Edit1
	.BookMarkBackColor = 255
	.BookMarkBackColor2 = 255
	.BookmarkWidth = 16
End With

With Edit1
	.LineNumberForeColor = 255
	.LineNumberBackColor = 16711680
	.LineNumberWidth = 32
End With

With Edit1
	.AllowUndoRedo = False
End With

With Edit1
	var_CanUndo = .CanUndo
End With

With Edit1
	var_CanRedo = .CanRedo
End With

With Edit1
	.AllowFind = False
End With

With Edit1
	.HideSelection = False
	.Find "public",exSearchDown
End With

With Edit1
	.HideSelection = False
	.Find "IDD_DIALOG_INSTALL",exMatchWholeWordOnly
End With

With Edit1
	.AllowIncrementalSearch = True
End With

With Edit1
	.AllowReplace = False
End With

With Edit1
	.BackColorAlternate = 255
End With

With Edit1
	.BackColorCaretLine = 255
End With

With Edit1
	.FormatNumbers = "<b><fgcolor=FF0000> </fgcolor></b>"
	.InsertText "Just numbers: 12 22\r\n",1
End With

With Edit1
	.Bookmark(2) = True
	.Bookmark(4) = True
	.BookmarkWidth = 16
End With

With Edit1
	.Bookmark(2) = True
	.Bookmark(4) = True
	.BookmarkWidth = 16
	.ClearBookmarks 
End With

With Edit1
	.Bookmark(2) = True
	.Bookmark(2) = False
	.BookmarkWidth = 16
End With

With Edit1
	.Bookmark(2) = True
	.Bookmark(4) = True
	.BookmarkWidth = 16
	.NextBookmark 
End With

With Edit1
	.Bookmark(2) = True
	.Bookmark(4) = True
	.BookmarkWidth = 16
	.PrevBookmark 
End With

With Edit1
	.Bookmark(2) = True
	.Bookmark(4) = True
	.BookmarkWidth = 16
	var_BookmarksList = .BookmarksList
End With

With Edit1
	.Undo 
End With

With Edit1
	.Redo 
End With

With Edit1
	.EnsureVisibleLine .Count
End With

With Edit1
	.ContextMenuItems = "New Item"
End With

With Edit1
	.BackColorLine(1) = 255
End With

With Edit1
	.ForeColorLine(1) = 255
End With

With Edit1
	.BackColorLine(1) = 255
	.ClearBackColorLine 1
End With

With Edit1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.BookmarkImageLine(2) = 1
	.Bookmark(4) = True
	.BookmarkWidth = 18
End With

With Edit1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.BookmarkImage = 1
	.Bookmark(2) = True
	.Bookmark(4) = True
	.BookmarkWidth = 18
End With

With Edit1
	.BookmarkBorderColor = 255
	.BookmarkWidth = 18
End With

With Edit1
	.LineNumberBorderColor = 255
	.LineNumberWidth = 18
End With

With Edit1
	.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
	.IgnorePrefixInExpression("""") = "\"
	.Refresh 
End With

With Edit1
	.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
	.MarkColor("BEGIN_MSG_MAP") = 255
	.MarkColor("END_MSG_MAP") = 128
	.MarkColor("CAxWnd") = 0
	.Refresh 
End With

With Edit1
	.DrawGridLines = True
End With

With Edit1
	.Font.Size = 32
	.DrawGridLines = True
	.Refresh 
End With

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

With Edit1
	.LineNumberWidth = 18
	.HideSelection = False
	.SelectLine 3
End With

With Edit1
	.AllowSplitter = exBothSplitter
	.SplitPaneHeight = 128
	.SplitPaneWidth = 128
End With

With Edit1
	.LineNumberWidth = 18
	.HideSelection = False
	.SelectLine 3
	.IndentSel True
End With

With Edit1
	.IndentOnTab = False
End With

With Edit1
	.RClick = True
End With

With Edit1
	.Caption(exFindDialog,exCaption) = "Search"
End With

With Edit1
	.Caption(exReplaceDialog,exCaption) = "Search and Replace"
End With

With Edit1
	.Caption(exFindDialog,exFieldFindWhat) = "What"
	.Caption(exFindDialog,exFieldWordOnly) = "Word"
	.Caption(exFindDialog,exFieldMatchCase) = "Case"
	.Caption(exFindDialog,exFieldFindNext) = "Dir"
	.Caption(exFindDialog,exFieldSelection) = "U"
	.Caption(exFindDialog,exFieldWholeFile) = "D"
	.Caption(exFindDialog,exFieldFindNext) = "Next"
	.Caption(exFindDialog,exFieldReplace) = "All"
	.Caption(exFindDialog,exFieldCancel) = "Abandon"
	.Caption(exFindDialog,exErrorFindNext) = "Failed!"
End With

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

With Edit1
	.Caption(exContextMenu,exContextUndo) = "U N D O"
	.Caption(exContextMenu,exContextRedo) = "R E D O"
	.Caption(exContextMenu,exContextCut) = "C U T"
	.Caption(exContextMenu,exContextCopy) = "C O P Y"
	.Caption(exContextMenu,exContextPaste) = "P A S T E"
	.Caption(exContextMenu,exContextDelete) = "D E L"
	.Caption(exContextMenu,exContextSelectAll) = "A L L "
End With

With Edit1
	.OLEDropMode = exOLEDropAutomatic
End With

With Edit1
	.Cursor(exEditArea) = 0
End With

With Edit1
	.Cursor(exBookmarkArea) = "exHelp"
	.BookmarkWidth = 16
End With

With Edit1
	.Cursor(exLineNumberArea) = "exHelp"
	.LineNumberWidth = 16
End With

With Edit1
	.Cursor(exIncrementalSearchArea) = "exHelp"
End With

With Edit1
	.Cursor(exSelectedText) = "exHelp"
	.SelLength = 10
	.HideSelection = False
End With

With Edit1
	.SetSelection 0,0,10,0
	.HideSelection = False
End With

With Edit1
	.Overtype = True
End With

With Edit1
	.LockedLine(1) = True
End With

With Edit1
	.ForeColorLockedLine = 0
	.BackColorLockedLine = 255
	.LockedLine(1) = True
End With

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

With Edit1
	.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 Edit1
	.AddKeyword "<fgcolor=FF0000>class</fgcolor>","","",1
	.Refresh 
	.InsertText "ClasS\r\n",1
	.InsertText "CLASS\r\n",1
End With

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

With Edit1
	.AddKeyword "<b><fgcolor=FF0000>class</fgcolor></b>"
	.DeleteKeyword "class"
	.Refresh 
End With

With Edit1
	.AddKeyword "<b><fgcolor=FF0000>class</fgcolor></b>"
	.ClearKeywords 
	.Refresh 
End With

With Edit1
	.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 Edit1
	.AddExpression "(","<b><fgcolor=FF0000> </fgcolor></b>",")",False
	.Refresh 
End With

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

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

With Edit1
	.AddWild "<s> </s>"
	.Refresh 
End With

With Edit1
	.AddWild "<b>a</b>"
	.Refresh 
End With

With Edit1
	.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 
	.Context().Add "class"
End With

With Edit1
	.CodeCompletion = False
	.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 
	.Context().Add "class"
End With

With Edit1
	.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 
	.Context().Add "class"
End With

With Edit1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+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 
	.Context().Add "<b>class</b>","",1
End With

With Edit1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+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 
	.Context().Add "<b>public</b>","",2
	.Context().Add "<b>class</b>","",1
	.Context().Sort True
End With

With Edit1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+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 .Context()
		.Add "<b>class</b>","",1
		.Add "<b>public</b>","",2
		.Options(exContextAllowChars) = "_ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
	End With
End With