1196
Disable temporarily the column's sort, resize and drag and drop

With Exgrid1
	.BeginUpdate()
	.SortBarVisible = True
	.SortBarCaption = "<fgcolor 808080><c>the header and the sort-bar are disabled (no drag and drop is allowed)"
	.AllowGroupBy = True
	.HeaderEnabled = False
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	.Columns.Add("Index").FormatColumn = "1 index ``"
	.Columns.Add("Pos").FormatColumn = "1 apos ``"
	.Columns.Add("Edit").Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
	.GridLineStyle = exontrol.EXGRIDLib.GridLinesStyleEnum.exGridLinesGeometric
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exVLines
	.GridLineColor = Color.FromArgb(224,224,224)
	.EndUpdate()
End With
1195
I wonder if it’s possible to highlight/select a column like Excel
' ColumnClick event - Fired after the user clicks on column's header.
Private Sub Exgrid1_ColumnClick(ByVal sender As System.Object,ByVal Column As exontrol.EXGRIDLib.Column) Handles Exgrid1.ColumnClick
	' Column.Selected = True
	' FocusColumnIndex = Column.Index
	With Exgrid1
		.Columns.Item(0).Selected = False
		.Columns.Item(1).Selected = False
		.Columns.Item(2).Selected = False
		.Items.SelectAll()
	End With
End Sub

With Exgrid1
	.BeginUpdate()
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	.MarkSearchColumn = False
	.SingleSel = False
	.FullRowSelect = exontrol.EXGRIDLib.CellSelectEnum.exRectSel
	.SortOnClick = exontrol.EXGRIDLib.SortOnClickEnum.exNoSort
	.Columns.Add("Column1")
	.Columns.Add("Column2")
	.Columns.Add("Column3")
	With .Items
		.DefaultItem = .AddItem(0)
		.set_CellValue(0,1,1)
		.set_CellValue(0,2,2)
		.DefaultItem = .AddItem(3)
		.set_CellValue(0,1,4)
		.set_CellValue(0,2,5)
		.DefaultItem = .AddItem(6)
		.set_CellValue(0,1,7)
		.set_CellValue(0,2,8)
	End With
	.EndUpdate()
End With
1194
Is it possible to change the color of the border

With Exgrid1
	.BeginUpdate()
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABc8IQAAYAQGKIcBiAKBQAGaAoDDMMwyQwAAxDMK8EwsACEIrjKCRShyCYZRhGcTALBIBQSHAZZKgOJIRDENg2SANACRfIUaw1DqBZwkGZoW" & _
"hGKgAShIEDwSKkQBlECeJpnKaqIomJYnDLQUw0NL9HQ3JaaKqnWLBVCWEQyVzEIyjBT0EzHMqtKrjaA6NpaP4oT7LEIydKFCRJNi0bSnGqaOj6UJSURRVq3TTFcTyAC3" & _
"ahuOo4cpXB4SWrOd41fYNOTQACzbCsSIcPxCe6GXjiNwjPKMWhnIq+M5wXIrJyKCYUaTcejzfgdU5XWqeMoyewMXxmZqbXw/fBYRrEL5vTqNXTzSA4BEB")
	.Appearance = &H100ff00
	.ColumnAutoResize = True
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	.TreeColumnIndex = -1
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exAllLines
	.GridLineStyle = exontrol.EXGRIDLib.GridLinesStyleEnum.exGridLinesGeometric
	.Columns.Add("Default")
	With .Items
		.AddItem("before item")
		.AddItem("item")
		.AddItem("after item")
	End With
	.EndUpdate()
End With
1193
Expandable-caption

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub Exgrid1_AnchorClick(ByVal sender As System.Object,ByVal AnchorID As String,ByVal Options As String) Handles Exgrid1.AnchorClick
	With Exgrid1
		Debug.Print( AnchorID )
	End With
End Sub

Dim h
With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = True
	.TreeColumnIndex = -1
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exAllLines
	.GridLineStyle = exontrol.EXGRIDLib.GridLinesStyleEnum.exGridLinesGeometric
	.BackColorAlternate = Color.FromArgb(240,240,240)
	.ShowFocusRect = False
	.Columns.Add("Default")
	With .Items
		.AddItem("before item")
		h = .AddItem("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4Aj" & _
"MGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEB" & _
"A==>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DAB" & _
"vABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>	" & _
"650;</a><br>+ withdraw(amount: Currency)")
		.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_CellSingleLine(h,0,exontrol.EXGRIDLib.CellSingleLineEnum.exCaptionWordWrap)
		.AddItem("after item")
	End With
	.EndUpdate()
End With
1192
Expandable-caption

Dim h
With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = True
	.TreeColumnIndex = -1
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exAllLines
	.GridLineStyle = exontrol.EXGRIDLib.GridLinesStyleEnum.exGridLinesGeometric
	.BackColorAlternate = Color.FromArgb(240,240,240)
	.ShowFocusRect = False
	.Columns.Add("Default")
	With .Items
		.AddItem("before item")
		h = .AddItem("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3")
		.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_CellSingleLine(h,0,exontrol.EXGRIDLib.CellSingleLineEnum.exCaptionWordWrap)
		.AddItem("after item")
	End With
	.EndUpdate()
End With
1191
Force hover-all feature
With Exgrid1
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exScrollHoverAll,-1)
End With
1190
Disable hover-all feature (Windows 11 or greater)
With Exgrid1
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exScrollHoverAll,Color.FromArgb(1,0,0))
End With
1189
Display a custom tooltip
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exgrid1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exgrid1.MouseMoveEvent
	With Exgrid1
		.ShowToolTip("new content","",Nothing,"+8","+8")
	End With
End Sub


1188
Shows the tooltip of the object moved relative to its default position
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exgrid1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exgrid1.MouseMoveEvent
	With Exgrid1
		.ShowToolTip("<null>","<null>",Nothing,"+8","+8")
	End With
End Sub

With Exgrid1
	.ColumnAutoResize = False
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
1187
Delete all records
' ButtonClick event - Occurs when user clicks on the cell's button.
Private Sub Exgrid1_ButtonClick(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer,ByVal Key As Object) Handles Exgrid1.ButtonClick
	Dim cmd
	With Exgrid1
		cmd = New ADODB.Command()
		With cmd
			.ActiveConnection = Exgrid1.DataSource.ActiveConnection
			.CommandText = "Delete * from ORDERS"
			.CommandType = 1
			.Execute()
		End With
		.DataSource.Requery()
	End With
End Sub

' Error event - Fired when an internal error occurs.
Private Sub Exgrid1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Exgrid1.Error
	With Exgrid1
		Debug.Print( Description )
	End With
End Sub

Dim h,rs
With Exgrid1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Select * From Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",1,3)
	End With
	.DataSource = rs
	.ConditionalFormats.Add("%1=12345").BackColor = Color.FromArgb(240,240,240)
	With .Items
		.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exTop,1)
		h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exTop,0)
		.set_ItemDivider(h,0)
		.set_CellHasButton(h,0,True)
		.set_CellValue(h,0,"Requery (delete all records, using ADODB.Command)")
		.set_CellHAlignment(h,0,exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment)
	End With
	.EndUpdate()
End With
1186
How can I get a cell that shows the sum of a column of minutes in hours + minutes format

Dim h
With Exgrid1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	With .Columns.Add("Minutes")
		.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
		With .Editor
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
			.Numeric = exontrol.EXGRIDLib.NumericEnum.exInteger
		End With
	End With
	With .Items
		.AddItem(10)
		.AddItem(20)
		.AddItem(30)
		.AddItem(40)
		.AddItem(50)
		h = .AddItem("sum(all,dir,dbl(%0))")
		.set_SelectableItem(h,False)
		.set_SortableItem(h,False)
		.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_CellHAlignment(h,0,exontrol.EXGRIDLib.AlignmentEnum.RightAlignment)
		.set_FormatCell(h,0,"'<b>HH:NN</b>: '+ (int(value/60) lpad '00') + ':' + ((value mod 60) lpad '00')")
	End With
	.EndUpdate()
End With
1185
Highlight the match once the filter is applied

' FilterChange event - Occurs when filter was changed.
Private Sub Exgrid1_FilterChange(ByVal sender As System.Object) Handles Exgrid1.FilterChange
	Dim format
	With Exgrid1
		format = .FormatABC("`lower(value) replace lower('` + value + `') with '<bgcolor 000000><fgcolor FFFFFF>` + value  + `</fgcolor></bgcolor>'`",.FilterBarPromptPattern)
		.Columns.Item(0).FormatColumn = format
		.Columns.Item(1).FormatColumn = format
		.Columns.Item(2).FormatColumn = format
	End With
End Sub

Dim h0
With Exgrid1
	.BeginUpdate()
	.SelBackColor = .BackColor
	.SelForeColor = .ForeColor
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	.HeaderHeight = 23
	.BackColorLevelHeader = .BackColor
	.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarBackColor = .BackColor
	.FilterBarPromptPattern = "and"
	With .Columns
		With .Add("Name")
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
			.FormatColumn = "lower(value)"
		End With
		With .Add("Title")
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
			.FormatColumn = "lower(value)"
		End With
		With .Add("City")
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
			.FormatColumn = "lower(value)"
		End With
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellValue(h0,1,"Vice President, Sales")
		.set_CellValue(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellValue(h0,1,"Sales Manager")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellValue(h0,1,"Inside Sales Coordinator")
		.set_CellValue(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellValue(h0,1,"Sales Representative")
		.set_CellValue(h0,2,"London")
	End With
	.EndUpdate()
End With
1184
The count of filtered items includes the group-parents. How can I exclude them from count

With Exgrid1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exVLines
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Flat
	.HeaderHeight = 24
	.SortBarHeight = 28
	.SortBarVisible = True
	.AllowGroupBy = True
	.Columns.Add("Col 1")
	.Columns.Add("Col 2")
	With .Items
		.set_CellValue(.AddItem("219 Smith"),1,"Ignacio 1234")
		.set_CellValue(.AddItem("1666 County Road 309A"),1,"897 Manassa")
		.set_CellValue(.AddItem("38 Lone Pine"),1,"Durango 11")
		.set_CellValue(.AddItem("612 Jachim Street"),1,"Lamar 222")
	End With
	.Layout = "MultipleSort=""C1:1"""
	.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? leafitemcount + ` result(s)` : ``)"
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = exontrol.EXGRIDLib.FilterPromptEnum.exFilterPromptCaseSensitive Or exontrol.EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAll
	.FilterBarPromptPattern = "12"
	.FilterBarBackColor = .BackColor
	.EndUpdate()
End With
1183
Is it possible to display the count of filtered items

With Exgrid1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exVLines
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.Columns.Add("Col 1")
	.Columns.Add("Col 2")
	With .Items
		.set_CellValue(.AddItem("219 Smith"),1,"Ignacio 1234")
		.set_CellValue(.AddItem("1666 County Road 309A"),1,"897 Manassa")
		.set_CellValue(.AddItem("38 Lone Pine"),1,"Durango 11")
		.set_CellValue(.AddItem("612 Jachim Street"),1,"Lamar 222")
	End With
	.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = exontrol.EXGRIDLib.FilterPromptEnum.exFilterPromptCaseSensitive Or exontrol.EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAll
	.FilterBarPromptPattern = "12"
	.FilterBarBackColor = .BackColor
	.EndUpdate()
End With
1182
GroupBy code

Dim rs
With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	.CountLockedColumns = 1
	.BackColorLock = Color.FromArgb(248,248,248)
	.HasLines = exontrol.EXGRIDLib.HierarchyLineEnum.exSolidLine
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SingleSort = False
	.AllowGroupBy = True
	.Columns.Item(0).Width = 128
	.Layout = "MultipleSort = ""C12:1 C1:2"""
	.EndUpdate()
End With
1181
ADOR, MDB (JET)
Dim rs
With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.mdb",3,3)
	End With
	.DataSource = rs
	.EndUpdate()
End With
1180
Editors (ImageSize = 32)

Dim h
With Exgrid1
	.BeginUpdate()
	.ImageSize = 32
	.DefaultItemHeight = 36
	.HeaderHeight = .DefaultItemHeight
	.SortBarHeight = .DefaultItemHeight
	.Font.Size = 16
	.FilterBarFont.Size = Exgrid1.Font.Size
	.ToolTipFont.Size = Exgrid1.Font.Size
	.Indent = 26
	.Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq" & _
"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" & _
"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" & _
"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" & _
"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" & _
"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" & _
"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" & _
"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" & _
"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" & _
"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" & _
"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" & _
"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" & _
"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" & _
"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" & _
"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" & _
"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" & _
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" & _
"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" & _
"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" & _
"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" & _
"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" & _
"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" & _
"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" & _
"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==")
		.Add(2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" & _
"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" & _
"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" & _
"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" & _
"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" & _
"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" & _
"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" & _
"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" & _
"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" & _
"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" & _
"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" & _
"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" & _
"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" & _
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" & _
"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" & _
"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" & _
"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" & _
"gRBCCQAgQEA==")
		.Add(3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" & _
"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" & _
"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" & _
"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" & _
"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" & _
"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" & _
"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" & _
"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" & _
"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" & _
"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" & _
"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" & _
"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" & _
"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" & _
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" & _
"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" & _
"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=")
		.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
	End With
	.BackColorHeader32 = &H4c6c6c6
	.SelBackColor32 = &H4000000
	.SelForeColor = Color.FromArgb(0,0,1)
	.ShowFocusRect = False
	.set_CheckImage(exontrol.EXGRIDLib.CheckStateEnum.Unchecked,16777216)
	.set_CheckImage(exontrol.EXGRIDLib.CheckStateEnum.Checked,33554432)
	.set_CheckImage(exontrol.EXGRIDLib.CheckStateEnum.PartialChecked,50331648)
	.Columns.Add("Editors").set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
	With .Items
		.get_CellEditor(.AddItem("(ReadOnly)"),0).EditType = exontrol.EXGRIDLib.EditTypeEnum.ReadOnly
		.get_CellEditor(.AddItem("(EditType)"),0).EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
		h = .AddItem("Value 1")
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.DropDownType
			.AddItem(1,"Value 1",1)
			.AddItem(2,"Value 2",2)
			.AddItem(3,"Value 3",3)
		End With
		.set_FormatCell(h,0,"value + ' (DropDownType)'")
		h = .AddItem(1)
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.DropDownListType
			.DropDownAutoWidth = exontrol.EXGRIDLib.DropDownWidthType.exDropDownEditorWidth
			.AddItem(1,"Nancy Davolio",1)
			.AddItem(2,"Andrew Fuller",2)
			.AddItem(3,"Janet Leverling",3)
			.AddItem(4,"Peacock Margaret",3)
			.AddItem(5,"Steven Buchanan",2)
			.AddItem(6,"Michael Suyama",1)
			.AddItem(7,"Robert King",2)
			.AddItem(8,"Laura Callahan",3)
			.AddItem(9,"Anne Dodsworth",2)
		End With
		.set_FormatCell(h,0,"value + ' (DropDownList - single column list)'")
		h = .AddItem(1)
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.DropDownListType
			.DropDownAutoWidth = exontrol.EXGRIDLib.DropDownWidthType.exDropDownEditorWidth
			.AddItem(1,"Nancy Davolio",1)
			.AddItem(2,"Andrew Fuller",2)
			.InsertItem(3,"Janet Leverling",3,2)
			.InsertItem(4,"Peacock Margaret",3,2)
			.InsertItem(5,"Steven Buchanan",2,2)
			.InsertItem(6,"Michael Suyama",1,5)
			.InsertItem(7,"Robert King",2,2)
			.InsertItem(8,"Laura Callahan",3,2)
			.InsertItem(9,"Anne Dodsworth",2,5)
			.ExpandAll()
		End With
		.set_FormatCell(h,0,"value + ' (DropDownList - single column tree)'")
		h = .AddItem(1)
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.DropDownListType
			.DropDownAutoWidth = exontrol.EXGRIDLib.DropDownWidthType.exDropDownEditorWidth
			.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exDropDownColumnCaption,"Name¦Title¦City¦Phone")
			.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exDropDownColumnWidth,"312¦¦¦96")
			.AddItem(1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1)
			.AddItem(2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2)
			.AddItem(3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3)
			.AddItem(4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3)
			.AddItem(5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2)
			.AddItem(6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1)
			.AddItem(7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2)
			.AddItem(8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3)
			.AddItem(9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2)
		End With
		.set_FormatCell(h,0,"value + ' (DropDownList - multiple columns list)'")
		h = .AddItem(1)
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.DropDownListType
			.DropDownAutoWidth = exontrol.EXGRIDLib.DropDownWidthType.exDropDownEditorWidth
			.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exDropDownColumnCaption,"Name¦Title¦City¦Phone")
			.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exDropDownColumnWidth,"312¦¦¦96")
			.AddItem(1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1)
			.AddItem(2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2)
			.InsertItem(3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3,2)
			.InsertItem(4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3,2)
			.InsertItem(5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2,2)
			.InsertItem(6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1,5)
			.InsertItem(7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2,2)
			.InsertItem(8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3,2)
			.InsertItem(9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2,5)
			.ExpandAll()
		End With
		.set_FormatCell(h,0,"value + ' (DropDownList - multiple columns tree)'")
		h = .AddItem(100)
		.get_CellEditor(h,0).EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
		.set_FormatCell(h,0,"value + ' (SpinType)'")
		.get_CellEditor(.AddItem("(MemoType)"),0).EditType = exontrol.EXGRIDLib.EditTypeEnum.MemoType
		h = .AddItem(3)
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.CheckListType
			.AddItem(1,"Border",1)
			.AddItem(2,"Single",2)
			.AddItem(4,"Frame",3)
		End With
		.set_FormatCell(h,0,"value + ' (CheckListType)'")
		h = .AddItem("193.226.40.161")
		With .get_CellEditor(h,0)
			.Mask = "{0,255}.{0,255}.{0,255}.{0,255}"
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.MaskType
		End With
		.set_FormatCell(h,0,"value + ' (MaskType)'")
		h = .AddItem(65280)
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.ColorType
			.Mask = "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0"
		End With
		.set_FormatCell(h,0,"value + ' (ColorType)'")
		h = .AddItem("Tahoma")
		.get_CellEditor(h,0).EditType = exontrol.EXGRIDLib.EditTypeEnum.FontType
		.set_FormatCell(h,0,"value + ' (FontType)'")
		h = .AddItem("gBHJJGHA5MIwAEIe4AAAFhwbiAliQwig7ixFjBQjRbjhljxwkB7kSFkiQkyblCllSwli7lzFmDQmTbmjlmzwnD7nQBnk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1YhgAEL5AgBhj/AAssMJthABFof4JDhIWCgYKDBATFT8M6hUIFAQAEQCCDwYF/QoWDZCRBgOKgIYHCQXMisKBAEQAAgOBZaSgQhjERANKQiZhIWam" & _
"YyIBQ6FzcNKxQLJT4ADA4RjwObAAidBYdHwABQgUxMQYZEI0cD4OgnYKaKyzIRFNQx2YCKoFHScYD0ADXQwUAgwLoLQDqaCWBJoNQ9NBxFJTVQORgiarqSABbamGwtDA" & _
"wBUWhQmqYALnOFQvGYPA4m6AwKhkZxKj2PBWC0SZCgmVY6CwIJgieBAniubRKHgaYgiwQwGiCfxGDWbBRmGZYIi2VwGnAexxGUSwUFiaR+hQPbBgOCoLCIHh4DAARCmQ" & _
"G4AlgNxuhwWgpFAEQUhuOxOk0NrhAaQoBmgPYdFSIZPjYGYbn+HhgEoAA7HMBIOjUM51AoPojHkEwVlET5slgWZtAEUBdjeSoeF6X5/rQRRSi+QB6GychsEAfZshKYAB" & _
"GQZorlAOgMBqEgAjYHB2jqSoigmYBLk+QZnBqGhggAEwImgbojgoIwSE+MxUHiS4REQCQWluD48B+JJoL+YQikuaI9AALgLmsJQfnSdAvDkCJEhIIIBgOegLEiPBqCyC" & _
"AAjcCwgAAIJBhQBQkHGL4gDaNBokkZQMiwUAuioJQiCAQYsHMcwwEIeoigAYIogsGIwFKIYICIWguEoPgQhsawBASGgwCuJwLH8K4LigAIaDwbxMAOKxbisPwfASQATF" & _
"ASoagIEYwgcSoKGiAA/mEdIuiGPxCmObIlhMIJNHONxFH8EpPCGeB+noEpBBSSRjCsPZEiyKhgjAH5whSdLEjwDxjC8TxVEMFRzFWJJZBUSI0gQEQLBOM4VHkIg1D0CA" & _
"JDQNg/p4AAdoC")
		.get_CellEditor(h,0).EditType = exontrol.EXGRIDLib.EditTypeEnum.PictureType
		.set_FormatCell(h,0,"value + ' (PictureType)'")
		.get_CellEditor(.AddItem("(ButtonType)"),0).EditType = exontrol.EXGRIDLib.EditTypeEnum.ButtonType
		h = .AddItem(25)
		.get_CellEditor(h,0).EditType = exontrol.EXGRIDLib.EditTypeEnum.ProgressBarType
		.set_FormatCell(h,0,"value + ' (ProgressBarType)'")
		h = .AddItem("Value 1")
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.PickEditType
			.AddItem(1,"Value 1",1)
			.AddItem(2,"Value 2",2)
			.AddItem(3,"Value 3",3)
		End With
		.set_FormatCell(h,0,"value + ' (PickEditType)'")
		.get_CellEditor(.AddItem("(LinkEditType)"),0).EditType = exontrol.EXGRIDLib.EditTypeEnum.LinkEditType
		With .get_CellEditor(.AddItem("(UserEditorType)"),0)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.UserEditorType
			.UserEditor("Exontrol.ComboBox","")
			With .UserEditorObject
			End With
		End With
		h = .AddItem(255)
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.ColorListType
			.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exColorListShowName,True)
		End With
		.set_FormatCell(h,0,"value + ' (ColorListType)'")
		.get_CellEditor(.AddItem(65280),0).EditType = exontrol.EXGRIDLib.EditTypeEnum.ColorListType
		.get_CellEditor(.AddItem("(MemoDropDownType)"),0).EditType = exontrol.EXGRIDLib.EditTypeEnum.MemoDropDownType
		With .get_CellEditor(.AddItem(-1),0)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.CheckValueType
			.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exCheckValue2,1)
		End With
		h = .AddItem(50)
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.SliderType
			.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exSliderWidth,-60)
			.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exSliderTickFrequency,10)
			.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exSliderTickStyle,2)
		End With
		.set_FormatCell(h,0,"value + ' (SliderType)'")
		h = .AddItem(100)
		.get_CellEditor(h,0).EditType = exontrol.EXGRIDLib.EditTypeEnum.CalculatorType
		.set_FormatCell(h,0,"value + ' (CalculatorType)'")
		.EnsureVisibleItem(h)
	End With
	.EndUpdate()
End With
1179
Editors (ImageSize = 16, default)

Dim h
With Exgrid1
	.BeginUpdate()
	.ImageSize = 16
	.Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq" & _
"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" & _
"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" & _
"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" & _
"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" & _
"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==")
	With .VisualAppearance
		.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
	End With
	.Columns.Add("Editors").set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
	.BackColorHeader32 = &H4c6c6c6
	With .Items
		.get_CellEditor(.AddItem("(ReadOnly)"),0).EditType = exontrol.EXGRIDLib.EditTypeEnum.ReadOnly
		.get_CellEditor(.AddItem("(EditType)"),0).EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
		h = .AddItem("Value 1")
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.DropDownType
			.AddItem(1,"Value 1",1)
			.AddItem(2,"Value 2",2)
			.AddItem(3,"Value 3",3)
		End With
		.set_FormatCell(h,0,"value + ' (DropDownType)'")
		h = .AddItem(1)
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.DropDownListType
			.DropDownAutoWidth = exontrol.EXGRIDLib.DropDownWidthType.exDropDownEditorWidth
			.AddItem(1,"Nancy Davolio",1)
			.AddItem(2,"Andrew Fuller",2)
			.AddItem(3,"Janet Leverling",3)
			.AddItem(4,"Peacock Margaret",3)
			.AddItem(5,"Steven Buchanan",2)
			.AddItem(6,"Michael Suyama",1)
			.AddItem(7,"Robert King",2)
			.AddItem(8,"Laura Callahan",3)
			.AddItem(9,"Anne Dodsworth",2)
		End With
		.set_FormatCell(h,0,"value + ' (DropDownList - single column list)'")
		h = .AddItem(1)
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.DropDownListType
			.DropDownAutoWidth = exontrol.EXGRIDLib.DropDownWidthType.exDropDownEditorWidth
			.AddItem(1,"Nancy Davolio",1)
			.AddItem(2,"Andrew Fuller",2)
			.InsertItem(3,"Janet Leverling",3,2)
			.InsertItem(4,"Peacock Margaret",3,2)
			.InsertItem(5,"Steven Buchanan",2,2)
			.InsertItem(6,"Michael Suyama",1,5)
			.InsertItem(7,"Robert King",2,2)
			.InsertItem(8,"Laura Callahan",3,2)
			.InsertItem(9,"Anne Dodsworth",2,5)
			.ExpandAll()
		End With
		.set_FormatCell(h,0,"value + ' (DropDownList - single column tree)'")
		h = .AddItem(1)
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.DropDownListType
			.DropDownAutoWidth = exontrol.EXGRIDLib.DropDownWidthType.exDropDownEditorWidth
			.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exDropDownColumnCaption,"Name¦Title¦City¦Phone")
			.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exDropDownColumnWidth,"312¦¦¦96")
			.AddItem(1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1)
			.AddItem(2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2)
			.AddItem(3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3)
			.AddItem(4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3)
			.AddItem(5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2)
			.AddItem(6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1)
			.AddItem(7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2)
			.AddItem(8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3)
			.AddItem(9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2)
		End With
		.set_FormatCell(h,0,"value + ' (DropDownList - multiple columns list)'")
		h = .AddItem(1)
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.DropDownListType
			.DropDownAutoWidth = exontrol.EXGRIDLib.DropDownWidthType.exDropDownEditorWidth
			.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exDropDownColumnCaption,"Name¦Title¦City¦Phone")
			.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exDropDownColumnWidth,"312¦¦¦96")
			.AddItem(1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1)
			.AddItem(2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2)
			.InsertItem(3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3,2)
			.InsertItem(4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3,2)
			.InsertItem(5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2,2)
			.InsertItem(6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1,5)
			.InsertItem(7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2,2)
			.InsertItem(8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3,2)
			.InsertItem(9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2,5)
			.ExpandAll()
		End With
		.set_FormatCell(h,0,"value + ' (DropDownList - multiple columns tree)'")
		h = .AddItem(100)
		.get_CellEditor(h,0).EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
		.set_FormatCell(h,0,"value + ' (SpinType)'")
		.get_CellEditor(.AddItem("(MemoType)"),0).EditType = exontrol.EXGRIDLib.EditTypeEnum.MemoType
		h = .AddItem(3)
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.CheckListType
			.AddItem(1,"Border",1)
			.AddItem(2,"Single",2)
			.AddItem(4,"Frame",3)
		End With
		.set_FormatCell(h,0,"value + ' (CheckListType)'")
		h = .AddItem("193.226.40.161")
		With .get_CellEditor(h,0)
			.Mask = "{0,255}.{0,255}.{0,255}.{0,255}"
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.MaskType
		End With
		.set_FormatCell(h,0,"value + ' (MaskType)'")
		h = .AddItem(65280)
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.ColorType
			.Mask = "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0"
		End With
		.set_FormatCell(h,0,"value + ' (ColorType)'")
		h = .AddItem("Tahoma")
		.get_CellEditor(h,0).EditType = exontrol.EXGRIDLib.EditTypeEnum.FontType
		.set_FormatCell(h,0,"value + ' (FontType)'")
		h = .AddItem("gBHJJGHA5MIwAEIe4AAAFhwbiAliQwig7ixFjBQjRbjhljxwkB7kSFkiQkyblCllSwli7lzFmDQmTbmjlmzwnD7nQBnk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1YhgAEL5AgBhj/AAssMJthABFof4JDhIWCgYKDBATFT8M6hUIFAQAEQCCDwYF/QoWDZCRBgOKgIYHCQXMisKBAEQAAgOBZaSgQhjERANKQiZhIWam" & _
"YyIBQ6FzcNKxQLJT4ADA4RjwObAAidBYdHwABQgUxMQYZEI0cD4OgnYKaKyzIRFNQx2YCKoFHScYD0ADXQwUAgwLoLQDqaCWBJoNQ9NBxFJTVQORgiarqSABbamGwtDA" & _
"wBUWhQmqYALnOFQvGYPA4m6AwKhkZxKj2PBWC0SZCgmVY6CwIJgieBAniubRKHgaYgiwQwGiCfxGDWbBRmGZYIi2VwGnAexxGUSwUFiaR+hQPbBgOCoLCIHh4DAARCmQ" & _
"G4AlgNxuhwWgpFAEQUhuOxOk0NrhAaQoBmgPYdFSIZPjYGYbn+HhgEoAA7HMBIOjUM51AoPojHkEwVlET5slgWZtAEUBdjeSoeF6X5/rQRRSi+QB6GychsEAfZshKYAB" & _
"GQZorlAOgMBqEgAjYHB2jqSoigmYBLk+QZnBqGhggAEwImgbojgoIwSE+MxUHiS4REQCQWluD48B+JJoL+YQikuaI9AALgLmsJQfnSdAvDkCJEhIIIBgOegLEiPBqCyC" & _
"AAjcCwgAAIJBhQBQkHGL4gDaNBokkZQMiwUAuioJQiCAQYsHMcwwEIeoigAYIogsGIwFKIYICIWguEoPgQhsawBASGgwCuJwLH8K4LigAIaDwbxMAOKxbisPwfASQATF" & _
"ASoagIEYwgcSoKGiAA/mEdIuiGPxCmObIlhMIJNHONxFH8EpPCGeB+noEpBBSSRjCsPZEiyKhgjAH5whSdLEjwDxjC8TxVEMFRzFWJJZBUSI0gQEQLBOM4VHkIg1D0CA" & _
"JDQNg/p4AAdoC")
		.get_CellEditor(h,0).EditType = exontrol.EXGRIDLib.EditTypeEnum.PictureType
		.set_FormatCell(h,0,"value + ' (PictureType)'")
		.get_CellEditor(.AddItem("(ButtonType)"),0).EditType = exontrol.EXGRIDLib.EditTypeEnum.ButtonType
		h = .AddItem(25)
		.get_CellEditor(h,0).EditType = exontrol.EXGRIDLib.EditTypeEnum.ProgressBarType
		.set_FormatCell(h,0,"value + ' (ProgressBarType)'")
		h = .AddItem("Value 1")
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.PickEditType
			.AddItem(1,"Value 1",1)
			.AddItem(2,"Value 2",2)
			.AddItem(3,"Value 3",3)
		End With
		.set_FormatCell(h,0,"value + ' (PickEditType)'")
		.get_CellEditor(.AddItem("(LinkEditType)"),0).EditType = exontrol.EXGRIDLib.EditTypeEnum.LinkEditType
		With .get_CellEditor(.AddItem("(UserEditorType)"),0)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.UserEditorType
			.UserEditor("Exontrol.ComboBox","")
			With .UserEditorObject
			End With
		End With
		h = .AddItem(255)
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.ColorListType
			.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exColorListShowName,True)
		End With
		.set_FormatCell(h,0,"value + ' (ColorListType)'")
		.get_CellEditor(.AddItem(65280),0).EditType = exontrol.EXGRIDLib.EditTypeEnum.ColorListType
		.get_CellEditor(.AddItem("(MemoDropDownType)"),0).EditType = exontrol.EXGRIDLib.EditTypeEnum.MemoDropDownType
		With .get_CellEditor(.AddItem(-1),0)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.CheckValueType
			.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exCheckValue2,1)
		End With
		h = .AddItem(50)
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.SliderType
			.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exSliderWidth,-60)
			.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exSliderTickFrequency,10)
			.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exSliderTickStyle,2)
		End With
		.set_FormatCell(h,0,"value + ' (SliderType)'")
		h = .AddItem(100)
		.get_CellEditor(h,0).EditType = exontrol.EXGRIDLib.EditTypeEnum.CalculatorType
		.set_FormatCell(h,0,"value + ' (CalculatorType)'")
		.EnsureVisibleItem(h)
	End With
	.EndUpdate()
End With
1178
Re-order the cell's caption, icons and images/pictures

Dim h
With Exgrid1
	.BeginUpdate()
	.Images("gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmD" & _
"cD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB")
	With .Columns.Add("ToLeft")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
	End With
	With .Columns.Add("ToRight")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellDrawPartsOrder,"caption,picture,icons,icon,check")
	End With
	.DefaultItemHeight = 32
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exVLines
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	With .Items
		h = .AddItem("Caption")
		.set_CellImage(h,0,2)
		.set_CellImages(h,0,"1,2")
		.set_CellPicture(h,0,Exgrid1.ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLs" & _
"GL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7" & _
"FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0F" & _
"CjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4" & _
"wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/Ay" & _
"QJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZe" & _
"nEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSF" & _
"pTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5si" & _
"qbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8Yx" & _
"XhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8D" & _
"PH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZA" & _
"mBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCM" & _
"EgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rBy" & _
"jJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0W" & _
"gLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTH" & _
"CBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB" & _
"1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHw" & _
"L4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0" & _
"FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYd" & _
"guhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCG" & _
"USNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmh" & _
"AFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg" & _
"6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GF" & _
"ZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gm" & _
"iXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsA" & _
"YAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg" & _
"5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARA" & _
"SA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9A" & _
"IBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcA" & _
"dAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJB" & _
"PhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzA" & _
"hhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARB" & _
"vgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURA" & _
"Ghvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh" & _
"/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3s" & _
"UhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4A" & _
"fgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8x" & _
"MhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA" & _
"2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXB" & _
"WhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBag" & _
"xAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9B" & _
"tnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqB" & _
"UgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDA" & _
"jAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBih" & _
"Fh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdA" & _
"uAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeA" & _
"FBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg" & _
"3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhch" & _
"ug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCB" & _
"QAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxh" & _
"Tg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5" & _
"WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJA" & _
"kgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEg" & _
"qgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyh" & _
"VgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADB" & _
"Wh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMA" & _
"GAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFO" & _
"rC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZT" & _
"WP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwd" & _
"i4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8" & _
"PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnL" & _
"Cs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIy" & _
"DQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhO" & _
"ApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj" & _
"5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)"))
		.set_CellValue(h,1,.get_CellValue(h,0))
		.set_CellHAlignment(h,1,exontrol.EXGRIDLib.AlignmentEnum.RightAlignment)
		.set_CellImage(h,1,.get_CellImage(h,0))
		.set_CellImages(h,1,"2,1")
		.set_CellPicture(h,1,.get_CellPicture(h,0))
		h = .AddItem("<b>HTML</b> <off 4>Caption")
		.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_CellImage(h,0,2)
		.set_CellImages(h,0,"1,2")
		.set_CellPicture(h,0,Exgrid1.ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLs" & _
"GL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7" & _
"FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0F" & _
"CjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4" & _
"wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/Ay" & _
"QJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZe" & _
"nEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSF" & _
"pTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5si" & _
"qbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8Yx" & _
"XhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8D" & _
"PH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZA" & _
"mBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCM" & _
"EgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rBy" & _
"jJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0W" & _
"gLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTH" & _
"CBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB" & _
"1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHw" & _
"L4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0" & _
"FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYd" & _
"guhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCG" & _
"USNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmh" & _
"AFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg" & _
"6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GF" & _
"ZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gm" & _
"iXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsA" & _
"YAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg" & _
"5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARA" & _
"SA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9A" & _
"IBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcA" & _
"dAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJB" & _
"PhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzA" & _
"hhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARB" & _
"vgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURA" & _
"Ghvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh" & _
"/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3s" & _
"UhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4A" & _
"fgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8x" & _
"MhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA" & _
"2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXB" & _
"WhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBag" & _
"xAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9B" & _
"tnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqB" & _
"UgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDA" & _
"jAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBih" & _
"Fh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdA" & _
"uAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeA" & _
"FBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg" & _
"3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhch" & _
"ug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCB" & _
"QAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxh" & _
"Tg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5" & _
"WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJA" & _
"kgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEg" & _
"qgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyh" & _
"VgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADB" & _
"Wh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMA" & _
"GAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFO" & _
"rC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZT" & _
"WP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwd" & _
"i4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8" & _
"PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnL" & _
"Cs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIy" & _
"DQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhO" & _
"ApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj" & _
"5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)"))
		.set_CellValue(h,1,.get_CellValue(h,0))
		.set_CellValueFormat(h,1,exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_CellHAlignment(h,1,exontrol.EXGRIDLib.AlignmentEnum.RightAlignment)
		.set_CellImage(h,1,.get_CellImage(h,0))
		.set_CellImages(h,1,"2,1")
		.set_CellPicture(h,1,.get_CellPicture(h,0))
	End With
	.EndUpdate()
End With
1177
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)

' AddColumn event - Fired after a new column has been added.
Private Sub Exgrid1_AddColumn(ByVal sender As System.Object,ByVal Column As exontrol.EXGRIDLib.Column) Handles Exgrid1.AddColumn
	' Column.Def(48) = 2
	' Column.Def(49) = 2
End Sub

Dim h,hR
With Exgrid1
	.BeginUpdate()
	.ImageSize = 32
	.DefaultItemHeight = 36
	.HeaderHeight = .DefaultItemHeight
	.SortBarHeight = .DefaultItemHeight
	.Font.Size = 16
	.FilterBarFont.Size = Exgrid1.Font.Size
	.ToolTipFont.Size = Exgrid1.Font.Size
	.Indent = 26
	.Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq" & _
"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" & _
"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" & _
"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" & _
"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" & _
"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" & _
"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" & _
"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" & _
"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" & _
"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" & _
"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" & _
"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" & _
"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" & _
"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" & _
"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" & _
"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" & _
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" & _
"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" & _
"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" & _
"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" & _
"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" & _
"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" & _
"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" & _
"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==")
		.Add(2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" & _
"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" & _
"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" & _
"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" & _
"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" & _
"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" & _
"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" & _
"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" & _
"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" & _
"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" & _
"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" & _
"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" & _
"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" & _
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" & _
"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" & _
"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" & _
"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" & _
"gRBCCQAgQEA==")
		.Add(3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" & _
"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" & _
"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" & _
"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" & _
"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" & _
"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" & _
"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" & _
"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" & _
"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" & _
"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" & _
"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" & _
"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" & _
"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" & _
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" & _
"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" & _
"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=")
		.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
	End With
	.BackColorHeader32 = &H4c6c6c6
	.SelBackColor32 = &H4000000
	.SelForeColor = Color.FromArgb(0,0,1)
	.set_CheckImage(exontrol.EXGRIDLib.CheckStateEnum.Unchecked,16777216)
	.set_CheckImage(exontrol.EXGRIDLib.CheckStateEnum.Checked,33554432)
	.set_CheckImage(exontrol.EXGRIDLib.CheckStateEnum.PartialChecked,50331648)
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exSelBackColorFilter,.SelBackColor)
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exSelForeColorFilter,.SelForeColor)
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exBackColorFilter,.BackColor)
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exForeColorFilter,.ForeColor)
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exHeaderFilterBarButton,&H4000000)
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exHeaderFilterBarActive,&H4010101)
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exFooterFilterBarButton,&H40000ff)
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	.ShowFocusRect = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.BackColorSortBar = .BackColor
	.BackColorLevelHeader = .BackColor
	.FilterBarDropDownHeight = 1
	With .Columns.Add("Check")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
		.Width = 128
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.FormatColumn = "1 pos ``"
		.AllowSort = False
		.Width = 48
		.AllowSizing = False
		.Alignment = exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment
		.HeaderAlignment = exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowExclude Or exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox Or exontrol.EXGRIDLib.FilterListEnum.exSortItemsAsc
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exImage
		.DisplayExpandButton = True
		.ExpandColumns = "1,2,3"
		.Width = 128
		.HeaderImage = 1
	End With
	With .Columns.Add("Images")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
		.Width = 196
		.HTMLCaption = "<img>1</img><img>2</img><img>3</img> Images"
	End With
	.Columns.Item("Pos").Position = 3
	With .Items
		hR = .AddItem("Root")
		.set_ItemDivider(hR,0)
		.set_ItemDividerLine(hR,exontrol.EXGRIDLib.DividerLineEnum.EmptyLine)
		h = .InsertItem(hR,Nothing,"Child A")
		.set_CellImage(h,2,1)
		.set_CellImages(h,3,"1,2,3")
		.set_CellValue(h,3,"123")
		h = .InsertItem(hR,Nothing,"Child B")
		.set_CellState(h,0,1)
		.set_CellImage(h,2,3)
		.set_CellImages(h,3,"2,3,1")
		.set_CellValue(h,3,"231")
		.set_SelectItem(h,True)
		h = .InsertItem(hR,Nothing,"Child C")
		.set_CellImage(h,2,2)
		.set_CellState(h,3,1)
		.set_CellValue(h,3,"312")
		.set_CellImages(h,3,"3,1,2")
		.set_ExpandItem(hR,True)
	End With
	.EndUpdate()
End With
1176
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)

' AddColumn event - Fired after a new column has been added.
Private Sub Exgrid1_AddColumn(ByVal sender As System.Object,ByVal Column As exontrol.EXGRIDLib.Column) Handles Exgrid1.AddColumn
	' Column.Def(48) = 2
	' Column.Def(49) = 2
End Sub

Dim h,hR
With Exgrid1
	.BeginUpdate()
	.ImageSize = 16
	.Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq" & _
"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" & _
"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" & _
"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" & _
"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" & _
"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==")
	With .VisualAppearance
		.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
	End With
	.BackColorHeader32 = &H4c6c6c6
	.SelBackColor32 = &H4000000
	.SelForeColor = Color.FromArgb(0,0,1)
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exSelBackColorFilter,.SelBackColor)
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exSelForeColorFilter,.SelForeColor)
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exBackColorFilter,.BackColor)
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exForeColorFilter,.ForeColor)
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exHeaderFilterBarButton,&H4000000)
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exHeaderFilterBarActive,&H4010101)
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exFooterFilterBarButton,&H40000ff)
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	.ShowFocusRect = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.BackColorSortBar = .BackColor
	.BackColorLevelHeader = .BackColor
	.FilterBarDropDownHeight = 1
	With .Columns.Add("Check")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
		.Width = 128
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.FormatColumn = "1 pos ``"
		.AllowSort = False
		.Width = 48
		.AllowSizing = False
		.Alignment = exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment
		.HeaderAlignment = exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowExclude Or exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox Or exontrol.EXGRIDLib.FilterListEnum.exSortItemsAsc
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exImage
		.DisplayExpandButton = True
		.ExpandColumns = "1,2,3"
		.Width = 128
		.HeaderImage = 1
	End With
	With .Columns.Add("Images")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
		.Width = 196
		.HTMLCaption = "<img>1</img><img>2</img><img>3</img> Images"
	End With
	.Columns.Item("Pos").Position = 3
	With .Items
		hR = .AddItem("Root")
		.set_ItemDivider(hR,0)
		.set_ItemDividerLine(hR,exontrol.EXGRIDLib.DividerLineEnum.EmptyLine)
		h = .InsertItem(hR,Nothing,"Child A")
		.set_CellImage(h,2,1)
		.set_CellImages(h,3,"1,2,3")
		.set_CellValue(h,3,"123")
		h = .InsertItem(hR,Nothing,"Child B")
		.set_CellState(h,0,1)
		.set_CellImage(h,2,3)
		.set_CellImages(h,3,"2,3,1")
		.set_CellValue(h,3,"231")
		.set_SelectItem(h,True)
		h = .InsertItem(hR,Nothing,"Child C")
		.set_CellImage(h,2,2)
		.set_CellState(h,3,1)
		.set_CellValue(h,3,"312")
		.set_CellImages(h,3,"3,1,2")
		.set_ExpandItem(hR,True)
	End With
	.EndUpdate()
End With
1175
The user clicks the drop-down filter, select a value and the control's list filters for the selected item(s). Is there a way for when the user then goes to the next column to add another filter and the drop down arrow is clicked for the list of values they can filter by to be limited to what is being displayed in the list due to the first filter they set

' AddColumn event - Fired after a new column has been added.
Private Sub Exgrid1_AddColumn(ByVal sender As System.Object,ByVal Column As exontrol.EXGRIDLib.Column) Handles Exgrid1.AddColumn
	With Exgrid1
		With Column
		End With
	End With
End Sub

Dim rs
With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.Columns.Item("ShipVia").Position = 2
	.EndUpdate()
End With
1174
Does the control display images from database (ADO)

Dim rs
With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exAllLines
	.GridLineStyle = exontrol.EXGRIDLib.GridLinesStyleEnum.exGridLinesGeometric
	.DefaultItemHeight = 48
	rs = New ADODB.Recordset()
	With rs
		.Open("Employees","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.mdb",3,3)
	End With
	.DataSource = rs
	With .Columns.Item("Photo")
		.Position = 1
		.Width = 128
	End With
	.EndUpdate()
End With
1173
Does the control display images from database (DAO)

Dim rs
With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exAllLines
	.GridLineStyle = exontrol.EXGRIDLib.GridLinesStyleEnum.exGridLinesGeometric
	.DefaultItemHeight = 48
	With New DAO.PrivDBEngine()
		rs = .OpenDatabase("C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.mdb").OpenRecordset("Employees")
	End With
	.DataSource = rs
	With .Columns.Item("Photo")
		.Position = 1
		.Width = 128
	End With
	.EndUpdate()
End With
1172
Is it possible to set from code, a column sort without being inserted in the sortbar

Dim rs
With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.Layout = "singlesort=""C1:1"""
	.EndUpdate()
End With
1171
Is it possible to view all events the control fires
' Event event - Notifies the application once the control fires an event.
Private Sub Exgrid1_Event(ByVal sender As System.Object,ByVal EventID As Integer) Handles Exgrid1.Event
	With Exgrid1
		Debug.Print( .get_EventParam(-2) )
	End With
End Sub

Dim h,hChild
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Tasks")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
		.FormatColumn = "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)"
		.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
	End With
	.HeaderVisible = True
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,Nothing,"Task 1")
		.set_SelectItem(hChild,True)
		hChild = .InsertItem(h,Nothing,"Task 2")
		.set_CellState(hChild,0,1)
		hChild = .InsertItem(h,Nothing,"Task 3")
		.set_CellState(hChild,0,1)
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With
1170
How can I find all occurences of the giving value, within a column
With Exgrid1
	.BeginUpdate()
	.Columns.Add("Default")
	With .Columns.Add("Pos")
		.FormatColumn = "1 pos 'A-Z'"
		.Position = 0
		.AllowSizing = False
		.Width = 32
		.Enabled = False
	End With
	With .Columns.Add("Index")
		.FormatColumn = "0 index ''"
		.AllowSizing = False
		.Width = 32
		.Enabled = False
	End With
	With .Items
		.AddItem("A")
		.AddItem("A")
		.AddItem("A")
		Debug.Print( .get_CellCaption(.get_FindItem("A",0,0),1) )
		Debug.Print( .get_CellCaption(.get_FindItem("A",0,1),1) )
		Debug.Print( .get_CellCaption(.get_FindItem("A",0,2),1) )
	End With
	.EndUpdate()
End With
1169
How can I prevent expanding/collapsing the child items

' BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
Private Sub Exgrid1_BeforeExpandItem(ByVal sender As System.Object,ByVal Item As Integer,ByRef Cancel As Object) Handles Exgrid1.BeforeExpandItem
	With Exgrid1
		Cancel = Exgrid1.Items.get_ItemParent(Item)
	End With
End Sub

Dim h
With Exgrid1
	.BeginUpdate()
	.SingleSel = False
	.Columns.Add("Default")
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(.InsertItem(h,Nothing,"Child 1.1"),Nothing,"Child")
		.InsertItem(h,Nothing,"Child 1.2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(.InsertItem(h,Nothing,"Child 2.1"),Nothing,"Child")
		.InsertItem(h,Nothing,"Child 2.2")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With
1168
How can I display the EBN bigger or smaller (thumb)

With Exgrid1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(10,"CP:1 0 3 0 -3")
		.Add(17,"CP:1 3 0 -3 0")
	End With
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exHSThumb,&Ha000000)
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exVSThumb,&H11000000)
	.ScrollBars = exontrol.EXGRIDLib.ScrollBarsEnum.exVScrollEmptySpace Or exontrol.EXGRIDLib.ScrollBarsEnum.exHScrollEmptySpace Or exontrol.EXGRIDLib.ScrollBarsEnum.exVScrollOnThumbRelease Or exontrol.EXGRIDLib.ScrollBarsEnum.exHScrollOnThumbRelease Or exontrol.EXGRIDLib.ScrollBarsEnum.exDisableBoth
	.ScrollBySingleLine = True
	.Columns.Add("Def")
	With .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
	End With
	.EndUpdate()
End With
1167
I am using GroupBy feature to create a tree, but the top rows are aligned with the children, not indented. What could be wrong

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub Exgrid1_AddGroupItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgrid1.AddGroupItem
	' AddBar(Item,"Progress", #12/2/2017#,#12/2/2017#)
	' DefineSummaryBars(Item,"", -3, "")
	' Chart.ItemBackColor(Item) = color
	Dim color
	With Exgrid1
		color = 14474460
		With .Items
			.set_ItemDivider(Item,-1)
			.set_CellValue(Item,1,.get_CellCaption(Item,.get_GroupItem(Item)))
			.set_ItemBold(Item,True)
			.set_ItemBackColor(Item,color)
		End With
	End With
End Sub

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgrid1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgrid1.AddItem
	' AddBar(Item,"Task",#12/4/2017#,#12/10/2017#)
	' ItemBar(Item,"", 514)  = ItemToIndex(Item)
	With Exgrid1
		With .Items
		End With
	End With
End Sub

Dim h
With Exgrid1
	.BeginUpdate()
	With .Columns
		.Add("C1")
		.Add("C2")
	End With
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	With .Items
		h = .AddItem("Item A")
		.set_CellValue(h,1,"SubItem A.1")
		h = .AddItem("Item A")
		.set_CellValue(h,1,"SubItem A.1")
		h = .AddItem("Item A")
		.set_CellValue(h,1,"SubItem A.1")
		h = .AddItem("Item A")
		.set_CellValue(h,1,"SubItem A.1")
		h = .AddItem("Item B")
		.set_CellValue(h,1,"SubItem B.1")
		h = .AddItem("Item B")
		.set_CellValue(h,1,"SubItem B.1")
	End With
	.Columns.Item(0).SortOrder = exontrol.EXGRIDLib.SortOrderEnum.SortAscending
	.EndUpdate()
End With
1166
How can I display an item of picture type

Dim h,h1
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.ScrollBySingleLine = False
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.Columns.Add("Artikel").HTMLCaption = "<u>Artikel"
	.Columns.Add("Waarde").HTMLCaption = "<u>Waarde"
	.set_HTMLPicture("T22128","c:\exontrol\images\zipdisk.gif")
	With .Items
		h = .AddItem("T22128-28)2D")
		h1 = .InsertItem(h,Nothing,"<img>T22128:128</img>")
		.set_CellValueFormat(h1,0,exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_ItemHeight(h1,128)
		h1 = .InsertItem(h,Nothing,"werkvoorbereiding")
		.set_CellValue(h1,1,"5.80")
		.set_CellBold(h1,1,True)
		.set_CellValue(.InsertItem(h1,Nothing,"Type"),1,"Eenvoudig")
		.set_CellValue(.InsertItem(h1,Nothing,"Prijs p/uur"),1,"60,00")
		.set_CellValue(.InsertItem(h1,Nothing,"Marhe"),1,"15,00%")
		.set_CellValue(.InsertItem(h1,Nothing,"Insteltijd min."),1,"5,00")
		.set_CellValue(.InsertItem(h1,Nothing,"Aantal"),1,1)
		.set_CellValue(.InsertItem(h1,Nothing,"Kostprije"),1,"5,00")
		.set_ExpandItem(h1,True)
		h1 = .InsertItem(h,Nothing,"materiall")
		.set_CellValue(h1,1,"14.82")
		.set_CellBold(h1,1,True)
		.set_ItemHasChildren(h1,True)
		h1 = .InsertItem(h,Nothing,"snijden")
		.set_CellValue(h1,1,"3.13")
		.set_CellBold(h1,1,True)
		.set_ItemHasChildren(h1,True)
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With
1165
Dark mode

Dim back,fore
With Exgrid1
	.BeginUpdate()
	back = 65536
	fore = 16777215
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" & _
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" & _
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA")
	.VisualAppearance.Add(2,"gBFLBCJwBAEHhEJAAEhABPMIQAAYAQGKIcBiAKBQAGaAoDDcMgwQwAAxjIKUEwsACEIrjKCYVgOHYYQjGMZwHCMIhiGwcAChEZYHgkMYmDAMUhSE78axHG6PY7kKZ4b" & _
"iaKIqQLLEhSfJ0YyBECBZpfebIbjmIZMSLEIxDKItJSpCIaRgqWS6ahGO4JUbUFLQHT9IR4daIYRgEEBA")
	.VisualAppearance.Add(3,"gBFLBCJwBAEHhEJAAEhABUUIQAAYAQGKIcBiAKBQAGaAoDDcMgwQwAAxjIKUEwsACEIrjKCYVgOHYYQjGMZwGAsEwjAoYAChEaILgkMw2DBIQwgJIMEr/G6RZxjeL5C" & _
"jmG4nDhKMpybAcXxjBIYZJgOQpXb+PobTrNNLzfRFAxVAaWJikcZ4HpIAJNVLFdQ0XYMNSBISsBqrKiKcpeIIDWBZMbRZT1ZABCIZBpEW6LahENQwXrCN74DYkNTdKax" & _
"bbuaaXLhGCYBgIA==")
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Bump
	.BackColor = back
	.BackColorHeader = back
	.BackColorLevelHeader = back
	.BackColorSortBar = back
	.BackColorSortBarCaption = back
	.FilterBarBackColor = back
	.FilterBarForeColor = fore
	.ForeColor = fore
	.ForeColorHeader = fore
	.ForeColorSortBar = fore
	.SelBackColor = fore
	.SelForeColor = back
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exHeaderFilterBarButton,&H1000000)
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exToolTipAppearance,&H3000000)
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exToolTipBackColor,back)
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exToolTipForeColor,fore)
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exSelBackColorFilter,fore)
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exSelForeColorFilter,back)
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exBackColorFilter,back)
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exForeColorFilter,fore)
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exSortBarLinkColor,back)
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exScrollSizeGrip,back)
	.set_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarExclude,"<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>")
	.EndUpdate()
End With
1164
I have changed the font, but the item's height remains the same. What I am doing wrong

With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	.LoadXML("http://www.exontrol.net/testing.xml")
	.Font.Size = 22
	.HeaderHeight = 42
	.DefaultItemHeight = 36
	.Items.set_ItemHeight(0,Exgrid1.DefaultItemHeight)
	.EndUpdate()
End With
1163
How can I specify the cell's outline, border or lines around, when the cell gets selected

With Exgrid1
	.BeginUpdate()
	.AttachTemplate("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}")
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH" & _
"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" & _
"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" & _
"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" & _
"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA=")
		.Add(2,"CP:1 -4 0 0 0")
	End With
	.SelBackColor32 = &H2000000
	.SelForeColor = Color.FromArgb(0,0,1)
	.FullRowSelect = exontrol.EXGRIDLib.CellSelectEnum.exColumnSel
	.ShowFocusRect = False
	.DefaultItemHeight = 24
	.HeaderHeight = 24
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exVLines
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		.set_CellValue(.AddItem("Cell 1"),1,"Cell 2")
		.set_CellValue(.AddItem("Cell 3"),1,"Cell 4")
	End With
	.Items.SelectPos = 1
	.SelectColumnIndex = 1
	.EndUpdate()
End With
1162
How can I specify the cell's outline, border or lines around, when the item gets selected

With Exgrid1
	.BeginUpdate()
	.AttachTemplate("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}")
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH" & _
"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" & _
"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" & _
"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" & _
"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA=")
	.SelBackColor32 = &H1000000
	.SelForeColor = Color.FromArgb(0,0,1)
	.ShowFocusRect = False
	.DefaultItemHeight = 24
	.HeaderHeight = 24
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exVLines
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		.set_CellValue(.AddItem("Cell 1"),1,"Cell 2")
		.set_CellValue(.AddItem("Cell 3"),1,"Cell 4")
		.SelectPos = 1
	End With
	.EndUpdate()
End With
1161
How can I specify the cell's outline, border or lines around

Dim h
With Exgrid1
	.BeginUpdate()
	.AttachTemplate("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}")
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH" & _
"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" & _
"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" & _
"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" & _
"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA=")
	.SelBackMode = exontrol.EXGRIDLib.BackModeEnum.exTransparent
	.ShowFocusRect = False
	.DefaultItemHeight = 24
	.HeaderHeight = 24
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exVLines
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		.set_CellValue(.AddItem("Cell 1"),1,"Cell 2")
		h = .AddItem("Cell 2")
		.set_CellValue(h,1,"Cell 3")
		.set_CellBackColor32(h,1,&H1000000)
	End With
	.EndUpdate()
End With
1160
Is it possible to highligth the match while a filter is applied

' AddColumn event - Fired after a new column has been added.
Private Sub Exgrid1_AddColumn(ByVal sender As System.Object,ByVal Column As exontrol.EXGRIDLib.Column) Handles Exgrid1.AddColumn
	' Column.Def(17) = 1
End Sub

' FilterChange event - Occurs when filter was changed.
Private Sub Exgrid1_FilterChange(ByVal sender As System.Object) Handles Exgrid1.FilterChange
	Dim format
	With Exgrid1
		format = .FormatABC("`value replace '` + value + `' with '<bgcolor 000000><fgcolor FFFFFF>` + value  + `</fgcolor></bgcolor>'`",.FilterBarPromptPattern)
		.Columns.Item(0).FormatColumn = format
		.Columns.Item(1).FormatColumn = format
	End With
End Sub

With Exgrid1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exVLines
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	.Columns.Add("Col 1")
	.Columns.Add("Col 2")
	With .Items
		.set_CellValue(.AddItem("219 Smith"),1,"Ignacio 1234")
		.set_CellValue(.AddItem("1666 County Road 309A"),1,"897 Manassa")
		.set_CellValue(.AddItem("38 Lone Pine"),1,"Durango 11")
		.set_CellValue(.AddItem("612 Jachim Street"),1,"Lamar 222")
	End With
	.FilterBarPromptPattern = "1"
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = exontrol.EXGRIDLib.FilterPromptEnum.exFilterPromptCaseSensitive Or exontrol.EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAll
	.EndUpdate()
End With
1159
How can I replace the cell's context menu ( while edit mode is running )

' RClick event - Fired when right mouse button is clicked
Private Sub Exgrid1_RClick(ByVal sender As System.Object) Handles Exgrid1.RClick
	With Exgrid1
		Debug.Print( "Edit Mode: " )
		Debug.Print( .Editing )
		' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
		With New exontrol.EXCONTEXTMENULib.excontextmenu()
			.Items.ToString = "Check[chk],[sep],Item 1,Item 2,Item 3,Popup(A,B,C)"
			Debug.Print( .Select() )
		End With
	End With
End Sub

With Exgrid1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Flat
	With .Columns.Add("Column").Editor
		.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
		.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exEditAllowContextMenu,False)
	End With
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
	End With
	.EndUpdate()
End With
1158
Is it possible to highlight the column's header once a filter is applied (sample 2)

Dim h
With Exgrid1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABO8GACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwQgmNYDSBMcbwS" & _
"AsXRYFocJ5gOT6AjKBA2UclEZpajiTY3ABUEgUS5oOBIACqariaQJAAiCRQGiYZyHKaRSwPBKFYDIIjbJheTIDChNVxUcDENQjJqLBIDRzbarye59YBfeBXdgmA4LQbD" & _
"MRwNgMMQTDqKYbkOQZHbeGKAWTMEZzJj8cxTEqIaBhGTLfojSZMS7UGK1LLtMyHI6kP7sOiLfi2W4/W7XV72F79TzXIa2ZBuO57bhnAZ/VzGNj4PRNezfRqicjsGxcZw" & _
"Xg+TpQj0ew6gSOw7wSbozjsfYXi8PwMnSc52leHotl+MxjmoXh2nybxOH+SQtnYXx+D2P4vGMB56hQf5PCgBYeDwYBCEo1xggebgKH6IIDBYBgkiAQ5FgYPAhEIRgWGq" & _
"DBoC4GoCiGCBYhGBQPAWdIQp0eIUiWCZigiJgqgqYpIioJQhmIMhBH0NxjEMag2g2Y4ImYOoOmOSJeDQNxXlOLR3ECUAQICA=")
		.Add(2,"gBFLBCJwBAEHhEJAAEhABgsHQAAYAQGKIcBiAKBQAGaAoDDYNwwQwAAxDAKcEwsACEIrjKCRShyCYZRrGUgRCKQahLEiTIhGUYJHgmK4tRoAUgxWCEExrAaQJjjeCQF" & _
"i6LAtDhPMByfQEZQIGyjkgjNLUcSbG4AKgkCiXfpUAJVP7FcgSABEEigNIxToOU4jFgeCYLQKQRK2RC9GQGFCbLhpYKIahGTYWVheN5XXblez9P7ABQwKCcAwXBp7YIK" & _
"AT4XBIdYdQ7IL4xGA0AJPFoJC7mOQ5XiYAIBAZ/RL0LCcbxHHafVboQj6JouD5PUDVNY1XBdPynI6CbLhWy6Dq4UZzPwzeBifSHfDjRoJcCZe71KY3GwSEboNA6Kp+QB" & _
"HAmZoZjSPYIEiF47lOLJVnuYofBwJJHmaQoYj0MIRHeM4/m6cJ8B+fpBHQJ5SGKPYYH8OYMk+P5Bn4fxaAYZAvEIX4RgUWBGgCCAmAqApgkgNgOgMEYlGASoEkQeBWBa" & _
"BZhggZgagaYRoEwShWA6NZZAMQBAICA==")
	End With
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exHeaderFilterBarButton,&H1000000)
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exHeaderFilterBarActive,&H2000000)
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.HeaderHeight = 28
	.BackColorHeader = Color.FromArgb(255,255,255)
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exRowLines
	.HeaderVisible = True
	With .Columns
		.Add("C1").DisplayFilterButton = True
		With .Add("C2")
			.DisplayFilterButton = True
			.Filter = "Item 2"
			.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
		End With
		.Add("C3").DisplayFilterButton = True
	End With
	With .Items
		h = .AddItem("Item 1")
		.set_CellValue(h,1,"Item 2")
		.set_CellValue(h,2,"Item 3")
		h = .AddItem("Item 4")
		.set_CellValue(h,1,"Item 5")
		.set_CellValue(h,2,"Item 6")
	End With
	.ApplyFilter()
	.EndUpdate()
End With
1157
How can I make the expand/collapse glyphs DPI aware

Dim h,size
With Exgrid1
	size = 2
	.BeginUpdate()
	With .VisualAppearance
		.Add(3,"gBFLBCJwBAEHhEJAAEhEGAUHQAAYAQGKIcBiAKBQAGaAoDDYOA4QwAAxDAKcEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBRfIUEghGyNZjgNzQc" & _
"CQAI8T5IUgARBJIDSMY6DpOIxYHgmC4DEITNLxOK0EhRHCBZrgOCAYhqEY1Ro+dhPFYjVTMdK0LRtKy7Mq2aJmOpZDxWE7dZKpO5fbxXS67cr2fp/YBed4rfa7KTlOBK" & _
"cRQRBEFQPDqPZBkORZHh2FoLRJKbgtHJmHYNQWhVyYBbNCyTI6lahpeuHBx1QaWWxjbCMEr6bpoWLbFi3Ha1UzrPa8b5vSw7Gr+HzYQTHGPXGqaYJdZrnea6B7+U5XUJ" & _
"rnSOZciYHwhAeR5HDK+JVGqKRRmScx5HyfRei+H5bmmcp4Fi8o/CGGJKGQKZUGoFQigUPIiCeSZXnyHB6l0SAJn8JxfkIeZ5CgXxjCCAhyB8QgIlAM4MlKAIcCaIBIGY" & _
"GoGGEYhqBMMxgnICgRDUDQjESGwmAkWBuCqBoiHIVgkDQYgYESWg2E0YhohcJQigITg3CQSRyEyEYGGOWJwhQJD4FiFIMk0aJFGsIBkkOBJeDc+AchYJwJgIWhSgYZQp" & _
"FIVoVGOGQ4l2EwIBWMhgDmDhThCEwkAiaJchKDhjhgZhsCUY4iFCEoZkiaYQmSGAWhWQhgDuDpTjCDQiEgchAg0IpJBoDoFiEKBqCaCAimgIguH8IZnkPUhcBcJg+hGJ" & _
"ZnloYJsiaKZKGa24YnWSR0CkKhCA2CxlCqColhAYpqEKER0DqVZ0A0ASAgA==")
		.Add(4,"gBFLBCJwBAEHhEJAAEhABAQCg6AADACAxRDgMQBQKAAzQFAYbBwHCGAAGIYBTgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACjeQYJBCNYbTJAbqhY" & _
"IgAR3HqQZABCCSQKkYx0HScRiwPBMFwGIQmaaicZoJCiN4DTZAcIBRDUIxpDR9bBeKw3KqVaZnWhaNpWXZlTzKdSxXisF67RZSdi/XgvF5XXblez9P69LwXe5mUrGbyV" & _
"YghCCIKgeG4dR7IMhyLDcKQXCCVW7aGSsOwbAqAXpdGAXTQdDyLJKnaZqOi6BjjA4rNbHGIYJb1XTRMa1LJuG5LJrOeZ3Xre4BLfh1VoFRpjWIYNY1QS7TLOczzfRdDx" & _
"TiGVpkjCeJoD4Ng1hSRxiisVRKg8D4PkWZJznmPQ+F8Xx5guWpjHGWYMiYQodEaIRSCgU5KCSeh3naHB/iAAh9n8fwfgIeZ1CgXwjCCAhxl8AgIlAM4MlKAIcCaD54FY" & _
"FoFmGCBmBaBIJigPJNgKSAoDSVC+BIbIYCUYYoiYKoJgkWIMlGCAglMaJZDWCYiFyFIJkkOJYhEJc7G4PYPCOaJshQJBjgiVIUgyDRokEaggGSQ4El4N1CBiFgnAmAha" & _
"FKFZlFkShUhWJRYmITg3GSQgFGuGBOGOFJkCSSQCDoNgkiOCY0hUJJmmmQhvhqZtYmUOQmBWIRvhgTpjjSbAjEiEgchBZgyEaBIhigWgegqIhIjoDILiACB5nTL5WnWR" & _
"YOiSKYJnqGQ7CmOh2hqJ5OkYORxFyShKhSAxihkOomioY5YiqFIkFyTo1HkAxAEAgIA==")
		.Add(1,Exgrid1.FormatABC("`CP:3 -` + int(value*dpi) + ` -` + int(value*dpi) + ` ` +  int(value*dpi) + ` ` + int(value*dpi)",size))
		.Add(2,Exgrid1.FormatABC("`CP:4 -` + int(value*dpi) + ` -` + int(value*dpi) + ` ` +  int(value*dpi) + ` ` + int(value*dpi)",size))
	End With
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesAtRoot
	.HasButtons = exontrol.EXGRIDLib.ExpandButtonEnum.exCustom
	.set_HasButtonsCustom(False,16777216)
	.set_HasButtonsCustom(True,33554432)
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child")
	End With
	.EndUpdate()
End With
1156
Is it possible to highlight the column's header once a filter is applied (sample 1)

Dim h
With Exgrid1
	.BeginUpdate()
	With .VisualAppearance
		.Add(2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgAN" & _
"J0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8Y" & _
"NYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4" & _
"hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mg" & _
"bhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhW" & _
"BMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=")
		.Add(1,"CP:2 -8 -4 2 4")
	End With
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exHeaderFilterBarButton,&H1fefefe)
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exHeaderFilterBarActive,&H1010101)
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.HeaderHeight = 28
	.BackColorHeader = Color.FromArgb(255,255,255)
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exRowLines
	.HeaderVisible = True
	With .Columns
		.Add("C1").DisplayFilterButton = True
		With .Add("C2")
			.DisplayFilterButton = True
			.Filter = "Item 2"
			.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
		End With
		.Add("C3").DisplayFilterButton = True
	End With
	With .Items
		h = .AddItem("Item 1")
		.set_CellValue(h,1,"Item 2")
		.set_CellValue(h,2,"Item 3")
		h = .AddItem("Item 4")
		.set_CellValue(h,1,"Item 5")
		.set_CellValue(h,2,"Item 6")
	End With
	.ApplyFilter()
	.EndUpdate()
End With
1155
How do I update itemcount and matchitemcount of the FilterBarCaption after I added the item using the AddItem method
' Click event - Occurs when the user presses and then releases the left mouse button over the grid control.
Private Sub Exgrid1_Click(ByVal sender As System.Object) Handles Exgrid1.Click
	With Exgrid1
		.Items.AddItem("new")
		.Refresh()
	End With
End Sub

With Exgrid1
	.BeginUpdate()
	With .Columns.Add("Item")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowExclude Or exontrol.EXGRIDLib.FilterListEnum.exShowFocusItem Or exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox Or exontrol.EXGRIDLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarCaption = "`<r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1" & _
") + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )"
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate()
End With
1154
I can't get values in the column properly centered. What can be the problem

With Exgrid1
	.BeginUpdate()
	.TreeColumnIndex = -1
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exRowLines
	With .Columns.Add("Default")
		.Alignment = exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment
		.FormatColumn = "ltrim(rtrim(value))"
	End With
	.Items.AddItem("item 1            ")
	.Items.AddItem("             item 2")
	.Items.AddItem("   item 3                ")
	.EndUpdate()
End With
1153
The Edit method does not work while ReadOnly property is exLocked and the first column is hidden. Is there any fix

' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub Exgrid1_DblClick(ByVal sender As System.Object,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exgrid1.DblClick
	Dim c,hit,var_ItemFromPoint
	With Exgrid1
		var_ItemFromPoint = .get_ItemFromPoint(-1,-1,c,hit)
		.FocusColumnIndex = c
		.Edit()
	End With
End Sub

With Exgrid1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	.AutoEdit = False
	.ReadOnly = exontrol.EXGRIDLib.ReadOnlyEnum.exLocked
	.AutoSearch = True
	.Columns.Add("").Visible = False
	With .Columns.Add("Contains")
		.AutoSearch = exontrol.EXGRIDLib.AutoSearchEnum.exContains
		.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
	End With
	With .Items
		.set_CellValue(.AddItem(),1,"Tom Hanks")
		.set_CellValue(.AddItem(),1,"Leonardo DiCaprio")
		.set_CellValue(.AddItem(),1,"Will Smith")
		.set_CellValue(.AddItem(),1,"Tom Cruise")
	End With
	.EndUpdate()
End With
1152
How can I enable the Undo/Redo feature

Dim h
With Exgrid1
	.BeginUpdate()
	.AllowUndoRedo = True
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	With .Columns.Add("P1")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .Columns.Add("P2")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		.AddItem("Press CTRL + Z for Undo, and CTRL + Y for Redo")
	End With
	.EndUpdate()
End With
1151
The incremental search feature is no working for columns with editor assigned. What can be done

' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub Exgrid1_DblClick(ByVal sender As System.Object,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exgrid1.DblClick
	With Exgrid1
		.Edit()
	End With
End Sub

With Exgrid1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	.AutoEdit = False
	.AutoSearch = True
	With .Columns.Add("Contains")
		.AutoSearch = exontrol.EXGRIDLib.AutoSearchEnum.exContains
		.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
	End With
	With .Items
		.AddItem("Tom Hanks")
		.AddItem("Leonardo DiCaprio")
		.AddItem("Will Smith")
		.AddItem("Tom Cruise")
	End With
	.EndUpdate()
End With
1150
Each item is representated by a key as string. Is it possible to have a drop down editor to display more information when using the item's key

With Exgrid1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	With .Columns.Add("Multiple-Columns Tree DropDownListType").Editor
		.EditType = exontrol.EXGRIDLib.EditTypeEnum.DropDownListType
		.AddItem(0,"KR|Korea, Republic of")
		.AddItem(1,"MO|Macao")
		.AddItem(2,"SA|Saudi Arabia")
		.AddItem(3,"EG|Egypt")
		.AddItem(4,"GB|United Kingdom")
		.AddItem(5,"GT|Guatemala")
		.AddItem(6,"SR|Suriname")
		.AddItem(7,"BM|Bermuda")
	End With
	With .Items
		.AddItem("EG")
		.AddItem("GB")
		.AddItem("BM")
	End With
	.EndUpdate()
End With
1149
My table includes codes/keys for items, can I display a drop down editor to include more information

With Exgrid1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	With .Columns.Add("Multiple-Columns DropDownListType").Editor
		.EditType = exontrol.EXGRIDLib.EditTypeEnum.DropDownListType
		.DropDownAutoWidth = exontrol.EXGRIDLib.DropDownWidthType.exDropDownEditorWidth
		.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exDropDownColumnCaption,"City¦Coordinates¦State")
		.AddItem(0,"JV3|Jollyville¦3026N 09746W¦Texas")
		.AddItem(1,"TMO|Altamont¦4021N 11017W¦Utah")
		.AddItem(2,"IIM|Williamston¦4241N 08417W¦Michigan")
		.AddItem(3,"IWN|Merrittstown¦3958N 07952W¦Pennsylvania")
		.AddItem(4,"HOU|Houston¦2945N 09521W¦Texas")
		.AddItem(5,"GSF|Gales Ferry¦4125N 07205W¦Connecticut")
	End With
	With .Items
		.AddItem("HOU")
		.AddItem("IIM")
		.AddItem("TMO")
	End With
	.EndUpdate()
End With
1148
How can I display and select from a multiple-columns tree editor

With Exgrid1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	With .Columns.Add("Multiple-Columns Tree DropDownListType").Editor
		.EditType = exontrol.EXGRIDLib.EditTypeEnum.DropDownListType
		.DropDownAutoWidth = exontrol.EXGRIDLib.DropDownWidthType.exDropDownEditorWidth
		.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exDropDownColumnCaption,"Name¦Title¦City¦Phone")
		.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exDropDownColumnWidth,"224¦¦¦96")
		.AddItem(1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1)
		.AddItem(2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2)
		.InsertItem(3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3,2)
		.InsertItem(4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3,2)
		.InsertItem(5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2,2)
		.InsertItem(6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1,5)
		.InsertItem(7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2,2)
		.InsertItem(8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3,2)
		.InsertItem(9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2,5)
		.ExpandAll()
	End With
	With .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(4)
	End With
	.EndUpdate()
End With
1147
Does you control support multiple-columns for a drop down editor

With Exgrid1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	With .Columns.Add("Multiple-Columns DropDownListType").Editor
		.EditType = exontrol.EXGRIDLib.EditTypeEnum.DropDownListType
		.DropDownAutoWidth = exontrol.EXGRIDLib.DropDownWidthType.exDropDownEditorWidth
		.AddItem(0,"Jollyville¦JV3¦3026N 09746W¦TX")
		.AddItem(1,"Altamont¦TMO¦4021N 11017W¦UT")
		.AddItem(2,"Williamston¦IIM¦4241N 08417W¦MI")
		.AddItem(3,"Merrittstown¦IWN¦3958N 07952W¦PA")
		.AddItem(4,"Houston¦HOU¦2945N 09521W¦TX")
		.AddItem(5,"Gales Ferry¦GSF¦4125N 07205W¦CT")
	End With
	With .Items
		.InsertItem(0,"",1)
		.InsertItem(0,"",2)
		.InsertItem(0,"",4)
	End With
	.EndUpdate()
End With
1146
Is it possible to show the filterbar on top of the rows

With Exgrid1
	.BeginUpdate()
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarTop
	.HeaderHeight = 24
	.FilterBarHeight = .HeaderHeight
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Flat
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exAllLines
	.GridLineStyle = exontrol.EXGRIDLib.GridLinesStyleEnum.exGridLinesGeometric
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exPattern
		.Filter = "B*"
	End With
	With .Columns.Add("Index")
		.FormatColumn = "1 index ``"
		.Position = 0
		.Width = 48
		.AllowSizing = False
		.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
	End With
	With .Items
		.AddItem("A.1")
		.AddItem("A.2")
		.AddItem("B.1")
		.AddItem("B.2")
		.AddItem("B.3")
		.AddItem("C")
	End With
	.ApplyFilter()
	.EndUpdate()
End With
1145
DragDrop (with visual effect)

// OLEDragDrop event is not supported. Use the DragEnter,DragLeave,DragOver, DragDrop ... events.
// OLEStartDrag event is not supported. Use the DragEnter,DragLeave,DragOver, DragDrop ... events.
Dim h
With Exgrid1
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABPUIQAAYAQGKIcBiAKBQAGaAoDgYN4MAANAwjJBMKgBBCLIxhEYobgmGIaRjEEQDCKYcxHCaIBiGcaIfDEBIeSBHcgRbAcOQHGSZZBhGRJG" & _
"juKIbSrLICzBDUcRnGwAKQoaaaEomHwyAZOYwDAIoWhpKKCKjqWJKNb+XgAAJTES0RRVRTNAZ1YghGAQgIA==")
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exListOLEDropPosition,&H1000000)
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exDragDropBefore,Color.FromArgb(0,0,0))
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exDragDropAfter,Color.FromArgb(255,255,255))
	.OLEDropMode = exontrol.EXGRIDLib.exOLEDropModeEnum.exOLEDropManual
	.AutoDrag = exontrol.EXGRIDLib.AutoDragEnum.exAutoDragPositionAnyOnRight
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.Indent = 16
	.SelBackMode = exontrol.EXGRIDLib.BackModeEnum.exTransparent
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
	End With
	Debug.Print( "You can:" )
	Debug.Print( "A) left-click to drag and drop items between controls (open a new exhelper and run the same sample)" )
	Debug.Print( "B) right-click to re-arrange the item position inside the same control" )
	Debug.Print( "This sample shows how you can insert the data being dropped as a child of the item being hovered." )
End With
1144
DragDrop (with no visual effect, hide item while drag and drop)

// OLEDragDrop event is not supported. Use the DragEnter,DragLeave,DragOver, DragDrop ... events.
// OLEStartDrag event is not supported. Use the DragEnter,DragLeave,DragOver, DragDrop ... events.
Dim h
With Exgrid1
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exDragDropBefore,Color.FromArgb(0,0,0))
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exDragDropAfter,Color.FromArgb(255,255,255))
	.OLEDropMode = exontrol.EXGRIDLib.exOLEDropModeEnum.exOLEDropManual
	.AutoDrag = exontrol.EXGRIDLib.AutoDragEnum.exAutoDragPositionAnyOnRight
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.Indent = 16
	.SelBackMode = exontrol.EXGRIDLib.BackModeEnum.exTransparent
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
	End With
	Debug.Print( "You can:" )
	Debug.Print( "A) left-click to drag and drop items between controls (open a new exhelper and run the same sample)" )
	Debug.Print( "B) right-click to re-arrange the item position inside the same control" )
	Debug.Print( "This sample shows how you can insert the data being dropped as a child of the item being hovered." )
End With
1143
DragDrop

// OLEDragDrop event is not supported. Use the DragEnter,DragLeave,DragOver, DragDrop ... events.
// OLEStartDrag event is not supported. Use the DragEnter,DragLeave,DragOver, DragDrop ... events.
Dim h
With Exgrid1
	.OLEDropMode = exontrol.EXGRIDLib.exOLEDropModeEnum.exOLEDropManual
	.AutoDrag = exontrol.EXGRIDLib.AutoDragEnum.exAutoDragPositionAnyOnRight
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.Indent = 16
	.SelBackMode = exontrol.EXGRIDLib.BackModeEnum.exTransparent
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
	End With
	Debug.Print( "You can:" )
	Debug.Print( "A) left-click to drag and drop items between controls (open a new exhelper and run the same sample)" )
	Debug.Print( "B) right-click to re-arrange the item position inside the same control" )
	Debug.Print( "This sample shows how you can insert the data being dropped as a child of the item being hovered." )
End With
1142
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header (non-clickable)

With Exgrid1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	With .Columns
		.Add("Item")
		With .Add("Pos")
			.Position = 0
			.Width = 32
			.AllowSizing = False
			.FormatColumn = "1 index ``"
			.AllowSort = False
			.AllowDragging = False
		End With
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.EndUpdate()
End With
1141
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header

With Exgrid1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	With .Columns
		.Add("Item")
		With .Add("Pos")
			.Position = 0
			.Width = 32
			.AllowSizing = False
			.FormatColumn = "1 index ``"
			.AllowSort = False
			.AllowDragging = False
		End With
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.EndUpdate()
End With
1140
Is it possible to exclude the parent/child items when do the filtering, so to include only items that match the filter without any indentation

' FilterChange event - Occurs when filter was changed.
Private Sub Exgrid1_FilterChange(ByVal sender As System.Object) Handles Exgrid1.FilterChange
	With Exgrid1
		.Indent = Exgrid1.FormatABC("value > 0 ? 18 : 0",.Items.MatchItemCount)
	End With
End Sub

Dim h,h2
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.Indent = 18
	.FilterInclude = exontrol.EXGRIDLib.FilterIncludeEnum.exMatchingItemsOnly
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exVLines
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Flat
	With .Columns
		With .Add("Column")
			.DisplayFilterButton = True
			.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
			.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox
			.Filter = "C1"
		End With
		With .Add("Pos")
			.FormatColumn = "1 rindex ``"
			.Position = 0
			.AllowSizing = False
			.AllowDragging = False
		End With
	End With
	With .Items
		h = .AddItem("R1")
		h2 = .InsertItem(h,Nothing,"S")
		.InsertItem(h2,Nothing,"C1")
		.InsertItem(h2,Nothing,"C2")
		.InsertItem(h,Nothing,"C1")
		.InsertItem(h,Nothing,"C2")
		.set_ExpandItem(h,True)
		h = .AddItem("R2")
		.InsertItem(h,Nothing,"C1")
		.InsertItem(h,Nothing,"C2")
	End With
	.ApplyFilter()
	.EndUpdate()
End With
1139
How can I display the total/sum/aggregate in the same column, when the user groups by a column

' AddColumn event - Fired after a new column has been added.
Private Sub Exgrid1_AddColumn(ByVal sender As System.Object,ByVal Column As exontrol.EXGRIDLib.Column) Handles Exgrid1.AddColumn
	With Exgrid1
		With Column
		End With
	End With
End Sub

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub Exgrid1_AddGroupItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgrid1.AddGroupItem
	With Exgrid1
		With .Items
			.set_ItemDivider(Item,-1)
			.set_ItemBackColor(Item,Exgrid1.BackColorSortBar)
			.set_ItemHeight(Item,Exgrid1.HeaderHeight)
			.set_CellMerge(Item,0,"1,2,3,4,5,7,8,9,10,11,12")
			.set_CellValue(Item,13,"count(current,rec,1)")
			.set_CellValueFormat(Item,13,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
			.set_CellValue(Item,0,.get_CellCaption(Item,.get_GroupItem(Item)))
			.set_FormatCell(Item,0,"`<b>` + value + `</b> <font ;7><off 3><fgcolor=808080>(` + %13 +  `)`")
			.set_CellValue(Item,6,"sum(current,all,dbl(%6))")
			.set_CellValueFormat(Item,6,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
			.set_CellForeColor(Item,6,Color.FromArgb(102,102,102))
		End With
	End With
End Sub

' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer,ByRef NewValue As Object) Handles Exgrid1.Change
	With Exgrid1
		.Refresh()
	End With
End Sub

Dim hL,rs
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
	.Indent = 12
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	.BackColorSortBar = Color.FromArgb(240,240,240)
	.AutoDrag = exontrol.EXGRIDLib.AutoDragEnum.exAutoDragScroll
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.HeaderHeight = 24
	With .Columns
		.Add("Count").Visible = False
		With .Item("Freight")
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellBackColor,Exgrid1.BackColorSortBar)
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exHeaderBackColor,.get_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellBackColor))
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellPaddingRight,4)
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellPaddingLeft,4)
			.HeaderBold = True
			.AllowGroupBy = False
			.FormatColumn = "value format ``"
			.Alignment = exontrol.EXGRIDLib.AlignmentEnum.RightAlignment
		End With
		With .Item(0)
			.AllowGroupBy = False
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
		End With
		.Item("ShipCountry").SortOrder = exontrol.EXGRIDLib.SortOrderEnum.SortAscending
	End With
	.ScrollBySingleLine = False
	With .Items
		.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exBottom,1)
		hL = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exBottom,0)
		.set_ItemHeight(hL,24)
		.set_ItemBold(hL,True)
		.set_ItemBackColor(hL,Exgrid1.BackColorSortBar)
		.set_CellValue(hL,6,"sum(all,rec,dbl(%6))")
		.set_CellValueFormat(hL,6,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_CellHAlignment(hL,6,exontrol.EXGRIDLib.AlignmentEnum.RightAlignment)
		.set_FormatCell(hL,6,"value format ``")
	End With
	.EndUpdate()
End With
1138
I would like to display a solid line between "root" items, and dotted lines (default) between child items. How can I do that

Dim h
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exHLines
	.GridLineStyle = exontrol.EXGRIDLib.GridLinesStyleEnum.exGridLinesGeometric
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABMsIQAAYAQGKIcBiAKBQAGaAoDgYN4MAANAwjJBMKgBBCLIxhEYobgmGIXRpFMbxAKQahLEiTIgGUYJHgmK4tQLHb7zGAABRDDSOIDnGQJX" & _
"haI4JQSMMQDGLAZxVFiPRhAWLpBh+PQATrOdLUfSjVwhBKAQEBA==")
	With .Columns.Add("Default")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .Columns.Add("Position")
		.FormatColumn = "((1 rindex ``) contains `.`) = 0"
		.Visible = False
	End With
	With .ConditionalFormats.Add("%C1")
		.BackColor32 = &H1e0e0e0
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		h = .AddItem("Root 3")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With
1137
I can not center or align the cell's caption and icon, when it displays the hierarchy

Dim h,hChild
With Exgrid1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("Tasks")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
	End With
	.HeaderVisible = True
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,Nothing,"<img>1</img> Task (left)")
		hChild = .InsertItem(h,Nothing,"<c><img>2</img> Task (center)")
		hChild = .InsertItem(h,Nothing,"<r>Task (right) <img>3</img>")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With
1136
How do I mask for float/integer number

Dim h
With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = True
	.Columns.Add("Type").Width = 32
	.Columns.Add("Editor")
	With .Items
		h = .AddItem("Integer")
		.set_CellValue(h,1,"12")
		With .get_CellEditor(h,1)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
			.Numeric = exontrol.EXGRIDLib.NumericEnum.exInteger
		End With
		h = .AddItem("Integer (mask, group)")
		.set_CellValue(h,1,"10002")
		.set_FormatCell(h,1,"value format `0||`")
		With .get_CellEditor(h,1)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.MaskType
			.Mask = ";;;float,digits=0,invalid=empty,warning=invalid character"
		End With
		h = .AddItem("Integer (mask, no group)")
		.set_CellValue(h,1,"10002")
		.set_FormatCell(h,1,"value format `0|0|`")
		With .get_CellEditor(h,1)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.MaskType
			.Mask = ";;;float,digits=0,grouping=,invalid=empty,warning=invalid character"
		End With
		h = .AddItem("Float")
		.set_CellValue(h,1,"+12.34E+2")
		With .get_CellEditor(h,1)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
			.Numeric = exontrol.EXGRIDLib.NumericEnum.exFloat
		End With
		h = .AddItem("Float (no signs)")
		.set_CellValue(h,1,"12.34E-2")
		With .get_CellEditor(h,1)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
			.Numeric = exontrol.EXGRIDLib.NumericEnum.exDisableSigns Or exontrol.EXGRIDLib.NumericEnum.exFloat
		End With
		h = .AddItem("Float-Integer")
		.set_CellValue(h,1,"+12.34")
		With .get_CellEditor(h,1)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
			.Numeric = exontrol.EXGRIDLib.NumericEnum.exFloatInteger
		End With
		h = .AddItem("Float-Integer (no signs)")
		.set_CellValue(h,1,"12.34")
		With .get_CellEditor(h,1)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
			.Numeric = exontrol.EXGRIDLib.NumericEnum.exDisableSigns Or exontrol.EXGRIDLib.NumericEnum.exFloatInteger
		End With
		h = .AddItem("Float (mask,group)")
		.set_CellValue(h,1,"10002.34")
		.set_FormatCell(h,1,"value format `2`")
		With .get_CellEditor(h,1)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.MaskType
			.Mask = ";;;float,invalid=empty,warning=invalid character"
		End With
		h = .AddItem("Float (mask, no group)")
		.set_CellValue(h,1,"10002.34")
		.set_FormatCell(h,1,"value format `2|0|`")
		With .get_CellEditor(h,1)
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.MaskType
			.Mask = ";;;float,grouping=,invalid=empty,warning=invalid character"
		End With
	End With
	.EndUpdate()
End With
1135
How do I set an extra data for each item
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exgrid1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exgrid1.MouseMoveEvent
	Dim c,hit,i
	With Exgrid1
		i = .get_ItemFromPoint(-1,-1,c,hit)
		Debug.Print( i )
		Debug.Print( .Items.get_ItemData(i) )
	End With
End Sub

With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = True
	.Columns.Add("Default")
	With .Items
		.set_ItemData(.AddItem("method 1"),"your extra data of method 1")
		.InsertItem(0,"your extra data of method 2","method 2")
	End With
	With .Items
		.DefaultItem = .AddItem("method 3")
		.set_ItemData(0,"your extra data of method 3")
	End With
	.EndUpdate()
End With
1134
I do not like to specify the item padding for every column I add. The question is how can I do it automatically

With Exgrid1
	.BeginUpdate()
	.AttachTemplate("handle AddColumn(Column){Column{Def(48)=8;Def(49)=8;AllowDragging=False;AllowSizing = True}}")
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exAllLines
	.GridLineStyle = exontrol.EXGRIDLib.GridLinesStyleEnum.exGridLinesVSolid
	With .Columns
		.Add("Item")
		With .Add("Pos")
			.Position = 0
			.Width = 32
			.AllowSizing = False
			.FormatColumn = "1 index ``"
		End With
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.EndUpdate()
End With
1133
How can I change the Exclude field in the drop down filter window

Dim h
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.set_HTMLPicture("exclude","gCJKBOI4NBQaBQAhQNJJIIhShQACERCAEAcRdrdcUQhQDOZCJJUBEjbbhJ7giIJOBILJziJvl4BeKibhDiIZOhFLB0KZvMx0O5hORlAB3owuNJuNZzMZhOBlFxvORnT" & _
"buHgaiIeKBMKhFf9fDIcEoPCAVEAlGI4HhBBYMCARCQVGg4IhVMCAWC2XY1Q7WJ8RBB0KROKYAYDBbzicjndD6fA/VsRHRJIhBkRbMYIGwGAQjA2fRYOEBoYjBFBx1AT" & _
"CgCGQ8M7OTjSaJMDRDKIwYu5DrIMBgSAADKJTqhBhyRApAA3FAucZPPilokRJJFJxEVxCMCCgIA==")
	.set_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarExclude,"<img>exclude</img>")
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowExclude Or exontrol.EXGRIDLib.FilterListEnum.exShowFocusItem Or exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
	End With
	.EndUpdate()
End With
1132
How can I change the Exclude field in the drop down filter window

Dim h
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.set_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarExclude,"<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>")
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowExclude Or exontrol.EXGRIDLib.FilterListEnum.exShowFocusItem Or exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
	End With
	.EndUpdate()
End With
1131
The grid lines looks different then before. What should I do

Dim h,hChild
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exAllLines
	.GridLineStyle = exontrol.EXGRIDLib.GridLinesStyleEnum.exGridLinesGeometric
	With .Columns.Add("Tasks")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	.HeaderVisible = True
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,Nothing,"Task 1")
		.set_SelectItem(hChild,True)
		hChild = .InsertItem(h,Nothing,"Task 2")
		.set_CellState(hChild,0,1)
		hChild = .InsertItem(h,Nothing,"Task 3")
		.set_CellState(hChild,0,1)
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With
1130
Can I sort the column by check-state

With Exgrid1
	.BeginUpdate()
	With .Columns.Add("Check")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
		.SortType = exontrol.EXGRIDLib.SortTypeEnum.exSortByState
	End With
	With .Items
		.AddItem()
		.set_CellState(.AddItem(),0,1)
		.set_CellState(.AddItem(),0,1)
		.AddItem()
	End With
	.Columns.Item(0).SortOrder = exontrol.EXGRIDLib.SortOrderEnum.SortAscending
	.EndUpdate()
End With
1129
Can I sort the column by image

With Exgrid1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("Image")
		.SortType = exontrol.EXGRIDLib.SortTypeEnum.exSortByImage
	End With
	With .Items
		.set_CellImage(.AddItem(),0,3)
		.AddItem()
		.set_CellImage(.AddItem(),0,1)
		.set_CellImage(.AddItem(),0,2)
	End With
	.Columns.Item(0).SortOrder = exontrol.EXGRIDLib.SortOrderEnum.SortAscending
	.EndUpdate()
End With
1128
Can I sort the column by value(numeric)

With Exgrid1
	.BeginUpdate()
	With .Columns.Add("Value")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
		.FormatColumn = "`<fgcolor=808080><off 4><font ;6> ` + (1 index ``)  + ` </font></off></fgcolor>` + value"
		.SortType = exontrol.EXGRIDLib.SortTypeEnum.exSortByValue Or exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
	End With
	With .Items
		.AddItem("1")
		.AddItem("10")
		.AddItem("2")
		.AddItem("20")
	End With
	.Columns.Item(0).SortOrder = exontrol.EXGRIDLib.SortOrderEnum.SortAscending
	.EndUpdate()
End With
1127
Can I sort a column by cell's state (checked, unchecked) rather than caption

With Exgrid1
	.BeginUpdate()
	With .Columns.Add("Check")
		With .Editor
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.CheckValueType
			.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exCheckValue2,1)
		End With
		.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
	End With
	With .Items
		.AddItem(True)
		.AddItem(False)
		.AddItem(False)
		.AddItem(True)
	End With
	.Columns.Item(0).SortOrder = exontrol.EXGRIDLib.SortOrderEnum.SortAscending
	.EndUpdate()
End With
1126
How do I get the item's auto-number, when using FormatColumn property, as CellValue gets empty

' SelectionChanged event - Fired after a new item has been selected.
Private Sub Exgrid1_SelectionChanged(ByVal sender As System.Object) Handles Exgrid1.SelectionChanged
	With Exgrid1
		With .Items
			Debug.Print( "pos: " )
			Debug.Print( .get_CellCaption(.FocusItem,1) )
			Debug.Print( "rpos(1): " )
			Debug.Print( .get_CellCaption(.FocusItem,2) )
			Debug.Print( "rpos(2): " )
			Debug.Print( .get_CellCaption(.FocusItem,3) )
			Debug.Print( "apos: " )
			Debug.Print( .get_CellCaption(.FocusItem,4) )
			Debug.Print( "index: " )
			Debug.Print( .get_CellCaption(.FocusItem,5) )
		End With
	End With
End Sub

Dim h,hSel
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exRowLines
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	With .Columns
		.Add("Items")
		With .Add("pos")
			.FormatColumn = "1 pos ``"
			.Position = 0
			.Width = 48
			.AllowSizing = False
		End With
		With .Add("rpos(1)")
			.FormatColumn = "1 rpos ``"
			.Position = 1
			.Width = 48
			.AllowSizing = False
		End With
		With .Add("rpos(2)")
			.FormatColumn = "1 rpos `.||A-Z`"
			.Position = 2
			.Width = 48
			.AllowSizing = False
		End With
		With .Add("apos")
			.FormatColumn = "1 apos ``"
			.Position = 3
			.Width = 48
			.AllowSizing = False
		End With
		With .Add("index")
			.FormatColumn = "1 index ``"
			.Position = 4
			.Width = 48
			.AllowSizing = False
		End With
	End With
	With .Items
		h = .AddItem("Item 1")
		.InsertItem(h,Nothing,"Child 1")
		hSel = .InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		.AddItem("Item 2")
		.AddItem("Item 3")
	End With
	.EndUpdate()
	.Items.set_SelectItem(hSel,True)
End With
1125
How can I display UNICODE characters

With Exgrid1
	.BeginUpdate()
	With .Font
		.Name = "Arial Unicode"
		.Size = 22
	End With
	.HeaderVisible = False
	.DefaultItemHeight = 48
	.Columns.Add("").set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
	With .Items
		.AddItem("Ӓӓ")
		.AddItem("ᦜᦝ;ᦞ")
		.AddItem("ɮɭ;ɯ")
		.AddItem("勳勴勵勶")
		.set_FormatCell(.AddItem(Exgrid1.Version),0,"(value lfind `UNICODE`) < 0 ? `<fgcolor=FF0000><b>!UNICODE!</b> version</fgcolor> required: ` + value : `` ")
	End With
	.EndUpdate()
End With
1124
How do I display the position of the item with 0-padding

With Exgrid1
	.BeginUpdate()
	.Columns.Add("Items").FormatColumn = "((1 apos ``) lpad `00`) + `. `  + value"
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
		.AddItem("Item D")
	End With
	.EndUpdate()
End With
1123
Can't get the +/- to be displayed on a divider item. What else can I do

Dim h
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exAllLines
	.TreeColumnIndex = 0
	.MarkSearchColumn = False
	.FullRowSelect = exontrol.EXGRIDLib.CellSelectEnum.exColumnSel
	.HeaderAppearance = &Hfffffff8 Or exontrol.EXGRIDLib.AppearanceEnum.Bump Or exontrol.EXGRIDLib.AppearanceEnum.Sunken
	With .Columns
		.Add("C1").Width = 32
		.Add("C2").FormatColumn = "1 index ``"
	End With
	With .Items
		h = .AddItem("Cell 1")
		.set_CellSingleLine(h,1,exontrol.EXGRIDLib.CellSingleLineEnum.exCaptionWordWrap)
		h = .AddItem("This is bit of text merges all cells in the item (divider shows no +/-)")
		.set_ItemDivider(h,0)
		.set_ItemBackColor(h,Color.FromArgb(240,240,240))
		.set_ItemDividerLine(h,exontrol.EXGRIDLib.DividerLineEnum.EmptyLine)
		.set_CellHAlignment(h,0,exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment)
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Cell 3")
		h = .AddItem("This is bit of text merges all cells in the item (merge shows +/-)")
		.set_ItemBackColor(h,Color.FromArgb(240,240,240))
		.set_CellMerge(h,0,1)
		.InsertItem(h,Nothing,"Child 3")
		.InsertItem(h,Nothing,"Child 4")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With
1122
How can I define a column of button type

' ButtonClick event - Occurs when user clicks on the cell's button.
Private Sub Exgrid1_ButtonClick(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer,ByVal Key As Object) Handles Exgrid1.ButtonClick
	With Exgrid1
		With .Items
			Debug.Print( .get_CellValue(Item,ColIndex) )
		End With
	End With
End Sub

With Exgrid1
	.BeginUpdate()
	With .Columns.Add("Button")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasButton,True)
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellButtonAutoWidth,False)
		.FormatColumn = "``"
		.AllowSizing = False
		.Width = 48
	End With
	.Columns.Add("Second").FormatColumn = "` Item ` + 1 index ``"
	With .Items
		.AddItem("Button 1")
		.AddItem("Button 2")
		.AddItem("Button 3 ")
	End With
	.EndUpdate()
End With
1121
Is it possible to configure different colour/icon when there is a active filter

' FilterChange event - Occurs when filter was changed.
Private Sub Exgrid1_FilterChange(ByVal sender As System.Object) Handles Exgrid1.FilterChange
	With Exgrid1
		.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exHeaderFilterBarButton,.FormatABC("value = 0 ? 0x1000001 : 0x10000FF ",.Columns.Item(0).FilterType))
	End With
End Sub

With Exgrid1
	.BeginUpdate()
	With .VisualAppearance
		.RenderType = &Hff000000ui
		.Add(1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" & _
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" & _
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA")
	End With
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exAllLines
	.ShowFocusRect = False
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exHeaderFilterBarButton,&H1000001)
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	.BackColorHeader = Color.FromArgb(255,255,255)
	.HeaderVisible = True
	With .Columns.Add("Filter")
		.DisplayFilterButton = True
		.AllowSort = False
		.AllowDragging = False
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	With .Columns.Item(0)
		.Filter = "Item B"
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
	End With
	.ApplyFilter()
	.EndUpdate()
End With
1120
How can I display the type of the value the column display

With Exgrid1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exRowLines
	With .Columns.Add("Values")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
		.FormatColumn = "value + ` <off 4><fgcolor=808080>type(` + type(%0) + `)`"
	End With
	With .Items
		.AddItem()
		.AddItem(-1)
		.AddItem("string")
		.AddItem(#1/1/2001#)
		.AddItem(2)
		.AddItem(True)
		.AddItem(12.34)
	End With
	.EndUpdate()
End With
1119
I want to create a conditional format for a column, verifying that the value of the cell is numeric, how can I do

With Exgrid1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exRowLines
	.Columns.Add("Values")
	With .ConditionalFormats.Add("type(%0) in (2,3,4,5,18,19,20,21)")
		.ForeColor = Color.FromArgb(255,0,0)
		.Bold = True
	End With
	.ConditionalFormats.Add("type(%0) = 11").ForeColor = Color.FromArgb(0,255,0)
	.ConditionalFormats.Add("type(%0) = 7").ForeColor = Color.FromArgb(0,0,255)
	.ConditionalFormats.Add("type(%0) in (0,1)").BackColor = Color.FromArgb(240,240,240)
	With .Items
		.AddItem()
		.AddItem(-1)
		.AddItem("string")
		.AddItem(#1/1/2001#)
		.AddItem(2)
		.AddItem(True)
		.AddItem(12.34)
	End With
	.EndUpdate()
End With
1118
How can I assign a computed value on a different column based on other columns

' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer,ByRef NewValue As Object) Handles Exgrid1.Change
	With Exgrid1
		.FreezeEvents(True)
		With .Items
			.set_CellValue(Item,1,Exgrid1.FormatABC("int(255*sin(value/2))",NewValue))
			.set_CellValue(Item,2,Exgrid1.FormatABC("int(255*cos(value/2))",NewValue))
		End With
		.FreezeEvents(False)
	End With
End Sub

Dim var_Column
With Exgrid1
	.BeginUpdate()
	.SelBackMode = exontrol.EXGRIDLib.BackModeEnum.exTransparent
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exRowLines
	With .Columns.Add("Value")
		.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
		.Width = 64
		.AllowSizing = False
	End With
	.Columns.Add("Assign A").set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellBackColor,16448250)
	.Columns.Add("Assign B").set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellBackColor,16448250)
	var_Column = .Columns.Add("Computed")
	With var_Column
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellBackColor,16448250)
		.ComputedField = "%1 + %2"
		.FormatColumn = "value format ``"
		.Alignment = exontrol.EXGRIDLib.AlignmentEnum.RightAlignment
		.HeaderAlignment = .Alignment
	End With
	.ConditionalFormats.Add("%3 >= 0").Bold = True
	With .Items
		.AddItem(1989)
		.AddItem(2001)
		.AddItem(2017)
		.AddItem(2018)
		.AddItem(2019)
	End With
	.EndUpdate()
End With
1117
How can I get computed a value on a different column

With Exgrid1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exRowLines
	With .Columns.Add("Year")
		.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
		.Width = 64
		.AllowSizing = False
	End With
	.Columns.Add("Easter").FormatColumn = "date(dateS('3/1/' + %0)  + ((1:=(((255 - 11 * (%0 mod 19)) - 21) mod 30) + 21) + (=:1 > 48 ? -1 : 0) + 6 - ((%0 + int(%0 / 4)) " & _
"+ =:1 + (=:1 > 48 ? -1 : 0) + 1) mod 7))"
	With .Items
		.AddItem(1989)
		.AddItem(2001)
		.AddItem(2017)
		.AddItem(2018)
		.AddItem(2019)
	End With
	.EndUpdate()
End With
1116
How can I prevent applying ConditionalFormats on a specified cell, for instance I am displaying a Total field, and I will like to have formatted in a different way (method 2)

' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer,ByRef NewValue As Object) Handles Exgrid1.Change
	With Exgrid1
		.Refresh()
	End With
End Sub

Dim h
With Exgrid1
	.BeginUpdate()
	With .ConditionalFormats.Add("(%0 >= 0)")
		.Expression = "(0=type(%CD0)) and (%0 >= 0)"
		.Bold = True
		.ForeColor = Color.FromArgb(255,0,0)
		Debug.Print( "ConditionalFormat.Valid" )
		Debug.Print( .Valid )
	End With
	With .Columns.Add("Numbers")
		With .Editor
			.Numeric = exontrol.EXGRIDLib.NumericEnum.exInteger
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
		End With
		.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
	End With
	With .Items
		.AddItem(100)
		.AddItem(-25)
		.AddItem(31)
		.AddItem(-48)
	End With
	With .Items
		h = .AddItem("sum(all,dir,dbl(%0))")
		.set_SelectableItem(h,False)
		.set_SortableItem(h,False)
		.set_ItemBackColor(h,Color.FromArgb(240,240,240))
		.set_CellData(h,0,"total")
		.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_FormatCell(h,0,"'Total: <b><fgcolor=0000FF>'+(value format ``)")
	End With
	.EndUpdate()
End With
1115
How can I prevent applying ConditionalFormats on a specified cell, for instance I am displaying a Total field, and I will like to have formatted in a different way (method 1)

' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer,ByRef NewValue As Object) Handles Exgrid1.Change
	With Exgrid1
		.Refresh()
	End With
End Sub

Dim h
With Exgrid1
	.BeginUpdate()
	With .ConditionalFormats.Add("%0 >= 0")
		.Bold = True
		.ForeColor = Color.FromArgb(255,0,0)
		.ApplyTo = exontrol.EXGRIDLib.FormatApplyToEnum.exFormatToColumns
	End With
	With .Columns.Add("Numbers")
		With .Editor
			.Numeric = exontrol.EXGRIDLib.NumericEnum.exInteger
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
		End With
		.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
	End With
	.Columns.Add("Total").Visible = False
	With .Items
		.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exBottom,1)
		h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exBottom,0)
		.set_ItemDivider(h,1)
		.set_ItemDividerLine(h,exontrol.EXGRIDLib.DividerLineEnum.EmptyLine)
		.set_ItemBackColor(h,Color.FromArgb(240,240,240))
		.set_CellValue(h,1,"sum(all,dir,dbl(%0))")
		.set_CellValueFormat(h,1,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_CellHAlignment(h,1,exontrol.EXGRIDLib.AlignmentEnum.RightAlignment)
		.set_FormatCell(h,1,"'Total: <b><fgcolor=0000FF>'+(value format ``)")
	End With
	With .Items
		.AddItem(100)
		.AddItem(-25)
		.AddItem(31)
		.AddItem(-48)
	End With
	.EndUpdate()
End With
1114
ADODB Requery sample

' ButtonClick event - Occurs when user clicks on the cell's button.
Private Sub Exgrid1_ButtonClick(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer,ByVal Key As Object) Handles Exgrid1.ButtonClick
	Dim cmd
	With Exgrid1
		cmd = New ADODB.Command()
		With cmd
			.ActiveConnection = Exgrid1.DataSource.ActiveConnection
			.CommandText = "INSERT INTO Orders (EmployeeID) VALUES(12345)"
			.CommandType = 1
			.Execute()
		End With
		.DataSource.Requery()
	End With
End Sub

' Error event - Fired when an internal error occurs.
Private Sub Exgrid1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Exgrid1.Error
	With Exgrid1
		Debug.Print( Description )
	End With
End Sub

Dim h,rs
With Exgrid1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Select * From Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",1,3)
	End With
	.DataSource = rs
	.ConditionalFormats.Add("%1=12345").BackColor = Color.FromArgb(240,240,240)
	With .Items
		.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exTop,1)
		h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exTop,0)
		.set_ItemDivider(h,0)
		.set_CellHasButton(h,0,True)
		.set_CellValue(h,0,"Requery (add a new record, using ADODB.Command)")
		.set_CellHAlignment(h,0,exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment)
	End With
	.EndUpdate()
End With
1113
I am using DetectAddNew property, but no new items is added when AddNew is performed

' ButtonClick event - Occurs when user clicks on the cell's button.
Private Sub Exgrid1_ButtonClick(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer,ByVal Key As Object) Handles Exgrid1.ButtonClick
	With Exgrid1
		With .DataSource
			.AddNew("EmployeeID",123)
			.Update()
		End With
	End With
End Sub

' Error event - Fired when an internal error occurs.
Private Sub Exgrid1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Exgrid1.Error
	With Exgrid1
		Debug.Print( Description )
	End With
End Sub

Dim h,rs
With Exgrid1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",1,3)
	End With
	.DataSource = rs
	With .Items
		.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exTop,1)
		h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exTop,0)
		.set_ItemDivider(h,0)
		.set_CellHasButton(h,0,True)
		.set_CellValue(h,0,"AddNew")
		.set_CellHAlignment(h,0,exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment)
	End With
	.DetectAddNew = True
	.DetectDelete = True
	.EndUpdate()
End With
1112
I am skinning the control's header-bar, but the background of the header-bar is shown on each item in the filter-bar drop down panel. What can I do

With Exgrid1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQGhsCYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU8lORLUi+M4zSBPcZVTRtGShPDB" & _
"KTjMKKYgkG4lVpRNa0PC1GTzQ6mazkKQLRADDIDVbAeL3LiMBy9LyLLItQALByua5mWhbcZyBCOPgBTrRb5zO58FjuTK7YLjMB7NrUNYtFaUMy2OpOCADIaecTNcaWLx" & _
"PF2MY1HWYxVj2Jw3DuRJonKYBgggSRAlIYw6B0ThGFgPAkFUDAhBMfZRiGNAkFECZnm4YQdneJwqnsSQrGAAhWAIJBJBIQgFCQIBiEIAglgqYo0i4V4MEgRI9gSToYFS" & _
"b4Fk6Y4+BmBZhFOJgTC8TBogQAArgqco4muCZOkOMJtgmYpIjYKg7GKE4uCUK4AAKKg2DwI4DiCZw5k6KJ2D6D4OHiag4DwIxiiQAArAqMosnEPBPAOIhOg+DozjIJ4P" & _
"GSY4iEwPAkhKLhHUUSQsnKFCnkYU9MjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDya" & _
"ICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tE" & _
"sHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQg" & _
"pDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAA" & _
"MR1EOZxWi+bx7HcWQ8msfRYnnDhQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARViHH" & _
"4HQOYmxuCpF2MsecEQVBvGQCcIQvA6i2CAAIARAQ=")
		.Add(2,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMwwDhEIwjHCEEhsGIbJAGQBJCjWGodQLOEgzN" & _
"C0IxNFCQILhEZJADKII8TTOU5UPRESwTE4cKBmKhQCo2NpKR7VUTxCKQahLLivoCjBT8EzHMqtIzrCA6MpaP4pQjKcqwHJ8YyHEi0ZrjazKaj6T5AXDUcaWbbNVx3PK3" & _
"aioOpLZrqOZZYzYFoABTuJzPMSyIhxXD8cweaZvSpLExVYK9BY3PbKMgxC77QgTIpDaQMNS6PjtF43PAALLFUaNYzoOKzABMHATBIXAYJCwIIR5G7ID4BbQcCQAHL9DB" & _
"aEEIAEEISgGhMGZQmocgymmIRQkIEQ2BcGgbEIRQci8XaMBqTRVgSAZHG+S5pnOep+D6f4vjec5zn0fpfmgBgAH6TRoBYBoAh+eAmAiAgPFgNArgOQpIESdoEmCOAOAq" & _
"BYfFGAgaEaBgYHYFYFmIB5UiGCJUgKCgmgeYoHk4BgCmKRQiCwApgHgYgyH8B54lQU4NkMeJlBoDgjkiXBTg0R54iYIR+koeQVBoKpkgkChKhEJBkF4SFEjkDgJhFQoe" & _
"EmDJlBeehUhWJQJGIXoICWOQ6FeFIlhkfhlDsSJpiQVoamaSY2G6G5nAmRhpCOH5pkwVYdmeCZmHqHpnkmdhzhmaAIFiax8AABAEICA==")
	End With
	.BackColorHeader32 = &H1000000
	.ForeColorHeader = Color.FromArgb(128,128,128)
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exHeaderFilterBarButton,&H2000000)
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exBackColorFilter,Color.FromArgb(255,255,255))
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exForeColorFilter,Color.FromArgb(0,0,1))
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exSelBackColorFilter,&H1ff8000)
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exSelForeColorFilter,Color.FromArgb(240,240,240))
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.HeaderHeight = 24
	.BackColorLevelHeader = .BackColor
	With .Columns.Add("Filter")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowExclude Or exontrol.EXGRIDLib.FilterListEnum.exShowFocusItem Or exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox Or exontrol.EXGRIDLib.FilterListEnum.exSortItemsAsc
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exHeaderPaddingLeft,2)
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exHeaderPaddingRight,2)
	End With
	With .Items
		.AddItem("A")
		.AddItem("B")
		.AddItem("C")
		.AddItem("D")
	End With
	.EndUpdate()
End With
1111
How can I change the font for entire column (method 3)

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgrid1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgrid1.AddItem
	With Exgrid1
		With .Items
			.set_CellFont(Item,1,Exgrid1.Columns.Item(1).Data)
			.set_CellBold(Item,1,True)
			.set_CellForeColor(Item,1,Color.FromArgb(255,0,0))
		End With
	End With
End Sub

Dim f
With Exgrid1
	.BeginUpdate()
	.HeaderHeight = 24
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	.Columns.Add("C1")
	With .Columns.Add("C2")
		.HTMLCaption = "<b><font Tahoma;14>C2"
		f = New stdole.StdFont()
		With f
			.Name = "Tahoma"
			.Size = 11
		End With
		.Data = f
	End With
	With .Items
		.set_CellValue(.AddItem(10),1,11)
		.set_CellValue(.AddItem(12),1,13)
	End With
	.EndUpdate()
End With
1110
How can I change the font for entire column (method 2)

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgrid1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgrid1.AddItem
	Dim f
	With Exgrid1
		With .Items
			f = New stdole.StdFont()
			With f
				.Name = "Tahoma"
				.Size = 11
			End With
			.set_CellFont(Item,1,f)
			.set_CellBold(Item,1,True)
			.set_CellForeColor(Item,1,Color.FromArgb(255,0,0))
		End With
	End With
End Sub

With Exgrid1
	.BeginUpdate()
	.HeaderHeight = 24
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	.Columns.Add("C1")
	.Columns.Add("C2").HTMLCaption = "<b><font Tahoma;14>C2"
	With .Items
		.set_CellValue(.AddItem(10),1,11)
		.set_CellValue(.AddItem(12),1,13)
	End With
	.EndUpdate()
End With
1109
How can I change the font for entire column (method 1)

Dim f
With Exgrid1
	.BeginUpdate()
	With .ConditionalFormats.Add("1")
		.Bold = True
		.ForeColor = Color.FromArgb(255,0,0)
		f = New stdole.StdFont()
		With f
			.Name = "Tahoma"
			.Size = 11
		End With
		.Font = f
		.ApplyTo = &H1
	End With
	.HeaderHeight = 24
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	.Columns.Add("C1")
	.Columns.Add("C2").HTMLCaption = "<b><font Tahoma;14>C2"
	With .Items
		.set_CellValue(.AddItem(10),1,11)
		.set_CellValue(.AddItem(12),1,13)
	End With
	.EndUpdate()
End With
1108
I am using ExComboBox as an user editor, how can I display a different column

' UserEditorClose event - Fired the user editor is about to be opened.
Private Sub Exgrid1_UserEditorClose(ByVal sender As System.Object,ByVal Obj As Object,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Exgrid1.UserEditorClose
	' Items.CellValue(Item,ColIndex) = Object.Select("OrderID")
End Sub

' UserEditorOleEvent event - Occurs when an user editor fires an event.
Private Sub Exgrid1_UserEditorOleEvent(ByVal sender As System.Object,ByVal Obj As Object,ByVal Ev As exontrol.EXGRIDLib.OleEvent,ByRef CloseEditor As Boolean,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Exgrid1.UserEditorOleEvent
	With Exgrid1
		Debug.Print( Ev )
	End With
End Sub

' UserEditorOpen event - Occurs when an user editor is about to be opened.
Private Sub Exgrid1_UserEditorOpen(ByVal sender As System.Object,ByVal Obj As Object,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Exgrid1.UserEditorOpen
	' Object.Select("OrderID") = Me.Items.CellValue(Item,ColIndex)
End Sub

Dim h
With Exgrid1
	.BeginUpdate()
	.SortOnClick = exontrol.EXGRIDLib.SortOnClickEnum.exNoSort
	With .Columns.Add("Exontrol.ComboBox").Editor
		.EditType = exontrol.EXGRIDLib.EditTypeEnum.UserEditorType
		.UserEditor("Exontrol.ComboBox","")
		With .UserEditorObject
		End With
	End With
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exRowLines
	.TreeColumnIndex = -1
	.DefaultItemHeight = 21
	With .Items
		h = .AddItem("shows always the drop-down editor")
		.set_CellHAlignment(h,0,exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment)
		.set_ItemDivider(h,0)
		.set_ItemDividerLineAlignment(h,exontrol.EXGRIDLib.DividerAlignmentEnum.DividerCenter)
		.set_SelectableItem(h,False)
		.set_EnableItem(h,False)
		.set_CellEditorVisible(.AddItem(10248),0,exontrol.EXGRIDLib.EditorVisibleEnum.exEditorVisible)
		.set_CellEditorVisible(.AddItem(10249),0,exontrol.EXGRIDLib.EditorVisibleEnum.exEditorVisible)
		.set_CellEditorVisible(.AddItem(10250),0,exontrol.EXGRIDLib.EditorVisibleEnum.exEditorVisible)
		h = .AddItem("shows the drop-down editor when user clicks it")
		.set_CellHAlignment(h,0,exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment)
		.set_ItemDivider(h,0)
		.set_ItemDividerLineAlignment(h,exontrol.EXGRIDLib.DividerAlignmentEnum.DividerCenter)
		.set_SelectableItem(h,False)
		.set_EnableItem(h,False)
		.AddItem(10248)
		.AddItem(10249)
		.AddItem(10250)
	End With
	.EndUpdate()
End With
1107
The ItemHeight property is not working (method 2)

Dim h
With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	.Columns.Add("Column").Width = 128
	With .Items
		.set_CellSingleLine(.AddItem("This is a bit of text that should break the line"),0,exontrol.EXGRIDLib.CellSingleLineEnum.exCaptionWordWrap)
		h = .AddItem("")
		.set_ItemDivider(h,0)
		.set_SelectableItem(h,False)
		.set_ItemDividerLineAlignment(h,exontrol.EXGRIDLib.DividerAlignmentEnum.DividerCenter)
		.set_ItemHeight(h,3)
		.set_CellSingleLine(.AddItem("This is a bit of text that should break the line"),0,exontrol.EXGRIDLib.CellSingleLineEnum.exCaptionWordWrap)
	End With
	.EndUpdate()
End With
1106
The ItemHeight property is not working (method 1)

Dim h
With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	With .Columns.Add("Column")
		.Width = 128
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellSingleLine,0)
	End With
	With .Items
		.AddItem("This is a bit of text that should break the line")
		h = .AddItem("")
		.set_ItemDivider(h,0)
		.set_SelectableItem(h,False)
		.set_ItemDividerLineAlignment(h,exontrol.EXGRIDLib.DividerAlignmentEnum.DividerCenter)
		.set_ItemMinHeight(h,3)
		.set_ItemMaxHeight(h,3)
		.AddItem("This is a bit of text that should break the line")
	End With
	.EndUpdate()
End With
1105
How do I add a total field locked at the bottom of the control

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub Exgrid1_AddGroupItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgrid1.AddGroupItem
	With Exgrid1
		With .Items
			.set_ItemDividerLine(Item,exontrol.EXGRIDLib.DividerLineEnum.EmptyLine)
			.set_FormatCell(Item,.get_GroupItem(Item),"value + ` Min: <b>` + %13 + `</b> Max: <b>` + %14 + `</b> Sum: <b>` + %15 + `</b>, of Freight column`")
			.set_CellValue(Item,"Min","min(current,all,dbl(%6))")
			.set_CellValueFormat(Item,"Min",exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
			.set_CellValue(Item,"Max","max(current,all,dbl(%6))")
			.set_CellValueFormat(Item,"Max",exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
			.set_CellValue(Item,"Sum","sum(current,all,dbl(%6))")
			.set_CellValueFormat(Item,"Sum",exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
			.set_ItemBackColor(Item,Color.FromArgb(240,240,240))
		End With
	End With
End Sub

' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer,ByRef NewValue As Object) Handles Exgrid1.Change
	With Exgrid1
		.Refresh()
	End With
End Sub

Dim hL,rs,var_Column,var_Column1
With Exgrid1
	.BeginUpdate()
	.HasLines = exontrol.EXGRIDLib.HierarchyLineEnum.exNoLine
	.set_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exColumnsFloatBar,"Show/Hide")
	.ColumnsFloatBarSortOrder = exontrol.EXGRIDLib.SortOrderEnum.SortAscending
	.ColumnsFloatBarVisible = exontrol.EXGRIDLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeCheckColumns
	.ColumnAutoResize = False
	.BackColorSortBar = Color.FromArgb(240,240,240)
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	With .Columns
		With .Add("Min")
			.Visible = False
			.AllowDragging = False
		End With
		var_Column = .Add("Max")
		With var_Column
			.Visible = False
			.Visible = False
			.AllowDragging = False
		End With
		var_Column1 = .Add("Sum")
		With var_Column1
			.Visible = False
			.Visible = False
			.AllowDragging = False
		End With
	End With
	With .Columns.Item("Freight")
		.FormatColumn = "currency(value)"
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellBackColor,12895487)
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exHeaderBackColor,.get_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellBackColor))
		.HeaderBold = True
		.AllowGroupBy = False
		.Alignment = exontrol.EXGRIDLib.AlignmentEnum.RightAlignment
	End With
	.ScrollBySingleLine = False
	With .Items
		.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exBottom,2)
		hL = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exBottom,0)
		.set_ItemDivider(hL,0)
		.set_ItemHeight(hL,3)
		.set_ItemDividerLineAlignment(hL,exontrol.EXGRIDLib.DividerAlignmentEnum.DividerTop)
		.set_ItemDividerLine(hL,exontrol.EXGRIDLib.DividerLineEnum.DoubleLine)
		hL = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exBottom,1)
		.set_CellValue(hL,6,"sum(all,rec,dbl(%6))")
		.set_CellValueFormat(hL,6,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
		.set_ItemHeight(hL,24)
		.set_ItemBold(hL,True)
	End With
	.Columns.Item("EmployeeID").SortOrder = True
	.EndUpdate()
End With
1104
How can I add a total field, when I use grouping

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub Exgrid1_AddGroupItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgrid1.AddGroupItem
	With Exgrid1
		With .Items
			.set_ItemDividerLine(Item,exontrol.EXGRIDLib.DividerLineEnum.EmptyLine)
			.set_FormatCell(Item,.get_GroupItem(Item),"value + ` Min: <b>` + %13 + `</b> Max: <b>` + %14 + `</b> Sum: <b>` + %15 + `</b>, of Freight column`")
			.set_CellValue(Item,"Min","min(current,all,dbl(%6))")
			.set_CellValueFormat(Item,"Min",exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
			.set_CellValue(Item,"Max","max(current,all,dbl(%6))")
			.set_CellValueFormat(Item,"Max",exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
			.set_CellValue(Item,"Sum","sum(current,all,dbl(%6))")
			.set_CellValueFormat(Item,"Sum",exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
			.set_ItemBackColor(Item,Color.FromArgb(240,240,240))
		End With
	End With
End Sub

' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer,ByRef NewValue As Object) Handles Exgrid1.Change
	With Exgrid1
		.Refresh()
	End With
End Sub

Dim hL,rs
With Exgrid1
	.BeginUpdate()
	.HasLines = exontrol.EXGRIDLib.HierarchyLineEnum.exNoLine
	.ColumnAutoResize = False
	.BackColorSortBar = Color.FromArgb(240,240,240)
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = True
	With .Columns
		.Add("Min").Visible = False
		.Add("Max").Visible = False
		.Add("Sum").Visible = False
	End With
	With .Columns.Item("Freight")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellBackColor,12895487)
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exHeaderBackColor,.get_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellBackColor))
		.HeaderBold = True
		.AllowGroupBy = False
	End With
	.ScrollBySingleLine = False
	With .Items
		.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exBottom,1)
		hL = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exBottom,0)
		.set_ItemDivider(hL,0)
		.set_ItemHeight(hL,24)
		.set_ItemDividerLineAlignment(hL,exontrol.EXGRIDLib.DividerAlignmentEnum.DividerTop)
		.set_ItemDividerLine(hL,exontrol.EXGRIDLib.DividerLineEnum.DoubleLine)
		.set_CellValue(hL,0,"sum(all,rec,dbl(%6))")
		.set_CellValueFormat(hL,0,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_CellHAlignment(hL,0,exontrol.EXGRIDLib.AlignmentEnum.RightAlignment)
		.set_FormatCell(hL,0,"'Freight: <bgcolor=FFC4C4> '+(value format ``) + ` `")
	End With
	.EndUpdate()
End With
1103
How do I use the ColumnsFloatBarVisible on exColumnsFloatBarVisibleIncludeCheckColumns

With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	With .Columns
		.Add("City")
		.Add("Start").Visible = False
		.Add("End").Visible = False
	End With
	.set_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exColumnsFloatBar,"Show/Hide")
	.ColumnsFloatBarSortOrder = exontrol.EXGRIDLib.SortOrderEnum.SortAscending
	.ColumnsFloatBarVisible = exontrol.EXGRIDLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeCheckColumns
	.EndUpdate()
End With
1102
How do I use the ColumnsFloatBarVisible on exColumnsFloatBarVisibleIncludeHiddenColumn

With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	With .Columns
		.Add("City")
		.Add("Start").Visible = False
		.Add("End").Visible = False
	End With
	.set_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exColumnsFloatBar,"Show")
	.ColumnsFloatBarVisible = exontrol.EXGRIDLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeHiddenColumns
	.ColumnsFloatBarSortOrder = exontrol.EXGRIDLib.SortOrderEnum.SortAscending
	.EndUpdate()
End With
1101
How do I use the ColumnsFloatBarVisible on exColumnsFloatBarVisibleIncludeGroupByColumns

With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	With .Columns
		.Add("City")
		.Add("Start")
		.Add("End")
	End With
	.AllowGroupBy = True
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.BackColorSortBar = Color.FromArgb(250,250,250)
	.set_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exColumnsFloatBar,"Group-By")
	.ColumnsFloatBarVisible = exontrol.EXGRIDLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeGroupByColumns
	.ColumnsFloatBarSortOrder = exontrol.EXGRIDLib.SortOrderEnum.SortAscending
	.Columns.Item("City").SortOrder = exontrol.EXGRIDLib.SortOrderEnum.SortAscending
	.EndUpdate()
End With