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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.BeginUpdate 
		.HeaderSingleLine = False
		.HeaderHeight = 36
		.DrawGridLines = -2
		.ColumnAutoResize = False
		.ScrollBySingleLine = True
		With .Columns
			With .Add("Single-Line (exCaptionSingleLine)")
				.Width = 96
				.Def(17) = 1
				.Def(16) = -1
			End With
			With .Add("Word-Wrap (exCaptionWordWrap)")
				.Width = 96
				.Def(17) = 1
				.Def(16) = 0
				.FormatColumn = "%0"
			End With
			With .Add("Break-Wrap (exCaptionBreakWrap)")
				.Width = 96
				.Def(17) = 1
				.Def(16) = 1
				.FormatColumn = "%0"
			End With
		End With
		With .Items
			.AddItem "This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line."
			.AddItem "This is the <b>first</b> line.\r\nThis is the <b>second</b> line.\r\nThis is the <b>third</b> line."
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.BeginUpdate 
		.HeaderSingleLine = False
		.HeaderHeight = 36
		.DrawGridLines = -2
		.ColumnAutoResize = False
		.ScrollBySingleLine = True
		.Columns.Add("Default").Width = 128
		With .Items
			h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
			h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
			.CellCaptionFormat(h,0) = 1
			h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
			.CellSingleLine(h,0) = 0
			h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
			.CellCaptionFormat(h,0) = 1
			.CellSingleLine(h,0) = 0
			h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
			.CellSingleLine(h,0) = 1
			h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
			.CellCaptionFormat(h,0) = 1
			.CellSingleLine(h,0) = 1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.BeginUpdate 
		.DrawGridLines = -2
		.ColumnAutoResize = False
		.ScrollBySingleLine = True
		.Columns.Add("Default").Width = 128
		With .Items
			.CellSingleLine(.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line."),0) = 1
			.AddItem "This is the first line.\r\nThis is the second line.\r\nThis is the third line."
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.BeginUpdate 
		.DrawGridLines = -2
		.ColumnAutoResize = False
		.ScrollBySingleLine = True
		With .Columns.Add("Default")
			.Width = 128
			.Def(16) = 1
		End With
		With .Items
			.AddItem "This is the first line.\r\nThis is the second line.\r\nThis is the third line."
			.AddItem "This is the first line.\r\nThis is the second line.\r\nThis is the third line."
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

681:
How can I change the visual appearance/color of the Filter For ... field

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.BeginUpdate 
		.LinesAtRoot = -1
		.BackColorHeader = RGB(1,0,0)
		.ForeColorHeader = RGB(255,255,255)
		.Background(26) = .BackColorHeader
		.Background(27) = .ForeColorHeader
		.Background(0) = RGB(240,240,240)
		.Background(32) = -1
		.HeaderAppearance = 5
		With .Columns.Add("Items")
			.FilterOnType = True
			.DisplayFilterButton = True
			.FilterList = 2
		End With
		With .Items
			h = .AddItem("Root 1")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			.ExpandItem(h) = True
			h = .AddItem("Root 2")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

680:
How can I display the cell's caption without spaces on both sides

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.BeginUpdate 
		.ColumnAutoResize = True
		With .Columns.Add("Default")
			.Def(17) = 1
			.FormatColumn = "((trim(value) replace `   ` with ` `) replace `  ` with ` `) replace ` ` with `<bgcolor=FF0000> </bgcolor>`"
		End With
		With .Items
			.AddItem ""
			.AddItem "Item A"
			.AddItem "    Item B"
			.AddItem "        Item   C    "
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

679:
How can I highlight the spaces within the column (sample 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.BeginUpdate 
		.ColumnAutoResize = True
		With .Columns.Add("Default")
			.Def(17) = 1
			.FormatColumn = "`'` + ( value replace ` ` with `_` ) + `'`"
		End With
		With .Items
			.AddItem ""
			.AddItem "Item A"
			.AddItem "    Item B"
			.AddItem "        Item   C    "
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

678:
How can I highlight the spaces within the column (sample 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.BeginUpdate 
		.ColumnAutoResize = True
		With .Columns.Add("Default")
			.Def(17) = 1
			.FormatColumn = "len(value) = 0 ? `<bgcolor=FF0000> </bgcolor>` : ( value replace ` ` with `<bgcolor=FF0000> </bgcolor>` )"
		End With
		With .Items
			.AddItem ""
			.AddItem "Item A"
			.AddItem "    Item B"
			.AddItem "        Item   C    "
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

677:
How can I change the visual aspect of the drop down filter-calendar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.BeginUpdate 
		.Background(26) = RGB(0,0,1)
		.Background(27) = RGB(255,255,255)
		.Background(12) = RGB(255,255,255)
		.Background(8) = .Background(26)
		.Background(11) = RGB(128,128,128)
		With .Columns.Add("Date")
			.FilterType = 4
			.DisplayFilterButton = True
			.DisplayFilterDate = True
			.DisplayFilterPattern = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

676:
Export Data in HTML format

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.BeginUpdate 
		.LinesAtRoot = -1
		.BackColorAlternate = RGB(240,240,240)
		.DrawGridLines = -1
		.HeaderAppearance = 4
		.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
		.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
	"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
	"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
	"nt + ` item(s)`) )))"
		.FilterBarPromptVisible = 2579 ' &Ha13
		.FilterBarPromptType = 2
		With .ConditionalFormats
			.Add("%0 like `*parent*`","parent").BackColor = RGB(192,192,192)
			With .Add("%0 like `*child*`","child")
				.ForeColor = RGB(255,128,128)
				.ApplyTo = 0
			End With
			With .Add("%0 like `*B*`","b")
				.ForeColor = RGB(0,0,255)
				.Bold = True
				.Italic = True
				.ApplyTo = 0
			End With
		End With
		With .Columns
			With .Add("Value")
				.Width = 128
				.HTMLCaption = "<b>VA</b><r>sko"
			End With
			With .Add("APos")
				.FormatColumn = "0 apos ``"
				.AllowSort = False
				.Def(4) = 15790320
				.Def(5) = 8421504
				.Def(8) = .Def(5)
				.Position = 0
			End With
			With .Add("RPos")
				.FormatColumn = "0 rpos ``"
				.AllowSort = False
				.Position = 1
			End With
			With .Add("Index")
				.FormatColumn = "0 index ``"
				.DisplayFilterButton = True
				.FilterList = 256
				.Position = 2
			End With
			With .Add("Data 1")
				.FormatColumn = "0 index `A-Z`"
				.Def(0) = True
			End With
			With .Add("Data 2")
				.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`"
				.Def(16) = False
				.Def(17) = 1
				.Def(1) = True
			End With
			With .Add("Data 3")
				.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`"
				.Def(17) = 1
			End With
		End With
		With .Items
			h = .AddItem("ParentA")
			.InsertItem h,,"Child A"
			.InsertItem h,,"Child B"
			.CellState(h,4) = 1
			.CellBackColor(.InsertItem(h,,"Child C"),5) = RGB(0,255,0)
			.ExpandItem(h) = True
			.AddItem "Item A"
			h = .AddItem("ParentB")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			.CellBackColor(.InsertItem(h,,"Child 3"),5) = RGB(0,255,0)
			.CellState(h,5) = 1
			.AddItem "Item B"
			.AddItem "Item C"
			.AddItem "Item D"
			.ExpandItem(h) = True
		End With
		.EndUpdate 
		sFile = "c:/temp/export.html"
		.Export sFile,"vis"
		With CreateObject("InternetExplorer.Application")
			.Navigate2 sFile
		End With
	End With
End Function
</SCRIPT>
</BODY>

675:
Export Data in CSV format

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.BeginUpdate 
		.LinesAtRoot = -1
		.BackColorAlternate = RGB(240,240,240)
		.DrawGridLines = -1
		.HeaderAppearance = 4
		.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
		.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
	"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
	"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
	"nt + ` item(s)`) )))"
		.FilterBarPromptVisible = 2579 ' &Ha13
		.FilterBarPromptType = 2
		With .ConditionalFormats
			.Add("%0 like `*parent*`","parent").BackColor = RGB(192,192,192)
			With .Add("%0 like `*child*`","child")
				.ForeColor = RGB(255,128,128)
				.ApplyTo = 0
			End With
			With .Add("%0 like `*B*`","b")
				.ForeColor = RGB(0,0,255)
				.Bold = True
				.Italic = True
				.ApplyTo = 0
			End With
		End With
		With .Columns
			With .Add("Value")
				.Width = 128
				.HTMLCaption = "<b>VA</b><r>sko"
			End With
			With .Add("APos")
				.FormatColumn = "0 apos ``"
				.AllowSort = False
				.Def(4) = 15790320
				.Def(5) = 8421504
				.Def(8) = .Def(5)
				.Position = 0
			End With
			With .Add("RPos")
				.FormatColumn = "0 rpos ``"
				.AllowSort = False
				.Position = 1
			End With
			With .Add("Index")
				.FormatColumn = "0 index ``"
				.DisplayFilterButton = True
				.FilterList = 256
				.Position = 2
			End With
			With .Add("Data 1")
				.FormatColumn = "0 index `A-Z`"
				.Def(0) = True
			End With
			With .Add("Data 2")
				.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`"
				.Def(16) = False
				.Def(17) = 1
				.Def(1) = True
			End With
			With .Add("Data 3")
				.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`"
				.Def(17) = 1
			End With
		End With
		With .Items
			h = .AddItem("ParentA")
			.InsertItem h,,"Child A"
			.InsertItem h,,"Child B"
			.CellState(h,4) = 1
			.CellBackColor(.InsertItem(h,,"Child C"),5) = RGB(0,255,0)
			.ExpandItem(h) = True
			.AddItem "Item A"
			h = .AddItem("ParentB")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			.CellBackColor(.InsertItem(h,,"Child 3"),5) = RGB(0,255,0)
			.CellState(h,5) = 1
			.AddItem "Item B"
			.AddItem "Item C"
			.AddItem "Item D"
			.ExpandItem(h) = True
		End With
		.EndUpdate 
		alert( .Export("","vis") )
	End With
End Function
</SCRIPT>
</BODY>

674:
Is it possible to check multiple-items at once

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Tree1_AddItem(Item)
	With Tree1
		bHasParent = .FormatABC("value != 0",.Items.ItemParent(Item))
		With .Items
			.CellHasCheckBox(Item,0) = bHasParent
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.BeginUpdate 
		.LinesAtRoot = -1
		With .Columns.Add("Tasks")
			.Def(17) = 1
			.FormatColumn = "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)"
		End With
		.HeaderVisible = 1
		.SingleSel = False
		With .Items
			h = .AddItem("Project")
			hChild = .InsertItem(h,,"Task 1")
			hChild = .InsertItem(h,,"Task 2")
			hChild = .InsertItem(h,,"Task 3")
			.ExpandItem(h) = True
			.LockedItemCount(0) = 1
			.CellCaption(.LockedItem(0,0),0) = "<c>Select multiple items and press the <b>SPACE</b> key"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

673:
How can I get the icon from the cell when using the Items.CellImages property (icon index)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Tree1_MouseMove(Button,Shift,X,Y)
	With Tree1
		i = .ItemFromPoint(-1,-1,c,hit)
		alert( .FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? ( ( (value bitand 0xFFFF0000) bitshift 16 ) array B split `,` )  : `no image`",hit,.Items.CellImages(i,c)) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.BeginUpdate 
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.Columns.Add "Default"
		With .Items
			.CellImages(.AddItem("Item 1"),0) = "3,2,1"
			.CellImages(.AddItem("Item 2"),0) = "2,3"
			.CellImages(.AddItem("Item 3"),0) = "2,"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

672:
How can I get the icon from the cell when using the Items.CellImages property (icon position within the cell)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Tree1_MouseMove(Button,Shift,X,Y)
	With Tree1
		i = .ItemFromPoint(-1,-1,c,hit)
		alert( .FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? 1 + ( (value bitand 0xFFFF0000) bitshift 16 ) : `no image`",hit) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.BeginUpdate 
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.Columns.Add "Default"
		With .Items
			.CellImages(.AddItem("Item 1"),0) = "3,2,1"
			.CellImages(.AddItem("Item 2"),0) = "2,3"
			.CellImages(.AddItem("Item 3"),0) = "2"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.BeginUpdate 
		.HeaderAppearance = 4
		With .Columns
			.Add "Column 1"
			.Add "Column 2"
			.Add "Column 3"
		End With
		With .VisualAppearance
			.Add 1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV" & _
	"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" & _
	"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" & _
	"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDI" & _
	"BICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAok" & _
	"GKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI="
			.Add 2,"CP:1 0 -36 0 0"
		End With
		.Background(182) = &H2000000
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.BeginUpdate 
		.ColumnAutoResize = True
		.DefaultItemHeight = 20
		.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhIDhAxHAxg0HG0Mg4xGI3HMOig3GcJiYAf8jAEhhUnAAyhEqg8hk0oAsIjgAiAwmYxGA4mYzGwwkI0i0ooUnB0IBMIl1Dg8zmYyGolptPkI1m" & _
	"Y1GAll9KoUslNIrVCqNQldShFUstXAVfrVcrlZtVhuFnsUHq1zoczoQGhFBkNpg6zbDykUkhsPHE2h85nc9n8xtVDtlex9Msd2p1YstVq9ux8HyMtzuFz1PsNTzQlv2h" & _
	"hWfkuqpeVuN0q+nvEooN5veSAGpkb/ACcZrvhU3w83nM/poxGuchGpoVBvWgg+8knA4WimnFxI45Er5XOlHMg/Q3XU33W4ew9Wyu11mchDagcO7zus8VDoNBBEIKBpMY" & _
	"6DqOQyokhA/IQIQmwMk4bIQFDcoO6LWgwhQkNcABwEyAB5GwWbet6cRQg3DENQ5D8QxADZvEkAB8nabsURGeBpFM3pwE2AEZRpDx/neZpOR3Dz9oO/r/wCMoZNTBQAQR" & _
	"JSEwYg8HPGhEIoNCaEwq10gQ2WcRt7LcRxRFpuxUAEURQ3sczBEMgTTG8gN7HpOSEAEiQBAQZpmQ0DibPUFwbKcHwkhQoQtNQNzNEMbABOKDy/DMYQzHLeoPL0OTJSUd" & _
	"0pHcxTewk5zrIygIRPslz4lEngBKIAQivgASs/kLSBTlO00f8t0vGcgUbDlDRjXLCUNRERRvRgAHW2oAICA=="
		With .Columns.Add("Default")
			.Def(0) = True
			.PartialCheck = True
		End With
		With .Columns.Add("Position")
			.FormatColumn = "1 rindex ``"
			.Visible = False
		End With
		With .ConditionalFormats.Add("%C1 mod 2")
			.BackColor = &H1000000
		End With
		With .Items
			.AddItem "Item 1"
			.AddItem "Item 2"
			.AddItem "Item 3"
			.AddItem "Item 4"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.BeginUpdate 
		.LinesAtRoot = -1
		With .Columns.Add("Default")
			.Def(0) = True
			.PartialCheck = True
		End With
		With .Columns.Add("Position")
			.FormatColumn = "( ( 1:=( ( 0:=(1 rpos '') ) lfind `.`) ) < 0 ? =:0 : (=:0 left =:1) )"
			.Visible = False
		End With
		With .ConditionalFormats.Add("%C1 mod 2")
			.BackColor = RGB(240,240,240)
		End With
		With .Items
			h = .AddItem("Root 1")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			.ExpandItem(h) = True
			h = .AddItem("Root 2")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			h = .AddItem("Root 3")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

668:
Is it possible to change the caption from a column without to remove the column and add it with the new caption
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.Columns.Add("ColumnName").Caption = "NewName"
		.Columns.Add("ColumnName").HTMLCaption = "<b>New</b>Name"
	End With
End Function
</SCRIPT>
</BODY>

667:
FilterBarCaption ALL Keyword ( sample 2, result )

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

<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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")
			.Def(0) = True
			.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
			.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
			h = .AddItem("Item B")
			.CellCaption(h,1) = "Sub-Item B"
			.CellState(h,2) = 1
			.CellCaption(.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 ' &H3
		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>

666:
FilterBarCaption ALL Keyword ( sample 1 )

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

<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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")
			.Def(0) = True
			.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
			.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
			h = .AddItem("Item B")
			.CellCaption(h,1) = "Sub-Item B"
			.CellState(h,2) = 1
			.CellCaption(.AddItem("Item C"),1) = "Sub-Item C"
		End With
		.FilterBarFont = .Font
		.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
		.FilterBarCaption = "all"
		.FilterBarPromptVisible = 3 ' &H3
		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>

665:
FilterBarCaption ALLUI Keyword ( sample 2, result )

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

<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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")
			.Def(0) = True
			.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
			.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
			h = .AddItem("Item B")
			.CellCaption(h,1) = "Sub-Item B"
			.CellState(h,2) = 1
			.CellCaption(.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 ' &H3
		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>

664:
FilterBarCaption ALLUI Keyword ( sample 1 )

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

<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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")
			.Def(0) = True
			.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
			.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
			h = .AddItem("Item B")
			.CellCaption(h,1) = "Sub-Item B"
			.CellState(h,2) = 1
			.CellCaption(.AddItem("Item C"),1) = "Sub-Item C"
		End With
		.FilterBarFont = .Font
		.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
		.FilterBarCaption = "allui"
		.FilterBarPromptVisible = 3 ' &H3
		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>

663:
FilterBarCaption AVAILABLE Keyword ( sample 2, result )

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

<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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")
			.Def(0) = True
			.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
			.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
			h = .AddItem("Item B")
			.CellCaption(h,1) = "Sub-Item B"
			.CellState(h,2) = 1
			.CellCaption(.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 ' &H3
		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>

662:
FilterBarCaption AVAILABLE Keyword ( sample 1 )

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

<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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")
			.Def(0) = True
			.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
			.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
			h = .AddItem("Item B")
			.CellCaption(h,1) = "Sub-Item B"
			.CellState(h,2) = 1
			.CellCaption(.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 ' &H3
		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>

661:
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:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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
			.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
			.CellCaption(.AddItem("Item B"),1) = "Sub-Item B"
			.CellCaption(.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>

660:
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:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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
			.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
			.CellCaption(.AddItem("Item B"),1) = "Sub-Item B"
			.CellCaption(.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>

659:
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:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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
			.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
			.CellCaption(.AddItem("Item B"),1) = "Sub-Item B"
			.CellCaption(.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>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

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

657:
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:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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 ' &He07
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

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

655:
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:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

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

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

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

653:
FilterBarCaption Predefined Keywords

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

<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.BeginUpdate 
		.LinesAtRoot = -1
		.Columns.Add("Item").DisplayFilterButton = True
		With .Columns.Add("Check")
			.Def(0) = True
			.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>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount +" & _
	" `</fgcolor>`"
		.FilterBarPromptPattern = "B"
		.FilterBarPromptVisible = 7 ' &H7
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

652:
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:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

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

651:
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:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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 ' &H501
		.FilterBarPrompt = .FormatABC("`<r>` + value",.FilterBarPrompt)
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

650:
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:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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 ' &H101
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

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

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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 ' &H201
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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
			.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."
			.CellCaptionFormat(h,0) = 1
		End With
		.FilterBarCaption = "`<r><fgcolor=808080>` + value"
		.FilterBarPromptPattern = "B"
		.FilterBarPromptVisible = 2323 ' &H913
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

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

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

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

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

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

<SCRIPT LANGUAGE="VBScript">
Function Tree1_FilterChange()
	With Tree1
		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:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

641:
How can I programmatically clear the control's filter

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

<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

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

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

637:
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:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

636:
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:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

635:
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:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

634:
How can I find if the control is running in DPI mode
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

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

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

632:
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 Tree1_SelectionChanged()
	With Tree1
		alert( "SelectionChanged" )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

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

<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

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

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

<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

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

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

<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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 = Tree1.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>

625:
How can I bold the checked items

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

<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

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

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

<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

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

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

<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

621:
The BeforeExpandItem event is fired when clicking the drop down filter button. What we can do to prevent that (method 2)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Tree1_BeforeExpandItem(Item,Cancel)
	With Tree1
		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:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

620:
The BeforeExpandItem event is fired when clicking the drop down filter button. What we can do to prevent that (method 1)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Tree1_BeforeExpandItem(Item,Cancel)
	With Tree1
		alert( "BeforeExpandItem" )
		alert( Item )
		.Items.InsertItem Item,,"new child"
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

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

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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 = True
		.BackColorLevelHeader = .BackColor
		With .Columns.Add("Filter")
			.DisplayFilterButton = True
			.AllowSort = False
			.AllowDragging = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.BeginUpdate 
		With .VisualAppearance
			.Add 2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgAN" & _
	"J0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8Y" & _
	"NYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4" & _
	"hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mg" & _
	"bhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhW" & _
	"BMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI="
			.Add 1,"CP:2 -14 -4 -2 4"
		End With
		.Background(0) = &H1000000
		.Background(32) = .BackColor
		.HeaderAppearance = 0
		.BackColorHeader = RGB(255,255,255)
		.HeaderVisible = True
		.HeaderHeight = 24
		.BackColorLevelHeader = .BackColor
		With .Columns.Add("Filter")
			.DisplayFilterButton = True
			.AllowSort = False
			.AllowDragging = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

617:
Do you have any Fit-To-Page options when printing the control (W x T, Fit-To )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.BeginUpdate 
		.ColumnAutoResize = False
		.ContinueColumnScroll = False
		Set rs = CreateObject("ADOR.Recordset")
		With rs
			.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\Access2007\sample.accdb",3,3
		End With
		.DataSource = rs
		.EndUpdate 
		With CreateObject("Exontrol.Print")
			.Options = "FitToPage =2 x 1"
			.PrintExt = Tree1.Object
			.Preview 
		End With
	End With
End Function
</SCRIPT>
</BODY>

616:
Do you have any Fit-To-Page options when printing the control ( x T, Fit-To Tall )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.BeginUpdate 
		.ColumnAutoResize = False
		.ContinueColumnScroll = False
		Set rs = CreateObject("ADOR.Recordset")
		With rs
			.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\Access2007\sample.accdb",3,3
		End With
		.DataSource = rs
		.EndUpdate 
		With CreateObject("Exontrol.Print")
			.Options = "FitToPage = x 2"
			.PrintExt = Tree1.Object
			.Preview 
		End With
	End With
End Function
</SCRIPT>
</BODY>

615:
Do you have any Fit-To-Page options when printing the control ( W x, Fit-To Wide )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.BeginUpdate 
		.ColumnAutoResize = False
		.ContinueColumnScroll = False
		Set rs = CreateObject("ADOR.Recordset")
		With rs
			.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\Access2007\sample.accdb",3,3
		End With
		.DataSource = rs
		.EndUpdate 
		With CreateObject("Exontrol.Print")
			.Options = "FitToPage = 2 x"
			.PrintExt = Tree1.Object
			.Preview 
		End With
	End With
End Function
</SCRIPT>
</BODY>

614:
Do you have any Fit-To-Page options when printing the control ( percent view, Adjust-To )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.BeginUpdate 
		.ColumnAutoResize = False
		.ContinueColumnScroll = False
		Set rs = CreateObject("ADOR.Recordset")
		With rs
			.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\Access2007\sample.accdb",3,3
		End With
		.DataSource = rs
		.EndUpdate 
		With CreateObject("Exontrol.Print")
			.Options = "FitToPage = 50%"
			.PrintExt = Tree1.Object
			.Preview 
		End With
	End With
End Function
</SCRIPT>
</BODY>

613:
How do I prevent changing the cell's state ( check-box state )
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Tree1_CellStateChanging(Item,ColIndex,NewState)
	With Tree1
		With .Items
			NewState = .CellState(Item,ColIndex)
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.BeginUpdate 
		.LinesAtRoot = -1
		With .Columns.Add("P1")
			.Def(0) = True
			.PartialCheck = True
		End With
		With .Columns.Add("P2")
			.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>

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

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

<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.BeginUpdate 
		.Columns.Add "Items"
		With .Columns.Add("Format")
			.FormatColumn = "%0"
			.Caption = .FormatColumn
			.Def(5) = 8421504
			.Def(8) = .Def(5)
			.Width = 96
			.AllowSizing = False
		End With
		With .Columns.Add("Format")
			.FormatColumn = "%C0"
			.Caption = .FormatColumn
			.Def(5) = 8421504
			.Def(8) = .Def(5)
			.Width = 96
			.AllowSizing = False
		End With
		With .Items
			.AddItem 1
			h = .AddItem(0)
			.CellCaption(h,0) = "<b>HTML</b> Text"
			.CellCaptionFormat(h,0) = 1
			.AddItem 2
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.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>

603:
How do I automatically bold items being checked

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

<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.BeginUpdate 
		.SelBackMode = 1
		With .ConditionalFormats.Add("%CS0","check")
			.Bold = True
		End With
		.Columns.Add("Items").Def(0) = True
		.Columns.Add(Tree1.ConditionalFormats.Item("check").Expression).FormatColumn = Tree1.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>

602:
How can I include the child items, when a filter is applied

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.BeginUpdate 
		.ColumnAutoResize = True
		.ContinueColumnScroll = 0
		.MarkSearchColumn = False
		.SearchColumnIndex = 1
		.Indent = 16
		.LinesAtRoot = -1
		.FilterBarPromptVisible = True ' True
		.FilterBarPromptPattern = "Nancy"
		.FilterInclude = 1
		With .Columns
			.Add("Name").Width = 96
			.Add("Title").Width = 96
			.Add "City"
		End With
		With .Items
			h0 = .AddItem("Nancy Davolio")
			.CellCaption(h0,1) = "Sales Representative"
			.CellCaption(h0,2) = "Seattle"
			h0 = .InsertItem(h0,,"Andrew Fuller")
			.CellCaption(h0,1) = "Vice President, Sales"
			.CellCaption(h0,2) = "Tacoma"
			h0 = .InsertItem(h0,,"Michael Suyama")
			.CellCaption(h0,1) = "Sales Representative"
			.CellCaption(h0,2) = "London"
			h0 = .AddItem("Janet Leverling")
			.CellCaption(h0,1) = "Sales Representative"
			.CellCaption(h0,2) = "Kirkland"
			h0 = .InsertItem(h0,,"Margaret Peacock")
			.CellCaption(h0,1) = "Sales Representative"
			.CellCaption(h0,2) = "Redmond"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

601:
How do I get sorted the column as string, numeric, date, date and time. Also how can it be applied to drop down filter panel

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3C5FC763-72BA-4B97-9985-81862E9251F2" id="Tree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Tree1
		.BeginUpdate 
		With .Columns.Add("Date")
			.SortType = 2
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.DisplayFilterDate = True
			.FilterList = 1296 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
		End With
		With .Columns.Add("DateTime")
			.SortType = 3
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterList = 1296 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
		End With
		With .Columns.Add("Time")
			.SortType = 4
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterList = 1296 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
			.FormatColumn = "time(value)"
		End With
		With .Columns.Add("Numeric")
			.SortType = 1
			.DisplayFilterButton = True
			.FilterList = 1296 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
		End With
		With .Columns.Add("String")
			.DisplayFilterButton = True
			.FilterList = 1296 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
		End With
		With .Items
			h = .AddItem(#1/27/2010#)
			.CellCaption(h,1) = #1/27/2010 10:00:00 AM#
			.CellCaption(h,2) = .CellCaption(h,1)
			.CellCaption(h,3) = 1
			.CellCaption(h,4) = .CellCaption(h,3)
			h = .AddItem(#1/27/2011#)
			.CellCaption(h,1) = #1/27/2011 9:00:00 AM#
			.CellCaption(h,2) = .CellCaption(h,1)
			.CellCaption(h,3) = 11
			.CellCaption(h,4) = .CellCaption(h,3)
			h = .AddItem(#11/2/2010#)
			.CellCaption(h,1) = #11/2/2010 9:00:00 AM#
			.CellCaption(h,2) = .CellCaption(h,1)
			.CellCaption(h,3) = 2
			.CellCaption(h,4) = .CellCaption(h,3)
		End With
		.Columns.Item("DateTime").DisplayFilterDate = False
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>