1065:
FilterBarCaption ALL Keyword ( sample 2, result )

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_AddItem(Item)
	With Grid1
		i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
		.Items.CellImage(Item,3) = i
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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 = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Col-2")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Check")
			With .Editor
				.EditType = 19
				.Option(17) = 1
			End With
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterType = 6
		End With
		With .Columns.Add("Image")
			.DisplayFilterButton = True
			.FilterType = 10
			.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
		End With
		With .Columns.Add("Pos")
			.AllowSizing = False
			.AllowSort = False
			.Width = 32
			.FormatColumn = "1 apos ``"
			.Position = 0
		End With
		With .Items
			.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
			h = .AddItem("Item B")
			.CellValue(h,1) = "Sub-Item B"
			.CellState(h,2) = 1
			.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
		End With
		.FilterBarFont = .Font
		.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
		.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 = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		.Columns.Item(2).Filter = 1
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1064:
FilterBarCaption ALL Keyword ( sample 1 )

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_AddItem(Item)
	With Grid1
		i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
		.Items.CellImage(Item,3) = i
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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 = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Col-2")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Check")
			With .Editor
				.EditType = 19
				.Option(17) = 1
			End With
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterType = 6
		End With
		With .Columns.Add("Image")
			.DisplayFilterButton = True
			.FilterType = 10
			.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
		End With
		With .Columns.Add("Pos")
			.AllowSizing = False
			.AllowSort = False
			.Width = 32
			.FormatColumn = "1 apos ``"
			.Position = 0
		End With
		With .Items
			.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
			h = .AddItem("Item B")
			.CellValue(h,1) = "Sub-Item B"
			.CellState(h,2) = 1
			.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
		End With
		.FilterBarFont = .Font
		.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
		.FilterBarCaption = "all"
		.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		.Columns.Item(2).Filter = 1
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1063:
FilterBarCaption ALLUI Keyword ( sample 2, result )

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_AddItem(Item)
	With Grid1
		i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
		.Items.CellImage(Item,3) = i
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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 = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Col-2")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Check")
			With .Editor
				.EditType = 19
				.Option(17) = 1
			End With
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterType = 6
		End With
		With .Columns.Add("Image")
			.DisplayFilterButton = True
			.FilterType = 10
			.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
		End With
		With .Columns.Add("Pos")
			.AllowSizing = False
			.AllowSort = False
			.Width = 32
			.FormatColumn = "1 apos ``"
			.Position = 0
		End With
		With .Items
			.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
			h = .AddItem("Item B")
			.CellValue(h,1) = "Sub-Item B"
			.CellState(h,2) = 1
			.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
		End With
		.FilterBarFont = .Font
		.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
		.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 = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		.Columns.Item(2).Filter = 1
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1062:
FilterBarCaption ALLUI Keyword ( sample 1 )

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_AddItem(Item)
	With Grid1
		i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
		.Items.CellImage(Item,3) = i
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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 = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Col-2")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Check")
			With .Editor
				.EditType = 19
				.Option(17) = 1
			End With
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterType = 6
		End With
		With .Columns.Add("Image")
			.DisplayFilterButton = True
			.FilterType = 10
			.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
		End With
		With .Columns.Add("Pos")
			.AllowSizing = False
			.AllowSort = False
			.Width = 32
			.FormatColumn = "1 apos ``"
			.Position = 0
		End With
		With .Items
			.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
			h = .AddItem("Item B")
			.CellValue(h,1) = "Sub-Item B"
			.CellState(h,2) = 1
			.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
		End With
		.FilterBarFont = .Font
		.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
		.FilterBarCaption = "allui"
		.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		.Columns.Item(2).Filter = 1
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1061:
FilterBarCaption AVAILABLE Keyword ( sample 2, result )

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_AddItem(Item)
	With Grid1
		i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
		.Items.CellImage(Item,3) = i
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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 = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Col-2")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Check")
			With .Editor
				.EditType = 19
				.Option(17) = 1
			End With
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterType = 6
		End With
		With .Columns.Add("Image")
			.DisplayFilterButton = True
			.FilterType = 10
			.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
		End With
		With .Columns.Add("Pos")
			.AllowSizing = False
			.AllowSort = False
			.Width = 32
			.FormatColumn = "1 apos ``"
			.Position = 0
		End With
		With .Items
			.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
			h = .AddItem("Item B")
			.CellValue(h,1) = "Sub-Item B"
			.CellState(h,2) = 1
			.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
		End With
		.FilterBarFont = .Font
		.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
		.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 = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		.Columns.Item(2).Filter = 1
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1060:
FilterBarCaption AVAILABLE Keyword ( sample 1 )

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_AddItem(Item)
	With Grid1
		i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
		.Items.CellImage(Item,3) = i
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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 = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Col-2")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Check")
			With .Editor
				.EditType = 19
				.Option(17) = 1
			End With
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterType = 6
		End With
		With .Columns.Add("Image")
			.DisplayFilterButton = True
			.FilterType = 10
			.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
		End With
		With .Columns.Add("Pos")
			.AllowSizing = False
			.AllowSort = False
			.Width = 32
			.FormatColumn = "1 apos ``"
			.Position = 0
		End With
		With .Items
			.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
			h = .AddItem("Item B")
			.CellValue(h,1) = "Sub-Item B"
			.CellState(h,2) = 1
			.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
		End With
		.FilterBarFont = .Font
		.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
		.FilterBarCaption = "value + ` ` + available"
		.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		.Columns.Item(2).Filter = 1
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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 )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		With .Columns.Add("Col-1")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Col-2")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Pos")
			.AllowSizing = False
			.AllowSort = False
			.Width = 32
			.FormatColumn = "1 apos ``"
			.Position = 0
		End With
		With .Items
			.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
			.CellValue(.AddItem("Item B"),1) = "Sub-Item B"
			.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
		End With
		.FilterBarFont = .Font
		.Description(11) = .FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.Description(11))
		.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 = 256
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		With .Columns.Item(1)
			.FilterType = 3
			.Filter = "*B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		With .Columns.Add("Col-1")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Col-2")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Pos")
			.AllowSizing = False
			.AllowSort = False
			.Width = 32
			.FormatColumn = "1 apos ``"
			.Position = 0
		End With
		With .Items
			.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
			.CellValue(.AddItem("Item B"),1) = "Sub-Item B"
			.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
		End With
		.FilterBarFont = .Font
		.Description(11) = .FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.Description(11))
		.FilterBarCaption = "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
		.FilterBarPromptVisible = 256
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		With .Columns.Item(1)
			.FilterType = 3
			.Filter = "*B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		With .Columns.Add("Col-1")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Col-2")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Pos")
			.AllowSizing = False
			.AllowSort = False
			.Width = 32
			.FormatColumn = "1 apos ``"
			.Position = 0
		End With
		With .Items
			.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
			.CellValue(.AddItem("Item B"),1) = "Sub-Item B"
			.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
		End With
		.Description(11) = .FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.Description(11))
		.FilterBarCaption = "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"
		.FilterBarPromptVisible = 256
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		With .Columns.Item(1)
			.FilterType = 3
			.Filter = "*B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		With .Columns.Add("Item")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or 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 = 1280 ' FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or FilterBarVisibleEnum.exFilterBarToggle
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		With .Columns.Add("Item")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or 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 = 3591 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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 = 2055 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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 = 2071 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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 = 7 ' FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1051:
FilterBarCaption Predefined Keywords

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_AfterExpandItem(Item)
	With Grid1
		.Refresh 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.LinesAtRoot = -1
		.Columns.Add("Item").DisplayFilterButton = True
		With .Columns.Add("Check")
			With .Editor
				.EditType = 19
				.Option(17) = 1
			End With
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterType = 6
		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")
			.CellState(.InsertItem(h,,"Sub-Item B1"),1) = 1
			.InsertItem h,,"Sub-Item B2"
			.ExpandItem(h) = True
			.AddItem "Item C"
		End With
		.FilterInclude = 1
		.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>`"
		.FilterBarPromptPattern = "B"
		.FilterBarPromptVisible = 7 ' FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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 = 2067 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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 = 1281 ' FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or FilterBarVisibleEnum.exFilterBarToggle Or FilterBarVisibleEnum.exFilterBarPromptVisible
		.FilterBarPrompt = .FormatABC("`<r>` + value",.FilterBarPrompt)
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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 = 257 ' FilterBarVisibleEnum.exFilterBarToggle Or FilterBarVisibleEnum.exFilterBarPromptVisible
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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 = 257 ' FilterBarVisibleEnum.exFilterBarToggle Or FilterBarVisibleEnum.exFilterBarPromptVisible
		.Background(1) = &H1000000
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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 = 1
		.Background(1) = RGB(255,0,0)
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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 = 1
		.Background(1) = -1
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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 = 513 ' FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarPromptVisible
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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"
			.LockedItemCount(2) = 1
			h = .LockedItem(2,0)
			.ItemDivider(h) = 0
			.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."
			.CellValueFormat(h,0) = 1
		End With
		.FilterBarCaption = "`<r><fgcolor=808080>` + value"
		.FilterBarPromptPattern = "B"
		.FilterBarPromptVisible = 2323 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarToggle Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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 = 18 ' FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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 = 2067 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_Click()
	With Grid1
		.ClearFilter 
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function Grid1_FilterChange()
	With Grid1
		alert( "Items.MatchItemCount" )
		alert( .Items.MatchItemCount )
		alert( .FormatABC("value < 0 ? `filter applied: ` + abs(value + 1) + ` result(s)` : `no filter`",.Items.MatchItemCount) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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 = 1
		.FilterBarPromptPattern = "Item"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1039:
How can I programmatically clear the control's filter
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_Click()
	With Grid1
		.ClearFilter 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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 = 1
		.FilterBarPromptPattern = "B"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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 = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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 = 1
		.FilterBarPromptPattern = "B"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1036:
Is it possible to prevent closing the control's filter bar, so it is always shown

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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 = 2
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1035:
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 4)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.LinesAtRoot = -1
		.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"
			.ExpandItem(h) = True
			h = .AddItem("Root 2")
			.InsertItem h,,"Child"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1034:
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 3)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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 = 1
		.HasButtons = 4
		.HasButtonsCustom(0) = 16777216
		.HasButtonsCustom(1) = 33554432
		.Columns.Add "Column"
		With .Items
			h = .AddItem("Root 1")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			.ExpandItem(h) = True
			h = .AddItem("Root 2")
			.InsertItem h,,"Child"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1033:
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		With .VisualAppearance
			.Add 1,"XP:TREEVIEW 2 1"
			.Add 2,"XP:TREEVIEW 2 2"
		End With
		.Background(180) = &H1000000
		.Background(181) = &H2000000
		.LinesAtRoot = -1
		.Columns.Add "Column"
		With .Items
			h = .AddItem("Root 1")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			.ExpandItem(h) = True
			h = .AddItem("Root 2")
			.InsertItem h,,"Child"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1032:
How can I find if the control is running in DPI mode
<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		alert( .FormatABC("dpi = 1 ? `normal/stretch mode` : `dpi mode`") )
	End With
End Function
</SCRIPT>
</BODY>

1031:
How can I change the visual appearance of the +/- buttons (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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 = -1
		.Background(180) = &H1000000
		.Background(181) = &H2000000
		.Columns.Add "Column"
		With .Items
			h = .AddItem("Root 1")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			.ExpandItem(h) = True
			h = .AddItem("Root 2")
			.InsertItem h,,"Child"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_SelectionChanged()
	With Grid1
		alert( "SelectionChanged" )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.FreezeEvents True
		.SingleSel = True
		.SelectOnRelease = True
		.Columns.Add("Column").FormatColumn = "1 apos `A-Z`"
		With .Items
			.AddItem ""
			.SelectItem(.AddItem("")) = True
			.AddItem ""
		End With
		.FreezeEvents False
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1029:
Is it possible to select nothing
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_SelectionChanged()
	With Grid1
		alert( "SelectionChanged" )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.FreezeEvents True
		.AllowSelectNothing = True
		.Columns.Add("Column").FormatColumn = "1 apos `A-Z`"
		With .Items
			.AddItem ""
			.SelectItem(.AddItem("")) = True
			.AddItem ""
		End With
		.FreezeEvents False
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1028:
How can I specify the color for control's selection when it loses the focus

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		With .Columns.Add("")
			.AllowSizing = False
			.AllowDragging = False
			.AllowSort = False
			.Width = 24
			.Def(2) = True
		End With
		.Columns.Add("Column").FormatColumn = "1 apos `A-Z`"
		With .Items
			.AddItem ""
			.SelectItem(.AddItem("")) = True
			.AddItem ""
		End With
		.Background(166) = RGB(196,196,196)
		.Background(167) = RGB(0,0,1)
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1027:
How can I change the background color for checked items (EBN color, frame)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_CellStateChanged(Item,ColIndex)
	With Grid1
		.Refresh 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.LinesAtRoot = -1
		.SelBackMode = 1
		.DefaultItemHeight = 22
		With .Columns.Add("Tasks")
			.Def(0) = 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")
			.BackColor = &H1000000
		End With
		.HeaderVisible = 1
		With .Items
			h = .AddItem("Project")
			hChild = .InsertItem(h,,"Task 1")
			.SelectItem(hChild) = True
			hChild = .InsertItem(h,,"Task 2")
			.CellState(hChild) = 1
			hChild = .InsertItem(h,,"Task 3")
			.CellState(hChild) = 1
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1026:
How can I change the caption of the checked items (sample 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.LinesAtRoot = -1
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
			.Def(17) = 1
			.FormatColumn = "%CS0 = 1 ? `<bgcolor=000000><fgcolor=FFFFFF> ` + value + ` </fgcolor></bgcolor>` : value"
		End With
		.HeaderVisible = 1
		With .Items
			h = .AddItem("Project")
			hChild = .InsertItem(h,,"Task 1")
			.SelectItem(hChild) = True
			hChild = .InsertItem(h,,"Task 2")
			.CellState(hChild) = 1
			hChild = .InsertItem(h,,"Task 3")
			.CellState(hChild) = 1
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1025:
How can I change the caption of the checked items (sample 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.LinesAtRoot = -1
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
			.Def(17) = 1
			.FormatColumn = "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)"
		End With
		.HeaderVisible = 1
		With .Items
			h = .AddItem("Project")
			hChild = .InsertItem(h,,"Task 1")
			.SelectItem(hChild) = True
			hChild = .InsertItem(h,,"Task 2")
			.CellState(hChild) = 1
			hChild = .InsertItem(h,,"Task 3")
			.CellState(hChild) = 1
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1024:
How can I change the font for the checked items

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_CellStateChanged(Item,ColIndex)
	With Grid1
		.Refresh 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.LinesAtRoot = -1
		.DefaultItemHeight = 22
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
		End With
		With .ConditionalFormats.Add("%CS0 = 1")
			Set f = CreateObject("StdFont")
			With f
				.Name = Grid1.Font.Name
				.Size = 12
			End With
			.Font = f
		End With
		.HeaderVisible = 1
		With .Items
			h = .AddItem("Project")
			hChild = .InsertItem(h,,"Task 1")
			.SelectItem(hChild) = True
			hChild = .InsertItem(h,,"Task 2")
			.CellState(hChild) = 1
			hChild = .InsertItem(h,,"Task 3")
			.CellState(hChild) = 1
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1023:
How can I bold the checked items

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_CellStateChanged(Item,ColIndex)
	With Grid1
		.Refresh 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.LinesAtRoot = -1
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
		End With
		With .ConditionalFormats.Add("%CS0 = 1")
			.Bold = True
		End With
		.HeaderVisible = 1
		With .Items
			h = .AddItem("Project")
			hChild = .InsertItem(h,,"Task 1")
			.SelectItem(hChild) = True
			hChild = .InsertItem(h,,"Task 2")
			.CellState(hChild) = 1
			hChild = .InsertItem(h,,"Task 3")
			.CellState(hChild) = 1
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1022:
How can I change the foreground color for checked items

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_CellStateChanged(Item,ColIndex)
	With Grid1
		.Refresh 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.LinesAtRoot = -1
		.SelBackMode = 1
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
		End With
		With .ConditionalFormats.Add("%CS0 = 1")
			.ForeColor = RGB(255,128,128)
		End With
		.HeaderVisible = 1
		With .Items
			h = .AddItem("Project")
			hChild = .InsertItem(h,,"Task 1")
			.SelectItem(hChild) = True
			hChild = .InsertItem(h,,"Task 2")
			.CellState(hChild) = 1
			hChild = .InsertItem(h,,"Task 3")
			.CellState(hChild) = 1
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1021:
How can I change the background color for checked items (solid color)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_CellStateChanged(Item,ColIndex)
	With Grid1
		.Refresh 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.LinesAtRoot = -1
		.SelBackMode = 1
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
		End With
		With .ConditionalFormats.Add("%CS0 = 1")
			.BackColor = RGB(255,128,128)
		End With
		.HeaderVisible = 1
		With .Items
			h = .AddItem("Project")
			hChild = .InsertItem(h,,"Task 1")
			.SelectItem(hChild) = True
			hChild = .InsertItem(h,,"Task 2")
			.CellState(hChild) = 1
			hChild = .InsertItem(h,,"Task 3")
			.CellState(hChild) = 1
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1020:
How can I export the cell's state as well

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		With .Columns
			.Add("C1").Def(0) = True
			.Add("C2").FormatColumn = "1 index `A-Z`"
			.Add("C3").FormatColumn = "100 index ``"
		End With
		With .Items
			.AddItem "Item 1"
			.CellState(.AddItem("Item 2")) = 1
			.CellState(.AddItem("Item 3")) = 1
		End With
		.EndUpdate 
		alert( "Export CSV Items including Check-State:" )
		.BeginUpdate 
		With .Columns.Add("Check")
			.Position = 0
			.FormatColumn = "%CS0"
		End With
		alert( .Export("") )
		.Columns.Remove "Check"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1019:
Is it possible to customize the editor selection colour of the built in text editor, from standard blue to black

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.SelBackColor = RGB(0,0,0)
		.SelForeColor = RGB(255,255,255)
		With .Columns.Add("Edit").Editor
			.EditType = 8
			.Mask = ";;;rich"
		End With
		With .Items
			.AddItem ""
			.AddItem "Just a text"
			.AddItem ""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1018:
Is it possible to customize the editor selection colour of the built in dropdown editor, from standard blue to black

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.SelBackColor = RGB(0,0,0)
		.SelForeColor = RGB(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 = 2
			.Mask = ";;;rich"
		End With
		With .Items
			.AddItem ""
			.AddItem "Just a text"
			.AddItem ""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1017:
The BeforeExpandItem event is fired when clicking the drop down filter button. What we can do to prevent that
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_BeforeExpandItem(Item,Cancel)
	With Grid1
		alert( "BeforeExpandItem" )
		alert( Item )
		alert( "ColumnFromPoint" )
		alert( .ColumnFromPoint(-1,-1) )
		alert( "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 Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.LinesAtRoot = -1
		With .Columns
			.Add("Items").DisplayFilterButton = True
		End With
		With .Items
			.ItemHasChildren(.InsertItem(,,"Group 1")) = True
			.ItemHasChildren(.InsertItem(,,"Group 2")) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1016:
How do I change the drop down filter icon/button (black)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		With .VisualAppearance
			.Add 1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" & _
	"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" & _
	"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA"
		End With
		.Background(0) = &H1000000
		.Background(32) = -1
		.HeaderAppearance = 0
		.BackColorHeader = RGB(0,0,0)
		.ForeColorHeader = RGB(255,255,255)
		.HeaderVisible = 1
		With .Columns.Add("Filter")
			.DisplayFilterButton = True
			.AllowSort = False
			.AllowDragging = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1015:
How do I change the drop down filter icon/button (white)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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
		.Background(0) = &H1000000
		.Background(32) = .BackColor
		.HeaderAppearance = 0
		.HeaderHeight = 24
		.BackColorHeader = RGB(255,255,255)
		.HeaderVisible = 1
		With .Columns.Add("Filter")
			.DisplayFilterButton = True
			.AllowSort = False
			.AllowDragging = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1014:
How can I draw a solid frame around the the focusing item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.SingleSel = False
		.DefaultItemHeight = 20
		With .VisualAppearance
			.RenderType = -1
			.Add 1,"gBFLBCJwBAEHhEJAAEhABOkGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEwpFAZBhgeDYMiSNoYDJCM4wH" & _
	"IURRJFCUJSGWQpTgSIgyT5HFIxXKoASbJabZLhWS6EpWOotTbIQQRYCkEyfKKfZyGURZQqOKA1DBZErWTJESRFJqLazgO4LAhyQYrVgAErzVKVCRNOqbJzADApdpGQJT" & _
	"ULDNTQHRFIyhOSnIRrWbMAhid6JUZiVT4dBOIYhSYANAqCwLFqrDJmWrpV5WZjlZ47V6BdAyXJsIrmFJEXaOGhyDDlGybSDZYryfZhUziUw4XjbWwZDqPF6DKTTdSGLR" & _
	"EE8WZVlURZvDaep3C+AY8kAYRgGCCBJECUhjDoHROEYWgoAGTQ1CEEx9lGMY0CQUYSnuZQDBGBYFlOH5+H+igGAKAJgEgFgGgGVgDn4CoCmCSA2A6A5hAgDgQgSYRIE4" & _
	"EoFGGCBiBeBhhkgPgbgcYgICoH4IGGWIOCSBhiGiHgVgoYooFoAoLGIWI+DCCgjCiTgrgII4ImYOoOmOSJ2AYOpWlQDQBICA="
		End With
		.ShowFocusRect = True
		.Background(19) = &H1000000
		.LinesAtRoot = -1
		With .Columns.Add("P1")
			.Def(0) = True
			.PartialCheck = True
		End With
		With .Items
			h = .AddItem("Root")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1013:
The frame around the focusing item is not very clear. Can I show it larger or more cleared (sample 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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
		.Background(19) = &H3010101
		.LinesAtRoot = -1
		With .Columns.Add("P1")
			.Def(0) = True
			.PartialCheck = True
		End With
		With .Items
			h = .AddItem("Root")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1012:
The frame around the focusing item is not very clear. Can I show it larger or more cleared (sample 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.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
		.SelBackColor = &H1000000
		.SelForeColor = RGB(0,0,0)
		.Background(19) = &H3ff0000
		.LinesAtRoot = -1
		With .Columns.Add("P1")
			.Def(0) = True
			.PartialCheck = True
		End With
		With .Items
			h = .AddItem("Root")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.ColumnAutoResize = True
		.DrawGridLines = 2
		With .Columns
			With .Add("Left")
				.AllowSizing = False
				.Width = 96
				.Def(0) = True
				.FormatColumn = "0 pos `A-Z`"
			End With
			With .Add("Center")
				.HeaderAlignment = 1
				.Alignment = .HeaderAlignment ' .HeaderAlignment
				.AllowSizing = False
				.Width = 96
				.Def(0) = True
				.FormatColumn = "0 pos `A-Z`"
			End With
			With .Add("Right")
				.HeaderAlignment = 2
				.Alignment = .HeaderAlignment ' .HeaderAlignment
				.AllowSizing = False
				.Width = 96
				.Def(0) = True
				.FormatColumn = "0 pos `A-Z`"
				.Def(34) = "caption,check,icon,icons,picture"
			End With
			.Add ""
		End With
		With .Items
			.CellState(.AddItem("Item 1"),3) = 1
			.CellState(.AddItem("Item 2"),2) = 1
			.CellState(.AddItem("Item 3"),1) = 1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1010:
Can I display the column's multiple-lines caption vertically oriented (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HeaderHeight = 48
		.ColumnAutoResize = True
		With .Columns
			.Add "And others ..."
			With .Add("")
				.HTMLCaption = "First Column"
				.HeaderVertical = True
				.Width = 36
				.AllowSizing = False
				.Def(0) = True
				.Def(48) = 8
				.Position = 0
			End With
			With .Add("")
				.HTMLCaption = "<c><b>Second Column"
				.HeaderVertical = True
				.Width = 36
				.AllowSizing = False
				.Def(0) = True
				.Def(48) = 8
				.Position = 1
			End With
			With .Add("")
				.HTMLCaption = "<r>Third Column"
				.HeaderVertical = True
				.Width = 36
				.AllowSizing = False
				.Def(0) = True
				.Def(48) = 8
				.Position = 2
			End With
		End With
		With .Items
			.CellState(.AddItem("Item 1"),3) = 1
			.CellState(.AddItem("Item 2"),2) = 1
			.CellState(.AddItem("Item 3"),1) = 1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1009:
Can I display the column's multiple-lines caption vertically oriented (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HeaderHeight = 48
		.HeaderSingleLine = False
		.ColumnAutoResize = True
		With .Columns
			.Add "And others ..."
			With .Add("First Column")
				.HeaderVertical = True
				.Width = 36
				.AllowSizing = False
				.Def(0) = True
				.Def(48) = 8
				.Position = 0
			End With
			With .Add("Second Column")
				.HeaderBold = True
				.HeaderVertical = True
				.Width = 36
				.AllowSizing = False
				.Def(0) = True
				.Def(48) = 8
				.Position = 1
			End With
			With .Add("Third Column")
				.HeaderVertical = True
				.Width = 36
				.AllowSizing = False
				.Def(0) = True
				.Def(48) = 8
				.Position = 2
			End With
		End With
		With .Items
			.CellState(.AddItem("Item 1"),3) = 1
			.CellState(.AddItem("Item 2"),2) = 1
			.CellState(.AddItem("Item 3"),1) = 1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1008:
Can I display the column's caption vertically oriented (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HeaderHeight = 48
		.ColumnAutoResize = True
		With .Columns
			.Add "And others ..."
			With .Add("")
				.HTMLCaption = "First"
				.HeaderVertical = True
				.Width = 20
				.AllowSizing = False
				.Def(0) = True
				.Position = 0
			End With
			With .Add("")
				.HTMLCaption = "<c><b>Second"
				.HeaderVertical = True
				.Width = 20
				.AllowSizing = False
				.Def(0) = True
				.Position = 1
			End With
			With .Add("")
				.HTMLCaption = "<r>Third"
				.HeaderVertical = True
				.Width = 20
				.AllowSizing = False
				.Def(0) = True
				.Position = 2
			End With
		End With
		With .Items
			.CellState(.AddItem("Item 1"),3) = 1
			.CellState(.AddItem("Item 2"),2) = 1
			.CellState(.AddItem("Item 3"),1) = 1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1007:
Can I display the column's caption vertically oriented (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HeaderHeight = 48
		.ColumnAutoResize = True
		With .Columns
			.Add "And others ..."
			With .Add("First")
				.HeaderVertical = True
				.Width = 20
				.AllowSizing = False
				.Def(0) = True
				.Position = 0
			End With
			With .Add("Second")
				.HeaderBold = True
				.HeaderVertical = True
				.Width = 20
				.AllowSizing = False
				.Def(0) = True
				.Position = 1
			End With
			With .Add("Third")
				.HeaderVertical = True
				.Width = 20
				.AllowSizing = False
				.Def(0) = True
				.Position = 2
			End With
		End With
		With .Items
			.CellState(.AddItem("Item 1"),3) = 1
			.CellState(.AddItem("Item 2"),2) = 1
			.CellState(.AddItem("Item 3"),1) = 1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1006:
How do I automatically bold items being checked

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_CellStateChanged(Item,ColIndex)
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.SelBackMode = 1
		With .ConditionalFormats.Add("%CS0","check")
			.Bold = True
		End With
		.Columns.Add("Items").Def(0) = True
		.Columns.Add(Grid1.ConditionalFormats.Item("check").Expression).FormatColumn = Grid1.ConditionalFormats.Item("check").Expression
		With .Items
			.AddItem "Item 1"
			.CellState(.AddItem("Item 2"),0) = 1
			.AddItem "Item 3"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1005:
How can I use the CellState with ConditionalFormat/ComputedField/FormatColumn

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_CellStateChanged(Item,ColIndex)
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.LinesAtRoot = 4
		.SelBackMode = 1
		With .Columns.Add("Items")
			.Def(0) = True
			.PartialCheck = True
		End With
		With .Columns.Add("Format")
			.FormatColumn = "%CS0"
			.Caption = .FormatColumn
			.Def(5) = 8421504
			.Def(8) = .Def(5)
		End With
		With .Items
			h = .AddItem("Root")
			.InsertItem h,,"Item 1"
			.CellState(.InsertItem(h,,"Item 2"),0) = 1
			.CellState(.InsertItem(h,,"Item 3"),0) = 1
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1004:
How can I use the CellData with ConditionalFormat/ComputedField/FormatColumn

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.Columns.Add "Items"
		With .Columns.Add("Format")
			.FormatColumn = "%CD0"
			.Caption = .FormatColumn
			.Def(5) = 8421504
			.Def(8) = .Def(5)
		End With
		With .Items
			.CellData(.AddItem("Item 1"),0) = 1234
			.CellData(.AddItem("Item 2"),0) = "this is just an user data"
			.CellData(.AddItem("Item 3"),0) = #1/1/2001#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1003:
How can I use the CellValue/CellCaption with ConditionalFormat/ComputedField/FormatColumn

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		With .Columns.Add("Items")
			With .Editor
				.EditType = 3
				.AddItem 1,"Item 1"
				.AddItem 2,"Item 2"
				.AddItem 3,"Item 3"
			End With
		End With
		With .Columns.Add("Format")
			.FormatColumn = "%0"
			.Caption = .FormatColumn
			.Def(5) = 8421504
			.Def(8) = .Def(5)
			.AllowSizing = False
		End With
		With .Columns.Add("Format")
			.FormatColumn = "%C0"
			.Caption = .FormatColumn
			.Def(5) = 8421504
			.Def(8) = .Def(5)
			.AllowSizing = False
		End With
		With .Items
			.AddItem 1
			.CellValue(.AddItem(0),0) = 2
			.AddItem 2
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1002:
Can I display the radio-button with a solid color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.RadioImage(0) = 32699122
		.RadioImage(1) = 16777216
		.Columns.Add("Check").Def(1) = True
		With .Items
			.AddItem "Radio 1"
			.CellState(.AddItem("Radio 2"),0) = 1
			.AddItem "Radio 1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1001:
Can I display the check-box with a solid color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.CheckImage(0) = 32699122
		.CheckImage(1) = 16777216
		.Columns.Add("Check").Def(0) = True
		With .Items
			.AddItem "Check 1"
			.CellState(.AddItem("Check 2"),0) = 1
			.AddItem "Check 3"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>