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

' MouseMove event - Occurs when the user moves the mouse.
Private Sub ExplorerTree1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With ExplorerTree1
		With .GroupListFromPoint(-1,-1)
		End With
	End With
End Sub

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
20:
How can I ensure that a specified item is visible

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
19:
is it possible to display icons in the control's shortcut bar

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
18:
How can I display the control's shortcut bar

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
17:
Can I display the cell's check box after the text

With ExplorerTree1
	.BeginUpdate 
	With .Groups.Add("Default")
		.Expanded = True
		With .Columns.Item(0)
			.Def(exCellHasCheckBox) = True
			.Def(exCellDrawPartsOrder) = "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
16:
Can I change the order of the parts in the cell, as checkbox after the text, and so on

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(exCellDrawPartsOrder) = "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
15:
Can I have an image displayed after the text. Can I get that effect without using HTML content

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(exCellDrawPartsOrder) = "caption,icon,check,icons,picture"
		With .Items
			h = .AddItem("Text")
			.CellImage(h,0) = 1
		End With
	End With
	.EndUpdate 
End With
14:
How do I enable the filter prompt feature

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
13:
Can I specify unsortable items

With ExplorerTree1
	.BeginUpdate 
	With .Groups.Add("Default")
		.AutoHeight = True
		.HeaderVisible = True
		.Columns.Clear 
		.HasLines = exNoLine
		.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) = CenterAlignment
			.ItemDivider(h) = 0
			.ItemDividerLineAlignment(h) = DividerBoth
			.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) = CenterAlignment
			.ItemDivider(h) = 0
			.ItemDividerLineAlignment(h) = DividerBoth
			.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
12:
Can I change the style of the line being displayed by a divider item

With ExplorerTree1
	.BeginUpdate 
	With .Groups.Add("Default")
		.HeaderVisible = True
		.Columns.Clear 
		.MarkSearchColumn = False
		.TreeColumnIndex = -1
		.ScrollBySingleLine = False
		.Columns.Add "C1"
		.Columns.Add "C2"
		.SelBackMode = exTransparent
		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) = DoubleDotLine
			.ItemDividerLineAlignment(h) = DividerBoth
			.CellHAlignment(h,0) = CenterAlignment
			.ItemHeight(h) = 24
		End With
		.Expanded = True
	End With
	.EndUpdate 
End With
11:
How can I expand all items

With ExplorerTree1
	.BeginUpdate 
	With .Groups.Add("Default")
		.HeaderVisible = True
		.Columns.Clear 
		.LinesAtRoot = exLinesAtRoot
		.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
10:
Is it possible display numbers in the same format no matter of regional settings in the control panel

With ExplorerTree1
	With .Groups.Add("Default")
		.HeaderVisible = True
		.Columns.Clear 
		.Columns.Add("Def").Def(exCellCaptionFormat) = 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
9:
Is it possible to format numbers

With ExplorerTree1
	.BeginUpdate 
	With .Groups.Add("Default")
		.HeaderVisible = True
		.MarkSearchColumn = False
		.Columns.Clear 
		With .Columns
			.Add "Name"
			With .Add("A")
				.SortType = SortNumeric
				.AllowSizing = False
				.Width = 36
				.FormatColumn = "len(value) ? value + ' +'"
			End With
			With .Add("B")
				.SortType = SortNumeric
				.AllowSizing = False
				.Width = 36
				.FormatColumn = "len(value) ? value + ' +'"
			End With
			With .Add("C")
				.SortType = SortNumeric
				.AllowSizing = False
				.Width = 36
				.FormatColumn = "len(value) ? value + ' ='"
			End With
			With .Add("A+B+C")
				.SortType = SortNumeric
				.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(exCellCaptionFormat) = 1
			End With
		End With
		With .Items
			h = .AddItem("Root")
			.CellCaptionFormat(h,4) = exComputedField
			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
8:
Is there any function to round the values base on the .5 value

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
7:
How can I show a column that adds values in the cells

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
6:
How do I change the item's background color for numbers less than a value

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
5:
How do I highlight in bold the numbers greater than a value

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
4:
How do I change the caption being displayed in the control's filter bar

With ExplorerTree1
	With .Groups.Add("Default")
		.FilterBarCaption = "your filter caption"
		With .Columns.Add("Column")
			.DisplayFilterButton = True
			.FilterType = exBlanks
		End With
		.ApplyFilter 
		.Expanded = True
	End With
End With
3:
Is it possible to change the style for the vertical or horizontal grid lines, in the list area

With ExplorerTree1
	.BeginUpdate 
	With .Groups.Add("Default")
		.AutoHeight = True
		.DrawGridLines = exAllLines
		.GridLineStyle = 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
2:
Is it possible to change the style for the grid lines, for instance to be solid not dotted

With ExplorerTree1
	.BeginUpdate 
	With .Groups.Add("Default")
		.DrawGridLines = exAllLines
		.GridLineStyle = exGridLinesSolid
		.Expanded = True
	End With
	.EndUpdate 
End With
1:
How can I change the visual appearance for the groups, using your EBN files

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