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

/*
with (this.EXPLORERTREEACTIVEXCONTROL1.nativeObject)
	MouseMove = class::nativeObject_MouseMove
endwith
*/
// Occurs when the user moves the mouse.
function nativeObject_MouseMove(Button,Shift,X,Y)
	local var_Object
	oExplorerTree = form.EXPLORERTREEACTIVEXCONTROL1.nativeObject
	var_Object = oExplorerTree.GroupListFromPoint(-1,-1)
return

local oExplorerTree,var_Column,var_Column1,var_Group,var_Group1,var_Items,var_Items1

oExplorerTree = form.EXPLORERTREEACTIVEXCONTROL1.nativeObject
oExplorerTree.BeginUpdate()
var_Group = oExplorerTree.Groups.Add("Group 1")
	var_Group.HeaderVisible = true
	var_Group.Columns.Clear()
	var_Group.Columns.Add("Number")
	// var_Group.Columns.Add("Round").ComputedField = "round(%0)"
	var_Column = var_Group.Columns.Add("Round")
	with (oExplorerTree)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.ComputedField = "round(%0)"]
	endwith
	var_Items = var_Group.Items
		var_Items.AddItem("-1.98")
		var_Items.AddItem("0.99")
		var_Items.AddItem("1.23")
		var_Items.AddItem("2.34")
	var_Group.Expanded = true
var_Group1 = oExplorerTree.Groups.Add("Group 2")
	var_Group1.HeaderVisible = true
	var_Group1.Columns.Clear()
	var_Group1.Columns.Add("Number")
	// var_Group1.Columns.Add("Round").ComputedField = "round(%0)"
	var_Column1 = var_Group1.Columns.Add("Round")
	with (oExplorerTree)
		TemplateDef = [dim var_Column1]
		TemplateDef = var_Column1
		Template = [var_Column1.ComputedField = "round(%0)"]
	endwith
	var_Items1 = var_Group1.Items
		var_Items1.AddItem("-1.98")
		var_Items1.AddItem("0.99")
		var_Items1.AddItem("1.23")
		var_Items1.AddItem("2.34")
	var_Group1.Expanded = true
oExplorerTree.EndUpdate()

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

local h,oExplorerTree,var_Group,var_Groups,var_Items,var_Items1

oExplorerTree = form.EXPLORERTREEACTIVEXCONTROL1.nativeObject
oExplorerTree.BeginUpdate()
var_Groups = oExplorerTree.Groups
	var_Group = var_Groups.Add("Group")
		var_Group.Expanded = true
		var_Items = var_Group.Items
			var_Items.AddItem("Item")
			var_Items.AddItem("Item")
			var_Items.AddItem("Item")
			var_Items.AddItem("Item")
		var_Group.PutItems(var_Group.GetItems(0),0)
		var_Group.PutItems(var_Group.GetItems(0),0)
		var_Group.Items.AddItem("Ensure")
var_Items1 = oExplorerTree.Groups.Item(0).Items
	h = var_Items1.ItemByIndex(16)
	// var_Items1.ItemBackColor(h) = 0xffff
	with (oExplorerTree)
		TemplateDef = [dim var_Items1,h]
		TemplateDef = var_Items1
		TemplateDef = h
		Template = [var_Items1.ItemBackColor(h) = 65535]
	endwith
	var_Items1.EnsureVisibleItem(h)
oExplorerTree.EndUpdate()

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

local oExplorerTree,var_Group,var_Group1,var_Group2,var_Group3,var_Group4,var_Groups

oExplorerTree = form.EXPLORERTREEACTIVEXCONTROL1.nativeObject
oExplorerTree.BeginUpdate()
oExplorerTree.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerTree.ShowShortcutBar = true
var_Groups = oExplorerTree.Groups
	// var_Groups.Add("Group A.1").Shortcut = "<img>1</img> First Group"
	var_Group = var_Groups.Add("Group A.1")
	with (oExplorerTree)
		TemplateDef = [dim var_Group]
		TemplateDef = var_Group
		Template = [var_Group.Shortcut = "<img>1</img> First Group"]
	endwith
	// var_Groups.Add("Group A.2").Shortcut = "<img>1</img> First Group"
	var_Group1 = var_Groups.Add("Group A.2")
	with (oExplorerTree)
		TemplateDef = [dim var_Group1]
		TemplateDef = var_Group1
		Template = [var_Group1.Shortcut = "<img>1</img> First Group"]
	endwith
	// var_Groups.Add("Group B.1").Shortcut = "<img>2</img> Second Group"
	var_Group2 = var_Groups.Add("Group B.1")
	with (oExplorerTree)
		TemplateDef = [dim var_Group2]
		TemplateDef = var_Group2
		Template = [var_Group2.Shortcut = "<img>2</img> Second Group"]
	endwith
	// var_Groups.Add("Group B.2").Shortcut = "<img>2</img> Second Group"
	var_Group3 = var_Groups.Add("Group B.2")
	with (oExplorerTree)
		TemplateDef = [dim var_Group3]
		TemplateDef = var_Group3
		Template = [var_Group3.Shortcut = "<img>2</img> Second Group"]
	endwith
	// var_Groups.Add("Group B.3").Shortcut = "<img>2</img> Second Group"
	var_Group4 = var_Groups.Add("Group B.3")
	with (oExplorerTree)
		TemplateDef = [dim var_Group4]
		TemplateDef = var_Group4
		Template = [var_Group4.Shortcut = "<img>2</img> Second Group"]
	endwith
oExplorerTree.EndUpdate()

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

local oExplorerTree,var_Group,var_Group1,var_Group2,var_Group3,var_Group4,var_Groups

oExplorerTree = form.EXPLORERTREEACTIVEXCONTROL1.nativeObject
oExplorerTree.BeginUpdate()
oExplorerTree.ShowShortcutBar = true
var_Groups = oExplorerTree.Groups
	// var_Groups.Add("Group A.1").Shortcut = "A"
	var_Group = var_Groups.Add("Group A.1")
	with (oExplorerTree)
		TemplateDef = [dim var_Group]
		TemplateDef = var_Group
		Template = [var_Group.Shortcut = "A"]
	endwith
	// var_Groups.Add("Group A.2").Shortcut = "A"
	var_Group1 = var_Groups.Add("Group A.2")
	with (oExplorerTree)
		TemplateDef = [dim var_Group1]
		TemplateDef = var_Group1
		Template = [var_Group1.Shortcut = "A"]
	endwith
	// var_Groups.Add("Group B.1").Shortcut = "B"
	var_Group2 = var_Groups.Add("Group B.1")
	with (oExplorerTree)
		TemplateDef = [dim var_Group2]
		TemplateDef = var_Group2
		Template = [var_Group2.Shortcut = "B"]
	endwith
	// var_Groups.Add("Group B.2").Shortcut = "B"
	var_Group3 = var_Groups.Add("Group B.2")
	with (oExplorerTree)
		TemplateDef = [dim var_Group3]
		TemplateDef = var_Group3
		Template = [var_Group3.Shortcut = "B"]
	endwith
	// var_Groups.Add("Group B.3").Shortcut = "B"
	var_Group4 = var_Groups.Add("Group B.3")
	with (oExplorerTree)
		TemplateDef = [dim var_Group4]
		TemplateDef = var_Group4
		Template = [var_Group4.Shortcut = "B"]
	endwith
oExplorerTree.EndUpdate()

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

local oExplorerTree,var_Column,var_Group,var_Items

oExplorerTree = form.EXPLORERTREEACTIVEXCONTROL1.nativeObject
oExplorerTree.BeginUpdate()
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.Expanded = true
	var_Column = var_Group.Columns.Item(0)
		// var_Column.Def(0) = true
		with (oExplorerTree)
			TemplateDef = [dim var_Column]
			TemplateDef = var_Column
			Template = [var_Column.Def(0) = True]
		endwith
		// var_Column.Def(34) = "caption,check"
		with (oExplorerTree)
			TemplateDef = [dim var_Column]
			TemplateDef = var_Column
			Template = [var_Column.Def(34) = "caption,check"]
		endwith
	var_Items = var_Group.Items
		// var_Items.CellHasCheckBox(var_Items.AddItem("Caption 1"),0) = true
		with (oExplorerTree)
			TemplateDef = [dim var_Items]
			TemplateDef = var_Items
			Template = [var_Items.CellHasCheckBox(AddItem("Caption 1"),0) = True]
		endwith
		// var_Items.CellHasCheckBox(var_Items.AddItem("Caption 2"),0) = true
		with (oExplorerTree)
			TemplateDef = [dim var_Items]
			TemplateDef = var_Items
			Template = [var_Items.CellHasCheckBox(AddItem("Caption 2"),0) = True]
		endwith
oExplorerTree.EndUpdate()

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

local h,oExplorerTree,var_Columns,var_Group,var_Items

oExplorerTree = form.EXPLORERTREEACTIVEXCONTROL1.nativeObject
oExplorerTree.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerTree.BeginUpdate()
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.Expanded = true
	// var_Group.Columns.Item(0).Def(34) = "caption,check,icon,icons,picture"
	var_Columns = var_Group.Columns.Item(0)
	with (oExplorerTree)
		TemplateDef = [dim var_Columns]
		TemplateDef = var_Columns
		Template = [var_Columns.Def(34) = "caption,check,icon,icons,picture"]
	endwith
	var_Items = var_Group.Items
		h = var_Items.AddItem("Text")
		// var_Items.CellImage(h,0) = 1
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.CellImage(h,0) = 1]
		endwith
		// var_Items.CellHasCheckBox(h,0) = true
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.CellHasCheckBox(h,0) = True]
		endwith
oExplorerTree.EndUpdate()

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

local h,oExplorerTree,var_Columns,var_Group,var_Items

oExplorerTree = form.EXPLORERTREEACTIVEXCONTROL1.nativeObject
oExplorerTree.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerTree.BeginUpdate()
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.Expanded = true
	// var_Group.Columns.Item(0).Def(34) = "caption,icon,check,icons,picture"
	var_Columns = var_Group.Columns.Item(0)
	with (oExplorerTree)
		TemplateDef = [dim var_Columns]
		TemplateDef = var_Columns
		Template = [var_Columns.Def(34) = "caption,icon,check,icons,picture"]
	endwith
	var_Items = var_Group.Items
		h = var_Items.AddItem("Text")
		// var_Items.CellImage(h,0) = 1
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.CellImage(h,0) = 1]
		endwith
oExplorerTree.EndUpdate()

14:
How do I enable the filter prompt feature

local h0,oExplorerTree,var_Column,var_Column1,var_Columns,var_Group,var_Items

oExplorerTree = form.EXPLORERTREEACTIVEXCONTROL1.nativeObject
oExplorerTree.BeginUpdate()
oExplorerTree.Groups.Add("Group 1")
var_Group = oExplorerTree.Groups.Add("Group 2")
	var_Group.AutoHeight = true
	var_Group.HeaderVisible = true
	var_Group.Columns.Clear()
	var_Group.ColumnAutoResize = true
	var_Group.ContinueColumnScroll = false
	var_Group.MarkSearchColumn = false
	var_Group.SearchColumnIndex = 1
	var_Group.FilterBarPromptVisible = true
	var_Columns = var_Group.Columns
		// var_Columns.Add("Name").Width = 96
		var_Column = var_Columns.Add("Name")
		with (oExplorerTree)
			TemplateDef = [dim var_Column]
			TemplateDef = var_Column
			Template = [var_Column.Width = 96]
		endwith
		// var_Columns.Add("Title").Width = 96
		var_Column1 = var_Columns.Add("Title")
		with (oExplorerTree)
			TemplateDef = [dim var_Column1]
			TemplateDef = var_Column1
			Template = [var_Column1.Width = 96]
		endwith
		var_Columns.Add("City")
	var_Items = var_Group.Items
		h0 = var_Items.AddItem("Nancy Davolio")
		// var_Items.CellCaption(h0,1) = "Sales Representative"
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h0]
			TemplateDef = var_Items
			TemplateDef = h0
			Template = [var_Items.CellCaption(h0,1) = "Sales Representative"]
		endwith
		// var_Items.CellCaption(h0,2) = "Seattle"
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h0]
			TemplateDef = var_Items
			TemplateDef = h0
			Template = [var_Items.CellCaption(h0,2) = "Seattle"]
		endwith
		h0 = var_Items.AddItem("Andrew Fuller")
		// var_Items.CellCaption(h0,1) = "Vice President, Sales"
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h0]
			TemplateDef = var_Items
			TemplateDef = h0
			Template = [var_Items.CellCaption(h0,1) = "Vice President, Sales"]
		endwith
		// var_Items.CellCaption(h0,2) = "Tacoma"
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h0]
			TemplateDef = var_Items
			TemplateDef = h0
			Template = [var_Items.CellCaption(h0,2) = "Tacoma"]
		endwith
		// var_Items.SelectItem(h0) = true
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h0]
			TemplateDef = var_Items
			TemplateDef = h0
			Template = [var_Items.SelectItem(h0) = True]
		endwith
		h0 = var_Items.AddItem("Janet Leverling")
		// var_Items.CellCaption(h0,1) = "Sales Representative"
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h0]
			TemplateDef = var_Items
			TemplateDef = h0
			Template = [var_Items.CellCaption(h0,1) = "Sales Representative"]
		endwith
		// var_Items.CellCaption(h0,2) = "Kirkland"
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h0]
			TemplateDef = var_Items
			TemplateDef = h0
			Template = [var_Items.CellCaption(h0,2) = "Kirkland"]
		endwith
		h0 = var_Items.AddItem("Margaret Peacock")
		// var_Items.CellCaption(h0,1) = "Sales Representative"
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h0]
			TemplateDef = var_Items
			TemplateDef = h0
			Template = [var_Items.CellCaption(h0,1) = "Sales Representative"]
		endwith
		// var_Items.CellCaption(h0,2) = "Redmond"
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h0]
			TemplateDef = var_Items
			TemplateDef = h0
			Template = [var_Items.CellCaption(h0,2) = "Redmond"]
		endwith
		h0 = var_Items.AddItem("Steven Buchanan")
		// var_Items.CellCaption(h0,1) = "Sales Manager"
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h0]
			TemplateDef = var_Items
			TemplateDef = h0
			Template = [var_Items.CellCaption(h0,1) = "Sales Manager"]
		endwith
		// var_Items.CellCaption(h0,2) = "London"
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h0]
			TemplateDef = var_Items
			TemplateDef = h0
			Template = [var_Items.CellCaption(h0,2) = "London"]
		endwith
		h0 = var_Items.AddItem("Michael Suyama")
		// var_Items.CellCaption(h0,1) = "Sales Representative"
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h0]
			TemplateDef = var_Items
			TemplateDef = h0
			Template = [var_Items.CellCaption(h0,1) = "Sales Representative"]
		endwith
		// var_Items.CellCaption(h0,2) = "London"
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h0]
			TemplateDef = var_Items
			TemplateDef = h0
			Template = [var_Items.CellCaption(h0,2) = "London"]
		endwith
		h0 = var_Items.AddItem("Robert King")
		// var_Items.CellCaption(h0,1) = "Sales Representative"
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h0]
			TemplateDef = var_Items
			TemplateDef = h0
			Template = [var_Items.CellCaption(h0,1) = "Sales Representative"]
		endwith
		// var_Items.CellCaption(h0,2) = "London"
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h0]
			TemplateDef = var_Items
			TemplateDef = h0
			Template = [var_Items.CellCaption(h0,2) = "London"]
		endwith
		h0 = var_Items.AddItem("Laura Callahan")
		// var_Items.CellCaption(h0,1) = "Inside Sales Coordinator"
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h0]
			TemplateDef = var_Items
			TemplateDef = h0
			Template = [var_Items.CellCaption(h0,1) = "Inside Sales Coordinator"]
		endwith
		// var_Items.CellCaption(h0,2) = "Seattle"
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h0]
			TemplateDef = var_Items
			TemplateDef = h0
			Template = [var_Items.CellCaption(h0,2) = "Seattle"]
		endwith
		h0 = var_Items.AddItem("Anne Dodsworth")
		// var_Items.CellCaption(h0,1) = "Sales Representative"
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h0]
			TemplateDef = var_Items
			TemplateDef = h0
			Template = [var_Items.CellCaption(h0,1) = "Sales Representative"]
		endwith
		// var_Items.CellCaption(h0,2) = "London"
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h0]
			TemplateDef = var_Items
			TemplateDef = h0
			Template = [var_Items.CellCaption(h0,2) = "London"]
		endwith
	var_Group.Expanded = true
oExplorerTree.Groups.Add("Group 3")
oExplorerTree.EndUpdate()

13:
Can I specify unsortable items

local h,h1,oExplorerTree,var_Columns,var_Group,var_Items

oExplorerTree = form.EXPLORERTREEACTIVEXCONTROL1.nativeObject
oExplorerTree.BeginUpdate()
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.AutoHeight = true
	var_Group.HeaderVisible = true
	var_Group.Columns.Clear()
	var_Group.HasLines = 0
	var_Group.ScrollBySingleLine = true
	var_Group.MarkSearchColumn = false
	var_Columns = var_Group.Columns
		var_Columns.Add("Name")
		var_Columns.Add("A")
		var_Columns.Add("B")
		var_Columns.Add("C")
	var_Items = var_Group.Items
		h = var_Items.AddItem("Group 1")
		// var_Items.CellHAlignment(h,0) = 1
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.CellHAlignment(h,0) = 1]
		endwith
		// var_Items.ItemDivider(h) = 0
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.ItemDivider(h) = 0]
		endwith
		// var_Items.ItemDividerLineAlignment(h) = 3
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.ItemDividerLineAlignment(h) = 3]
		endwith
		// var_Items.ItemHeight(h) = 24
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.ItemHeight(h) = 24]
		endwith
		// var_Items.SortableItem(h) = false
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.SortableItem(h) = False]
		endwith
		h1 = var_Items.InsertItem(h,null,"Child 1")
		// var_Items.CellCaption(h1,1) = 1
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h1]
			TemplateDef = var_Items
			TemplateDef = h1
			Template = [var_Items.CellCaption(h1,1) = 1]
		endwith
		// var_Items.CellCaption(h1,2) = 2
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h1]
			TemplateDef = var_Items
			TemplateDef = h1
			Template = [var_Items.CellCaption(h1,2) = 2]
		endwith
		// var_Items.CellCaption(h1,3) = 3
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h1]
			TemplateDef = var_Items
			TemplateDef = h1
			Template = [var_Items.CellCaption(h1,3) = 3]
		endwith
		h1 = var_Items.InsertItem(h,null,"Child 2")
		// var_Items.CellCaption(h1,1) = 4
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h1]
			TemplateDef = var_Items
			TemplateDef = h1
			Template = [var_Items.CellCaption(h1,1) = 4]
		endwith
		// var_Items.CellCaption(h1,2) = 5
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h1]
			TemplateDef = var_Items
			TemplateDef = h1
			Template = [var_Items.CellCaption(h1,2) = 5]
		endwith
		// var_Items.CellCaption(h1,3) = 6
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h1]
			TemplateDef = var_Items
			TemplateDef = h1
			Template = [var_Items.CellCaption(h1,3) = 6]
		endwith
		// var_Items.ExpandItem(h) = true
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.ExpandItem(h) = True]
		endwith
		h = var_Items.AddItem("Group 2")
		// var_Items.CellHAlignment(h,0) = 1
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.CellHAlignment(h,0) = 1]
		endwith
		// var_Items.ItemDivider(h) = 0
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.ItemDivider(h) = 0]
		endwith
		// var_Items.ItemDividerLineAlignment(h) = 3
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.ItemDividerLineAlignment(h) = 3]
		endwith
		// var_Items.ItemHeight(h) = 24
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.ItemHeight(h) = 24]
		endwith
		// var_Items.SortableItem(h) = false
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.SortableItem(h) = False]
		endwith
		h1 = var_Items.InsertItem(h,null,"Child 1")
		// var_Items.CellCaption(h1,1) = 1
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h1]
			TemplateDef = var_Items
			TemplateDef = h1
			Template = [var_Items.CellCaption(h1,1) = 1]
		endwith
		// var_Items.CellCaption(h1,2) = 2
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h1]
			TemplateDef = var_Items
			TemplateDef = h1
			Template = [var_Items.CellCaption(h1,2) = 2]
		endwith
		// var_Items.CellCaption(h1,3) = 3
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h1]
			TemplateDef = var_Items
			TemplateDef = h1
			Template = [var_Items.CellCaption(h1,3) = 3]
		endwith
		h1 = var_Items.InsertItem(h,null,"Child 2")
		// var_Items.CellCaption(h1,1) = 4
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h1]
			TemplateDef = var_Items
			TemplateDef = h1
			Template = [var_Items.CellCaption(h1,1) = 4]
		endwith
		// var_Items.CellCaption(h1,2) = 5
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h1]
			TemplateDef = var_Items
			TemplateDef = h1
			Template = [var_Items.CellCaption(h1,2) = 5]
		endwith
		// var_Items.CellCaption(h1,3) = 6
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h1]
			TemplateDef = var_Items
			TemplateDef = h1
			Template = [var_Items.CellCaption(h1,3) = 6]
		endwith
		// var_Items.ExpandItem(h) = true
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.ExpandItem(h) = True]
		endwith
	var_Group.Expanded = true
oExplorerTree.EndUpdate()

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

local h,oExplorerTree,var_Group,var_Items

oExplorerTree = form.EXPLORERTREEACTIVEXCONTROL1.nativeObject
oExplorerTree.BeginUpdate()
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.HeaderVisible = true
	var_Group.Columns.Clear()
	var_Group.MarkSearchColumn = false
	var_Group.TreeColumnIndex = -1
	var_Group.ScrollBySingleLine = false
	var_Group.Columns.Add("C1")
	var_Group.Columns.Add("C2")
	var_Group.SelBackMode = 1
	var_Items = var_Group.Items
		h = var_Items.AddItem("Cell 1")
		// var_Items.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."
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.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."]
		endwith
		// var_Items.CellSingleLine(h,1) = false
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.CellSingleLine(h,1) = False]
		endwith
		h = var_Items.AddItem("This is bit of text that's displayed on the entire item, divider.")
		// var_Items.ItemDivider(h) = 0
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.ItemDivider(h) = 0]
		endwith
		// var_Items.ItemDividerLine(h) = 4
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.ItemDividerLine(h) = 4]
		endwith
		// var_Items.ItemDividerLineAlignment(h) = 3
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.ItemDividerLineAlignment(h) = 3]
		endwith
		// var_Items.CellHAlignment(h,0) = 1
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.CellHAlignment(h,0) = 1]
		endwith
		// var_Items.ItemHeight(h) = 24
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.ItemHeight(h) = 24]
		endwith
	var_Group.Expanded = true
oExplorerTree.EndUpdate()

11:
How can I expand all items

local h,oExplorerTree,var_Group,var_Items

oExplorerTree = form.EXPLORERTREEACTIVEXCONTROL1.nativeObject
oExplorerTree.BeginUpdate()
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.HeaderVisible = true
	var_Group.Columns.Clear()
	var_Group.LinesAtRoot = -1
	var_Group.Columns.Add("Items")
	var_Items = var_Group.Items
		h = var_Items.AddItem("Root 1")
		var_Items.InsertItem(h,null,"Child 1")
		var_Items.InsertItem(h,null,"Child 2")
		h = var_Items.AddItem("Root 2")
		var_Items.InsertItem(h,null,"Child 1")
		var_Items.InsertItem(h,null,"Child 2")
		// var_Items.ExpandItem(0) = true
		with (oExplorerTree)
			TemplateDef = [dim var_Items]
			TemplateDef = var_Items
			Template = [var_Items.ExpandItem(0) = True]
		endwith
	var_Group.Expanded = true
oExplorerTree.EndUpdate()

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

local h,oExplorerTree,var_Column,var_Group,var_Items

oExplorerTree = form.EXPLORERTREEACTIVEXCONTROL1.nativeObject
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.HeaderVisible = true
	var_Group.Columns.Clear()
	// var_Group.Columns.Add("Def").Def(17) = 1
	var_Column = var_Group.Columns.Add("Def")
	with (oExplorerTree)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.Def(17) = 1]
	endwith
	var_Items = var_Group.Items
		h = var_Items.AddItem(100000.27)
		// var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default positive)'"
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default positive)'"]
		endwith
		h = var_Items.AddItem(100000.27)
		// var_Items.FormatCell(h,0) = "(value format '2|.|3|,|1|1')"
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.FormatCell(h,0) = "(value format '2|.|3|,|1|1')"]
		endwith
		h = var_Items.AddItem(-100000.27)
		// var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default negative)'"
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default negative)'"]
		endwith
		h = var_Items.AddItem(-100000.27)
		// var_Items.FormatCell(h,0) = "(value format '2|.|3|,|1|1')"
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.FormatCell(h,0) = "(value format '2|.|3|,|1|1')"]
		endwith
	var_Group.Expanded = true

9:
Is it possible to format numbers

local h,h1,oExplorerTree,var_Column,var_Column1,var_Column2,var_Column3,var_Columns,var_Group,var_Items

oExplorerTree = form.EXPLORERTREEACTIVEXCONTROL1.nativeObject
oExplorerTree.BeginUpdate()
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.HeaderVisible = true
	var_Group.MarkSearchColumn = false
	var_Group.Columns.Clear()
	var_Columns = var_Group.Columns
		var_Columns.Add("Name")
		var_Column = var_Columns.Add("A")
			var_Column.SortType = 1
			var_Column.AllowSizing = false
			var_Column.Width = 36
			var_Column.FormatColumn = "len(value) ? value + ' +'"
		var_Column1 = var_Columns.Add("B")
			var_Column1.SortType = 1
			var_Column1.AllowSizing = false
			var_Column1.Width = 36
			var_Column1.FormatColumn = "len(value) ? value + ' +'"
		var_Column2 = var_Columns.Add("C")
			var_Column2.SortType = 1
			var_Column2.AllowSizing = false
			var_Column2.Width = 36
			var_Column2.FormatColumn = "len(value) ? value + ' ='"
		var_Column3 = var_Columns.Add("A+B+C")
			var_Column3.SortType = 1
			var_Column3.Width = 64
			var_Column3.ComputedField = "dbl(%1)+dbl(%2)+dbl(%3)"
			var_Column3.FormatColumn = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=0000FF>+'+(value format '2|.|3|,' ): '0.00') )"
			// var_Column3.Def(17) = 1
			with (oExplorerTree)
				TemplateDef = [dim var_Column3]
				TemplateDef = var_Column3
				Template = [var_Column3.Def(17) = 1]
			endwith
	var_Items = var_Group.Items
		h = var_Items.AddItem("Root")
		// var_Items.CellCaptionFormat(h,4) = 2
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.CellCaptionFormat(h,4) = 2]
		endwith
		h1 = var_Items.InsertItem(h,null,"Child 1")
		// var_Items.CellCaption(h1,1) = 7
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h1]
			TemplateDef = var_Items
			TemplateDef = h1
			Template = [var_Items.CellCaption(h1,1) = 7]
		endwith
		// var_Items.CellCaption(h1,2) = 3
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h1]
			TemplateDef = var_Items
			TemplateDef = h1
			Template = [var_Items.CellCaption(h1,2) = 3]
		endwith
		// var_Items.CellCaption(h1,3) = 1
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h1]
			TemplateDef = var_Items
			TemplateDef = h1
			Template = [var_Items.CellCaption(h1,3) = 1]
		endwith
		h1 = var_Items.InsertItem(h,null,"Child 2")
		// var_Items.CellCaption(h1,1) = -2
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h1]
			TemplateDef = var_Items
			TemplateDef = h1
			Template = [var_Items.CellCaption(h1,1) = -2]
		endwith
		// var_Items.CellCaption(h1,2) = -2
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h1]
			TemplateDef = var_Items
			TemplateDef = h1
			Template = [var_Items.CellCaption(h1,2) = -2]
		endwith
		// var_Items.CellCaption(h1,3) = -4
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h1]
			TemplateDef = var_Items
			TemplateDef = h1
			Template = [var_Items.CellCaption(h1,3) = -4]
		endwith
		h1 = var_Items.InsertItem(h,null,"Child 3")
		// var_Items.CellCaption(h1,1) = 2
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h1]
			TemplateDef = var_Items
			TemplateDef = h1
			Template = [var_Items.CellCaption(h1,1) = 2]
		endwith
		// var_Items.CellCaption(h1,2) = 2
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h1]
			TemplateDef = var_Items
			TemplateDef = h1
			Template = [var_Items.CellCaption(h1,2) = 2]
		endwith
		// var_Items.CellCaption(h1,3) = -4
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h1]
			TemplateDef = var_Items
			TemplateDef = h1
			Template = [var_Items.CellCaption(h1,3) = -4]
		endwith
		// var_Items.ExpandItem(h) = true
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.ExpandItem(h) = True]
		endwith
	var_Group.Expanded = true
oExplorerTree.EndUpdate()

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

local oExplorerTree,var_Column,var_Group,var_Items

oExplorerTree = form.EXPLORERTREEACTIVEXCONTROL1.nativeObject
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.HeaderVisible = true
	var_Group.Columns.Clear()
	var_Group.Columns.Add("Number")
	// var_Group.Columns.Add("Round").ComputedField = "round(%0)"
	var_Column = var_Group.Columns.Add("Round")
	with (oExplorerTree)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.ComputedField = "round(%0)"]
	endwith
	var_Items = var_Group.Items
		var_Items.AddItem("-1.98")
		var_Items.AddItem("0.99")
		var_Items.AddItem("1.23")
		var_Items.AddItem("2.34")
	var_Group.Expanded = true

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

local oExplorerTree,var_Column,var_Group,var_Items,var_Items1

oExplorerTree = form.EXPLORERTREEACTIVEXCONTROL1.nativeObject
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.Columns.Clear()
	var_Group.HeaderVisible = true
	var_Group.Columns.Add("A")
	var_Group.Columns.Add("B")
	// var_Group.Columns.Add("A+B").ComputedField = "dbl(%0) + dbl(%1)"
	var_Column = var_Group.Columns.Add("A+B")
	with (oExplorerTree)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.ComputedField = "dbl(%0) + dbl(%1)"]
	endwith
	var_Items = var_Group.Items
		// var_Items.CellCaption(var_Items.AddItem(1),1) = 2
		with (oExplorerTree)
			TemplateDef = [dim var_Items]
			TemplateDef = var_Items
			Template = [var_Items.CellCaption(AddItem(1),1) = 2]
		endwith
	var_Items1 = var_Group.Items
		// var_Items1.CellCaption(var_Items1.AddItem(10),1) = 20
		with (oExplorerTree)
			TemplateDef = [dim var_Items1]
			TemplateDef = var_Items1
			Template = [var_Items1.CellCaption(AddItem(10),1) = 20]
		endwith
	var_Group.Expanded = true

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

local oExplorerTree,var_ConditionalFormat,var_Group

oExplorerTree = form.EXPLORERTREEACTIVEXCONTROL1.nativeObject
var_Group = oExplorerTree.Groups.Add("Default")
	// var_Group.ConditionalFormats.Add("dbl(%0) < 10").BackColor = 0xff
	var_ConditionalFormat = var_Group.ConditionalFormats.Add("dbl(%0) < 10")
	with (oExplorerTree)
		TemplateDef = [dim var_ConditionalFormat]
		TemplateDef = var_ConditionalFormat
		Template = [var_ConditionalFormat.BackColor = 255]
	endwith
	var_Group.Items.AddItem(1)
	var_Group.Items.AddItem(2)
	var_Group.Items.AddItem(10)
	var_Group.Items.AddItem(20)
	var_Group.Expanded = true

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

local oExplorerTree,var_ConditionalFormat,var_Group

oExplorerTree = form.EXPLORERTREEACTIVEXCONTROL1.nativeObject
var_Group = oExplorerTree.Groups.Add("Default")
	// var_Group.ConditionalFormats.Add("dbl(%0) >= 10").Bold = true
	var_ConditionalFormat = var_Group.ConditionalFormats.Add("dbl(%0) >= 10")
	with (oExplorerTree)
		TemplateDef = [dim var_ConditionalFormat]
		TemplateDef = var_ConditionalFormat
		Template = [var_ConditionalFormat.Bold = True]
	endwith
	var_Group.Items.AddItem(1)
	var_Group.Items.AddItem(2)
	var_Group.Items.AddItem(10)
	var_Group.Items.AddItem(20)
	var_Group.Expanded = true

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

local oExplorerTree,var_Column,var_Group

oExplorerTree = form.EXPLORERTREEACTIVEXCONTROL1.nativeObject
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.FilterBarCaption = "your filter caption"
	var_Column = var_Group.Columns.Add("Column")
		var_Column.DisplayFilterButton = true
		var_Column.FilterType = 1
	var_Group.ApplyFilter()
	var_Group.Expanded = true

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

local h,oExplorerTree,var_Column,var_Group,var_Items

oExplorerTree = form.EXPLORERTREEACTIVEXCONTROL1.nativeObject
oExplorerTree.BeginUpdate()
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.AutoHeight = true
	var_Group.DrawGridLines = -1
	var_Group.GridLineStyle = 33 /*exGridLinesVSolid | exGridLinesHDot4*/
	var_Group.ColumnAutoResize = false
	var_Column = var_Group.Columns.Item(0)
		var_Column.Caption = "C1"
		var_Column.Width = 64
	var_Group.Columns.Add("C2")
	var_Group.Columns.Add("C3")
	var_Group.ColumnAutoResize = true
	var_Items = var_Group.Items
		h = var_Items.AddItem("Item 1")
		// var_Items.CellCaption(h,1) = "SubItem 1.2"
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.CellCaption(h,1) = "SubItem 1.2"]
		endwith
		// var_Items.CellCaption(h,2) = "SubItem 1.3"
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.CellCaption(h,2) = "SubItem 1.3"]
		endwith
		h = var_Items.AddItem("Item 2")
		// var_Items.CellCaption(h,1) = "SubItem 2.2"
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.CellCaption(h,1) = "SubItem 2.2"]
		endwith
		// var_Items.CellCaption(h,2) = "SubItem 2.3"
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.CellCaption(h,2) = "SubItem 2.3"]
		endwith
		h = var_Items.AddItem("Item 3")
		// var_Items.CellCaption(h,1) = "SubItem 3.2"
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.CellCaption(h,1) = "SubItem 3.2"]
		endwith
		// var_Items.CellCaption(h,2) = "SubItem 3.3"
		with (oExplorerTree)
			TemplateDef = [dim var_Items,h]
			TemplateDef = var_Items
			TemplateDef = h
			Template = [var_Items.CellCaption(h,2) = "SubItem 3.3"]
		endwith
	var_Group.Expanded = true
oExplorerTree.EndUpdate()

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

local oExplorerTree,var_Group

oExplorerTree = form.EXPLORERTREEACTIVEXCONTROL1.nativeObject
oExplorerTree.BeginUpdate()
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.DrawGridLines = -1
	var_Group.GridLineStyle = 48
	var_Group.Expanded = true
oExplorerTree.EndUpdate()

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

local oExplorerTree,var_Groups

oExplorerTree = form.EXPLORERTREEACTIVEXCONTROL1.nativeObject
oExplorerTree.BeginUpdate()
oExplorerTree.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oExplorerTree.BackColorGroup = 0x1000000
var_Groups = oExplorerTree.Groups
	var_Groups.Add("Group 1")
	var_Groups.Add("Group 2")
	var_Groups.Add("Group 3")
oExplorerTree.EndUpdate()