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 = -16777216
		.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\Access2007\sample.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\Access2007\sample.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,rs
With Exgrid1
	.BeginUpdate()
	.SortOnClick = exontrol.EXGRIDLib.SortOnClickEnum.exNoSort
	With .Columns.Add("Exontrol.ComboBox").Editor
		.EditType = exontrol.EXGRIDLib.EditTypeEnum.UserEditorType
		.UserEditor("Exontrol.ComboBox","")
		With .UserEditorObject
			.BeginUpdate()
			.Style = 2
			.ColumnAutoResize = False
			rs = New ADODB.Recordset()
			With rs
				.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB",3,3)
			End With
			.DataSource = rs
			.Alignment = 0
			.IntegralHeight = True
			.MinHeightList = 128
			.MinWidthList = 648
			.HeaderHeight = 36
			.AllowSizeGrip = True
			.SingleEdit = True
			.LabelColumnIndex = 7
			.SearchColumnIndex = 0
			With .Columns.Item(0)
				.HeaderBold = True
				.HTMLCaption = "OrderID<br><fgcolor=808080>(search)"
			End With
			With .Columns.Item(7)
				.HeaderBold = True
				.HTMLCaption = "ShipName<br><fgcolor=808080>(display)"
				.Width = 128
			End With
			.UseTabKey = False
			.EndUpdate()
		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.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB",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.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB",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
1100:
How can I advance to the next line, once the user presses the ENTER key

' KeyDown event - Occurs when the user presses a key while an object has the focus.
Private Sub Exgrid1_KeyDown(ByVal sender As System.Object,ByRef KeyCode As Short,ByVal Shift As Short) Handles Exgrid1.KeyDown
	With Exgrid1
		Debug.Print( "KeyCode Before:" )
		Debug.Print( KeyCode )
		KeyCode = .FormatABC("value = 13 ? 40 : value",KeyCode)
		Debug.Print( "KeyCode After:" )
		Debug.Print( KeyCode )
	End With
End Sub

Dim h0
With Exgrid1
	.BeginUpdate()
	With .Columns
		With .Add("A").Editor
			.Appearance = exontrol.EXGRIDLib.InplaceAppearanceEnum.EtchedApp
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
		End With
		With .Add("B").Editor
			.Appearance = exontrol.EXGRIDLib.InplaceAppearanceEnum.EtchedApp
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
		End With
	End With
	With .Items
		h0 = .AddItem("Item A.1")
		.set_CellValue(h0,1,"Item B.1")
		h0 = .AddItem("Item A.2")
		.set_CellValue(h0,1,"Item B.2")
	End With
	.EndUpdate()
End With
1099:
I am using AddNew to add new records, but I can not see them into the control

' 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()
			.Fields.Item("A").Value = "new A"
			.Fields.Item("B").Value = "new B"
			.Update()
		End With
	End With
End Sub

Dim h,rs
With Exgrid1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	rs = New ADODB.Recordset()
	With rs
		.Fields.Append("A",8)
		.Fields.Append("B",8)
		.Open()
		.AddNew()
		.Fields.Item("A").Value = "Item A.1"
		.Fields.Item("B").Value = "Item B.1"
		.Update()
		.AddNew()
		.Fields.Item("A").Value = "Item A.2"
		.Fields.Item("B").Value = "Item B.2"
		.Update()
	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
1098:
How can I create a new ADO recordset

Dim rs
With Exgrid1
	.BeginUpdate()
	rs = New ADODB.Recordset()
	With rs
		.Fields.Append("A",8)
		.Fields.Append("B",8)
		.Open()
		.AddNew()
		.Fields.Item("A").Value = "Item A.1"
		.Fields.Item("B").Value = "Item B.1"
		.Update()
		.AddNew()
		.Fields.Item("A").Value = "Item A.2"
		.Fields.Item("B").Value = "Item B.2"
		.Update()
	End With
	.DataSource = rs
	.EndUpdate()
End With
1097:
Do do I get the DAO version I have installed

With Exgrid1
	Debug.Print( New DAO.PrivDBEngine().Version )
	Debug.Print( New DAO.PrivDBEngine().Version )
	Debug.Print( New DAO.PrivDBEngine().Version )
End With
1096:
How do I get a list of interfaces the object implemenets

Dim rs
With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	With New DAO.PrivDBEngine()
		rs = .OpenDatabase("C:\Program Files\Exontrol\ExGrid\Sample\Access2007\sample.accdb").OpenRecordset("Orders")
	End With
	' Add 'exontrol.expropertieslist.dll(ExPropertiesList.dll)' reference to your project.
	Debug.Print( New exontrol.EXPROPERTIESLISTLib.expropertieslist().get_Interfaces(rs) )
	.DataSource = rs
	.EndUpdate()
End With
1095:
Do do I get the ADO version I have installed

With Exgrid1
	Debug.Print( "ADO Version:" )
	Debug.Print( New ADODB.Connection().Version )
End With
1094:
DAO, ACCDB, 120

Dim rs
With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	With New DAO.PrivDBEngine()
		rs = .OpenDatabase("C:\Program Files\Exontrol\ExGrid\Sample\Access2007\sample.accdb").OpenRecordset("Orders")
	End With
	.DataSource = rs
	.EndUpdate()
End With
1093:
DAO, MDB, 120

Dim rs
With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	With New DAO.PrivDBEngine()
		rs = .OpenDatabase("C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB").OpenRecordset("Orders")
	End With
	.DataSource = rs
	.EndUpdate()
End With
1092:
DAO, MDB

Dim rs
With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	With New DAO.PrivDBEngine()
		rs = .OpenDatabase("C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB").OpenRecordset("Orders")
	End With
	.DataSource = rs
	.EndUpdate()
End With
1091:
ADODB, ACCDB, x64

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\Access2007\sample.accdb",1,1)
	End With
	.DataSource = rs
	.EndUpdate()
End With
1090:
ADOR, ACCDB

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\Access2007\sample.accdb",3,3)
	End With
	.DataSource = rs
	.EndUpdate()
End With
1089:
ADODB, MDB

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\SAMPLE.MDB",3,3)
	End With
	.DataSource = rs
	.EndUpdate()
End With
1088:
ADOR, MDB

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\SAMPLE.MDB",3,3)
	End With
	.DataSource = rs
	.EndUpdate()
End With
1087:
How can I display the row on multiple lines (excrd)

With Exgrid1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	.SelBackMode = exontrol.EXGRIDLib.BackModeEnum.exTransparent
	With .Columns.Add("Default")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellFormatLevel,"[b=0]60;1[b=15]:60,((20;""<fgcolor=808080>Dateigröße""[b=1][a=2]:120,2[b=15])/(20;""<fgcolor=808080>Erstellt am""[a=2]:120,3[b=" & _
"15])/(20;""<fgcolor=808080>Zuletzt bearbeitet""[b=4][a=2]:120,4[b=15]))")
		.AllowSort = False
	End With
	.Columns.Add(1).Visible = False
	With .Columns.Add(2)
		.Visible = False
		.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
		.FormatColumn = "1 index `A-Z`"
	End With
	With .Columns.Add(3)
		.Visible = False
		.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
		.FormatColumn = "1 index ``"
	End With
	With .Columns.Add(4)
		.Visible = False
		.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
		.FormatColumn = "date(``)"
	End With
	.DefaultItemHeight = 48
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exRowLines
	.GridLineStyle = exontrol.EXGRIDLib.GridLinesStyleEnum.exGridLinesSolid
	.set_ViewModeOption(exontrol.EXGRIDLib.ViewModeEnum.exTableView,exontrol.EXGRIDLib.ViewModeOptionEnum.exBorderWidth,1)
	.set_ViewModeOption(exontrol.EXGRIDLib.ViewModeEnum.exTableView,exontrol.EXGRIDLib.ViewModeOptionEnum.exBorderHeight,1)
	With .Items
		.set_CellValue(.AddItem(""),1,"One")
		.set_CellValue(.AddItem(""),1,"Two")
		.set_CellValue(.AddItem(""),1,"Three")
	End With
	.EndUpdate()
End With
1086:
Type of wraps the cell's caption support (Sample 2)

With Exgrid1
	.BeginUpdate()
	.HeaderSingleLine = False
	.HeaderHeight = 36
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exRowLines
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	With .Columns
		With .Add("Single-Line (exCaptionSingleLine)")
			.Width = 96
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellSingleLine,-1)
		End With
		With .Add("Word-Wrap (exCaptionWordWrap)")
			.Width = 96
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellSingleLine,0)
			.FormatColumn = "%0"
		End With
		With .Add("Break-Wrap (exCaptionBreakWrap)")
			.Width = 96
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellSingleLine,1)
			.FormatColumn = "%0"
		End With
	End With
	With .Items
		.AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
		.AddItem("This is the <b>first</b> line.\r\nThis is the <b>second</b> line.\r\nThis is the <b>third</b> line.")
	End With
	.EndUpdate()
End With
1085:
Type of wraps the cell's caption support (Sample 1)

Dim h
With Exgrid1
	.BeginUpdate()
	.HeaderSingleLine = False
	.HeaderHeight = 36
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exRowLines
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	.Columns.Add("Default").Width = 128
	With .Items
		h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
		h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
		.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
		.set_CellSingleLine(h,0,exontrol.EXGRIDLib.CellSingleLineEnum.exCaptionWordWrap)
		h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
		.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_CellSingleLine(h,0,exontrol.EXGRIDLib.CellSingleLineEnum.exCaptionWordWrap)
		h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
		.set_CellSingleLine(h,0,exontrol.EXGRIDLib.CellSingleLineEnum.exCaptionBreakWrap)
		h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
		.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
		.set_CellSingleLine(h,0,exontrol.EXGRIDLib.CellSingleLineEnum.exCaptionBreakWrap)
	End With
	.EndUpdate()
End With
1084:
Can I break the cell's caption using the line break <br> or \r\n (Sample 2)

With Exgrid1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exRowLines
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	.Columns.Add("Default").Width = 128
	With .Items
		.set_CellSingleLine(.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line."),0,exontrol.EXGRIDLib.CellSingleLineEnum.exCaptionBreakWrap)
		.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
	End With
	.EndUpdate()
End With
1083:
Can I break the cell's caption using the line break <br> or \r\n (Sample 1)

With Exgrid1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exRowLines
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	With .Columns.Add("Default")
		.Width = 128
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellSingleLine,1)
	End With
	With .Items
		.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
		.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
	End With
	.EndUpdate()
End With
1082:
How can I change the visual appearance/color of the Filter For ... field

Dim h
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.BackColorHeader = Color.FromArgb(1,0,0)
	.ForeColorHeader = Color.FromArgb(255,255,255)
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exBackColorFilter,.BackColorHeader)
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exForeColorFilter,.ForeColorHeader)
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exHeaderFilterBarButton,Color.FromArgb(240,240,240))
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Bump
	With .Columns.Add("Items")
		.FilterOnType = True
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exNoItems
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
	End With
	.EndUpdate()
End With
1081:
How can I display the cell's caption without spaces on both sides

With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = True
	With .Columns.Add("Default")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
		.FormatColumn = "((trim(value) replace `   ` with ` `) replace `  ` with ` `) replace ` ` with `<bgcolor=FF0000> </bgcolor>`"
	End With
	With .Items
		.AddItem("")
		.AddItem("Item A")
		.AddItem("    Item B")
		.AddItem("        Item   C    ")
	End With
	.EndUpdate()
End With
1080:
How can I highlight the spaces within the column (sample 2)

With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = True
	With .Columns.Add("Default")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
		.FormatColumn = "`'` + ( value replace ` ` with `_` ) + `'`"
	End With
	With .Items
		.AddItem("")
		.AddItem("Item A")
		.AddItem("    Item B")
		.AddItem("        Item   C    ")
	End With
	.EndUpdate()
End With
1079:
How can I highlight the spaces within the column (sample 1)

With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = True
	With .Columns.Add("Default")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
		.FormatColumn = "len(value) = 0 ? `<bgcolor=FF0000> </bgcolor>` : ( value replace ` ` with `<bgcolor=FF0000> </bgcolor>` )"
	End With
	With .Items
		.AddItem("")
		.AddItem("Item A")
		.AddItem("    Item B")
		.AddItem("        Item   C    ")
	End With
	.EndUpdate()
End With
1078:
How can I change the visual aspect of the drop down filter-calendar

With Exgrid1
	.BeginUpdate()
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exBackColorFilter,Color.FromArgb(0,0,1))
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exForeColorFilter,Color.FromArgb(255,255,255))
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exDateScrollRange,Color.FromArgb(255,255,255))
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exDateHeader,.get_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exBackColorFilter))
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exDateScrollThumb,Color.FromArgb(128,128,128))
	With .Columns.Add("Date")
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exDate
		.DisplayFilterButton = True
		.DisplayFilterDate = True
		.DisplayFilterPattern = False
	End With
	.EndUpdate()
End With
1077:
How can I hide the filter bar description

With Exgrid1
	.BeginUpdate()
	With .Columns.Add("Filter")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
		.Filter = "B"
	End With
	With .Items
		.AddItem("A")
		.AddItem("B")
		.AddItem("C")
	End With
	.ApplyFilter()
	.FilterBarHeight = 0
	.EndUpdate()
End With
1076:
Export Data in HTML format

Dim h,sFile
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.BackColorAlternate = Color.FromArgb(240,240,240)
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exAllLines
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	.set_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
"nt + ` item(s)`) )))"
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = exontrol.EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAny
	With .ConditionalFormats
		.Add("%0 like `*parent*`","parent").BackColor = Color.FromArgb(192,192,192)
		With .Add("%0 like `*child*`","child")
			.ForeColor = Color.FromArgb(255,128,128)
			.ApplyTo = exontrol.EXGRIDLib.FormatApplyToEnum.exFormatToColumns
		End With
		With .Add("%0 like `*B*`","b")
			.ForeColor = Color.FromArgb(0,0,255)
			.Bold = True
			.Italic = True
			.ApplyTo = exontrol.EXGRIDLib.FormatApplyToEnum.exFormatToColumns
		End With
	End With
	With .Columns
		With .Add("Value")
			.Width = 128
			.HTMLCaption = "<b>VA</b><r>sko"
		End With
		With .Add("APos")
			.FormatColumn = "0 apos ``"
			.AllowSort = False
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellBackColor,15790320)
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellForeColor,8421504)
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exHeaderForeColor,.get_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellForeColor))
			.Position = 0
		End With
		With .Add("RPos")
			.FormatColumn = "0 rpos ``"
			.AllowSort = False
			.Position = 1
		End With
		With .Add("Index")
			.FormatColumn = "0 index ``"
			.DisplayFilterButton = True
			.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox
			.Position = 2
		End With
		With .Add("Data 1")
			.FormatColumn = "0 index `A-Z`"
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
		End With
		With .Add("Data 2")
			.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`"
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellSingleLine,False)
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasRadioButton,True)
		End With
		With .Add("Data 3")
			.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`"
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
		End With
	End With
	With .Items
		h = .AddItem("ParentA")
		.InsertItem(h,,"Child A")
		.InsertItem(h,,"Child B")
		.set_CellState(h,4,1)
		.set_CellBackColor(.InsertItem(h,,"Child C"),5,Color.FromArgb(0,255,0))
		.set_ExpandItem(h,True)
		.AddItem("Item A")
		h = .AddItem("ParentB")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		.set_CellBackColor(.InsertItem(h,,"Child 3"),5,Color.FromArgb(0,255,0))
		.set_CellState(h,5,1)
		.AddItem("Item B")
		.AddItem("Item C")
		.AddItem("Item D")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
	sFile = "c:/temp/export.html"
	.Export(sFile,"vis")
	With New SHDocVw.ShellBrowserWindow()
		.Navigate2(sFile)
	End With
End With
1075:
Export Data in CSV format

Dim h
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.BackColorAlternate = Color.FromArgb(240,240,240)
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exAllLines
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	.set_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
"nt + ` item(s)`) )))"
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = exontrol.EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAny
	With .ConditionalFormats
		.Add("%0 like `*parent*`","parent").BackColor = Color.FromArgb(192,192,192)
		With .Add("%0 like `*child*`","child")
			.ForeColor = Color.FromArgb(255,128,128)
			.ApplyTo = exontrol.EXGRIDLib.FormatApplyToEnum.exFormatToColumns
		End With
		With .Add("%0 like `*B*`","b")
			.ForeColor = Color.FromArgb(0,0,255)
			.Bold = True
			.Italic = True
			.ApplyTo = exontrol.EXGRIDLib.FormatApplyToEnum.exFormatToColumns
		End With
	End With
	With .Columns
		With .Add("Value")
			.Width = 128
			.HTMLCaption = "<b>VA</b><r>sko"
		End With
		With .Add("APos")
			.FormatColumn = "0 apos ``"
			.AllowSort = False
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellBackColor,15790320)
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellForeColor,8421504)
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exHeaderForeColor,.get_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellForeColor))
			.Position = 0
		End With
		With .Add("RPos")
			.FormatColumn = "0 rpos ``"
			.AllowSort = False
			.Position = 1
		End With
		With .Add("Index")
			.FormatColumn = "0 index ``"
			.DisplayFilterButton = True
			.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox
			.Position = 2
		End With
		With .Add("Data 1")
			.FormatColumn = "0 index `A-Z`"
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
		End With
		With .Add("Data 2")
			.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`"
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellSingleLine,False)
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasRadioButton,True)
		End With
		With .Add("Data 3")
			.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`"
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
		End With
	End With
	With .Items
		h = .AddItem("ParentA")
		.InsertItem(h,,"Child A")
		.InsertItem(h,,"Child B")
		.set_CellState(h,4,1)
		.set_CellBackColor(.InsertItem(h,,"Child C"),5,Color.FromArgb(0,255,0))
		.set_ExpandItem(h,True)
		.AddItem("Item A")
		h = .AddItem("ParentB")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		.set_CellBackColor(.InsertItem(h,,"Child 3"),5,Color.FromArgb(0,255,0))
		.set_CellState(h,5,1)
		.AddItem("Item B")
		.AddItem("Item C")
		.AddItem("Item D")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
	Debug.Print( .Export("","vis") )
End With
1074:
Is it possible to check multiple-items at once

' 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 bHasParent
	With Exgrid1
		bHasParent = .FormatABC("value != 0",.Items.get_ItemParent(Item))
		With .Items
			.set_CellHasCheckBox(Item,0,False)
		End With
	End With
End Sub

Dim h,hChild
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Tasks")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
		.FormatColumn = "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)"
	End With
	.HeaderVisible = True
	.SingleSel = False
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		hChild = .InsertItem(h,,"Task 2")
		hChild = .InsertItem(h,,"Task 3")
		.set_ExpandItem(h,True)
		.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exTop,1)
		.set_CellValue(.get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exTop,0),0,"<c>Select multiple items and press the <b>SPACE</b> key")
	End With
	.EndUpdate()
End With
1073:
How can I get the icon from the cell when using the Items.CellImages property (icon index)

' 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( .FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? ( ( (value bitand 0xFFFF0000) bitshift 16 ) array B split `,` )  : `no image`",hit,.Items.get_CellImages(i,c)) )
	End With
End Sub

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=")
	.Columns.Add("Default")
	With .Items
		.set_CellImages(.AddItem("Item 1"),0,"3,2,1")
		.set_CellImages(.AddItem("Item 2"),0,"2,3")
		.set_CellImages(.AddItem("Item 3"),0,"2,")
	End With
	.EndUpdate()
End With
1072:
How can I get the icon from the cell when using the Items.CellImages property (icon position within the cell)

' 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( .FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? 1 + ( (value bitand 0xFFFF0000) bitshift 16 ) : `no image`",hit) )
	End With
End Sub

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=")
	.Columns.Add("Default")
	With .Items
		.set_CellImages(.AddItem("Item 1"),0,"3,2,1")
		.set_CellImages(.AddItem("Item 2"),0,"2,3")
		.set_CellImages(.AddItem("Item 3"),0,"2")
	End With
	.EndUpdate()
End With
1071:
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop

With Exgrid1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	With .Columns
		.Add("Column 1")
		.Add("Column 2")
		.Add("Column 3")
	End With
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV" & _
"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" & _
"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" & _
"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDI" & _
"BICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAok" & _
"GKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=")
		.Add(2,"CP:1 0 -36 0 0")
	End With
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exColumnsPositionSign,&H2000000)
	.EndUpdate()
End With
1070:
How can I add a title column

With Exgrid1
	.BeginUpdate()
	.HeaderHeight = 22
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exAllLines
	With .Columns
		.Add("Col 1")
		.Add("Col 2").FormatColumn = "1 pos ``"
		.Add("Col 3").FormatColumn = "1 pos `A-`"
		.Add("Col 4").FormatColumn = "1 pos `A-Z`"
		With .Add("Title")
			.ExpandColumns = "0,1,2,3"
			.DisplayExpandButton = False
			.AllowSort = False
			.AllowDragging = False
			.Position = 0
			.HeaderAlignment = exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment
		End With
	End With
	.ColumnAutoResize = False
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem("Item 4")
	End With
	.EndUpdate()
	Debug.Print( .Export("") )
End With
1069:
FilterBarCaption ALLUI Keyword ( sample 3, result, leaf )

' 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
	Dim val
	With Exgrid1
		With .Items
			.set_ItemBackColor(Item,Color.FromArgb(240,240,240))
			val = .get_CellValue(Item,.get_GroupItem(Item))
			.set_CellState(Item,.get_GroupItem(Item),Exgrid1.FormatABC("A = `Checked` ? 1 : 0",val))
		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
	Dim i
	With Exgrid1
		i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
		.Items.set_CellImage(Item,3,i)
	End With
End Sub

Dim h
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("Col-1")
		.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("Col-2")
		.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("Check")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exImage
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowExclude Or exontrol.EXGRIDLib.FilterListEnum.exShowFocusItem Or exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 rpos ``"
		.Position = 0
	End With
	With .Items
		.set_CellValue(.AddItem("Item A"),1,"Sub-Item A")
		h = .AddItem("Item B")
		.set_CellValue(h,1,"Sub-Item B")
		.set_CellState(h,2,1)
		.set_CellValue(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + leafitemcount + ` result(s)` ) : (`<r><fgcolor=808080>`+ leafitemcount + `" & _
" item(s)`) )))"
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.AllowGroupBy = True
	.SortBarVisible = True
	With .Columns.Item(2)
		.FormatColumn = "%CS2 ? `Checked` : `Unchecked`"
		.SortOrder = exontrol.EXGRIDLib.SortOrderEnum.SortAscending
	End With
	.EndUpdate()
End With
1068:
A black portion is shown while I am using the BackColorAlternate with EBN colors. What can I do

With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = True
	.DefaultItemHeight = 20
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhIDhAxHAxg0HG0Mg4xGI3HMOig3GcJiYAf8jAEhhUnAAyhEqg8hk0oAsIjgAiAwmYxGA4mYzGwwkI0i0ooUnB0IBMIl1Dg8zmYyGolptPkI1m" & _
"Y1GAll9KoUslNIrVCqNQldShFUstXAVfrVcrlZtVhuFnsUHq1zoczoQGhFBkNpg6zbDykUkhsPHE2h85nc9n8xtVDtlex9Msd2p1YstVq9ux8HyMtzuFz1PsNTzQlv2h" & _
"hWfkuqpeVuN0q+nvEooN5veSAGpkb/ACcZrvhU3w83nM/poxGuchGpoVBvWgg+8knA4WimnFxI45Er5XOlHMg/Q3XU33W4ew9Wyu11mchDagcO7zus8VDoNBBEIKBpMY" & _
"6DqOQyokhA/IQIQmwMk4bIQFDcoO6LWgwhQkNcABwEyAB5GwWbet6cRQg3DENQ5D8QxADZvEkAB8nabsURGeBpFM3pwE2AEZRpDx/neZpOR3Dz9oO/r/wCMoZNTBQAQR" & _
"JSEwYg8HPGhEIoNCaEwq10gQ2WcRt7LcRxRFpuxUAEURQ3sczBEMgTTG8gN7HpOSEAEiQBAQZpmQ0DibPUFwbKcHwkhQoQtNQNzNEMbABOKDy/DMYQzHLeoPL0OTJSUd" & _
"0pHcxTewk5zrIygIRPslz4lEngBKIAQivgASs/kLSBTlO00f8t0vGcgUbDlDRjXLCUNRERRvRgAHW2oAICA==")
	With .Columns.Add("Default")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .Columns.Add("Position")
		.FormatColumn = "1 rindex ``"
		.Visible = False
	End With
	With .ConditionalFormats.Add("%C1 mod 2")
		.BackColor32 = &H1000000
	End With
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem("Item 4")
	End With
	.EndUpdate()
End With
1067:
How can I specify alternate background colors for each root item, similar with BackColorAlternate

Dim h
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Default")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .Columns.Add("Position")
		.FormatColumn = "( ( 1:=( ( 0:=(1 rpos '') ) lfind `.`) ) < 0 ? =:0 : (=:0 left =:1) )"
		.Visible = False
	End With
	With .ConditionalFormats.Add("%C1 mod 2")
		.BackColor = Color.FromArgb(240,240,240)
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		h = .AddItem("Root 3")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
	End With
	.EndUpdate()
End With
1066:
Is it possible to change the caption from a column without to remove the column and add it with the new caption
With Exgrid1
	.Columns.Add("ColumnName").Caption = "NewName"
	.Columns.Add("ColumnName").HTMLCaption = "<b>New</b>Name"
End With
1065:
FilterBarCaption ALL Keyword ( sample 2, result )

' 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 i
	With Exgrid1
		i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
		.Items.set_CellImage(Item,3,i)
	End With
End Sub

Dim h
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("Col-1")
		.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("Col-2")
		.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("Check")
		With .Editor
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.CheckValueType
			.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exCheckValue2,1)
		End With
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exImage
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowExclude Or exontrol.EXGRIDLib.FilterListEnum.exShowFocusItem Or exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellValue(.AddItem("Item A"),1,"Sub-Item A")
		h = .AddItem("Item B")
		.set_CellValue(h,1,"Sub-Item B")
		.set_CellState(h,2,1)
		.set_CellValue(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "(( ( all replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[" & _
"<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matchi" & _
"temcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount" & _
" + ` item(s)`) )))"
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With
1064:
FilterBarCaption ALL Keyword ( sample 1 )

' 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 i
	With Exgrid1
		i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
		.Items.set_CellImage(Item,3,i)
	End With
End Sub

Dim h
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("Col-1")
		.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("Col-2")
		.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("Check")
		With .Editor
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.CheckValueType
			.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exCheckValue2,1)
		End With
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exImage
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowExclude Or exontrol.EXGRIDLib.FilterListEnum.exShowFocusItem Or exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellValue(.AddItem("Item A"),1,"Sub-Item A")
		h = .AddItem("Item B")
		.set_CellValue(h,1,"Sub-Item B")
		.set_CellState(h,2,1)
		.set_CellValue(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "all"
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With
1063:
FilterBarCaption ALLUI Keyword ( sample 2, result )

' 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 i
	With Exgrid1
		i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
		.Items.set_CellImage(Item,3,i)
	End With
End Sub

Dim h
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("Col-1")
		.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("Col-2")
		.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("Check")
		With .Editor
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.CheckValueType
			.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exCheckValue2,1)
		End With
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exImage
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowExclude Or exontrol.EXGRIDLib.FilterListEnum.exShowFocusItem Or exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellValue(.AddItem("Item A"),1,"Sub-Item A")
		h = .AddItem("Item B")
		.set_CellValue(h,1,"Sub-Item B")
		.set_CellState(h,2,1)
		.set_CellValue(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
"nt + ` item(s)`) )))"
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With
1062:
FilterBarCaption ALLUI Keyword ( sample 1 )

' 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 i
	With Exgrid1
		i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
		.Items.set_CellImage(Item,3,i)
	End With
End Sub

Dim h
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("Col-1")
		.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("Col-2")
		.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("Check")
		With .Editor
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.CheckValueType
			.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exCheckValue2,1)
		End With
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exImage
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowExclude Or exontrol.EXGRIDLib.FilterListEnum.exShowFocusItem Or exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellValue(.AddItem("Item A"),1,"Sub-Item A")
		h = .AddItem("Item B")
		.set_CellValue(h,1,"Sub-Item B")
		.set_CellState(h,2,1)
		.set_CellValue(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "allui"
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With
1061:
FilterBarCaption AVAILABLE Keyword ( sample 2, result )

' 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 i
	With Exgrid1
		i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
		.Items.set_CellImage(Item,3,i)
	End With
End Sub

Dim h
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("Col-1")
		.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("Col-2")
		.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("Check")
		With .Editor
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.CheckValueType
			.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exCheckValue2,1)
		End With
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exImage
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowExclude Or exontrol.EXGRIDLib.FilterListEnum.exShowFocusItem Or exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellValue(.AddItem("Item A"),1,"Sub-Item A")
		h = .AddItem("Item B")
		.set_CellValue(h,1,"Sub-Item B")
		.set_CellState(h,2,1)
		.set_CellValue(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( ava" & _
"ilable replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with `" & _
"` replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount" & _
" + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With
1060:
FilterBarCaption AVAILABLE Keyword ( sample 1 )

' 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 i
	With Exgrid1
		i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
		.Items.set_CellImage(Item,3,i)
	End With
End Sub

Dim h
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("Col-1")
		.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("Col-2")
		.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("Check")
		With .Editor
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.CheckValueType
			.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exCheckValue2,1)
		End With
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exImage
		.FilterList = exontrol.EXGRIDLib.FilterListEnum.exShowExclude Or exontrol.EXGRIDLib.FilterListEnum.exShowFocusItem Or exontrol.EXGRIDLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellValue(.AddItem("Item A"),1,"Sub-Item A")
		h = .AddItem("Item B")
		.set_CellValue(h,1,"Sub-Item B")
		.set_CellState(h,2,1)
		.set_CellValue(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "value + ` ` + available"
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With
1059:
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 3, results )

With Exgrid1
	.BeginUpdate()
	With .Columns.Add("Col-1")
		.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("Col-2")
		.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
		.set_CellValue(.AddItem("Item A"),1,"Sub-Item A")
		.set_CellValue(.AddItem("Item B"),1,"Sub-Item B")
		.set_CellValue(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.get_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "(`<b>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) +" & _
" ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )) replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replac" & _
"e `]` with ` </b></bgcolor></fgcolor>`"
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarToggle
	With .Columns.Item(0)
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	With .Columns.Item(1)
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exPattern
		.Filter = "*B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
1058:
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 2 )

With Exgrid1
	.BeginUpdate()
	With .Columns.Add("Col-1")
		.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("Col-2")
		.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
		.set_CellValue(.AddItem("Item A"),1,"Sub-Item A")
		.set_CellValue(.AddItem("Item B"),1,"Sub-Item B")
		.set_CellValue(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.get_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarToggle
	With .Columns.Item(0)
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	With .Columns.Item(1)
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exPattern
		.Filter = "*B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
1057:
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 1 )

With Exgrid1
	.BeginUpdate()
	With .Columns.Add("Col-1")
		.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("Col-2")
		.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
		.set_CellValue(.AddItem("Item A"),1,"Sub-Item A")
		.set_CellValue(.AddItem("Item B"),1,"Sub-Item B")
		.set_CellValue(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.set_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.get_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarToggle
	With .Columns.Item(0)
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	With .Columns.Item(1)
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exPattern
		.Filter = "*B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
1056:
Is it possible to automatically displays the control's filter label to the right

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"
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarToggle
	With .Columns.Item(0)
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
		.Filter = "Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
1055:
How can I get the number of results/items being shown in the control's filter bar (sample 4)

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
	.FilterBarFont = .Font
	.FilterBarPrompt = .FormatABC("`<b>` + value",.FilterBarPrompt)
	.FilterBarCaption = "`<b><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
1054:
How can I get the number of results being shown in the control's filter bar (sample 3)

With Exgrid1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	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
	.FilterBarFont = .Font
	.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + 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
	With .Columns.Item(0)
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
1053:
How can I get the number of results being shown in the control's filter bar (sample 2, compact)

With Exgrid1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	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
	.FilterBarFont = .Font
	.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? `<off -4> ` + abs(matchitemcount + 1) + ` result(s)` : ``)"
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
1052:
How can I get the number of results being shown in the control's filter bar (sample 1)

With Exgrid1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	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
	.FilterBarFont = .Font
	.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
1051:
FilterBarCaption Predefined Keywords

' AfterExpandItem event - Fired after an item is expanded (collapsed).
Private Sub Exgrid1_AfterExpandItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgrid1.AfterExpandItem
	With Exgrid1
		.Refresh()
	End With
End Sub

Dim h
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Check")
		With .Editor
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.CheckValueType
			.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exCheckValue2,1)
		End With
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		h = .AddItem("Item B")
		.set_CellState(.InsertItem(h,,"Sub-Item B1"),1,1)
		.InsertItem(h,,"Sub-Item B2")
		.set_ExpandItem(h,True)
		.AddItem("Item C")
	End With
	.FilterInclude = exontrol.EXGRIDLib.FilterIncludeEnum.exItemsWithChilds
	.FilterBarFont = .Font
	.FilterBarCaption = "`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</" & _
"i></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>" & _
": ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF>" & _
"<i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</" & _
"i></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=8" & _
"08080>` + promptpattern + `</fgcolor>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount +" & _
" `</fgcolor>`"
	.FilterBarPromptPattern = "B"
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
1050:
I am using filter prompt feature, and also column's filter, just wondering if possible to compact displaying the filter bar so it won't show on multiple lines

With Exgrid1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	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
	.FilterBarFont = .Font
	.FilterBarCaption = "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
	.FilterBarPromptPattern = "B"
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
1049:
Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 )

With Exgrid1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	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
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarToggle Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPrompt = .FormatABC("`<r>` + value",.FilterBarPrompt)
	.EndUpdate()
End With
1048:
Just wondering if it is possible to show the filter bar's close button on the right ( sample 1 )

With Exgrid1
	.BeginUpdate()
	.RightToLeft = True
	.Columns.Add("Item").DisplayFilterButton = True
	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
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarToggle Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate()
End With
1047:
How can I change the visual appearance of the filter bar's close button (EBN)

With Exgrid1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJ" & _
"jyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKm" & _
"SZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OR" & _
"OicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2" & _
"DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJX" & _
"AiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaK" & _
"JDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G" & _
"0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEA" & _
"kjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRS" & _
"MRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhA" & _
"QHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ")
	End With
	.Columns.Add("Item").DisplayFilterButton = True
	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
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarToggle Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exFooterFilterBarButton,&H1000000)
	.EndUpdate()
End With
1046:
How can I change the visual appearance of the filter bar's close button (solid)

With Exgrid1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	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
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exFooterFilterBarButton,Color.FromArgb(255,0,0))
	.EndUpdate()
End With
1045:
Is it possible to prevent definitely showing the filter bar's close button

With Exgrid1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	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
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exFooterFilterBarButton,-1)
	.EndUpdate()
End With
1044:
Is it possible to show the close button only if there is a filter applied

With Exgrid1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	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
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate()
End With
1043:
The control's filter bar is not closed once I click the close button (toggle)

Dim h
With Exgrid1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	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")
		.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exBottom,1)
		h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exBottom,0)
		.set_ItemDivider(h,0)
		.set_CellValue(h,0,"<c><fgcolor=808080>Press the CTRL + F to turn on/off the control's filter bar. ALT + Up/Down moves the focus.")
		.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
	End With
	.FilterBarCaption = "`<r><fgcolor=808080>` + value"
	.FilterBarPromptPattern = "B"
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarToggle Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
		.Filter = "Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
1042:
How can I display the control's filter on a single line

With Exgrid1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	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 = "len(value) ? `filter for: <fgcolor 808080>` + value  : `<fgcolor 808080>no filter`"
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
1041:
How can I display the control's filter on a single line (prompt-combined)

With Exgrid1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	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"
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
1040:
How can I get the number of results after a filter is applied

' 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
		.ClearFilter()
	End With
End Sub

' FilterChange event - Occurs when filter was changed.
Private Sub Exgrid1_FilterChange(ByVal sender As System.Object) Handles Exgrid1.FilterChange
	With Exgrid1
		Debug.Print( "Items.MatchItemCount" )
		Debug.Print( .Items.MatchItemCount )
		Debug.Print( .FormatABC("value < 0 ? `filter applied: ` + abs(value + 1) + ` result(s)` : `no filter`",.Items.MatchItemCount) )
	End With
End Sub

With Exgrid1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	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
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptPattern = "Item"
	.EndUpdate()
End With
1039:
How can I programmatically clear the control's filter
' 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
		.ClearFilter()
	End With
End Sub

With Exgrid1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	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
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptPattern = "B"
	.EndUpdate()
End With
1038:
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)

With Exgrid1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	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
	.FilterBarPromptPattern = "B"
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
		.Filter = "Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
1037:
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)

With Exgrid1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	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
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptPattern = "B"
	.EndUpdate()
End With
1036:
Is it possible to prevent closing the control's filter bar, so it is always shown

With Exgrid1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	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 = "len(value) = 0 ? `<fgcolor=808080>no filter` : value"
	.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
		.Filter = "Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
1035:
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 4)

Dim h
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.VisualDesign = "gBFLBWIgBAEHhEJAEGg6VAkHeLpgwChAOhULB8XAUUg8MAAREEHGMcgRCJ0ei8dhABDEcQAAYAQGKIYBkAKBQAGaAoDDMOQwQwAAxjGKEEwsACEIrjKCRShyCYZRhGc" & _
"TSBCIZBqEqSZLiEZRQiiCYsS5GQBRWAkEwiBiEQTjea5CgOIAFS7LIqjRQEBxhIaZYIGaiQADENo9TxIMZAfBIHShK6NJABCCSQKkYx0HScRijDIEFwGIQmbKiej4DCi" & _
"CQQW7OYYRVCNMQSfa8HivJyrcamfp/YBgOBYHb1eLVPR5LwfPCGUw1P6PLxkORZHimK4tSLHV7xVpMIwZFafIQhCCoHomS5NU7UNR0TQUFx9FaGX7rDDsGwLAJ6XRgF4" & _
"bg2VpnHePpenAN4bH2GwHFmApSjEGBLnWOpRGOTBZHOegrE6BxPiWVJqCweQrn0LgJAWJBjwgaw1gKO5HmWch5h+fovF+G5bmich4BgfZkB8dynRUVYqiUR5rnmex/F6" & _
"N4tn2AJfnebZ3DEXw3HWXgzAyIwgicKJKBKEIhCeCgiHyHYFEmSAFmqBghFIdgSCeIJygYDAyAgJx6AoIINAMOJNCgCZCGoGoLmMCI+CwJoihMNglCCIhzFCUg0EmMhg" & _
"hWDBkAiQg9CUY4jEYN4Jk2IxklYJoJHIUg+CSZJSESFwkkkGI+FOFIJEIRhPhMCRJCSVoRrSBhiDgTZjHYT4PEkYhwhgJYm0SaIaiaSYuE+GQNlmCIBGCJxjhiZQ5AkM" & _
"hAg6ExJCkPhPguaAiFYUAlAkKZ0g6HoOEmWR/GHcA4m0OwIlIJIHCRgQshGJhpjoaocieaZiC6GAimkUgehIOwnGYGYIGkah6jaE4rg6SpCjKK5rEOMYlGIGIihKOggl" & _
"oFoqj6L5aGaBo6CkGIkAQjiPpCAAaJILCTJQlKPACDaXJgmSaJsnCdJ4nygKEoijKQpSmKcqCpKoqysK0rivLAsSyLMtC1LYty4Lkui7LwvS+L8wDBMIwzEMUxjHMgyT" & _
"KMszDNM4zzQNE0jTNQ1TWNc2DZNo2zcN03jfOA4TiOM5DlOY5zoOk6jrOw7TuO88DxPI8z0PU9j3Pg+T6Ps/D9P4/0AQFAkDQRBUGQdCEJQpC0MQ1DkPRBEUSRNFEVBh" & _
"FkXRhGQ9D6Dxfh+W5gGGd4QH2XQjCmDpFFaKoVB+D5Xmed5+H8YAHnIAh9EwV5Fl0d4MkMKJICmSgygSJAoEmMUCIPgnDCCIOQFYCxJjwFoCcA4kxoF+AIJkAgExegDE" & _
"gEYQInAzCUAIOEGgfxiiRDYF1Q4EQ2BSCaEQYwbAiKREMpRSymFNDIAkAxT6oVRgSA2qdVKq1WqvVirMZQUhSCnBUMoIgoQRgnGSIQUgkg1hIHYAkAYMROAmHiLsE4xx" & _
"SCxBwEwCQ0wmDdBsE0GYXBtg2CSPMFIuwYiQBYBQeAcwOCnBCCZgw0g0glBONAQgqQThCGgPQGoBQfiRGmOEZIPAXjsBoPAO4HRThhA0EQSA5BAgaCKJIGg3QdhOCmNU" & _
"BoQAijTCIF0FwQxpCHDIPAYYMQGgtCmFcaQtRAjZCyFYSojQ2B2BoKwIYFApBXEIBsIQ1QsAWAWEwaA1xCgjAoIAQBAQ="
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,,"Child")
	End With
	.EndUpdate()
End With
1034:
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 3)

Dim h
With Exgrid1
	.BeginUpdate()
	With .VisualAppearance
		.Add(3,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5Jlg" & _
"XIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIR" & _
"gwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOM" & _
"INCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=")
		.Add(1,"CP:3 -2 -2 2 2")
		.Add(4,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCE" & _
"eBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchO" & _
"FSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQO" & _
"JtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=")
		.Add(2,"CP:4 -2 -2 2 2")
	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,,"Child 1")
		.InsertItem(h,,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,,"Child")
	End With
	.EndUpdate()
End With
1033:
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 2)

Dim h
With Exgrid1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"XP:TREEVIEW 2 1")
		.Add(2,"XP:TREEVIEW 2 2")
	End With
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exTreeGlyphOpen,&H1000000)
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exTreeGlyphClose,&H2000000)
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,,"Child")
	End With
	.EndUpdate()
End With
1032:
How can I find if the control is running in DPI mode
With Exgrid1
	Debug.Print( .FormatABC("dpi = 1 ? `normal/stretch mode` : `dpi mode`") )
End With
1031:
How can I change the visual appearance of the +/- buttons (method 1)

Dim h
With Exgrid1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5Jlg" & _
"XIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIR" & _
"gwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOM" & _
"INCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=")
		.Add(2,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCE" & _
"eBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchO" & _
"FSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQO" & _
"JtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=")
	End With
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exTreeGlyphOpen,&H1000000)
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exTreeGlyphClose,&H2000000)
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,,"Child")
	End With
	.EndUpdate()
End With
1030:
I am using single selection, the question is if possible to select an item only when the user releases the mouse, as currently it selects the item as soon as the user clicks it
' SelectionChanged event - Fired after a new item has been selected.
Private Sub Exgrid1_SelectionChanged(ByVal sender As System.Object) Handles Exgrid1.SelectionChanged
	With Exgrid1
		Debug.Print( "SelectionChanged" )
	End With
End Sub

With Exgrid1
	.BeginUpdate()
	.FreezeEvents(True)
	.SingleSel = True
	.SelectOnRelease = True
	.Columns.Add("Column").FormatColumn = "1 apos `A-Z`"
	With .Items
		.AddItem("")
		.set_SelectItem(.AddItem(""),True)
		.AddItem("")
	End With
	.FreezeEvents(False)
	.EndUpdate()
End With
1029:
Is it possible to select nothing
' SelectionChanged event - Fired after a new item has been selected.
Private Sub Exgrid1_SelectionChanged(ByVal sender As System.Object) Handles Exgrid1.SelectionChanged
	With Exgrid1
		Debug.Print( "SelectionChanged" )
	End With
End Sub

With Exgrid1
	.BeginUpdate()
	.FreezeEvents(True)
	.AllowSelectNothing = True
	.Columns.Add("Column").FormatColumn = "1 apos `A-Z`"
	With .Items
		.AddItem("")
		.set_SelectItem(.AddItem(""),True)
		.AddItem("")
	End With
	.FreezeEvents(False)
	.EndUpdate()
End With
1028:
How can I specify the color for control's selection when it loses the focus

With Exgrid1
	.BeginUpdate()
	With .Columns.Add("")
		.AllowSizing = False
		.AllowDragging = False
		.AllowSort = False
		.Width = 24
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasButton,True)
	End With
	.Columns.Add("Column").FormatColumn = "1 apos `A-Z`"
	With .Items
		.AddItem("")
		.set_SelectItem(.AddItem(""),True)
		.AddItem("")
	End With
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exSelBackColorHide,Color.FromArgb(196,196,196))
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exSelForeColorHide,Color.FromArgb(0,0,1))
	.EndUpdate()
End With
1027:
How can I change the background color for checked items (EBN color, frame)

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Exgrid1_CellStateChanged(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Exgrid1.CellStateChanged
	With Exgrid1
		.Refresh()
	End With
End Sub

Dim h,hChild
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.SelBackMode = exontrol.EXGRIDLib.BackModeEnum.exTransparent
	.DefaultItemHeight = 22
	With .Columns.Add("Tasks")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .VisualAppearance
		.Add(2,"gBFLBCJwBAEHhEJAAEhABUkIQAAYAQGKIcBiAKBQAGYBIJDEMQ3DjAUBjMK4ZwTC4AIQjCK4JDKHYJRpHEZgLBMJAAGIZYhhUYRUiYMkiJBGGDIDiGGI2SJAcbTVIEc" & _
"x9EyUJSgSTJOjCMokTTIU4TTLYASbJafJJhWSaAiyMouDIOMg1BDNIw/Hika6jOgKUisNJXRzWIBTbDlOQ3JqnbCjOQRSrQBoNDAMAiiaKlbwJPK9RoieQXfwUAJrXJc" & _
"FqXFSLVxNBKAQEBA=")
		.Add(1,"CP:2 1 1 -1 -1")
	End With
	With .ConditionalFormats.Add("%CS0 = 1")
		.BackColor32 = &H1000000
	End With
	.HeaderVisible = True
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.set_SelectItem(hChild,True)
		hChild = .InsertItem(h,,"Task 2")
		.set_CellState(hChild,1)
		hChild = .InsertItem(h,,"Task 3")
		.set_CellState(hChild,1)
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With
1026:
How can I change the caption of the checked items (sample 2)

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 = "%CS0 = 1 ? `<bgcolor=000000><fgcolor=FFFFFF> ` + value + ` </fgcolor></bgcolor>` : value"
	End With
	.HeaderVisible = True
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.set_SelectItem(hChild,True)
		hChild = .InsertItem(h,,"Task 2")
		.set_CellState(hChild,1)
		hChild = .InsertItem(h,,"Task 3")
		.set_CellState(hChild,1)
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With
1025:
How can I change the caption of the checked items (sample 1)

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)` : ``)"
	End With
	.HeaderVisible = True
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.set_SelectItem(hChild,True)
		hChild = .InsertItem(h,,"Task 2")
		.set_CellState(hChild,1)
		hChild = .InsertItem(h,,"Task 3")
		.set_CellState(hChild,1)
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With
1024:
How can I change the font for the checked items

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Exgrid1_CellStateChanged(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Exgrid1.CellStateChanged
	With Exgrid1
		.Refresh()
	End With
End Sub

Dim f,h,hChild
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.DefaultItemHeight = 22
	With .Columns.Add("Tasks")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .ConditionalFormats.Add("%CS0 = 1")
		f = New stdole.StdFont()
		With f
			.Name = Exgrid1.Font.Name
			.Size = 12
		End With
		.Font = f
	End With
	.HeaderVisible = True
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.set_SelectItem(hChild,True)
		hChild = .InsertItem(h,,"Task 2")
		.set_CellState(hChild,1)
		hChild = .InsertItem(h,,"Task 3")
		.set_CellState(hChild,1)
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With
1023:
How can I bold the checked items

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Exgrid1_CellStateChanged(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Exgrid1.CellStateChanged
	With Exgrid1
		.Refresh()
	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
	End With
	With .ConditionalFormats.Add("%CS0 = 1")
		.Bold = True
	End With
	.HeaderVisible = True
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.set_SelectItem(hChild,True)
		hChild = .InsertItem(h,,"Task 2")
		.set_CellState(hChild,1)
		hChild = .InsertItem(h,,"Task 3")
		.set_CellState(hChild,1)
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With
1022:
How can I change the foreground color for checked items

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Exgrid1_CellStateChanged(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Exgrid1.CellStateChanged
	With Exgrid1
		.Refresh()
	End With
End Sub

Dim h,hChild
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.SelBackMode = exontrol.EXGRIDLib.BackModeEnum.exTransparent
	With .Columns.Add("Tasks")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .ConditionalFormats.Add("%CS0 = 1")
		.ForeColor = Color.FromArgb(255,128,128)
	End With
	.HeaderVisible = True
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.set_SelectItem(hChild,True)
		hChild = .InsertItem(h,,"Task 2")
		.set_CellState(hChild,1)
		hChild = .InsertItem(h,,"Task 3")
		.set_CellState(hChild,1)
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With
1021:
How can I change the background color for checked items (solid color)

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Exgrid1_CellStateChanged(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Exgrid1.CellStateChanged
	With Exgrid1
		.Refresh()
	End With
End Sub

Dim h,hChild
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.SelBackMode = exontrol.EXGRIDLib.BackModeEnum.exTransparent
	With .Columns.Add("Tasks")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .ConditionalFormats.Add("%CS0 = 1")
		.BackColor = Color.FromArgb(255,128,128)
	End With
	.HeaderVisible = True
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.set_SelectItem(hChild,True)
		hChild = .InsertItem(h,,"Task 2")
		.set_CellState(hChild,1)
		hChild = .InsertItem(h,,"Task 3")
		.set_CellState(hChild,1)
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With
1020:
How can I export the cell's state as well

With Exgrid1
	.BeginUpdate()
	With .Columns
		.Add("C1").set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
		.Add("C2").FormatColumn = "1 index `A-Z`"
		.Add("C3").FormatColumn = "100 index ``"
	End With
	With .Items
		.AddItem("Item 1")
		.set_CellState(.AddItem("Item 2"),1)
		.set_CellState(.AddItem("Item 3"),1)
	End With
	.EndUpdate()
	Debug.Print( "Export CSV Items including Check-State:" )
	.BeginUpdate()
	With .Columns.Add("Check")
		.Position = 0
		.FormatColumn = "%CS0"
	End With
	Debug.Print( .Export("") )
	.Columns.Remove("Check")
	.EndUpdate()
End With
1019:
Is it possible to customize the editor selection colour of the built in text editor, from standard blue to black

With Exgrid1
	.BeginUpdate()
	.SelBackColor = Color.FromArgb(0,0,0)
	.SelForeColor = Color.FromArgb(255,255,255)
	With .Columns.Add("Edit").Editor
		.EditType = exontrol.EXGRIDLib.EditTypeEnum.MaskType
		.Mask = ";;;rich"
	End With
	With .Items
		.AddItem("")
		.AddItem("Just a text")
		.AddItem("")
	End With
	.EndUpdate()
End With
1018:
Is it possible to customize the editor selection colour of the built in dropdown editor, from standard blue to black

With Exgrid1
	.BeginUpdate()
	.SelBackColor = Color.FromArgb(0,0,0)
	.SelForeColor = Color.FromArgb(255,255,255)
	With .Columns.Add("DropDown").Editor
		.AddItem(1,"This is just the first item")
		.AddItem(2,"This is just the second item")
		.AddItem(3,"This is just the third item")
		.EditType = exontrol.EXGRIDLib.EditTypeEnum.DropDownType
		.Mask = ";;;rich"
	End With
	With .Items
		.AddItem("")
		.AddItem("Just a text")
		.AddItem("")
	End With
	.EndUpdate()
End With
1017:
The BeforeExpandItem event is fired when clicking the drop down filter button. What we can do to prevent that
' 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
		Debug.Print( "BeforeExpandItem" )
		Debug.Print( Item )
		Debug.Print( "ColumnFromPoint" )
		Debug.Print( .get_ColumnFromPoint(-1,-1) )
		Debug.Print( "ColumnFromPoint return -1, if the user clicks the +/- glitch, else it returns the index of the column where the click occurs." )
		.Items.InsertItem(Item,,"new child")
	End With
End Sub

With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns
		.Add("Items").DisplayFilterButton = True
	End With
	With .Items
		.set_ItemHasChildren(.InsertItem(,,"Group 1"),True)
		.set_ItemHasChildren(.InsertItem(,,"Group 2"),True)
	End With
	.EndUpdate()
End With
1016:
How do I change the drop down filter icon/button (black)

With Exgrid1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" & _
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" & _
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA")
	End With
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exHeaderFilterBarButton,&H1000000)
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.None2
	.BackColorHeader = Color.FromArgb(0,0,0)
	.ForeColorHeader = Color.FromArgb(255,255,255)
	.HeaderVisible = True
	With .Columns.Add("Filter")
		.DisplayFilterButton = True
		.AllowSort = False
		.AllowDragging = False
	End With
	.EndUpdate()
End With
1015:
How do I change the drop down filter icon/button (white)

With Exgrid1
	.BeginUpdate()
	With .VisualAppearance
		.Add(2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgAN" & _
"J0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8Y" & _
"NYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4" & _
"hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mg" & _
"bhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhW" & _
"BMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=")
		.Add(1,"CP:2 -4 -4 2 4")
	End With
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exHeaderFilterBarButton,&H1000000)
	.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exCursorHoverColumn,.BackColor)
	.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.None2
	.HeaderHeight = 24
	.BackColorHeader = Color.FromArgb(255,255,255)
	.HeaderVisible = True
	With .Columns.Add("Filter")
		.DisplayFilterButton = True
		.AllowSort = False
		.AllowDragging = False
	End With
	.EndUpdate()
End With
1014:
How can I draw a solid frame around the the focusing item

Dim h
With Exgrid1
	.BeginUpdate()
	.SingleSel = False
	.DefaultItemHeight = 20
	With .VisualAppearance
		.RenderType = -1
		.Add(1,"gBFLBCJwBAEHhEJAAEhABOkGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEwpFAZBhgeDYMiSNoYDJCM4wH" & _
"IURRJFCUJSGWQpTgSIgyT5HFIxXKoASbJabZLhWS6EpWOotTbIQQRYCkEyfKKfZyGURZQqOKA1DBZErWTJESRFJqLazgO4LAhyQYrVgAErzVKVCRNOqbJzADApdpGQJT" & _
"ULDNTQHRFIyhOSnIRrWbMAhid6JUZiVT4dBOIYhSYANAqCwLFqrDJmWrpV5WZjlZ47V6BdAyXJsIrmFJEXaOGhyDDlGybSDZYryfZhUziUw4XjbWwZDqPF6DKTTdSGLR" & _
"EE8WZVlURZvDaep3C+AY8kAYRgGCCBJECUhjDoHROEYWgoAGTQ1CEEx9lGMY0CQUYSnuZQDBGBYFlOH5+H+igGAKAJgEgFgGgGVgDn4CoCmCSA2A6A5hAgDgQgSYRIE4" & _
"EoFGGCBiBeBhhkgPgbgcYgICoH4IGGWIOCSBhiGiHgVgoYooFoAoLGIWI+DCCgjCiTgrgII4ImYOoOmOSJ2AYOpWlQDQBICA=")
	End With
	.ShowFocusRect = True
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exShowFocusRect,&H1000000)
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("P1")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With
1013:
The frame around the focusing item is not very clear. Can I show it larger or more cleared (sample 2)

Dim h
With Exgrid1
	.BeginUpdate()
	.SingleSel = False
	.DefaultItemHeight = 20
	.ShowFocusRect = True
	With .VisualAppearance
		.RenderType = -1
		.Add(2,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEwpFAZBhgeCRUgyJI3RgMUIzV" & _
"AcRRFEiUJQlIZZCjOAw0SIMU7xZRcNxsACnaZnCR4NiuRYiUhOcqzRIQIQ4CiEahqOgJbDUJYwWZKAyjBY8XTZFCSJCpeJ6egOc5jRxQUp1WAEXx3GSsJKvCZ5cADBY+" & _
"VLQNS0JBtMSTKSLaiuWoIJqCPaDRheWKQJh1NSnLqEcjyYANDxDCZlWzAYxWTZ2Uz7N7PbB0HY4DyPGKZYrfESVRbQcZNS6nNigPI9XhfGq6VjRe63ZaOaYpWrnOJqTR" & _
"WjOKYujWdZ2BGO5lkuBAAkmcQkDmDBEAwEQJCgGhMGcQ4pkiSxGAAOYmkQIhvkYNg2gSCgyj+LI4GIMIwF2XQoAYAoAmASAWAaAZgggJgKFiT54DYDoDmECBGBKBJgGg" & _
"TgWgWYRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChiigYgsgsYYYBYMIKCMKJOCuDRjGiOgLg6Y5InYPoPmQCAkmsXAQDQBCAg=")
		.Add(3,"CP:2 -3 0 3 0")
	End With
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exShowFocusRect,&H3010101)
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("P1")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With
1012:
The frame around the focusing item is not very clear. Can I show it larger or more cleared (sample 1)

Dim h
With Exgrid1
	.BeginUpdate()
	.SingleSel = False
	.ShowFocusRect = True
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABHoDg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASV" & _
"AceAAGaUZrjSgobjmOYhAJCLqhYIgASXJqLaBlOCaAieSc+QhjQJIJoeCZXU5TFg1BTsOhqEqcRiseaRVDCaIJWzbdYWLDdNQHHKYLjnWorbpSJZ5XjNEySDQkMS9PrE" & _
"J7vST8FBCdAABLJUB2BR9RwxRafKpnWwJDpmCaOQLXEB5DK1PyVMTKYrtGy7GrIAJxWxbV4UHh+QABOzIMAvHKJMwvHYcUZne5XVLeF41HbONogPaJZyIAK2cLROq6Xo" & _
"7GEcJZEcLASB4DwvgWUZlE6AQQhKAYkkYdA6hyDIwHgSoqFwQgmnsYxjGgSIiBOTpSEiAwRgOJI7j4JAHA6U5wm0MpPlOBIjD8TZiGYCICiCGAuA6AxhAgMgSgOYQ4DY" & _
"Bg/g6cw1n+ABOmMMJ9DmCwjnScw4RsVJngkYh4hoKIKmKKI2CmC5ikiQgqgiT5jhyMw8g4QwIn0OIKEiCJhD8DwTGyfA7k0WQOEWEQkGkJhIhKZB5DYSoTiSCQEn4PQO" & _
"COXJcCeIJjliaIQk0aRyF4O5llmAhfhgZhJg4ZoYiaAxYn4PZOhOZJaCUZYTiYQw1mcOZUm+HQnHmWh4h6Z4pnYeYfk0eYsmqG4nAgNJ2DqD5DkCWoiGiOgqgyI5omoR" & _
"oNiSaQKFKEojCaM4ugSFhOjkAJcieKgDkaH4oioGoOiaKRqgqEoqDddwyhuAxPgOMJ8DyDZqk6NYtCsapmjiLprHqdo6i+K5K1oPhOlqPgKD4DpjnII4yiOewuk6MxtA" & _
"sMpSjObQ7EaT4wk6ewYn0PgPAiCJkjeLgDk6X44i4G4OmaORuguEpqDkLAzkaWg+E8GIUmaPIvEOVpzj2Lxbl6eo+G+S5in4OYPmOaJyjuTwjnYWpBg6DAjAqQZwkwJw" & _
"NkKcJsEcEJCDBEpaD6Dw8BiapGjGSgfB2RpxmyBwgkicZ8haBw/g+M5TBcPQPlOXJskscp8jsMJMnMLJXDGTZzEyYw2kwMoDlcFw9i2M4/EGUJPg0CxFlENBtCcSJSnQ" & _
"fQ0m+SgPHsaJ7lALZLG6XZVHWDRfFqVY1k0ZxdladYTnifJUGaeAWAeMnSGcGWgBObJ3lWbwdjKW5cHcTZPHaLkN4GxXDlFqFsA4uRbBOGAFAEIzAsDEFOBkfYqR4D6A" & _
"OBEYo8QuBvAmMceInBDgcD0JwOIqQyJ1DMAwG4IANDnHSMoK4QhOgMBGNEIQvQWAdGenETIswGiddsAAQAgCAgA==")
		.Add(2,"gBFLBCJwBAEHhEJAAEhABeEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADDFIBQSLAYROGSDJBGODJDjWGIeQLOEhQH" & _
"IMRxPE6UYLhWYpBDKPYcUbGc7yBBMVwGf59XzACoKSheQIVSDQkw6Fo6NYhAxHALyNRkBy8f60KjtGpodDUJYvW5JYyjBZ8EznOqbJBkeJ7BgOe5NQjaD72VgdWQJFSW" & _
"JajWYYJDOJY2ZAAE5TVINEwxJbDaylChIdxaF6WAzZEBhBYoATPNLBMrhWqKDw2XaQWBCOgwHYeR5LU7BdRwbIrRq2eAAXbcVyXfDddZlBK+QA0SK9lRVTKvJZmKgBWw" & _
"1COSxmAAGw4kcNx1iKFBiCAfQsG8lJemucg7nsXpUHOOxrm+DI3jOH4XAOBx2nscw0j2HhPG4L5uGEVIECQCBCEUAYkGMHQHFGSBlGaAxkEgQgTGCVBsDYQhCgQJZrHK" & _
"UggGEShkFGNgIlsNpPnMHJHD+TADAIJIJiIWIeCqChikiIgmgiD5zHyXxgiACJKCuC4jHiZgtg6I4IlkCQwkwOIonMPJjEkFhGhGZBpA4KoMBCGJuEiE5lAkGg7hMY4J" & _
"EYVoUCUNAOE6FZl0KWQACWOR2GKF5mBmChchkJRZhoXYaCKKYqGuDglEmNhuhWZpIiYc4dCcCRqGmHZlgm2YxAwSQKESHwkFkKgpiAIAIH4PIimOOg2DiChoiQJRRD+T" & _
"ZDHCfwyAyCgyg+JpiioYJ/DgDgIlECQ6lwRAEICA=")
		.Add(3,"CP:2 -2 0 2 0")
	End With
	.SelBackColor32 = &H1000000
	.SelForeColor = Color.FromArgb(0,0,0)
	.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exShowFocusRect,&H3ff0000)
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("P1")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With
1011:
I have a column right-aligned. How can I display its check box aligned to the right, as it appears to the left of the cell's caption

With Exgrid1
	.BeginUpdate()
	.ColumnAutoResize = True
	.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exVLines
	With .Columns
		With .Add("Left")
			.AllowSizing = False
			.Width = 96
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
			.FormatColumn = "0 pos `A-Z`"
		End With
		With .Add("Center")
			.HeaderAlignment = exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment
			.Alignment = .HeaderAlignment
			.AllowSizing = False
			.Width = 96
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
			.FormatColumn = "0 pos `A-Z`"
		End With
		With .Add("Right")
			.HeaderAlignment = exontrol.EXGRIDLib.AlignmentEnum.RightAlignment
			.Alignment = .HeaderAlignment
			.AllowSizing = False
			.Width = 96
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
			.FormatColumn = "0 pos `A-Z`"
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellDrawPartsOrder,"caption,check,icon,icons,picture")
		End With
		.Add("")
	End With
	With .Items
		.set_CellState(.AddItem("Item 1"),3,1)
		.set_CellState(.AddItem("Item 2"),2,1)
		.set_CellState(.AddItem("Item 3"),1,1)
	End With
	.EndUpdate()
End With
1010:
Can I display the column's multiple-lines caption vertically oriented (method 2)

With Exgrid1
	.BeginUpdate()
	.HeaderHeight = 48
	.ColumnAutoResize = True
	With .Columns
		.Add("And others ...")
		With .Add("")
			.HTMLCaption = "First Column"
			.HeaderVertical = True
			.Width = 36
			.AllowSizing = False
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellPaddingLeft,8)
			.Position = 0
		End With
		With .Add("")
			.HTMLCaption = "<c><b>Second Column"
			.HeaderVertical = True
			.Width = 36
			.AllowSizing = False
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellPaddingLeft,8)
			.Position = 1
		End With
		With .Add("")
			.HTMLCaption = "<r>Third Column"
			.HeaderVertical = True
			.Width = 36
			.AllowSizing = False
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellPaddingLeft,8)
			.Position = 2
		End With
	End With
	With .Items
		.set_CellState(.AddItem("Item 1"),3,1)
		.set_CellState(.AddItem("Item 2"),2,1)
		.set_CellState(.AddItem("Item 3"),1,1)
	End With
	.EndUpdate()
End With
1009:
Can I display the column's multiple-lines caption vertically oriented (method 1)

With Exgrid1
	.BeginUpdate()
	.HeaderHeight = 48
	.HeaderSingleLine = False
	.ColumnAutoResize = True
	With .Columns
		.Add("And others ...")
		With .Add("First Column")
			.HeaderVertical = True
			.Width = 36
			.AllowSizing = False
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellPaddingLeft,8)
			.Position = 0
		End With
		With .Add("Second Column")
			.HeaderBold = True
			.HeaderVertical = True
			.Width = 36
			.AllowSizing = False
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellPaddingLeft,8)
			.Position = 1
		End With
		With .Add("Third Column")
			.HeaderVertical = True
			.Width = 36
			.AllowSizing = False
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellPaddingLeft,8)
			.Position = 2
		End With
	End With
	With .Items
		.set_CellState(.AddItem("Item 1"),3,1)
		.set_CellState(.AddItem("Item 2"),2,1)
		.set_CellState(.AddItem("Item 3"),1,1)
	End With
	.EndUpdate()
End With
1008:
Can I display the column's caption vertically oriented (method 2)

With Exgrid1
	.BeginUpdate()
	.HeaderHeight = 48
	.ColumnAutoResize = True
	With .Columns
		.Add("And others ...")
		With .Add("")
			.HTMLCaption = "First"
			.HeaderVertical = True
			.Width = 20
			.AllowSizing = False
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
			.Position = 0
		End With
		With .Add("")
			.HTMLCaption = "<c><b>Second"
			.HeaderVertical = True
			.Width = 20
			.AllowSizing = False
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
			.Position = 1
		End With
		With .Add("")
			.HTMLCaption = "<r>Third"
			.HeaderVertical = True
			.Width = 20
			.AllowSizing = False
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
			.Position = 2
		End With
	End With
	With .Items
		.set_CellState(.AddItem("Item 1"),3,1)
		.set_CellState(.AddItem("Item 2"),2,1)
		.set_CellState(.AddItem("Item 3"),1,1)
	End With
	.EndUpdate()
End With
1007:
Can I display the column's caption vertically oriented (method 1)

With Exgrid1
	.BeginUpdate()
	.HeaderHeight = 48
	.ColumnAutoResize = True
	With .Columns
		.Add("And others ...")
		With .Add("First")
			.HeaderVertical = True
			.Width = 20
			.AllowSizing = False
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
			.Position = 0
		End With
		With .Add("Second")
			.HeaderBold = True
			.HeaderVertical = True
			.Width = 20
			.AllowSizing = False
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
			.Position = 1
		End With
		With .Add("Third")
			.HeaderVertical = True
			.Width = 20
			.AllowSizing = False
			.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
			.Position = 2
		End With
	End With
	With .Items
		.set_CellState(.AddItem("Item 1"),3,1)
		.set_CellState(.AddItem("Item 2"),2,1)
		.set_CellState(.AddItem("Item 3"),1,1)
	End With
	.EndUpdate()
End With
1006:
How do I automatically bold items being checked

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Exgrid1_CellStateChanged(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Exgrid1.CellStateChanged
End Sub

With Exgrid1
	.BeginUpdate()
	.SelBackMode = exontrol.EXGRIDLib.BackModeEnum.exTransparent
	With .ConditionalFormats.Add("%CS0","check")
		.Bold = True
	End With
	.Columns.Add("Items").set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
	.Columns.Add(Exgrid1.ConditionalFormats.Item("check").Expression).FormatColumn = Exgrid1.ConditionalFormats.Item("check").Expression
	With .Items
		.AddItem("Item 1")
		.set_CellState(.AddItem("Item 2"),0,1)
		.AddItem("Item 3")
	End With
	.EndUpdate()
End With
1005:
How can I use the CellState with ConditionalFormat/ComputedField/FormatColumn

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Exgrid1_CellStateChanged(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Exgrid1.CellStateChanged
End Sub

Dim h
With Exgrid1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesInsideLeaf
	.SelBackMode = exontrol.EXGRIDLib.BackModeEnum.exTransparent
	With .Columns.Add("Items")
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .Columns.Add("Format")
		.FormatColumn = "%CS0"
		.Caption = .FormatColumn
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellForeColor,8421504)
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exHeaderForeColor,.get_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellForeColor))
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,,"Item 1")
		.set_CellState(.InsertItem(h,,"Item 2"),0,1)
		.set_CellState(.InsertItem(h,,"Item 3"),0,1)
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With
1004:
How can I use the CellData with ConditionalFormat/ComputedField/FormatColumn

With Exgrid1
	.BeginUpdate()
	.Columns.Add("Items")
	With .Columns.Add("Format")
		.FormatColumn = "%CD0"
		.Caption = .FormatColumn
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellForeColor,8421504)
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exHeaderForeColor,.get_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellForeColor))
	End With
	With .Items
		.set_CellData(.AddItem("Item 1"),0,1234)
		.set_CellData(.AddItem("Item 2"),0,"this is just an user data")
		.set_CellData(.AddItem("Item 3"),0,#1/1/2001#)
	End With
	.EndUpdate()
End With
1003:
How can I use the CellValue/CellCaption with ConditionalFormat/ComputedField/FormatColumn

With Exgrid1
	.BeginUpdate()
	With .Columns.Add("Items")
		With .Editor
			.EditType = exontrol.EXGRIDLib.EditTypeEnum.DropDownListType
			.AddItem(1,"Item 1")
			.AddItem(2,"Item 2")
			.AddItem(3,"Item 3")
		End With
	End With
	With .Columns.Add("Format")
		.FormatColumn = "%0"
		.Caption = .FormatColumn
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellForeColor,8421504)
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exHeaderForeColor,.get_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellForeColor))
		.AllowSizing = False
	End With
	With .Columns.Add("Format")
		.FormatColumn = "%C0"
		.Caption = .FormatColumn
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellForeColor,8421504)
		.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exHeaderForeColor,.get_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellForeColor))
		.AllowSizing = False
	End With
	With .Items
		.AddItem(1)
		.set_CellValue(.AddItem(0),0,2)
		.AddItem(2)
	End With
	.EndUpdate()
End With
1002:
Can I display the radio-button with a solid color

With Exgrid1
	.BeginUpdate()
	.set_RadioImage(False,32699122)
	.set_RadioImage(True,16777216)
	.Columns.Add("Check").set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasRadioButton,True)
	With .Items
		.AddItem("Radio 1")
		.set_CellState(.AddItem("Radio 2"),0,1)
		.AddItem("Radio 1")
	End With
	.EndUpdate()
End With
1001:
Can I display the check-box with a solid color

With Exgrid1
	.BeginUpdate()
	.set_CheckImage(exontrol.EXGRIDLib.CheckStateEnum.Unchecked,32699122)
	.set_CheckImage(exontrol.EXGRIDLib.CheckStateEnum.Checked,16777216)
	.Columns.Add("Check").set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
	With .Items
		.AddItem("Check 1")
		.set_CellState(.AddItem("Check 2"),0,1)
		.AddItem("Check 3")
	End With
	.EndUpdate()
End With