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

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

With AxEdit1
	.Appearance = EXEDITLib.AppearanceEnum.exNone
End With

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

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

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

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

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

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

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

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

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

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

With AxEdit1
	.BackColor = Color.FromArgb(200,200,200)
End With

With AxEdit1
	.ForeColor = Color.FromArgb(255,0,0)
End With

With AxEdit1
	.set_ScrollPartVisible(EXEDITLib.ScrollBarEnum.exHScroll,EXEDITLib.ScrollPartEnum.exLeftB1Part,True)
	.set_ScrollPartVisible(EXEDITLib.ScrollBarEnum.exHScroll,EXEDITLib.ScrollPartEnum.exLeftB2Part,True)
	.set_ScrollPartVisible(EXEDITLib.ScrollBarEnum.exHScroll,EXEDITLib.ScrollPartEnum.exRightB6Part,True)
	.set_ScrollPartVisible(EXEDITLib.ScrollBarEnum.exHScroll,EXEDITLib.ScrollPartEnum.exRightB5Part,True)
End With

With AxEdit1
	.set_ScrollPartVisible(EXEDITLib.ScrollBarEnum.exHScroll,EXEDITLib.ScrollPartEnum.exLeftB1Part,True)
	.set_ScrollPartCaption(EXEDITLib.ScrollBarEnum.exHScroll,EXEDITLib.ScrollPartEnum.exLeftB1Part,"1")
End With

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

With AxEdit1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.set_ScrollToolTip(EXEDITLib.ScrollBarEnum.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 AxEdit1
	.set_ScrollPartCaption(EXEDITLib.ScrollBarEnum.exHScroll,EXEDITLib.ScrollPartEnum.exThumbPart,"this is just a text")
	.set_ScrollThumbSize(EXEDITLib.ScrollBarEnum.exHScroll,96)
End With

With AxEdit1
	.set_ScrollPartCaption(EXEDITLib.ScrollBarEnum.exHScroll,EXEDITLib.ScrollPartEnum.exThumbPart,"This is just a text")
	.get_ScrollFont(EXEDITLib.ScrollBarEnum.exHScroll).Size = 12
	.set_ScrollThumbSize(EXEDITLib.ScrollBarEnum.exHScroll,128)
	.ScrollHeight = 24195
	.set_ScrollPartCaption(EXEDITLib.ScrollBarEnum.exHScroll,EXEDITLib.ScrollPartEnum.exThumbPart,"This is <s><font Tahoma;12> just </font></s> text")
	.ScrollHeight = 20
End With

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

With AxEdit1
	.set_ScrollThumbSize(EXEDITLib.ScrollBarEnum.exHScroll,164)
End With

With AxEdit1
	.set_ScrollOrderParts(EXEDITLib.ScrollBarEnum.exHScroll,"t,l,r")
	.set_ScrollOrderParts(EXEDITLib.ScrollBarEnum.exVScroll,"t,l,r")
End With

With AxEdit1
	.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 AxEdit1
	.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 AxEdit1
	.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 AxEdit1
	.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 AxEdit1
	.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 AxEdit1
	.Template = "BackColor = RGB(255,0,0)"
End With

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

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

With AxEdit1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.VisualAppearance.Add 3,"c:\exontrol\images\hot.ebn"
	.set_Background(EXEDITLib.BackgroundPartEnum.exHSThumb,16777216)
	.set_Background(EXEDITLib.BackgroundPartEnum.exHSThumbP,33554432)
	.set_Background(EXEDITLib.BackgroundPartEnum.exHSThumbH,50331648)
	.set_ScrollThumbSize(EXEDITLib.ScrollBarEnum.exHScroll,96)
End With

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

With AxEdit1
	.AllowSplitter = EXEDITLib.SplitterEnum.exBothSplitter
	.SplitPaneHeight = 128
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.set_Background(EXEDITLib.BackgroundPartEnum.exVSplitterApp,16777216)
End With

With AxEdit1
	.AllowSplitter = EXEDITLib.SplitterEnum.exBothSplitter
	.SplitPaneWidth = 128
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.set_Background(EXEDITLib.BackgroundPartEnum.exHSplitterApp,16777216)
End With

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

With AxEdit1
	.Enabled = False
End With

With AxEdit1
	.Locked = True
End With

With AxEdit1
	.BookmarkWidth = 16
End With

With AxEdit1
	.BookmarkWidth = 0
End With

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

With AxEdit1
	.Text = ""
End With

With AxEdit1
	.LineNumberWidth = 32
End With

With AxEdit1
	.LineNumberWidth = 0
End With

With AxEdit1
	.UseTabKey = False
End With

With AxEdit1
	.AutoIndent = False
End With

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

With AxEdit1
	.ShowCaret = False
End With

With AxEdit1
	.AllowContextMenu = False
End With

With AxEdit1
	.HideSelection = False
	.SelLength = 10
	.SelForeColor = Color.FromArgb(255,0,0)
End With

With AxEdit1
	.HideSelection = False
	.SelLength = 10
	.SelBackColor = Color.FromArgb(255,0,0)
End With

With AxEdit1
	.MultiLine = False
End With

With AxEdit1
	.MultiLine = False
End With

With AxEdit1
	.EditType = EXEDITLib.EditTypeEnum.exStandard
End With

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

With AxEdit1
	.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 AxEdit1
	.SelLength = 10
	.SelText = "-new selection-"
End With

Dim var_SelText
With AxEdit1
	.SelLength = 10
	var_SelText = .SelText
End With

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

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

Dim var_Count
With AxEdit1
	var_Count = .Count
End With

With AxEdit1
	.set_TextLine(1,"new line")
End With

With AxEdit1
	.set_TextLine(1,"new line")
End With

With AxEdit1
	.CaretLine = 10
End With

With AxEdit1
	.CaretPos = 10
End With

With AxEdit1
	.DeleteLine 1
End With

With AxEdit1
	.Text = ""
End With

With AxEdit1
	.InsertText "newline\r\n",2
	.set_BackColorLine(2,255)
End With

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

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

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

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

With AxEdit1
	.DisplaySelection = False
End With

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

With AxEdit1
	.TabLength = 8
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
	.BookMarkBackColor = Color.FromArgb(255,0,0)
	.BookMarkBackColor2 = Color.FromArgb(255,0,0)
	.BookmarkWidth = 16
End With

With AxEdit1
	.LineNumberForeColor = Color.FromArgb(255,0,0)
	.LineNumberBackColor = Color.FromArgb(0,0,255)
	.LineNumberWidth = 32
End With

With AxEdit1
	.AllowUndoRedo = False
End With

Dim var_CanUndo
With AxEdit1
	var_CanUndo = .CanUndo
End With

Dim var_CanRedo
With AxEdit1
	var_CanRedo = .CanRedo
End With

With AxEdit1
	.AllowFind = False
End With

With AxEdit1
	.HideSelection = False
	.Find "public",EXEDITLib.FindOptionEnum.exSearchDown
End With

With AxEdit1
	.HideSelection = False
	.Find "IDD_DIALOG_INSTALL",EXEDITLib.FindOptionEnum.exMatchWholeWordOnly
End With

With AxEdit1
	.AllowIncrementalSearch = True
End With

With AxEdit1
	.AllowReplace = False
End With

With AxEdit1
	.BackColorAlternate = Color.FromArgb(255,0,0)
End With

With AxEdit1
	.BackColorCaretLine = Color.FromArgb(255,0,0)
End With

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

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

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

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

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

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

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

With AxEdit1
	.Undo 
End With

With AxEdit1
	.Redo 
End With

With AxEdit1
	.EnsureVisibleLine .Count
End With

With AxEdit1
	.ContextMenuItems = "New Item"
End With

With AxEdit1
	.set_BackColorLine(1,255)
End With

With AxEdit1
	.set_ForeColorLine(1,255)
End With

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

With AxEdit1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+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
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+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
	.BookmarkBorderColor = Color.FromArgb(255,0,0)
	.BookmarkWidth = 18
End With

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

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

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

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

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

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

With AxEdit1
	.IndentOnTab = False
End With

With AxEdit1
	.RClick = True
End With

With AxEdit1
	.set_Caption(EXEDITLib.DialogEnum.exFindDialog,EXEDITLib.FieldDialogEnum.exCaption,"Search")
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.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.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.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
	.OLEDropMode = EXEDITLib.exOLEDropModeEnum.exOLEDropAutomatic
End With

With AxEdit1
	.set_Cursor(EXEDITLib.ClientAreaEnum.exEditArea,0)
End With

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

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

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

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

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

With AxEdit1
	.Overtype = True
End With

With AxEdit1
	.set_LockedLine(1,True)
End With

With AxEdit1
	.ForeColorLockedLine = Color.FromArgb(0,0,0)
	.BackColorLockedLine = Color.FromArgb(255,0,0)
	.set_LockedLine(1,True)
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
	.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
	.AddKeyword "<fgcolor=FF0000>class</fgcolor>"
	.Refresh 
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>","","",1
	.Refresh 
	.InsertText "ClasS\r\n",1
	.InsertText "CLASS\r\n",1
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 "<b><fgcolor=FF0000>class</fgcolor></b>"
	.DeleteKeyword "class"
	.Refresh 
End With

With AxEdit1
	.AddKeyword "<b><fgcolor=FF0000>class</fgcolor></b>"
	.ClearKeywords 
	.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
	.AddExpression "(","<b><fgcolor=FF0000> </fgcolor></b>",")",False
	.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
	.ClearExpressions 
	.Refresh 
End With

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

With AxEdit1
	.AddWild "<b>a</b>"
	.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 
	.get_Context().Add "class"
End With

With AxEdit1
	.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 
	.get_Context().Add "class"
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
	.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 
	.get_Context().Add "<b>class</b>","",1
End With

With AxEdit1
	.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 
	.get_Context().Add "<b>public</b>","",2
	.get_Context().Add "<b>class</b>","",1
	.get_Context().Sort True
End With

With AxEdit1
	.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 .get_Context()
		.Add "<b>class</b>","",1
		.Add "<b>public</b>","",2
		.Options(EXEDITLib.ContextOptionEnum.exContextAllowChars) = "_ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
	End With
End With