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

' Occurs when the user moves the mouse.
function MouseMove as v (Button as N,Shift as N,X as OLE::Exontrol.ExplorerTree.1::OLE_XPOS_PIXELS,Y as OLE::Exontrol.ExplorerTree.1::OLE_YPOS_PIXELS)
	Dim var_Object as P
	oExplorerTree = topparent:CONTROL_ACTIVEX1.activex
	var_Object = oExplorerTree.GroupListFromPoint(-1,-1)
end function

Dim oExplorerTree as P
Dim var_Column as local
Dim var_Column1 as local
Dim var_Group as P
Dim var_Group1 as P
Dim var_Items as P
Dim var_Items1 as P

oExplorerTree = topparent:CONTROL_ACTIVEX1.activex
oExplorerTree.BeginUpdate()
var_Group = oExplorerTree.Groups.Add("Group 1")
	var_Group.HeaderVisible = .t.
	var_Group.Columns.Clear()
	var_Group.Columns.Add("Number")
	' var_Group.Columns.Add("Round").ComputedField = "round(%0)"
	var_Column = var_Group.Columns.Add("Round")
	oExplorerTree.TemplateDef = "dim var_Column"
	oExplorerTree.TemplateDef = var_Column
	oExplorerTree.Template = "var_Column.ComputedField = `round(%0)`"

	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 = .t.
var_Group1 = oExplorerTree.Groups.Add("Group 2")
	var_Group1.HeaderVisible = .t.
	var_Group1.Columns.Clear()
	var_Group1.Columns.Add("Number")
	' var_Group1.Columns.Add("Round").ComputedField = "round(%0)"
	var_Column1 = var_Group1.Columns.Add("Round")
	oExplorerTree.TemplateDef = "dim var_Column1"
	oExplorerTree.TemplateDef = var_Column1
	oExplorerTree.Template = "var_Column1.ComputedField = `round(%0)`"

	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 = .t.
oExplorerTree.EndUpdate()

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

Dim h as N
Dim oExplorerTree as P
Dim var_Group as P
Dim var_Groups as P
Dim var_Items as P
Dim var_Items1 as P

oExplorerTree = topparent:CONTROL_ACTIVEX1.activex
oExplorerTree.BeginUpdate()
var_Groups = oExplorerTree.Groups
	var_Group = var_Groups.Add("Group")
		var_Group.Expanded = .t.
		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) = 65535
	oExplorerTree.TemplateDef = "dim var_Items1,h"
	oExplorerTree.TemplateDef = var_Items1
	oExplorerTree.TemplateDef = h
	oExplorerTree.Template = "var_Items1.ItemBackColor(h) = 65535"

	var_Items1.EnsureVisibleItem(h)
oExplorerTree.EndUpdate()

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

Dim oExplorerTree as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local
Dim var_Group4 as local
Dim var_Groups as P

oExplorerTree = topparent:CONTROL_ACTIVEX1.activex
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 = .t.
var_Groups = oExplorerTree.Groups
	' var_Groups.Add("Group A.1").Shortcut = "<img>1</img> First Group"
	var_Group = var_Groups.Add("Group A.1")
	oExplorerTree.TemplateDef = "dim var_Group"
	oExplorerTree.TemplateDef = var_Group
	oExplorerTree.Template = "var_Group.Shortcut = `<img>1</img> First Group`"

	' var_Groups.Add("Group A.2").Shortcut = "<img>1</img> First Group"
	var_Group1 = var_Groups.Add("Group A.2")
	oExplorerTree.TemplateDef = "dim var_Group1"
	oExplorerTree.TemplateDef = var_Group1
	oExplorerTree.Template = "var_Group1.Shortcut = `<img>1</img> First Group`"

	' var_Groups.Add("Group B.1").Shortcut = "<img>2</img> Second Group"
	var_Group2 = var_Groups.Add("Group B.1")
	oExplorerTree.TemplateDef = "dim var_Group2"
	oExplorerTree.TemplateDef = var_Group2
	oExplorerTree.Template = "var_Group2.Shortcut = `<img>2</img> Second Group`"

	' var_Groups.Add("Group B.2").Shortcut = "<img>2</img> Second Group"
	var_Group3 = var_Groups.Add("Group B.2")
	oExplorerTree.TemplateDef = "dim var_Group3"
	oExplorerTree.TemplateDef = var_Group3
	oExplorerTree.Template = "var_Group3.Shortcut = `<img>2</img> Second Group`"

	' var_Groups.Add("Group B.3").Shortcut = "<img>2</img> Second Group"
	var_Group4 = var_Groups.Add("Group B.3")
	oExplorerTree.TemplateDef = "dim var_Group4"
	oExplorerTree.TemplateDef = var_Group4
	oExplorerTree.Template = "var_Group4.Shortcut = `<img>2</img> Second Group`"

oExplorerTree.EndUpdate()

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

Dim oExplorerTree as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local
Dim var_Group4 as local
Dim var_Groups as P

oExplorerTree = topparent:CONTROL_ACTIVEX1.activex
oExplorerTree.BeginUpdate()
oExplorerTree.ShowShortcutBar = .t.
var_Groups = oExplorerTree.Groups
	' var_Groups.Add("Group A.1").Shortcut = "A"
	var_Group = var_Groups.Add("Group A.1")
	oExplorerTree.TemplateDef = "dim var_Group"
	oExplorerTree.TemplateDef = var_Group
	oExplorerTree.Template = "var_Group.Shortcut = `A`"

	' var_Groups.Add("Group A.2").Shortcut = "A"
	var_Group1 = var_Groups.Add("Group A.2")
	oExplorerTree.TemplateDef = "dim var_Group1"
	oExplorerTree.TemplateDef = var_Group1
	oExplorerTree.Template = "var_Group1.Shortcut = `A`"

	' var_Groups.Add("Group B.1").Shortcut = "B"
	var_Group2 = var_Groups.Add("Group B.1")
	oExplorerTree.TemplateDef = "dim var_Group2"
	oExplorerTree.TemplateDef = var_Group2
	oExplorerTree.Template = "var_Group2.Shortcut = `B`"

	' var_Groups.Add("Group B.2").Shortcut = "B"
	var_Group3 = var_Groups.Add("Group B.2")
	oExplorerTree.TemplateDef = "dim var_Group3"
	oExplorerTree.TemplateDef = var_Group3
	oExplorerTree.Template = "var_Group3.Shortcut = `B`"

	' var_Groups.Add("Group B.3").Shortcut = "B"
	var_Group4 = var_Groups.Add("Group B.3")
	oExplorerTree.TemplateDef = "dim var_Group4"
	oExplorerTree.TemplateDef = var_Group4
	oExplorerTree.Template = "var_Group4.Shortcut = `B`"

oExplorerTree.EndUpdate()

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

Dim oExplorerTree as P
Dim var_Column as P
Dim var_Group as P
Dim var_Items as P

oExplorerTree = topparent:CONTROL_ACTIVEX1.activex
oExplorerTree.BeginUpdate()
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.Expanded = .t.
	var_Column = var_Group.Columns.Item(0)
		' var_Column.Def(0) = .t.
		oExplorerTree.TemplateDef = "dim var_Column"
		oExplorerTree.TemplateDef = var_Column
		oExplorerTree.Template = "var_Column.Def(0) = True"

		' var_Column.Def(34) = "caption,check"
		oExplorerTree.TemplateDef = "dim var_Column"
		oExplorerTree.TemplateDef = var_Column
		oExplorerTree.Template = "var_Column.Def(34) = `caption,check`"

	var_Items = var_Group.Items
		' var_Items.CellHasCheckBox(var_Items.AddItem("Caption 1"),0) = .t.
		oExplorerTree.TemplateDef = "dim var_Items"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.Template = "var_Items.CellHasCheckBox(AddItem(`Caption 1`),0) = True"

		' var_Items.CellHasCheckBox(var_Items.AddItem("Caption 2"),0) = .t.
		oExplorerTree.TemplateDef = "dim var_Items"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.Template = "var_Items.CellHasCheckBox(AddItem(`Caption 2`),0) = True"

oExplorerTree.EndUpdate()

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

Dim h as N
Dim oExplorerTree as P
Dim var_Columns as local
Dim var_Group as P
Dim var_Items as P

oExplorerTree = topparent:CONTROL_ACTIVEX1.activex
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 = .t.
	' var_Group.Columns.Item(0).Def(34) = "caption,check,icon,icons,picture"
	var_Columns = var_Group.Columns.Item(0)
	oExplorerTree.TemplateDef = "dim var_Columns"
	oExplorerTree.TemplateDef = var_Columns
	oExplorerTree.Template = "var_Columns.Def(34) = `caption,check,icon,icons,picture`"

	var_Items = var_Group.Items
		h = var_Items.AddItem("Text")
		' var_Items.CellImage(h,0) = 1
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.CellImage(h,0) = 1"

		' var_Items.CellHasCheckBox(h,0) = .t.
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.CellHasCheckBox(h,0) = True"

oExplorerTree.EndUpdate()

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

Dim h as N
Dim oExplorerTree as P
Dim var_Columns as local
Dim var_Group as P
Dim var_Items as P

oExplorerTree = topparent:CONTROL_ACTIVEX1.activex
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 = .t.
	' var_Group.Columns.Item(0).Def(34) = "caption,icon,check,icons,picture"
	var_Columns = var_Group.Columns.Item(0)
	oExplorerTree.TemplateDef = "dim var_Columns"
	oExplorerTree.TemplateDef = var_Columns
	oExplorerTree.Template = "var_Columns.Def(34) = `caption,icon,check,icons,picture`"

	var_Items = var_Group.Items
		h = var_Items.AddItem("Text")
		' var_Items.CellImage(h,0) = 1
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.CellImage(h,0) = 1"

oExplorerTree.EndUpdate()

14:
How do I enable the filter prompt feature

Dim h0 as N
Dim oExplorerTree as P
Dim var_Column as local
Dim var_Column1 as local
Dim var_Columns as P
Dim var_Group as P
Dim var_Items as P

oExplorerTree = topparent:CONTROL_ACTIVEX1.activex
oExplorerTree.BeginUpdate()
oExplorerTree.Groups.Add("Group 1")
var_Group = oExplorerTree.Groups.Add("Group 2")
	var_Group.AutoHeight = .t.
	var_Group.HeaderVisible = .t.
	var_Group.Columns.Clear()
	var_Group.ColumnAutoResize = .t.
	var_Group.ContinueColumnScroll = .f.
	var_Group.MarkSearchColumn = .f.
	var_Group.SearchColumnIndex = 1
	var_Group.FilterBarPromptVisible = .t.
	var_Columns = var_Group.Columns
		' var_Columns.Add("Name").Width = 96
		var_Column = var_Columns.Add("Name")
		oExplorerTree.TemplateDef = "dim var_Column"
		oExplorerTree.TemplateDef = var_Column
		oExplorerTree.Template = "var_Column.Width = 96"

		' var_Columns.Add("Title").Width = 96
		var_Column1 = var_Columns.Add("Title")
		oExplorerTree.TemplateDef = "dim var_Column1"
		oExplorerTree.TemplateDef = var_Column1
		oExplorerTree.Template = "var_Column1.Width = 96"

		var_Columns.Add("City")
	var_Items = var_Group.Items
		h0 = var_Items.AddItem("Nancy Davolio")
		' var_Items.CellCaption(h0,1) = "Sales Representative"
		oExplorerTree.TemplateDef = "dim var_Items,h0"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h0
		oExplorerTree.Template = "var_Items.CellCaption(h0,1) = `Sales Representative`"

		' var_Items.CellCaption(h0,2) = "Seattle"
		oExplorerTree.TemplateDef = "dim var_Items,h0"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h0
		oExplorerTree.Template = "var_Items.CellCaption(h0,2) = `Seattle`"

		h0 = var_Items.AddItem("Andrew Fuller")
		' var_Items.CellCaption(h0,1) = "Vice President, Sales"
		oExplorerTree.TemplateDef = "dim var_Items,h0"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h0
		oExplorerTree.Template = "var_Items.CellCaption(h0,1) = `Vice President, Sales`"

		' var_Items.CellCaption(h0,2) = "Tacoma"
		oExplorerTree.TemplateDef = "dim var_Items,h0"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h0
		oExplorerTree.Template = "var_Items.CellCaption(h0,2) = `Tacoma`"

		' var_Items.SelectItem(h0) = .t.
		oExplorerTree.TemplateDef = "dim var_Items,h0"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h0
		oExplorerTree.Template = "var_Items.SelectItem(h0) = True"

		h0 = var_Items.AddItem("Janet Leverling")
		' var_Items.CellCaption(h0,1) = "Sales Representative"
		oExplorerTree.TemplateDef = "dim var_Items,h0"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h0
		oExplorerTree.Template = "var_Items.CellCaption(h0,1) = `Sales Representative`"

		' var_Items.CellCaption(h0,2) = "Kirkland"
		oExplorerTree.TemplateDef = "dim var_Items,h0"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h0
		oExplorerTree.Template = "var_Items.CellCaption(h0,2) = `Kirkland`"

		h0 = var_Items.AddItem("Margaret Peacock")
		' var_Items.CellCaption(h0,1) = "Sales Representative"
		oExplorerTree.TemplateDef = "dim var_Items,h0"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h0
		oExplorerTree.Template = "var_Items.CellCaption(h0,1) = `Sales Representative`"

		' var_Items.CellCaption(h0,2) = "Redmond"
		oExplorerTree.TemplateDef = "dim var_Items,h0"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h0
		oExplorerTree.Template = "var_Items.CellCaption(h0,2) = `Redmond`"

		h0 = var_Items.AddItem("Steven Buchanan")
		' var_Items.CellCaption(h0,1) = "Sales Manager"
		oExplorerTree.TemplateDef = "dim var_Items,h0"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h0
		oExplorerTree.Template = "var_Items.CellCaption(h0,1) = `Sales Manager`"

		' var_Items.CellCaption(h0,2) = "London"
		oExplorerTree.TemplateDef = "dim var_Items,h0"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h0
		oExplorerTree.Template = "var_Items.CellCaption(h0,2) = `London`"

		h0 = var_Items.AddItem("Michael Suyama")
		' var_Items.CellCaption(h0,1) = "Sales Representative"
		oExplorerTree.TemplateDef = "dim var_Items,h0"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h0
		oExplorerTree.Template = "var_Items.CellCaption(h0,1) = `Sales Representative`"

		' var_Items.CellCaption(h0,2) = "London"
		oExplorerTree.TemplateDef = "dim var_Items,h0"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h0
		oExplorerTree.Template = "var_Items.CellCaption(h0,2) = `London`"

		h0 = var_Items.AddItem("Robert King")
		' var_Items.CellCaption(h0,1) = "Sales Representative"
		oExplorerTree.TemplateDef = "dim var_Items,h0"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h0
		oExplorerTree.Template = "var_Items.CellCaption(h0,1) = `Sales Representative`"

		' var_Items.CellCaption(h0,2) = "London"
		oExplorerTree.TemplateDef = "dim var_Items,h0"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h0
		oExplorerTree.Template = "var_Items.CellCaption(h0,2) = `London`"

		h0 = var_Items.AddItem("Laura Callahan")
		' var_Items.CellCaption(h0,1) = "Inside Sales Coordinator"
		oExplorerTree.TemplateDef = "dim var_Items,h0"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h0
		oExplorerTree.Template = "var_Items.CellCaption(h0,1) = `Inside Sales Coordinator`"

		' var_Items.CellCaption(h0,2) = "Seattle"
		oExplorerTree.TemplateDef = "dim var_Items,h0"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h0
		oExplorerTree.Template = "var_Items.CellCaption(h0,2) = `Seattle`"

		h0 = var_Items.AddItem("Anne Dodsworth")
		' var_Items.CellCaption(h0,1) = "Sales Representative"
		oExplorerTree.TemplateDef = "dim var_Items,h0"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h0
		oExplorerTree.Template = "var_Items.CellCaption(h0,1) = `Sales Representative`"

		' var_Items.CellCaption(h0,2) = "London"
		oExplorerTree.TemplateDef = "dim var_Items,h0"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h0
		oExplorerTree.Template = "var_Items.CellCaption(h0,2) = `London`"

	var_Group.Expanded = .t.
oExplorerTree.Groups.Add("Group 3")
oExplorerTree.EndUpdate()

13:
Can I specify unsortable items

Dim h as N
Dim h1 as N
Dim oExplorerTree as P
Dim var_Columns as P
Dim var_Group as P
Dim var_Items as P

oExplorerTree = topparent:CONTROL_ACTIVEX1.activex
oExplorerTree.BeginUpdate()
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.AutoHeight = .t.
	var_Group.HeaderVisible = .t.
	var_Group.Columns.Clear()
	var_Group.HasLines = 0
	var_Group.ScrollBySingleLine = .t.
	var_Group.MarkSearchColumn = .f.
	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
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.CellHAlignment(h,0) = 1"

		' var_Items.ItemDivider(h) = 0
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.ItemDivider(h) = 0"

		' var_Items.ItemDividerLineAlignment(h) = 3
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.ItemDividerLineAlignment(h) = 3"

		' var_Items.ItemHeight(h) = 24
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.ItemHeight(h) = 24"

		' var_Items.SortableItem(h) = .f.
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.SortableItem(h) = False"

		h1 = var_Items.InsertItem(h,,"Child 1")
		' var_Items.CellCaption(h1,1) = 1
		oExplorerTree.TemplateDef = "dim var_Items,h1"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h1
		oExplorerTree.Template = "var_Items.CellCaption(h1,1) = 1"

		' var_Items.CellCaption(h1,2) = 2
		oExplorerTree.TemplateDef = "dim var_Items,h1"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h1
		oExplorerTree.Template = "var_Items.CellCaption(h1,2) = 2"

		' var_Items.CellCaption(h1,3) = 3
		oExplorerTree.TemplateDef = "dim var_Items,h1"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h1
		oExplorerTree.Template = "var_Items.CellCaption(h1,3) = 3"

		h1 = var_Items.InsertItem(h,,"Child 2")
		' var_Items.CellCaption(h1,1) = 4
		oExplorerTree.TemplateDef = "dim var_Items,h1"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h1
		oExplorerTree.Template = "var_Items.CellCaption(h1,1) = 4"

		' var_Items.CellCaption(h1,2) = 5
		oExplorerTree.TemplateDef = "dim var_Items,h1"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h1
		oExplorerTree.Template = "var_Items.CellCaption(h1,2) = 5"

		' var_Items.CellCaption(h1,3) = 6
		oExplorerTree.TemplateDef = "dim var_Items,h1"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h1
		oExplorerTree.Template = "var_Items.CellCaption(h1,3) = 6"

		' var_Items.ExpandItem(h) = .t.
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.ExpandItem(h) = True"

		h = var_Items.AddItem("Group 2")
		' var_Items.CellHAlignment(h,0) = 1
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.CellHAlignment(h,0) = 1"

		' var_Items.ItemDivider(h) = 0
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.ItemDivider(h) = 0"

		' var_Items.ItemDividerLineAlignment(h) = 3
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.ItemDividerLineAlignment(h) = 3"

		' var_Items.ItemHeight(h) = 24
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.ItemHeight(h) = 24"

		' var_Items.SortableItem(h) = .f.
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.SortableItem(h) = False"

		h1 = var_Items.InsertItem(h,,"Child 1")
		' var_Items.CellCaption(h1,1) = 1
		oExplorerTree.TemplateDef = "dim var_Items,h1"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h1
		oExplorerTree.Template = "var_Items.CellCaption(h1,1) = 1"

		' var_Items.CellCaption(h1,2) = 2
		oExplorerTree.TemplateDef = "dim var_Items,h1"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h1
		oExplorerTree.Template = "var_Items.CellCaption(h1,2) = 2"

		' var_Items.CellCaption(h1,3) = 3
		oExplorerTree.TemplateDef = "dim var_Items,h1"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h1
		oExplorerTree.Template = "var_Items.CellCaption(h1,3) = 3"

		h1 = var_Items.InsertItem(h,,"Child 2")
		' var_Items.CellCaption(h1,1) = 4
		oExplorerTree.TemplateDef = "dim var_Items,h1"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h1
		oExplorerTree.Template = "var_Items.CellCaption(h1,1) = 4"

		' var_Items.CellCaption(h1,2) = 5
		oExplorerTree.TemplateDef = "dim var_Items,h1"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h1
		oExplorerTree.Template = "var_Items.CellCaption(h1,2) = 5"

		' var_Items.CellCaption(h1,3) = 6
		oExplorerTree.TemplateDef = "dim var_Items,h1"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h1
		oExplorerTree.Template = "var_Items.CellCaption(h1,3) = 6"

		' var_Items.ExpandItem(h) = .t.
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.ExpandItem(h) = True"

	var_Group.Expanded = .t.
oExplorerTree.EndUpdate()

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

Dim h as N
Dim oExplorerTree as P
Dim var_Group as P
Dim var_Items as P

oExplorerTree = topparent:CONTROL_ACTIVEX1.activex
oExplorerTree.BeginUpdate()
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.HeaderVisible = .t.
	var_Group.Columns.Clear()
	var_Group.MarkSearchColumn = .f.
	var_Group.TreeColumnIndex = -1
	var_Group.ScrollBySingleLine = .f.
	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."
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.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.`"

		' var_Items.CellSingleLine(h,1) = .f.
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.CellSingleLine(h,1) = False"

		h = var_Items.AddItem("This is bit of text that's displayed on the entire item, divider.")
		' var_Items.ItemDivider(h) = 0
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.ItemDivider(h) = 0"

		' var_Items.ItemDividerLine(h) = 4
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.ItemDividerLine(h) = 4"

		' var_Items.ItemDividerLineAlignment(h) = 3
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.ItemDividerLineAlignment(h) = 3"

		' var_Items.CellHAlignment(h,0) = 1
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.CellHAlignment(h,0) = 1"

		' var_Items.ItemHeight(h) = 24
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.ItemHeight(h) = 24"

	var_Group.Expanded = .t.
oExplorerTree.EndUpdate()

11:
How can I expand all items

Dim h as N
Dim oExplorerTree as P
Dim var_Group as P
Dim var_Items as P

oExplorerTree = topparent:CONTROL_ACTIVEX1.activex
oExplorerTree.BeginUpdate()
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.HeaderVisible = .t.
	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,,"Child 1")
		var_Items.InsertItem(h,,"Child 2")
		h = var_Items.AddItem("Root 2")
		var_Items.InsertItem(h,,"Child 1")
		var_Items.InsertItem(h,,"Child 2")
		' var_Items.ExpandItem(0) = .t.
		oExplorerTree.TemplateDef = "dim var_Items"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.Template = "var_Items.ExpandItem(0) = True"

	var_Group.Expanded = .t.
oExplorerTree.EndUpdate()

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

Dim h as N
Dim oExplorerTree as P
Dim var_Column as local
Dim var_Group as P
Dim var_Items as P

oExplorerTree = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.HeaderVisible = .t.
	var_Group.Columns.Clear()
	' var_Group.Columns.Add("Def").Def(17) = 1
	var_Column = var_Group.Columns.Add("Def")
	oExplorerTree.TemplateDef = "dim var_Column"
	oExplorerTree.TemplateDef = var_Column
	oExplorerTree.Template = "var_Column.Def(17) = 1"

	var_Items = var_Group.Items
		h = var_Items.AddItem(100000.27)
		' var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default positive)'"
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.FormatCell(h,0) = `(value format '') +  ' <fgcolor=808080>(default positive)'`"

		h = var_Items.AddItem(100000.27)
		' var_Items.FormatCell(h,0) = "(value format '2|.|3|,|1|1')"
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.FormatCell(h,0) = `(value format '2|.|3|,|1|1')`"

		h = var_Items.AddItem(-100000.27)
		' var_Items.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default negative)'"
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.FormatCell(h,0) = `(value format '') +  ' <fgcolor=808080>(default negative)'`"

		h = var_Items.AddItem(-100000.27)
		' var_Items.FormatCell(h,0) = "(value format '2|.|3|,|1|1')"
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.FormatCell(h,0) = `(value format '2|.|3|,|1|1')`"

	var_Group.Expanded = .t.

9:
Is it possible to format numbers

Dim h as N
Dim h1 as N
Dim oExplorerTree as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Columns as P
Dim var_Group as P
Dim var_Items as P

oExplorerTree = topparent:CONTROL_ACTIVEX1.activex
oExplorerTree.BeginUpdate()
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.HeaderVisible = .t.
	var_Group.MarkSearchColumn = .f.
	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 = .f.
			var_Column.Width = 36
			var_Column.FormatColumn = "len(value) ? value + ' +'"
		var_Column1 = var_Columns.Add("B")
			var_Column1.SortType = 1
			var_Column1.AllowSizing = .f.
			var_Column1.Width = 36
			var_Column1.FormatColumn = "len(value) ? value + ' +'"
		var_Column2 = var_Columns.Add("C")
			var_Column2.SortType = 1
			var_Column2.AllowSizing = .f.
			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
			oExplorerTree.TemplateDef = "dim var_Column3"
			oExplorerTree.TemplateDef = var_Column3
			oExplorerTree.Template = "var_Column3.Def(17) = 1"

	var_Items = var_Group.Items
		h = var_Items.AddItem("Root")
		' var_Items.CellCaptionFormat(h,4) = 2
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.CellCaptionFormat(h,4) = 2"

		h1 = var_Items.InsertItem(h,,"Child 1")
		' var_Items.CellCaption(h1,1) = 7
		oExplorerTree.TemplateDef = "dim var_Items,h1"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h1
		oExplorerTree.Template = "var_Items.CellCaption(h1,1) = 7"

		' var_Items.CellCaption(h1,2) = 3
		oExplorerTree.TemplateDef = "dim var_Items,h1"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h1
		oExplorerTree.Template = "var_Items.CellCaption(h1,2) = 3"

		' var_Items.CellCaption(h1,3) = 1
		oExplorerTree.TemplateDef = "dim var_Items,h1"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h1
		oExplorerTree.Template = "var_Items.CellCaption(h1,3) = 1"

		h1 = var_Items.InsertItem(h,,"Child 2")
		' var_Items.CellCaption(h1,1) = -2
		oExplorerTree.TemplateDef = "dim var_Items,h1"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h1
		oExplorerTree.Template = "var_Items.CellCaption(h1,1) = -2"

		' var_Items.CellCaption(h1,2) = -2
		oExplorerTree.TemplateDef = "dim var_Items,h1"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h1
		oExplorerTree.Template = "var_Items.CellCaption(h1,2) = -2"

		' var_Items.CellCaption(h1,3) = -4
		oExplorerTree.TemplateDef = "dim var_Items,h1"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h1
		oExplorerTree.Template = "var_Items.CellCaption(h1,3) = -4"

		h1 = var_Items.InsertItem(h,,"Child 3")
		' var_Items.CellCaption(h1,1) = 2
		oExplorerTree.TemplateDef = "dim var_Items,h1"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h1
		oExplorerTree.Template = "var_Items.CellCaption(h1,1) = 2"

		' var_Items.CellCaption(h1,2) = 2
		oExplorerTree.TemplateDef = "dim var_Items,h1"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h1
		oExplorerTree.Template = "var_Items.CellCaption(h1,2) = 2"

		' var_Items.CellCaption(h1,3) = -4
		oExplorerTree.TemplateDef = "dim var_Items,h1"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h1
		oExplorerTree.Template = "var_Items.CellCaption(h1,3) = -4"

		' var_Items.ExpandItem(h) = .t.
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.ExpandItem(h) = True"

	var_Group.Expanded = .t.
oExplorerTree.EndUpdate()

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

Dim oExplorerTree as P
Dim var_Column as local
Dim var_Group as P
Dim var_Items as P

oExplorerTree = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.HeaderVisible = .t.
	var_Group.Columns.Clear()
	var_Group.Columns.Add("Number")
	' var_Group.Columns.Add("Round").ComputedField = "round(%0)"
	var_Column = var_Group.Columns.Add("Round")
	oExplorerTree.TemplateDef = "dim var_Column"
	oExplorerTree.TemplateDef = var_Column
	oExplorerTree.Template = "var_Column.ComputedField = `round(%0)`"

	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 = .t.

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

Dim oExplorerTree as P
Dim var_Column as local
Dim var_Group as P
Dim var_Items as P
Dim var_Items1 as P

oExplorerTree = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.Columns.Clear()
	var_Group.HeaderVisible = .t.
	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")
	oExplorerTree.TemplateDef = "dim var_Column"
	oExplorerTree.TemplateDef = var_Column
	oExplorerTree.Template = "var_Column.ComputedField = `dbl(%0) + dbl(%1)`"

	var_Items = var_Group.Items
		' var_Items.CellCaption(var_Items.AddItem(1),1) = 2
		oExplorerTree.TemplateDef = "dim var_Items"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.Template = "var_Items.CellCaption(AddItem(1),1) = 2"

	var_Items1 = var_Group.Items
		' var_Items1.CellCaption(var_Items1.AddItem(10),1) = 20
		oExplorerTree.TemplateDef = "dim var_Items1"
		oExplorerTree.TemplateDef = var_Items1
		oExplorerTree.Template = "var_Items1.CellCaption(AddItem(10),1) = 20"

	var_Group.Expanded = .t.

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

Dim oExplorerTree as P
Dim var_ConditionalFormat as local
Dim var_Group as P

oExplorerTree = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerTree.Groups.Add("Default")
	' var_Group.ConditionalFormats.Add("dbl(%0) < 10").BackColor = 255
	var_ConditionalFormat = var_Group.ConditionalFormats.Add("dbl(%0) < 10")
	oExplorerTree.TemplateDef = "dim var_ConditionalFormat"
	oExplorerTree.TemplateDef = var_ConditionalFormat
	oExplorerTree.Template = "var_ConditionalFormat.BackColor = 255"

	var_Group.Items.AddItem(1)
	var_Group.Items.AddItem(2)
	var_Group.Items.AddItem(10)
	var_Group.Items.AddItem(20)
	var_Group.Expanded = .t.

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

Dim oExplorerTree as P
Dim var_ConditionalFormat as local
Dim var_Group as P

oExplorerTree = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerTree.Groups.Add("Default")
	' var_Group.ConditionalFormats.Add("dbl(%0) >= 10").Bold = .t.
	var_ConditionalFormat = var_Group.ConditionalFormats.Add("dbl(%0) >= 10")
	oExplorerTree.TemplateDef = "dim var_ConditionalFormat"
	oExplorerTree.TemplateDef = var_ConditionalFormat
	oExplorerTree.Template = "var_ConditionalFormat.Bold = True"

	var_Group.Items.AddItem(1)
	var_Group.Items.AddItem(2)
	var_Group.Items.AddItem(10)
	var_Group.Items.AddItem(20)
	var_Group.Expanded = .t.

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

Dim oExplorerTree as P
Dim var_Column as P
Dim var_Group as P

oExplorerTree = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.FilterBarCaption = "your filter caption"
	var_Column = var_Group.Columns.Add("Column")
		var_Column.DisplayFilterButton = .t.
		var_Column.FilterType = 1
	var_Group.ApplyFilter()
	var_Group.Expanded = .t.

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

Dim h as N
Dim oExplorerTree as P
Dim var_Column as P
Dim var_Group as P
Dim var_Items as P

oExplorerTree = topparent:CONTROL_ACTIVEX1.activex
oExplorerTree.BeginUpdate()
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.AutoHeight = .t.
	var_Group.DrawGridLines = -1
	var_Group.GridLineStyle = 33 'exGridLinesVSolid + exGridLinesHDot4
	var_Group.ColumnAutoResize = .f.
	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 = .t.
	var_Items = var_Group.Items
		h = var_Items.AddItem("Item 1")
		' var_Items.CellCaption(h,1) = "SubItem 1.2"
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.CellCaption(h,1) = `SubItem 1.2`"

		' var_Items.CellCaption(h,2) = "SubItem 1.3"
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.CellCaption(h,2) = `SubItem 1.3`"

		h = var_Items.AddItem("Item 2")
		' var_Items.CellCaption(h,1) = "SubItem 2.2"
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.CellCaption(h,1) = `SubItem 2.2`"

		' var_Items.CellCaption(h,2) = "SubItem 2.3"
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.CellCaption(h,2) = `SubItem 2.3`"

		h = var_Items.AddItem("Item 3")
		' var_Items.CellCaption(h,1) = "SubItem 3.2"
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.CellCaption(h,1) = `SubItem 3.2`"

		' var_Items.CellCaption(h,2) = "SubItem 3.3"
		oExplorerTree.TemplateDef = "dim var_Items,h"
		oExplorerTree.TemplateDef = var_Items
		oExplorerTree.TemplateDef = h
		oExplorerTree.Template = "var_Items.CellCaption(h,2) = `SubItem 3.3`"

	var_Group.Expanded = .t.
oExplorerTree.EndUpdate()

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

Dim oExplorerTree as P
Dim var_Group as P

oExplorerTree = topparent:CONTROL_ACTIVEX1.activex
oExplorerTree.BeginUpdate()
var_Group = oExplorerTree.Groups.Add("Default")
	var_Group.DrawGridLines = -1
	var_Group.GridLineStyle = 48
	var_Group.Expanded = .t.
oExplorerTree.EndUpdate()

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

Dim oExplorerTree as P
Dim var_Groups as P

oExplorerTree = topparent:CONTROL_ACTIVEX1.activex
oExplorerTree.BeginUpdate()
oExplorerTree.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oExplorerTree.BackColorGroup = 16777216
var_Groups = oExplorerTree.Groups
	var_Groups.Add("Group 1")
	var_Groups.Add("Group 2")
	var_Groups.Add("Group 3")
oExplorerTree.EndUpdate()