552:
Is it possible to configure different colour/icon when there is a active filter

/*
with (this.EXCOMBOBOXACTIVEXCONTROL1.nativeObject)
	FilterChange = class::nativeObject_FilterChange
endwith
*/
// Occurs when filter was changed.
function nativeObject_FilterChange()
	oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
	oComboBox.Template = [Background(0) = FormatABC("value = 0 ? 0x1000001 : 0x10000FF ",Columns.Item(0).FilterType)] // oComboBox.Background(0) = oComboBox.FormatABC("value = 0 ? 0x1000001 : 0x10000FF ",oComboBox.Columns.Item(0).FilterType)
return

local oComboBox,var_Appearance,var_Column,var_Column1,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
var_Appearance = oComboBox.VisualAppearance
	var_Appearance.RenderType = -16777216
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQgmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYThdr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA")
oComboBox.DrawGridLines = -1
oComboBox.ShowFocusRect = false
oComboBox.Template = [Background(0) = 16777217] // oComboBox.Background(0) = 0x1000001
oComboBox.Template = [Background(32) = -1] // oComboBox.Background(32) = -1
oComboBox.HeaderAppearance = 4
oComboBox.HeaderVisible = true
var_Column = oComboBox.Columns.Add("Filter")
	var_Column.DisplayFilterButton = true
	var_Column.AllowSort = false
	var_Column.AllowDragging = false
	var_Column.FilterList = 256
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
var_Column1 = oComboBox.Columns.Item(0)
	var_Column1.Filter = "Item B"
	var_Column1.FilterType = 240
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

551:
Why canít I type free text into a DropDown style combobox

local oComboBox,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.AutoComplete = false
oComboBox.IntegralHeight = true
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")

550:
I am calling Value to change the selected value, but the selection is not visible, unless I scroll to it

local oComboBox,rs,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
rs = new OleAutoClient("ADODB.Recordset")
	rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access2007\sample.accdb",1,1)
oComboBox.DataSource = rs
oComboBox.Value = 10311
var_Items = oComboBox.Items
	var_Items.EnsureVisibleItem(var_Items.FocusItem)
oComboBox.EndUpdate()

549:
How can I create a new ADO recordset

local oComboBox,rs

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
rs = new OleAutoClient("ADODB.Recordset")
	rs.Fields.Append("A",8)
	rs.Fields.Append("B",8)
	rs.Open()
	rs.AddNew()
	rs.Fields.Item("A").Value = "Item A.1"
	rs.Fields.Item("B").Value = "Item B.1"
	rs.Update()
	rs.AddNew()
	rs.Fields.Item("A").Value = "Item A.2"
	rs.Fields.Item("B").Value = "Item B.2"
	rs.Update()
oComboBox.DataSource = rs
oComboBox.Value = "Item A.1"
oComboBox.EndUpdate()

548:
Do do I get the DAO version I have installed
local oComboBox

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
? new OleAutoClient("DAO.DBEngine.35").Version 
? new OleAutoClient("DAO.DBEngine.36").Version 
? new OleAutoClient("DAO.DBEngine.120").Version 

547:
How do I get a list of interfaces the object implemenets

local oComboBox,rs,var_PrivDBEngine

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
var_PrivDBEngine = new OleAutoClient("DAO.DBEngine.120")
	rs = var_PrivDBEngine.OpenDatabase("C:\Program Files\Exontrol\ExComboBox\Sample\Access2007\sample.accdb").OpenRecordset("Orders")
? new OleAutoClient("Exontrol.PropertiesList").Interfaces(rs) 
oComboBox.DataSource = rs
oComboBox.Value = 10248
oComboBox.EndUpdate()

546:
Do do I get the ADO version I have installed
local oComboBox

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
? "ADO Version:" 
? new OleAutoClient("ADODB.Connection").Version 

545:
DAO, ACCDB, 120

local oComboBox,rs,var_PrivDBEngine

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
var_PrivDBEngine = new OleAutoClient("DAO.DBEngine.120")
	rs = var_PrivDBEngine.OpenDatabase("C:\Program Files\Exontrol\ExComboBox\Sample\Access2007\sample.accdb").OpenRecordset("Orders")
oComboBox.DataSource = rs
oComboBox.Value = 10248
oComboBox.EndUpdate()

544:
DAO, MDB, 120

local oComboBox,rs,var_PrivDBEngine

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
var_PrivDBEngine = new OleAutoClient("DAO.DBEngine.120")
	rs = var_PrivDBEngine.OpenDatabase("C:\Program Files\Exontrol\ExComboBox\Sample\SAMPLE.MDB").OpenRecordset("Orders")
oComboBox.DataSource = rs
oComboBox.Value = 10248
oComboBox.EndUpdate()

543:
DAO, MDB

local oComboBox,rs,var_PrivDBEngine

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
var_PrivDBEngine = new OleAutoClient("DAO.DBEngine.36")
	rs = var_PrivDBEngine.OpenDatabase("C:\Program Files\Exontrol\ExComboBox\Sample\SAMPLE.MDB").OpenRecordset("Orders")
oComboBox.DataSource = rs
oComboBox.Value = 10248
oComboBox.EndUpdate()

542:
ADODB, ACCDB, x64

local oComboBox,rs

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
rs = new OleAutoClient("ADODB.Recordset")
	rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access2007\sample.accdb",1,1)
oComboBox.DataSource = rs
oComboBox.Value = 10248
oComboBox.EndUpdate()

541:
ADOR, ACCDB

local oComboBox,rs

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
rs = new OleAutoClient("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access2007\sample.accdb",3,3)
oComboBox.DataSource = rs
oComboBox.Value = 10248
oComboBox.EndUpdate()

540:
ADODB, MDB

local oComboBox,rs

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
rs = new OleAutoClient("ADODB.Recordset")
	rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\SAMPLE.MDB",3,3)
oComboBox.DataSource = rs
oComboBox.Value = 10248
oComboBox.EndUpdate()

539:
ADOR, MDB

local oComboBox,rs

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
rs = new OleAutoClient("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\SAMPLE.MDB",3,3)
oComboBox.DataSource = rs
oComboBox.Value = 10248
oComboBox.EndUpdate()

538:
Type of wraps the cell's caption support (Sample 2)

local oComboBox,var_Column,var_Column1,var_Column2,var_Columns,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
oComboBox.HeaderSingleLine = false
oComboBox.HeaderHeight = 36
oComboBox.DrawGridLines = -2
oComboBox.ColumnAutoResize = false
oComboBox.ScrollBySingleLine = true
var_Columns = oComboBox.Columns
	var_Column = var_Columns.Add("Single-Line (exCaptionSingleLine)")
		var_Column.Width = 96
		// var_Column.Def(17) = 1
		with (oComboBox)
			TemplateDef = [dim var_Column]
			TemplateDef = var_Column
			Template = [var_Column.Def(17) = 1]
		endwith
		// var_Column.Def(16) = -1
		with (oComboBox)
			TemplateDef = [dim var_Column]
			TemplateDef = var_Column
			Template = [var_Column.Def(16) = -1]
		endwith
	var_Column1 = var_Columns.Add("Word-Wrap (exCaptionWordWrap)")
		var_Column1.Width = 96
		// var_Column1.Def(17) = 1
		with (oComboBox)
			TemplateDef = [dim var_Column1]
			TemplateDef = var_Column1
			Template = [var_Column1.Def(17) = 1]
		endwith
		// var_Column1.Def(16) = 0
		with (oComboBox)
			TemplateDef = [dim var_Column1]
			TemplateDef = var_Column1
			Template = [var_Column1.Def(16) = 0]
		endwith
		var_Column1.FormatColumn = "%0"
	var_Column2 = var_Columns.Add("Break-Wrap (exCaptionBreakWrap)")
		var_Column2.Width = 96
		// var_Column2.Def(17) = 1
		with (oComboBox)
			TemplateDef = [dim var_Column2]
			TemplateDef = var_Column2
			Template = [var_Column2.Def(17) = 1]
		endwith
		// var_Column2.Def(16) = 1
		with (oComboBox)
			TemplateDef = [dim var_Column2]
			TemplateDef = var_Column2
			Template = [var_Column2.Def(16) = 1]
		endwith
		var_Column2.FormatColumn = "%0"
var_Items = oComboBox.Items
	var_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.")
	var_Items.AddItem("This is the <b>first</b> line.\r\nThis is the <b>second</b> line.\r\nThis is the <b>third</b> line.")
oComboBox.EndUpdate()

537:
Type of wraps the cell's caption support (Sample 1)

local h,oComboBox,var_Column,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
oComboBox.HeaderSingleLine = false
oComboBox.HeaderHeight = 36
oComboBox.DrawGridLines = -2
oComboBox.ColumnAutoResize = false
oComboBox.ScrollBySingleLine = true
// oComboBox.Columns.Add("Default").Width = 128
var_Column = oComboBox.Columns.Add("Default")
with (oComboBox)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.Width = 128]
endwith
var_Items = oComboBox.Items
	h = var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
	h = var_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.")
	// var_Items.CellCaptionFormat(h,0) = 1
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellCaptionFormat(h,0) = 1]
	endwith
	h = var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
	// var_Items.CellSingleLine(h,0) = 0
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellSingleLine(h,0) = 0]
	endwith
	h = var_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.")
	// var_Items.CellCaptionFormat(h,0) = 1
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellCaptionFormat(h,0) = 1]
	endwith
	// var_Items.CellSingleLine(h,0) = 0
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellSingleLine(h,0) = 0]
	endwith
	h = var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
	// var_Items.CellSingleLine(h,0) = 1
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellSingleLine(h,0) = 1]
	endwith
	h = var_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.")
	// var_Items.CellCaptionFormat(h,0) = 1
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellCaptionFormat(h,0) = 1]
	endwith
	// var_Items.CellSingleLine(h,0) = 1
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellSingleLine(h,0) = 1]
	endwith
oComboBox.EndUpdate()

536:
Can I break the cell's caption using the line break <br> or \r\n (Sample 2)

local oComboBox,var_Column,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
oComboBox.DrawGridLines = -2
oComboBox.ColumnAutoResize = false
oComboBox.ScrollBySingleLine = true
// oComboBox.Columns.Add("Default").Width = 128
var_Column = oComboBox.Columns.Add("Default")
with (oComboBox)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.Width = 128]
endwith
var_Items = oComboBox.Items
	// var_Items.CellSingleLine(var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line."),0) = 1
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellSingleLine(AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line."),0) = 1]
	endwith
	var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
oComboBox.EndUpdate()

535:
Can I break the cell's caption using the line break <br> or \r\n (Sample 1)

local oComboBox,var_Column,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
oComboBox.DrawGridLines = -2
oComboBox.ColumnAutoResize = false
oComboBox.ScrollBySingleLine = true
var_Column = oComboBox.Columns.Add("Default")
	var_Column.Width = 128
	// var_Column.Def(16) = 1
	with (oComboBox)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(16) = 1]
	endwith
var_Items = oComboBox.Items
	var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
	var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
oComboBox.EndUpdate()

534:
Export Data in HTML format

local h,oComboBox,sFile,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Column6,var_Columns,var_ConditionalFormat,var_ConditionalFormat1,var_ConditionalFormat2,var_ConditionalFormats,var_Items,var_ShellBrowserWindow

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
oComboBox.BackColorAlternate = 0xf0f0f0
oComboBox.DrawGridLines = -1
oComboBox.HeaderAppearance = 4
oComboBox.Template = [Description(11) = FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Description(11))] // oComboBox.Description(11) = Str(oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11)))
oComboBox.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>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oComboBox.FilterBarPromptVisible = 2579 /*exFilterBarCompact | exFilterBarShowCloseIfRequired | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible*/
oComboBox.FilterBarPromptType = 2
var_ConditionalFormats = oComboBox.ConditionalFormats
	// var_ConditionalFormats.Add("%0 like `*parent*`","parent").BackColor = 0xc0c0c0
	var_ConditionalFormat = var_ConditionalFormats.Add("%0 like `*parent*`","parent")
	with (oComboBox)
		TemplateDef = [dim var_ConditionalFormat]
		TemplateDef = var_ConditionalFormat
		Template = [var_ConditionalFormat.BackColor = 12632256]
	endwith
	var_ConditionalFormat1 = var_ConditionalFormats.Add("%0 like `*child*`","child")
		var_ConditionalFormat1.ForeColor = 0x8080ff
		var_ConditionalFormat1.ApplyTo = 0
	var_ConditionalFormat2 = var_ConditionalFormats.Add("%0 like `*B*`","b")
		var_ConditionalFormat2.ForeColor = 0xff0000
		var_ConditionalFormat2.Bold = true
		var_ConditionalFormat2.Italic = true
		var_ConditionalFormat2.ApplyTo = 0
var_Columns = oComboBox.Columns
	var_Column = var_Columns.Add("Value")
		var_Column.Width = 128
		var_Column.HTMLCaption = "<b>VA</b><r>sko"
	var_Column1 = var_Columns.Add("APos")
		var_Column1.FormatColumn = "0 apos ``"
		var_Column1.AllowSort = false
		// var_Column1.Def(4) = 15790320
		with (oComboBox)
			TemplateDef = [dim var_Column1]
			TemplateDef = var_Column1
			Template = [var_Column1.Def(4) = 15790320]
		endwith
		// var_Column1.Def(5) = 8421504
		with (oComboBox)
			TemplateDef = [dim var_Column1]
			TemplateDef = var_Column1
			Template = [var_Column1.Def(5) = 8421504]
		endwith
		// var_Column1.Def(8) = var_Column1.Def(5)
		with (oComboBox)
			TemplateDef = [dim var_Column1]
			TemplateDef = var_Column1
			Template = [var_Column1.Def(8) = Def(5)]
		endwith
		var_Column1.Position = 0
	var_Column2 = var_Columns.Add("RPos")
		var_Column2.FormatColumn = "0 rpos ``"
		var_Column2.AllowSort = false
		var_Column2.Position = 1
	var_Column3 = var_Columns.Add("Index")
		var_Column3.FormatColumn = "0 index ``"
		var_Column3.DisplayFilterButton = true
		var_Column3.FilterList = 256
		var_Column3.Position = 2
	var_Column4 = var_Columns.Add("Data 1")
		var_Column4.FormatColumn = "0 index `A-Z`"
		// var_Column4.Def(0) = true
		with (oComboBox)
			TemplateDef = [dim var_Column4]
			TemplateDef = var_Column4
			Template = [var_Column4.Def(0) = True]
		endwith
	var_Column5 = var_Columns.Add("Data 2")
		var_Column5.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`"
		// var_Column5.Def(16) = false
		with (oComboBox)
			TemplateDef = [dim var_Column5]
			TemplateDef = var_Column5
			Template = [var_Column5.Def(16) = False]
		endwith
		// var_Column5.Def(17) = 1
		with (oComboBox)
			TemplateDef = [dim var_Column5]
			TemplateDef = var_Column5
			Template = [var_Column5.Def(17) = 1]
		endwith
		// var_Column5.Def(1) = true
		with (oComboBox)
			TemplateDef = [dim var_Column5]
			TemplateDef = var_Column5
			Template = [var_Column5.Def(1) = True]
		endwith
	var_Column6 = var_Columns.Add("Data 3")
		var_Column6.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`"
		// var_Column6.Def(17) = 1
		with (oComboBox)
			TemplateDef = [dim var_Column6]
			TemplateDef = var_Column6
			Template = [var_Column6.Def(17) = 1]
		endwith
var_Items = oComboBox.Items
	h = var_Items.AddItem("ParentA")
	var_Items.InsertItem(h,null,"Child A")
	var_Items.InsertItem(h,null,"Child B")
	// var_Items.CellState(h,4) = 1
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellState(h,4) = 1]
	endwith
	// var_Items.CellBackColor(var_Items.InsertItem(h,null,"Child C"),5) = 0xff00
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellBackColor(InsertItem(h,,"Child C"),5) = 65280]
	endwith
	// var_Items.ExpandItem(h) = true
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ExpandItem(h) = True]
	endwith
	var_Items.AddItem("Item A")
	h = var_Items.AddItem("ParentB")
	var_Items.InsertItem(h,null,"Child 1")
	var_Items.InsertItem(h,null,"Child 2")
	// var_Items.CellBackColor(var_Items.InsertItem(h,null,"Child 3"),5) = 0xff00
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellBackColor(InsertItem(h,,"Child 3"),5) = 65280]
	endwith
	// var_Items.CellState(h,5) = 1
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellState(h,5) = 1]
	endwith
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
	var_Items.AddItem("Item D")
	// var_Items.ExpandItem(h) = true
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ExpandItem(h) = True]
	endwith
oComboBox.EndUpdate()
sFile = "c:/temp/export.html"
oComboBox.Export(sFile,"vis")
var_ShellBrowserWindow = new OleAutoClient("InternetExplorer.Application")
	var_ShellBrowserWindow.Navigate2(sFile)

533:
Export Data in CSV format

local h,oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Column6,var_Columns,var_ConditionalFormat,var_ConditionalFormat1,var_ConditionalFormat2,var_ConditionalFormats,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
oComboBox.BackColorAlternate = 0xf0f0f0
oComboBox.DrawGridLines = -1
oComboBox.HeaderAppearance = 4
oComboBox.Template = [Description(11) = FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Description(11))] // oComboBox.Description(11) = Str(oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11)))
oComboBox.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>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oComboBox.FilterBarPromptVisible = 2579 /*exFilterBarCompact | exFilterBarShowCloseIfRequired | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible*/
oComboBox.FilterBarPromptType = 2
var_ConditionalFormats = oComboBox.ConditionalFormats
	// var_ConditionalFormats.Add("%0 like `*parent*`","parent").BackColor = 0xc0c0c0
	var_ConditionalFormat = var_ConditionalFormats.Add("%0 like `*parent*`","parent")
	with (oComboBox)
		TemplateDef = [dim var_ConditionalFormat]
		TemplateDef = var_ConditionalFormat
		Template = [var_ConditionalFormat.BackColor = 12632256]
	endwith
	var_ConditionalFormat1 = var_ConditionalFormats.Add("%0 like `*child*`","child")
		var_ConditionalFormat1.ForeColor = 0x8080ff
		var_ConditionalFormat1.ApplyTo = 0
	var_ConditionalFormat2 = var_ConditionalFormats.Add("%0 like `*B*`","b")
		var_ConditionalFormat2.ForeColor = 0xff0000
		var_ConditionalFormat2.Bold = true
		var_ConditionalFormat2.Italic = true
		var_ConditionalFormat2.ApplyTo = 0
var_Columns = oComboBox.Columns
	var_Column = var_Columns.Add("Value")
		var_Column.Width = 128
		var_Column.HTMLCaption = "<b>VA</b><r>sko"
	var_Column1 = var_Columns.Add("APos")
		var_Column1.FormatColumn = "0 apos ``"
		var_Column1.AllowSort = false
		// var_Column1.Def(4) = 15790320
		with (oComboBox)
			TemplateDef = [dim var_Column1]
			TemplateDef = var_Column1
			Template = [var_Column1.Def(4) = 15790320]
		endwith
		// var_Column1.Def(5) = 8421504
		with (oComboBox)
			TemplateDef = [dim var_Column1]
			TemplateDef = var_Column1
			Template = [var_Column1.Def(5) = 8421504]
		endwith
		// var_Column1.Def(8) = var_Column1.Def(5)
		with (oComboBox)
			TemplateDef = [dim var_Column1]
			TemplateDef = var_Column1
			Template = [var_Column1.Def(8) = Def(5)]
		endwith
		var_Column1.Position = 0
	var_Column2 = var_Columns.Add("RPos")
		var_Column2.FormatColumn = "0 rpos ``"
		var_Column2.AllowSort = false
		var_Column2.Position = 1
	var_Column3 = var_Columns.Add("Index")
		var_Column3.FormatColumn = "0 index ``"
		var_Column3.DisplayFilterButton = true
		var_Column3.FilterList = 256
		var_Column3.Position = 2
	var_Column4 = var_Columns.Add("Data 1")
		var_Column4.FormatColumn = "0 index `A-Z`"
		// var_Column4.Def(0) = true
		with (oComboBox)
			TemplateDef = [dim var_Column4]
			TemplateDef = var_Column4
			Template = [var_Column4.Def(0) = True]
		endwith
	var_Column5 = var_Columns.Add("Data 2")
		var_Column5.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`"
		// var_Column5.Def(16) = false
		with (oComboBox)
			TemplateDef = [dim var_Column5]
			TemplateDef = var_Column5
			Template = [var_Column5.Def(16) = False]
		endwith
		// var_Column5.Def(17) = 1
		with (oComboBox)
			TemplateDef = [dim var_Column5]
			TemplateDef = var_Column5
			Template = [var_Column5.Def(17) = 1]
		endwith
		// var_Column5.Def(1) = true
		with (oComboBox)
			TemplateDef = [dim var_Column5]
			TemplateDef = var_Column5
			Template = [var_Column5.Def(1) = True]
		endwith
	var_Column6 = var_Columns.Add("Data 3")
		var_Column6.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`"
		// var_Column6.Def(17) = 1
		with (oComboBox)
			TemplateDef = [dim var_Column6]
			TemplateDef = var_Column6
			Template = [var_Column6.Def(17) = 1]
		endwith
var_Items = oComboBox.Items
	h = var_Items.AddItem("ParentA")
	var_Items.InsertItem(h,null,"Child A")
	var_Items.InsertItem(h,null,"Child B")
	// var_Items.CellState(h,4) = 1
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellState(h,4) = 1]
	endwith
	// var_Items.CellBackColor(var_Items.InsertItem(h,null,"Child C"),5) = 0xff00
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellBackColor(InsertItem(h,,"Child C"),5) = 65280]
	endwith
	// var_Items.ExpandItem(h) = true
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ExpandItem(h) = True]
	endwith
	var_Items.AddItem("Item A")
	h = var_Items.AddItem("ParentB")
	var_Items.InsertItem(h,null,"Child 1")
	var_Items.InsertItem(h,null,"Child 2")
	// var_Items.CellBackColor(var_Items.InsertItem(h,null,"Child 3"),5) = 0xff00
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellBackColor(InsertItem(h,,"Child 3"),5) = 65280]
	endwith
	// var_Items.CellState(h,5) = 1
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellState(h,5) = 1]
	endwith
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
	var_Items.AddItem("Item D")
	// var_Items.ExpandItem(h) = true
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ExpandItem(h) = True]
	endwith
oComboBox.EndUpdate()
? Str(oComboBox.Export("","vis")) 

532:
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop

local oComboBox,var_Appearance,var_Columns

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
oComboBox.HeaderAppearance = 4
var_Columns = oComboBox.Columns
	var_Columns.Add("Column 1")
	var_Columns.Add("Column 2")
	var_Columns.Add("Column 3")
var_Appearance = oComboBox.VisualAppearance
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVIUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBeEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDIBICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAokGKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=")
	var_Appearance.Add(2,"CP:1 0 -36 0 0")
oComboBox.Template = [Background(182) = 33554432] // oComboBox.Background(182) = 0x2000000
oComboBox.EndUpdate()

531:
A black portion is shown while I am using the BackColorAlternate with EBN colors. What can I do

local oComboBox,var_Column,var_Column1,var_ConditionalFormat,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = true
oComboBox.DefaultItemHeight = 20
oComboBox.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhIDhAxHAxg0HG0Mg4xGI3HMOig3GcJiYAf8jAEhhUnAAyhEqg8hk0oAsIjgAiAwmYxGA4mYzGwwkI0i0ooUnB0IBMIl1Dg8zmYyGolptPkI1mY1GAll9KoUslNIrVCqNQldShFUstXAVfrVcrlZtVhuFnsUHq1zoczoQGhFBkNpg6zbDykUkhsPHE2h85nc9n8xtVDtlex9Msd2p1YstVq9ux8HyMtzuFz1PsNTzQlv2hhWfkuqpeVuN0q+nvEooN5veSAGpkb/ACcZrvhU3w83nM/poxGuchGpoVBvWgg+8knA4WimnFxI45Er5XOlHMg/Q3XU33W4ew9Wyu11mchDagcO7zus8VDoNBBEIKBpMY6DqOQyokhA/IQIQmwMk4bIQFDcoO6LWgwhQkNcABwEyAB5GwWbet6cRQg3DENQ5D8QxADZvEkAB8nabsURGeBpFM3pwE2AEZRpDx/neZpOR3Dz9oO/r/wCMoZNTBQAQRJSEwYg8HPGhEIoNCaEwq10gQ2WcRt7LcRxRFpuxUAEURQ3sczBEMgTTG8gN7HpOSEAEiQBAQZpmQ0DibPUFwbKcHwkhQoQtNQNzNEMbABOKDy/DMYQzHLeoPL0OTJSUd0pHcxTewk5zrIygIRPslz4lEngBKIAQivgASs/kLSBTlO00f8t0vGcgUbDlDRjXLCUNRERRvRgAHW2oAICA==")
var_Column = oComboBox.Columns.Add("Default")
	// var_Column.Def(0) = true
	with (oComboBox)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(0) = True]
	endwith
	var_Column.PartialCheck = true
var_Column1 = oComboBox.Columns.Add("Position")
	var_Column1.FormatColumn = "1 rindex ``"
	var_Column1.Visible = false
var_ConditionalFormat = oComboBox.ConditionalFormats.Add("%C1 mod 2")
	var_ConditionalFormat.BackColor = 0x1000000
var_Items = oComboBox.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 4")
oComboBox.EndUpdate()

530:
How can I specify alternate background colors for each root item, similar with BackColorAlternate

local h,oComboBox,var_Column,var_Column1,var_ConditionalFormat,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
var_Column = oComboBox.Columns.Add("Default")
	// var_Column.Def(0) = true
	with (oComboBox)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(0) = True]
	endwith
	var_Column.PartialCheck = true
var_Column1 = oComboBox.Columns.Add("Position")
	var_Column1.FormatColumn = "( ( 1:=( ( 0:=(1 rpos '') ) lfind `.`) ) < 0 ? =:0 : (=:0 left =:1) )"
	var_Column1.Visible = false
var_ConditionalFormat = oComboBox.ConditionalFormats.Add("%C1 mod 2")
	var_ConditionalFormat.BackColor = 0xf0f0f0
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,null,"Child 1")
	var_Items.InsertItem(h,null,"Child 2")
	// var_Items.ExpandItem(h) = true
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ExpandItem(h) = True]
	endwith
	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,null,"Child 1")
	var_Items.InsertItem(h,null,"Child 2")
	h = var_Items.AddItem("Root 3")
	var_Items.InsertItem(h,null,"Child 1")
	var_Items.InsertItem(h,null,"Child 2")
oComboBox.EndUpdate()

529:
FilterBarCaption ALL Keyword ( sample 2, result )

/*
with (this.EXCOMBOBOXACTIVEXCONTROL1.nativeObject)
	InsertItem = class::nativeObject_InsertItem
endwith
*/
// Occurs after a new item has been inserted to Items collection.
function nativeObject_InsertItem(Item)
	local i,var_Items
	oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
	i = oComboBox.FormatABC("value + 1",oComboBox.Items.ItemToIndex(Item))
	// oComboBox.Items.CellImage(Item,3) = i
	var_Items = oComboBox.Items
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellImage(Item,3) = i]
	endwith
return

local h,oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oComboBox.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oComboBox.Columns.Add("Check")
	// var_Column2.Def(0) = true
	with (oComboBox)
		TemplateDef = [dim var_Column2]
		TemplateDef = var_Column2
		Template = [var_Column2.Def(0) = True]
	endwith
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oComboBox.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oComboBox.Columns.Add("Pos")
	var_Column4.AllowSizing = false
	var_Column4.AllowSort = false
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oComboBox.Items
	// var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A"
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellCaption(AddItem("Item A"),1) = "Sub-Item A"]
	endwith
	h = var_Items.AddItem("Item B")
	// var_Items.CellCaption(h,1) = "Sub-Item B"
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellCaption(h,1) = "Sub-Item B"]
	endwith
	// var_Items.CellState(h,2) = 1
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellState(h,2) = 1]
	endwith
	// var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C"
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellCaption(AddItem("Item C"),1) = "Sub-Item C"]
	endwith
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Template = [Description(11) = FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Description(11))] // oComboBox.Description(11) = Str(oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11)))
oComboBox.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>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oComboBox.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oComboBox.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oComboBox.Columns.Item(2).Filter = Str(1)
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

528:
FilterBarCaption ALL Keyword ( sample 1 )

/*
with (this.EXCOMBOBOXACTIVEXCONTROL1.nativeObject)
	InsertItem = class::nativeObject_InsertItem
endwith
*/
// Occurs after a new item has been inserted to Items collection.
function nativeObject_InsertItem(Item)
	local i,var_Items
	oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
	i = oComboBox.FormatABC("value + 1",oComboBox.Items.ItemToIndex(Item))
	// oComboBox.Items.CellImage(Item,3) = i
	var_Items = oComboBox.Items
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellImage(Item,3) = i]
	endwith
return

local h,oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oComboBox.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oComboBox.Columns.Add("Check")
	// var_Column2.Def(0) = true
	with (oComboBox)
		TemplateDef = [dim var_Column2]
		TemplateDef = var_Column2
		Template = [var_Column2.Def(0) = True]
	endwith
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oComboBox.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oComboBox.Columns.Add("Pos")
	var_Column4.AllowSizing = false
	var_Column4.AllowSort = false
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oComboBox.Items
	// var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A"
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellCaption(AddItem("Item A"),1) = "Sub-Item A"]
	endwith
	h = var_Items.AddItem("Item B")
	// var_Items.CellCaption(h,1) = "Sub-Item B"
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellCaption(h,1) = "Sub-Item B"]
	endwith
	// var_Items.CellState(h,2) = 1
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellState(h,2) = 1]
	endwith
	// var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C"
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellCaption(AddItem("Item C"),1) = "Sub-Item C"]
	endwith
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Template = [Description(11) = FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Description(11))] // oComboBox.Description(11) = Str(oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11)))
oComboBox.FilterBarCaption = "all"
oComboBox.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oComboBox.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oComboBox.Columns.Item(2).Filter = Str(1)
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

527:
FilterBarCaption ALLUI Keyword ( sample 2, result )

/*
with (this.EXCOMBOBOXACTIVEXCONTROL1.nativeObject)
	InsertItem = class::nativeObject_InsertItem
endwith
*/
// Occurs after a new item has been inserted to Items collection.
function nativeObject_InsertItem(Item)
	local i,var_Items
	oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
	i = oComboBox.FormatABC("value + 1",oComboBox.Items.ItemToIndex(Item))
	// oComboBox.Items.CellImage(Item,3) = i
	var_Items = oComboBox.Items
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellImage(Item,3) = i]
	endwith
return

local h,oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oComboBox.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oComboBox.Columns.Add("Check")
	// var_Column2.Def(0) = true
	with (oComboBox)
		TemplateDef = [dim var_Column2]
		TemplateDef = var_Column2
		Template = [var_Column2.Def(0) = True]
	endwith
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oComboBox.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oComboBox.Columns.Add("Pos")
	var_Column4.AllowSizing = false
	var_Column4.AllowSort = false
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oComboBox.Items
	// var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A"
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellCaption(AddItem("Item A"),1) = "Sub-Item A"]
	endwith
	h = var_Items.AddItem("Item B")
	// var_Items.CellCaption(h,1) = "Sub-Item B"
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellCaption(h,1) = "Sub-Item B"]
	endwith
	// var_Items.CellState(h,2) = 1
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellState(h,2) = 1]
	endwith
	// var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C"
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellCaption(AddItem("Item C"),1) = "Sub-Item C"]
	endwith
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Template = [Description(11) = FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Description(11))] // oComboBox.Description(11) = Str(oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11)))
oComboBox.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>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oComboBox.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oComboBox.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oComboBox.Columns.Item(2).Filter = Str(1)
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

526:
FilterBarCaption ALLUI Keyword ( sample 1 )

/*
with (this.EXCOMBOBOXACTIVEXCONTROL1.nativeObject)
	InsertItem = class::nativeObject_InsertItem
endwith
*/
// Occurs after a new item has been inserted to Items collection.
function nativeObject_InsertItem(Item)
	local i,var_Items
	oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
	i = oComboBox.FormatABC("value + 1",oComboBox.Items.ItemToIndex(Item))
	// oComboBox.Items.CellImage(Item,3) = i
	var_Items = oComboBox.Items
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellImage(Item,3) = i]
	endwith
return

local h,oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oComboBox.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oComboBox.Columns.Add("Check")
	// var_Column2.Def(0) = true
	with (oComboBox)
		TemplateDef = [dim var_Column2]
		TemplateDef = var_Column2
		Template = [var_Column2.Def(0) = True]
	endwith
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oComboBox.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oComboBox.Columns.Add("Pos")
	var_Column4.AllowSizing = false
	var_Column4.AllowSort = false
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oComboBox.Items
	// var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A"
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellCaption(AddItem("Item A"),1) = "Sub-Item A"]
	endwith
	h = var_Items.AddItem("Item B")
	// var_Items.CellCaption(h,1) = "Sub-Item B"
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellCaption(h,1) = "Sub-Item B"]
	endwith
	// var_Items.CellState(h,2) = 1
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellState(h,2) = 1]
	endwith
	// var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C"
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellCaption(AddItem("Item C"),1) = "Sub-Item C"]
	endwith
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Template = [Description(11) = FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Description(11))] // oComboBox.Description(11) = Str(oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11)))
oComboBox.FilterBarCaption = "allui"
oComboBox.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oComboBox.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oComboBox.Columns.Item(2).Filter = Str(1)
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

525:
FilterBarCaption AVAILABLE Keyword ( sample 2, result )

/*
with (this.EXCOMBOBOXACTIVEXCONTROL1.nativeObject)
	InsertItem = class::nativeObject_InsertItem
endwith
*/
// Occurs after a new item has been inserted to Items collection.
function nativeObject_InsertItem(Item)
	local i,var_Items
	oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
	i = oComboBox.FormatABC("value + 1",oComboBox.Items.ItemToIndex(Item))
	// oComboBox.Items.CellImage(Item,3) = i
	var_Items = oComboBox.Items
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellImage(Item,3) = i]
	endwith
return

local h,oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oComboBox.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oComboBox.Columns.Add("Check")
	// var_Column2.Def(0) = true
	with (oComboBox)
		TemplateDef = [dim var_Column2]
		TemplateDef = var_Column2
		Template = [var_Column2.Def(0) = True]
	endwith
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oComboBox.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oComboBox.Columns.Add("Pos")
	var_Column4.AllowSizing = false
	var_Column4.AllowSort = false
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oComboBox.Items
	// var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A"
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellCaption(AddItem("Item A"),1) = "Sub-Item A"]
	endwith
	h = var_Items.AddItem("Item B")
	// var_Items.CellCaption(h,1) = "Sub-Item B"
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellCaption(h,1) = "Sub-Item B"]
	endwith
	// var_Items.CellState(h,2) = 1
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellState(h,2) = 1]
	endwith
	// var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C"
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellCaption(AddItem("Item C"),1) = "Sub-Item C"]
	endwith
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Template = [Description(11) = FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Description(11))] // oComboBox.Description(11) = Str(oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11)))
oComboBox.FilterBarCaption = "(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( available 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)`) )))"
oComboBox.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oComboBox.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oComboBox.Columns.Item(2).Filter = Str(1)
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

524:
FilterBarCaption AVAILABLE Keyword ( sample 1 )

/*
with (this.EXCOMBOBOXACTIVEXCONTROL1.nativeObject)
	InsertItem = class::nativeObject_InsertItem
endwith
*/
// Occurs after a new item has been inserted to Items collection.
function nativeObject_InsertItem(Item)
	local i,var_Items
	oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
	i = oComboBox.FormatABC("value + 1",oComboBox.Items.ItemToIndex(Item))
	// oComboBox.Items.CellImage(Item,3) = i
	var_Items = oComboBox.Items
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellImage(Item,3) = i]
	endwith
return

local h,oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oComboBox.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oComboBox.Columns.Add("Check")
	// var_Column2.Def(0) = true
	with (oComboBox)
		TemplateDef = [dim var_Column2]
		TemplateDef = var_Column2
		Template = [var_Column2.Def(0) = True]
	endwith
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oComboBox.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oComboBox.Columns.Add("Pos")
	var_Column4.AllowSizing = false
	var_Column4.AllowSort = false
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oComboBox.Items
	// var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A"
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellCaption(AddItem("Item A"),1) = "Sub-Item A"]
	endwith
	h = var_Items.AddItem("Item B")
	// var_Items.CellCaption(h,1) = "Sub-Item B"
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellCaption(h,1) = "Sub-Item B"]
	endwith
	// var_Items.CellState(h,2) = 1
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellState(h,2) = 1]
	endwith
	// var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C"
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellCaption(AddItem("Item C"),1) = "Sub-Item C"]
	endwith
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Template = [Description(11) = FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",Description(11))] // oComboBox.Description(11) = Str(oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11)))
oComboBox.FilterBarCaption = "value + ` ` + available"
oComboBox.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oComboBox.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oComboBox.Columns.Item(2).Filter = Str(1)
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

523:
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 3, results )

local oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
var_Column = oComboBox.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oComboBox.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oComboBox.Columns.Add("Pos")
	var_Column2.AllowSizing = false
	var_Column2.AllowSort = false
	var_Column2.Width = 32
	var_Column2.FormatColumn = "1 apos ``"
	var_Column2.Position = 0
var_Items = oComboBox.Items
	// var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A"
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellCaption(AddItem("Item A"),1) = "Sub-Item A"]
	endwith
	// var_Items.CellCaption(var_Items.AddItem("Item B"),1) = "Sub-Item B"
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellCaption(AddItem("Item B"),1) = "Sub-Item B"]
	endwith
	// var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C"
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellCaption(AddItem("Item C"),1) = "Sub-Item C"]
	endwith
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Template = [Description(11) = FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",Description(11))] // oComboBox.Description(11) = Str(oComboBox.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oComboBox.Description(11)))
oComboBox.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> ` replace `]` with ` </b></bgcolor></fgcolor>`"
oComboBox.FilterBarPromptVisible = 256
var_Column3 = oComboBox.Columns.Item(0)
	var_Column3.FilterType = 240
	var_Column3.Filter = "Item A|Item B"
var_Column4 = oComboBox.Columns.Item(1)
	var_Column4.FilterType = 3
	var_Column4.Filter = "*B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

522:
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 2 )

local oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
var_Column = oComboBox.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oComboBox.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oComboBox.Columns.Add("Pos")
	var_Column2.AllowSizing = false
	var_Column2.AllowSort = false
	var_Column2.Width = 32
	var_Column2.FormatColumn = "1 apos ``"
	var_Column2.Position = 0
var_Items = oComboBox.Items
	// var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A"
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellCaption(AddItem("Item A"),1) = "Sub-Item A"]
	endwith
	// var_Items.CellCaption(var_Items.AddItem("Item B"),1) = "Sub-Item B"
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellCaption(AddItem("Item B"),1) = "Sub-Item B"]
	endwith
	// var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C"
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellCaption(AddItem("Item C"),1) = "Sub-Item C"]
	endwith
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Template = [Description(11) = FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",Description(11))] // oComboBox.Description(11) = Str(oComboBox.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oComboBox.Description(11)))
oComboBox.FilterBarCaption = "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
oComboBox.FilterBarPromptVisible = 256
var_Column3 = oComboBox.Columns.Item(0)
	var_Column3.FilterType = 240
	var_Column3.Filter = "Item A|Item B"
var_Column4 = oComboBox.Columns.Item(1)
	var_Column4.FilterType = 3
	var_Column4.Filter = "*B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

521:
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 1 )

local oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
var_Column = oComboBox.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oComboBox.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oComboBox.Columns.Add("Pos")
	var_Column2.AllowSizing = false
	var_Column2.AllowSort = false
	var_Column2.Width = 32
	var_Column2.FormatColumn = "1 apos ``"
	var_Column2.Position = 0
var_Items = oComboBox.Items
	// var_Items.CellCaption(var_Items.AddItem("Item A"),1) = "Sub-Item A"
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellCaption(AddItem("Item A"),1) = "Sub-Item A"]
	endwith
	// var_Items.CellCaption(var_Items.AddItem("Item B"),1) = "Sub-Item B"
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellCaption(AddItem("Item B"),1) = "Sub-Item B"]
	endwith
	// var_Items.CellCaption(var_Items.AddItem("Item C"),1) = "Sub-Item C"
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellCaption(AddItem("Item C"),1) = "Sub-Item C"]
	endwith
oComboBox.Template = [Description(11) = FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",Description(11))] // oComboBox.Description(11) = Str(oComboBox.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oComboBox.Description(11)))
oComboBox.FilterBarCaption = "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"
oComboBox.FilterBarPromptVisible = 256
var_Column3 = oComboBox.Columns.Item(0)
	var_Column3.FilterType = 240
	var_Column3.Filter = "Item A|Item B"
var_Column4 = oComboBox.Columns.Item(1)
	var_Column4.FilterType = 3
	var_Column4.Filter = "*B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

520:
Is it possible to automatically displays the control's filter label to the right

local oComboBox,var_Column,var_Column1,var_Column2,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
var_Column = oComboBox.Columns.Add("Item")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarCaption = "`<r>` + value"
oComboBox.FilterBarPromptVisible = 1280 /*exFilterBarShowCloseOnRight | exFilterBarToggle*/
var_Column2 = oComboBox.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

519:
How can I get the number of results/items being shown in the control's filter bar (sample 4)

local oComboBox,var_Column,var_Column1,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
var_Column = oComboBox.Columns.Add("Item")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.FilterBarPrompt = Str(oComboBox.FormatABC("`<b>` + value",oComboBox.FilterBarPrompt))
oComboBox.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )"
oComboBox.FilterBarPromptVisible = 3591 /*exFilterBarCompact | exFilterBarShowCloseOnRight | exFilterBarShowCloseIfRequired | exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible*/
oComboBox.EndUpdate()

518:
How can I get the number of results being shown in the control's filter bar (sample 3)

local oComboBox,var_Column,var_Column1,var_Column2,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
// oComboBox.Columns.Add("Item").DisplayFilterButton = true
var_Column = oComboBox.Columns.Add("Item")
with (oComboBox)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : ``)"
oComboBox.FilterBarPromptVisible = 2055 /*exFilterBarCompact | exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column2 = oComboBox.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item A|Item B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

517:
How can I get the number of results being shown in the control's filter bar (sample 2, compact)

local oComboBox,var_Column,var_Column1,var_Column2,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
// oComboBox.Columns.Add("Item").DisplayFilterButton = true
var_Column = oComboBox.Columns.Add("Item")
with (oComboBox)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? `<off -4> ` + abs(matchitemcount + 1) + ` result(s)` : ``)"
oComboBox.FilterBarPromptVisible = 2071 /*exFilterBarCompact | exFilterBarSingleLine | exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column2 = oComboBox.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item A|Item B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

516:
How can I get the number of results being shown in the control's filter bar (sample 1)

local oComboBox,var_Column,var_Column1,var_Column2,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
// oComboBox.Columns.Add("Item").DisplayFilterButton = true
var_Column = oComboBox.Columns.Add("Item")
with (oComboBox)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
oComboBox.FilterBarPromptVisible = 7 /*exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column2 = oComboBox.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item A|Item B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

515:
FilterBarCaption Predefined Keywords

/*
with (this.EXCOMBOBOXACTIVEXCONTROL1.nativeObject)
	AfterExpandItem = class::nativeObject_AfterExpandItem
endwith
*/
// Fired after an item is expanded (collapsed).
function nativeObject_AfterExpandItem(Item)
	oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
	oComboBox.Refresh()
return

local h,oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
// oComboBox.Columns.Add("Item").DisplayFilterButton = true
var_Column = oComboBox.Columns.Add("Item")
with (oComboBox)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oComboBox.Columns.Add("Check")
	// var_Column1.Def(0) = true
	with (oComboBox)
		TemplateDef = [dim var_Column1]
		TemplateDef = var_Column1
		Template = [var_Column1.Def(0) = True]
	endwith
	var_Column1.DisplayFilterButton = true
	var_Column1.DisplayFilterPattern = false
	var_Column1.FilterType = 6
var_Column2 = oComboBox.Columns.Add("Pos")
	var_Column2.AllowSizing = false
	var_Column2.AllowSort = false
	var_Column2.Width = 32
	var_Column2.FormatColumn = "1 apos ``"
	var_Column2.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	h = var_Items.AddItem("Item B")
	// var_Items.CellState(var_Items.InsertItem(h,null,"Sub-Item B1"),1) = 1
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.CellState(InsertItem(h,,"Sub-Item B1"),1) = 1]
	endwith
	var_Items.InsertItem(h,null,"Sub-Item B2")
	// var_Items.ExpandItem(h) = true
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ExpandItem(h) = True]
	endwith
	var_Items.AddItem("Item C")
oComboBox.FilterInclude = 1
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.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=808080>` + promptpattern + `</fgcolor>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount +" ;
 +" `</fgcolor>`"
oComboBox.FilterBarPromptPattern = "B"
oComboBox.FilterBarPromptVisible = 7 /*exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column3 = oComboBox.Columns.Item(0)
	var_Column3.FilterType = 240
	var_Column3.Filter = "Item A|Item B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

514:
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

local oComboBox,var_Column,var_Column1,var_Column2,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
// oComboBox.Columns.Add("Item").DisplayFilterButton = true
var_Column = oComboBox.Columns.Add("Item")
with (oComboBox)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.FilterBarCaption = "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
oComboBox.FilterBarPromptPattern = "B"
oComboBox.FilterBarPromptVisible = 2067 /*exFilterBarCompact | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column2 = oComboBox.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item A|Item B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

513:
Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 )

local oComboBox,var_Column,var_Column1,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
// oComboBox.Columns.Add("Item").DisplayFilterButton = true
var_Column = oComboBox.Columns.Add("Item")
with (oComboBox)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarPromptVisible = 1281 /*exFilterBarShowCloseOnRight | exFilterBarToggle | exFilterBarPromptVisible*/
oComboBox.FilterBarPrompt = Str(oComboBox.FormatABC("`<r>` + value",oComboBox.FilterBarPrompt))
oComboBox.EndUpdate()

512:
Just wondering if it is possible to show the filter bar's close button on the right ( sample 1 )

local oComboBox,var_Column,var_Column1,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
oComboBox.RightToLeft = true
// oComboBox.Columns.Add("Item").DisplayFilterButton = true
var_Column = oComboBox.Columns.Add("Item")
with (oComboBox)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarPromptVisible = 257 /*exFilterBarToggle | exFilterBarPromptVisible*/
oComboBox.EndUpdate()

511:
How can I change the visual appearance of the filter bar's close button (EBN)

local oComboBox,var_Appearance,var_Column,var_Column1,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
var_Appearance = oComboBox.VisualAppearance
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJjyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKmSZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OROicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJXAiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaK" ;
 +"JDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEAkjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRSMRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhAQHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ")
// oComboBox.Columns.Add("Item").DisplayFilterButton = true
var_Column = oComboBox.Columns.Add("Item")
with (oComboBox)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarPromptVisible = 257 /*exFilterBarToggle | exFilterBarPromptVisible*/
oComboBox.Template = [Background(1) = 16777216] // oComboBox.Background(1) = 0x1000000
oComboBox.EndUpdate()

510:
How can I change the visual appearance of the filter bar's close button (solid)

local oComboBox,var_Column,var_Column1,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
// oComboBox.Columns.Add("Item").DisplayFilterButton = true
var_Column = oComboBox.Columns.Add("Item")
with (oComboBox)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarPromptVisible = 1
oComboBox.Template = [Background(1) = 255] // oComboBox.Background(1) = 0xff
oComboBox.EndUpdate()

509:
Is it possible to prevent definitely showing the filter bar's close button

local oComboBox,var_Column,var_Column1,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
// oComboBox.Columns.Add("Item").DisplayFilterButton = true
var_Column = oComboBox.Columns.Add("Item")
with (oComboBox)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarPromptVisible = 1
oComboBox.Template = [Background(1) = -1] // oComboBox.Background(1) = -1
oComboBox.EndUpdate()

508:
Is it possible to show the close button only if there is a filter applied

local oComboBox,var_Column,var_Column1,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
// oComboBox.Columns.Add("Item").DisplayFilterButton = true
var_Column = oComboBox.Columns.Add("Item")
with (oComboBox)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarPromptVisible = 513 /*exFilterBarShowCloseIfRequired | exFilterBarPromptVisible*/
oComboBox.EndUpdate()

507:
The control's filter bar is not closed once I click the close button (toggle)

local h,oComboBox,var_Column,var_Column1,var_Column2,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
// oComboBox.Columns.Add("Item").DisplayFilterButton = true
var_Column = oComboBox.Columns.Add("Item")
with (oComboBox)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
	// var_Items.LockedItemCount(2) = 1
	with (oComboBox)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.LockedItemCount(2) = 1]
	endwith
	h = var_Items.LockedItem(2,0)
	// var_Items.ItemDivider(h) = 0
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemDivider(h) = 0]
	endwith
	// var_Items.CellCaption(h,0) = "<c><fgcolor=808080>Press the CTRL + F to turn on/off the control's filter bar. ALT + Up/Down moves the focus."
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellCaption(h,0) = "<c><fgcolor=808080>Press the CTRL + F to turn on/off the control's filter bar. ALT + Up/Down moves the focus."]
	endwith
	// var_Items.CellCaptionFormat(h,0) = 1
	with (oComboBox)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.CellCaptionFormat(h,0) = 1]
	endwith
oComboBox.FilterBarCaption = "`<r><fgcolor=808080>` + value"
oComboBox.FilterBarPromptPattern = "B"
oComboBox.FilterBarPromptVisible = 2323 /*exFilterBarCompact | exFilterBarToggle | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column2 = oComboBox.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

506:
How can I display the control's filter on a single line

local oComboBox,var_Column,var_Column1,var_Column2,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
// oComboBox.Columns.Add("Item").DisplayFilterButton = true
var_Column = oComboBox.Columns.Add("Item")
with (oComboBox)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarCaption = "len(value) ? `filter for: <fgcolor 808080>` + value  : `<fgcolor 808080>no filter`"
oComboBox.FilterBarPromptVisible = 18 /*exFilterBarSingleLine | exFilterBarVisible*/
var_Column2 = oComboBox.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item A|Item B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

505:
How can I display the control's filter on a single line (prompt-combined)

local oComboBox,var_Column,var_Column1,var_Column2,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
// oComboBox.Columns.Add("Item").DisplayFilterButton = true
var_Column = oComboBox.Columns.Add("Item")
with (oComboBox)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarCaption = "`<r>` + value"
oComboBox.FilterBarPromptVisible = 2067 /*exFilterBarCompact | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column2 = oComboBox.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item A|Item B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

504:
How can I get the number of results after a filter is applied

/*
with (this.EXCOMBOBOXACTIVEXCONTROL1.nativeObject)
	Click = class::nativeObject_Click
endwith
*/
// Occurs when the user presses and then releases the left mouse button over the list control.
function nativeObject_Click()
	oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
	oComboBox.ClearFilter()
return

/*
with (this.EXCOMBOBOXACTIVEXCONTROL1.nativeObject)
	FilterChange = class::nativeObject_FilterChange
endwith
*/
// Occurs when filter was changed.
function nativeObject_FilterChange()
	oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
	? "Items.MatchItemCount" 
	? Str(oComboBox.Items.MatchItemCount) 
	? Str(oComboBox.FormatABC("value < 0 ? `filter applied: ` + abs(value + 1) + ` result(s)` : `no filter`",oComboBox.Items.MatchItemCount)) 
return

local oComboBox,var_Column,var_Column1,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
// oComboBox.Columns.Add("Item").DisplayFilterButton = true
var_Column = oComboBox.Columns.Add("Item")
with (oComboBox)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarPromptVisible = 1
oComboBox.FilterBarPromptPattern = "Item"
oComboBox.EndUpdate()

503:
How can I programmatically clear the control's filter
/*
with (this.EXCOMBOBOXACTIVEXCONTROL1.nativeObject)
	Click = class::nativeObject_Click
endwith
*/
// Occurs when the user presses and then releases the left mouse button over the list control.
function nativeObject_Click()
	oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
	oComboBox.ClearFilter()
return

local oComboBox,var_Column,var_Column1,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
// oComboBox.Columns.Add("Item").DisplayFilterButton = true
var_Column = oComboBox.Columns.Add("Item")
with (oComboBox)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarPromptVisible = 1
oComboBox.FilterBarPromptPattern = "B"
oComboBox.EndUpdate()

502:
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)

local oComboBox,var_Column,var_Column1,var_Column2,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
// oComboBox.Columns.Add("Item").DisplayFilterButton = true
var_Column = oComboBox.Columns.Add("Item")
with (oComboBox)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarPromptPattern = "B"
oComboBox.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column2 = oComboBox.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

501:
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)

local oComboBox,var_Column,var_Column1,var_Items

oComboBox = form.EXCOMBOBOXACTIVEXCONTROL1.nativeObject
oComboBox.BeginUpdate()
// oComboBox.Columns.Add("Item").DisplayFilterButton = true
var_Column = oComboBox.Columns.Add("Item")
with (oComboBox)
	TemplateDef = [dim var_Column]
	TemplateDef = var_Column
	Template = [var_Column.DisplayFilterButton = True]
endwith
var_Column1 = oComboBox.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.FilterBarPromptVisible = 1
oComboBox.FilterBarPromptPattern = "B"
oComboBox.EndUpdate()