21:
How do I get the caption of the cell/item from the point

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExplorerTree1_MouseMove(Button,Shift,X,Y)
	With ExplorerTree1
		With .GroupListFromPoint(-1,-1)
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:1036744E-4103-4987-BA7A-BB6C35BD5852" id="ExplorerTree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerTree1
		.BeginUpdate 
		With .Groups.Add("Group 1")
			.HeaderVisible = True
			.Columns.Clear 
			.Columns.Add "Number"
			.Columns.Add("Round").ComputedField = "round(%0)"
			With .Items
				.AddItem "-1.98"
				.AddItem "0.99"
				.AddItem "1.23"
				.AddItem "2.34"
			End With
			.Expanded = True
		End With
		With .Groups.Add("Group 2")
			.HeaderVisible = True
			.Columns.Clear 
			.Columns.Add "Number"
			.Columns.Add("Round").ComputedField = "round(%0)"
			With .Items
				.AddItem "-1.98"
				.AddItem "0.99"
				.AddItem "1.23"
				.AddItem "2.34"
			End With
			.Expanded = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

20:
How can I ensure that a specified item is visible

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1036744E-4103-4987-BA7A-BB6C35BD5852" id="ExplorerTree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerTree1
		.BeginUpdate 
		With .Groups
			With .Add("Group")
				.Expanded = True
				With .Items
					.AddItem "Item"
					.AddItem "Item"
					.AddItem "Item"
					.AddItem "Item"
				End With
				.PutItems .GetItems(0),0
				.PutItems .GetItems(0),0
				.Items.AddItem "Ensure"
			End With
		End With
		With .Groups.Item(0).Items
			h = .ItemByIndex(16)
			.ItemBackColor(h) = RGB(255,255,0)
			.EnsureVisibleItem h
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

19:
is it possible to display icons in the control's shortcut bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1036744E-4103-4987-BA7A-BB6C35BD5852" id="ExplorerTree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerTree1
		.BeginUpdate 
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.ShowShortcutBar = True
		With .Groups
			.Add("Group A.1").Shortcut = "<img>1</img> First Group"
			.Add("Group A.2").Shortcut = "<img>1</img> First Group"
			.Add("Group B.1").Shortcut = "<img>2</img> Second Group"
			.Add("Group B.2").Shortcut = "<img>2</img> Second Group"
			.Add("Group B.3").Shortcut = "<img>2</img> Second Group"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

18:
How can I display the control's shortcut bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1036744E-4103-4987-BA7A-BB6C35BD5852" id="ExplorerTree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerTree1
		.BeginUpdate 
		.ShowShortcutBar = True
		With .Groups
			.Add("Group A.1").Shortcut = "A"
			.Add("Group A.2").Shortcut = "A"
			.Add("Group B.1").Shortcut = "B"
			.Add("Group B.2").Shortcut = "B"
			.Add("Group B.3").Shortcut = "B"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

17:
Can I display the cell's check box after the text

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1036744E-4103-4987-BA7A-BB6C35BD5852" id="ExplorerTree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerTree1
		.BeginUpdate 
		With .Groups.Add("Default")
			.Expanded = True
			With .Columns.Item(0)
				.Def(0) = True
				.Def(34) = "caption,check"
			End With
			With .Items
				.CellHasCheckBox(.AddItem("Caption 1"),0) = True
				.CellHasCheckBox(.AddItem("Caption 2"),0) = True
			End With
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

16:
Can I change the order of the parts in the cell, as checkbox after the text, and so on

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1036744E-4103-4987-BA7A-BB6C35BD5852" id="ExplorerTree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerTree1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.BeginUpdate 
		With .Groups.Add("Default")
			.Expanded = True
			.Columns.Item(0).Def(34) = "caption,check,icon,icons,picture"
			With .Items
				h = .AddItem("Text")
				.CellImage(h,0) = 1
				.CellHasCheckBox(h,0) = True
			End With
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

15:
Can I have an image displayed after the text. Can I get that effect without using HTML content

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1036744E-4103-4987-BA7A-BB6C35BD5852" id="ExplorerTree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerTree1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.BeginUpdate 
		With .Groups.Add("Default")
			.Expanded = True
			.Columns.Item(0).Def(34) = "caption,icon,check,icons,picture"
			With .Items
				h = .AddItem("Text")
				.CellImage(h,0) = 1
			End With
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

14:
How do I enable the filter prompt feature

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1036744E-4103-4987-BA7A-BB6C35BD5852" id="ExplorerTree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerTree1
		.BeginUpdate 
		.Groups.Add "Group 1"
		With .Groups.Add("Group 2")
			.AutoHeight = True
			.HeaderVisible = True
			.Columns.Clear 
			.ColumnAutoResize = True
			.ContinueColumnScroll = 0
			.MarkSearchColumn = False
			.SearchColumnIndex = 1
			.FilterBarPromptVisible = True
			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 = .AddItem("Andrew Fuller")
				.CellCaption(h0,1) = "Vice President, Sales"
				.CellCaption(h0,2) = "Tacoma"
				.SelectItem(h0) = True
				h0 = .AddItem("Janet Leverling")
				.CellCaption(h0,1) = "Sales Representative"
				.CellCaption(h0,2) = "Kirkland"
				h0 = .AddItem("Margaret Peacock")
				.CellCaption(h0,1) = "Sales Representative"
				.CellCaption(h0,2) = "Redmond"
				h0 = .AddItem("Steven Buchanan")
				.CellCaption(h0,1) = "Sales Manager"
				.CellCaption(h0,2) = "London"
				h0 = .AddItem("Michael Suyama")
				.CellCaption(h0,1) = "Sales Representative"
				.CellCaption(h0,2) = "London"
				h0 = .AddItem("Robert King")
				.CellCaption(h0,1) = "Sales Representative"
				.CellCaption(h0,2) = "London"
				h0 = .AddItem("Laura Callahan")
				.CellCaption(h0,1) = "Inside Sales Coordinator"
				.CellCaption(h0,2) = "Seattle"
				h0 = .AddItem("Anne Dodsworth")
				.CellCaption(h0,1) = "Sales Representative"
				.CellCaption(h0,2) = "London"
			End With
			.Expanded = True
		End With
		.Groups.Add "Group 3"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

13:
Can I specify unsortable items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1036744E-4103-4987-BA7A-BB6C35BD5852" id="ExplorerTree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerTree1
		.BeginUpdate 
		With .Groups.Add("Default")
			.AutoHeight = True
			.HeaderVisible = True
			.Columns.Clear 
			.HasLines = 0
			.ScrollBySingleLine = True
			.MarkSearchColumn = False
			With .Columns
				.Add "Name"
				.Add "A"
				.Add "B"
				.Add "C"
			End With
			With .Items
				h = .AddItem("Group 1")
				.CellHAlignment(h,0) = 1
				.ItemDivider(h) = 0
				.ItemDividerLineAlignment(h) = 3
				.ItemHeight(h) = 24
				.SortableItem(h) = False
				h1 = .InsertItem(h,,"Child 1")
				.CellCaption(h1,1) = 1
				.CellCaption(h1,2) = 2
				.CellCaption(h1,3) = 3
				h1 = .InsertItem(h,,"Child 2")
				.CellCaption(h1,1) = 4
				.CellCaption(h1,2) = 5
				.CellCaption(h1,3) = 6
				.ExpandItem(h) = True
				h = .AddItem("Group 2")
				.CellHAlignment(h,0) = 1
				.ItemDivider(h) = 0
				.ItemDividerLineAlignment(h) = 3
				.ItemHeight(h) = 24
				.SortableItem(h) = False
				h1 = .InsertItem(h,,"Child 1")
				.CellCaption(h1,1) = 1
				.CellCaption(h1,2) = 2
				.CellCaption(h1,3) = 3
				h1 = .InsertItem(h,,"Child 2")
				.CellCaption(h1,1) = 4
				.CellCaption(h1,2) = 5
				.CellCaption(h1,3) = 6
				.ExpandItem(h) = True
			End With
			.Expanded = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

12:
Can I change the style of the line being displayed by a divider item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1036744E-4103-4987-BA7A-BB6C35BD5852" id="ExplorerTree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerTree1
		.BeginUpdate 
		With .Groups.Add("Default")
			.HeaderVisible = True
			.Columns.Clear 
			.MarkSearchColumn = False
			.TreeColumnIndex = -1
			.ScrollBySingleLine = False
			.Columns.Add "C1"
			.Columns.Add "C2"
			.SelBackMode = 1
			With .Items
				h = .AddItem("Cell 1")
				.CellCaption(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
				.CellSingleLine(h,1) = False
				h = .AddItem("This is bit of text that's displayed on the entire item, divider.")
				.ItemDivider(h) = 0
				.ItemDividerLine(h) = 4
				.ItemDividerLineAlignment(h) = 3
				.CellHAlignment(h,0) = 1
				.ItemHeight(h) = 24
			End With
			.Expanded = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

11:
How can I expand all items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1036744E-4103-4987-BA7A-BB6C35BD5852" id="ExplorerTree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerTree1
		.BeginUpdate 
		With .Groups.Add("Default")
			.HeaderVisible = True
			.Columns.Clear 
			.LinesAtRoot = -1
			.Columns.Add "Items"
			With .Items
				h = .AddItem("Root 1")
				.InsertItem h,,"Child 1"
				.InsertItem h,,"Child 2"
				h = .AddItem("Root 2")
				.InsertItem h,,"Child 1"
				.InsertItem h,,"Child 2"
				.ExpandItem(0) = True
			End With
			.Expanded = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

10:
Is it possible display numbers in the same format no matter of regional settings in the control panel

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1036744E-4103-4987-BA7A-BB6C35BD5852" id="ExplorerTree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerTree1
		With .Groups.Add("Default")
			.HeaderVisible = True
			.Columns.Clear 
			.Columns.Add("Def").Def(17) = 1
			With .Items
				h = .AddItem(100000.27)
				.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default positive)'"
				h = .AddItem(100000.27)
				.FormatCell(h,0) = "(value format '2|.|3|,|1|1')"
				h = .AddItem(-100000.27)
				.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default negative)'"
				h = .AddItem(-100000.27)
				.FormatCell(h,0) = "(value format '2|.|3|,|1|1')"
			End With
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

9:
Is it possible to format numbers

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1036744E-4103-4987-BA7A-BB6C35BD5852" id="ExplorerTree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerTree1
		.BeginUpdate 
		With .Groups.Add("Default")
			.HeaderVisible = True
			.MarkSearchColumn = False
			.Columns.Clear 
			With .Columns
				.Add "Name"
				With .Add("A")
					.SortType = 1
					.AllowSizing = False
					.Width = 36
					.FormatColumn = "len(value) ? value + ' +'"
				End With
				With .Add("B")
					.SortType = 1
					.AllowSizing = False
					.Width = 36
					.FormatColumn = "len(value) ? value + ' +'"
				End With
				With .Add("C")
					.SortType = 1
					.AllowSizing = False
					.Width = 36
					.FormatColumn = "len(value) ? value + ' ='"
				End With
				With .Add("A+B+C")
					.SortType = 1
					.Width = 64
					.ComputedField = "dbl(%1)+dbl(%2)+dbl(%3)"
					.FormatColumn = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00" & _
	"00FF>+'+(value format '2|.|3|,' ): '0.00') )"
					.Def(17) = 1
				End With
			End With
			With .Items
				h = .AddItem("Root")
				.CellCaptionFormat(h,4) = 2
				h1 = .InsertItem(h,,"Child 1")
				.CellCaption(h1,1) = 7
				.CellCaption(h1,2) = 3
				.CellCaption(h1,3) = 1
				h1 = .InsertItem(h,,"Child 2")
				.CellCaption(h1,1) = -2
				.CellCaption(h1,2) = -2
				.CellCaption(h1,3) = -4
				h1 = .InsertItem(h,,"Child 3")
				.CellCaption(h1,1) = 2
				.CellCaption(h1,2) = 2
				.CellCaption(h1,3) = -4
				.ExpandItem(h) = True
			End With
			.Expanded = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

8:
Is there any function to round the values base on the .5 value

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1036744E-4103-4987-BA7A-BB6C35BD5852" id="ExplorerTree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerTree1
		With .Groups.Add("Default")
			.HeaderVisible = True
			.Columns.Clear 
			.Columns.Add "Number"
			.Columns.Add("Round").ComputedField = "round(%0)"
			With .Items
				.AddItem "-1.98"
				.AddItem "0.99"
				.AddItem "1.23"
				.AddItem "2.34"
			End With
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

7:
How can I show a column that adds values in the cells

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1036744E-4103-4987-BA7A-BB6C35BD5852" id="ExplorerTree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerTree1
		With .Groups.Add("Default")
			.Columns.Clear 
			.HeaderVisible = True
			.Columns.Add "A"
			.Columns.Add "B"
			.Columns.Add("A+B").ComputedField = "dbl(%0) + dbl(%1)"
			With .Items
				.CellCaption(.AddItem(1),1) = 2
			End With
			With .Items
				.CellCaption(.AddItem(10),1) = 20
			End With
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

6:
How do I change the item's background color for numbers less than a value

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1036744E-4103-4987-BA7A-BB6C35BD5852" id="ExplorerTree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerTree1
		With .Groups.Add("Default")
			.ConditionalFormats.Add("dbl(%0) < 10").BackColor = RGB(255,0,0)
			.Items.AddItem 1
			.Items.AddItem 2
			.Items.AddItem 10
			.Items.AddItem 20
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

5:
How do I highlight in bold the numbers greater than a value

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1036744E-4103-4987-BA7A-BB6C35BD5852" id="ExplorerTree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerTree1
		With .Groups.Add("Default")
			.ConditionalFormats.Add("dbl(%0) >= 10").Bold = True
			.Items.AddItem 1
			.Items.AddItem 2
			.Items.AddItem 10
			.Items.AddItem 20
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

4:
How do I change the caption being displayed in the control's filter bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1036744E-4103-4987-BA7A-BB6C35BD5852" id="ExplorerTree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerTree1
		With .Groups.Add("Default")
			.FilterBarCaption = "your filter caption"
			With .Columns.Add("Column")
				.DisplayFilterButton = True
				.FilterType = 1
			End With
			.ApplyFilter 
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

3:
Is it possible to change the style for the vertical or horizontal grid lines, in the list area

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1036744E-4103-4987-BA7A-BB6C35BD5852" id="ExplorerTree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerTree1
		.BeginUpdate 
		With .Groups.Add("Default")
			.AutoHeight = True
			.DrawGridLines = -1
			.GridLineStyle = 33 ' GridLinesStyleEnum.exGridLinesVSolid Or GridLinesStyleEnum.exGridLinesHDot4
			.ColumnAutoResize = False
			With .Columns.Item(0)
				.Caption = "C1"
				.Width = 64
			End With
			.Columns.Add "C2"
			.Columns.Add "C3"
			.ColumnAutoResize = True
			With .Items
				h = .AddItem("Item 1")
				.CellCaption(h,1) = "SubItem 1.2"
				.CellCaption(h,2) = "SubItem 1.3"
				h = .AddItem("Item 2")
				.CellCaption(h,1) = "SubItem 2.2"
				.CellCaption(h,2) = "SubItem 2.3"
				h = .AddItem("Item 3")
				.CellCaption(h,1) = "SubItem 3.2"
				.CellCaption(h,2) = "SubItem 3.3"
			End With
			.Expanded = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2:
Is it possible to change the style for the grid lines, for instance to be solid not dotted

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1036744E-4103-4987-BA7A-BB6C35BD5852" id="ExplorerTree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerTree1
		.BeginUpdate 
		With .Groups.Add("Default")
			.DrawGridLines = -1
			.GridLineStyle = 48
			.Expanded = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1:
How can I change the visual appearance for the groups, using your EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1036744E-4103-4987-BA7A-BB6C35BD5852" id="ExplorerTree1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerTree1
		.BeginUpdate 
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.BackColorGroup = &H1000000
		With .Groups
			.Add "Group 1"
			.Add "Group 2"
			.Add "Group 3"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>