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_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Explorertree1.MouseMoveEvent
	With Explorertree1
		With .get_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

Dim h
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 = .get_ItemByIndex(16)
		.set_ItemBackColor(h,Color.FromArgb(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)
			.set_Def(exontrol.EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.set_Def(exontrol.EXPLORERTREELib.DefColumnEnum.exCellDrawPartsOrder,"caption,check")
		End With
		With .Items
			.set_CellHasCheckBox(.AddItem("Caption 1"),0,True)
			.set_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

Dim h
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).set_Def(exontrol.EXPLORERTREELib.DefColumnEnum.exCellDrawPartsOrder,"caption,check,icon,icons,picture")
		With .Items
			h = .AddItem("Text")
			.set_CellImage(h,0,1)
			.set_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

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

Dim h0
With Explorertree1
	.BeginUpdate()
	.Groups.Add("Group 1")
	With .Groups.Add("Group 2")
		.AutoHeight = True
		.HeaderVisible = True
		.Columns.Clear()
		.ColumnAutoResize = True
		.ContinueColumnScroll = False
		.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")
			.set_CellCaption(h0,1,"Sales Representative")
			.set_CellCaption(h0,2,"Seattle")
			h0 = .AddItem("Andrew Fuller")
			.set_CellCaption(h0,1,"Vice President, Sales")
			.set_CellCaption(h0,2,"Tacoma")
			.set_SelectItem(h0,True)
			h0 = .AddItem("Janet Leverling")
			.set_CellCaption(h0,1,"Sales Representative")
			.set_CellCaption(h0,2,"Kirkland")
			h0 = .AddItem("Margaret Peacock")
			.set_CellCaption(h0,1,"Sales Representative")
			.set_CellCaption(h0,2,"Redmond")
			h0 = .AddItem("Steven Buchanan")
			.set_CellCaption(h0,1,"Sales Manager")
			.set_CellCaption(h0,2,"London")
			h0 = .AddItem("Michael Suyama")
			.set_CellCaption(h0,1,"Sales Representative")
			.set_CellCaption(h0,2,"London")
			h0 = .AddItem("Robert King")
			.set_CellCaption(h0,1,"Sales Representative")
			.set_CellCaption(h0,2,"London")
			h0 = .AddItem("Laura Callahan")
			.set_CellCaption(h0,1,"Inside Sales Coordinator")
			.set_CellCaption(h0,2,"Seattle")
			h0 = .AddItem("Anne Dodsworth")
			.set_CellCaption(h0,1,"Sales Representative")
			.set_CellCaption(h0,2,"London")
		End With
		.Expanded = True
	End With
	.Groups.Add("Group 3")
	.EndUpdate()
End With
13:
Can I specify unsortable items

Dim h,h1
With Explorertree1
	.BeginUpdate()
	With .Groups.Add("Default")
		.AutoHeight = True
		.HeaderVisible = True
		.Columns.Clear()
		.HasLines = exontrol.EXPLORERTREELib.HierarchyLineEnum.exNoLine
		.ScrollBySingleLine = True
		.MarkSearchColumn = False
		With .Columns
			.Add("Name")
			.Add("A")
			.Add("B")
			.Add("C")
		End With
		With .Items
			h = .AddItem("Group 1")
			.set_CellHAlignment(h,0,exontrol.EXPLORERTREELib.AlignmentEnum.CenterAlignment)
			.set_ItemDivider(h,0)
			.set_ItemDividerLineAlignment(h,exontrol.EXPLORERTREELib.DividerAlignmentEnum.DividerBoth)
			.set_ItemHeight(h,24)
			.set_SortableItem(h,False)
			h1 = .InsertItem(h,,"Child 1")
			.set_CellCaption(h1,1,1)
			.set_CellCaption(h1,2,2)
			.set_CellCaption(h1,3,3)
			h1 = .InsertItem(h,,"Child 2")
			.set_CellCaption(h1,1,4)
			.set_CellCaption(h1,2,5)
			.set_CellCaption(h1,3,6)
			.set_ExpandItem(h,True)
			h = .AddItem("Group 2")
			.set_CellHAlignment(h,0,exontrol.EXPLORERTREELib.AlignmentEnum.CenterAlignment)
			.set_ItemDivider(h,0)
			.set_ItemDividerLineAlignment(h,exontrol.EXPLORERTREELib.DividerAlignmentEnum.DividerBoth)
			.set_ItemHeight(h,24)
			.set_SortableItem(h,False)
			h1 = .InsertItem(h,,"Child 1")
			.set_CellCaption(h1,1,1)
			.set_CellCaption(h1,2,2)
			.set_CellCaption(h1,3,3)
			h1 = .InsertItem(h,,"Child 2")
			.set_CellCaption(h1,1,4)
			.set_CellCaption(h1,2,5)
			.set_CellCaption(h1,3,6)
			.set_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

Dim h
With Explorertree1
	.BeginUpdate()
	With .Groups.Add("Default")
		.HeaderVisible = True
		.Columns.Clear()
		.MarkSearchColumn = False
		.TreeColumnIndex = -1
		.ScrollBySingleLine = False
		.Columns.Add("C1")
		.Columns.Add("C2")
		.SelBackMode = exontrol.EXPLORERTREELib.BackModeEnum.exTransparent
		With .Items
			h = .AddItem("Cell 1")
			.set_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.")
			.set_CellSingleLine(h,1,False)
			h = .AddItem("This is bit of text that's displayed on the entire item, divider.")
			.set_ItemDivider(h,0)
			.set_ItemDividerLine(h,exontrol.EXPLORERTREELib.DividerLineEnum.DoubleDotLine)
			.set_ItemDividerLineAlignment(h,exontrol.EXPLORERTREELib.DividerAlignmentEnum.DividerBoth)
			.set_CellHAlignment(h,0,exontrol.EXPLORERTREELib.AlignmentEnum.CenterAlignment)
			.set_ItemHeight(h,24)
		End With
		.Expanded = True
	End With
	.EndUpdate()
End With
11:
How can I expand all items

Dim h
With Explorertree1
	.BeginUpdate()
	With .Groups.Add("Default")
		.HeaderVisible = True
		.Columns.Clear()
		.LinesAtRoot = exontrol.EXPLORERTREELib.LinesAtRootEnum.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")
			.set_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

Dim h
With Explorertree1
	With .Groups.Add("Default")
		.HeaderVisible = True
		.Columns.Clear()
		.Columns.Add("Def").set_Def(exontrol.EXPLORERTREELib.DefColumnEnum.exCellCaptionFormat,1)
		With .Items
			h = .AddItem(100000.27)
			.set_FormatCell(h,0,"(value format '') +  ' <fgcolor=808080>(default positive)'")
			h = .AddItem(100000.27)
			.set_FormatCell(h,0,"(value format '2|.|3|,|1|1')")
			h = .AddItem(-100000.27)
			.set_FormatCell(h,0,"(value format '') +  ' <fgcolor=808080>(default negative)'")
			h = .AddItem(-100000.27)
			.set_FormatCell(h,0,"(value format '2|.|3|,|1|1')")
		End With
		.Expanded = True
	End With
End With
9:
Is it possible to format numbers

Dim h,h1
With Explorertree1
	.BeginUpdate()
	With .Groups.Add("Default")
		.HeaderVisible = True
		.MarkSearchColumn = False
		.Columns.Clear()
		With .Columns
			.Add("Name")
			With .Add("A")
				.SortType = exontrol.EXPLORERTREELib.SortTypeEnum.SortNumeric
				.AllowSizing = False
				.Width = 36
				.FormatColumn = "len(value) ? value + ' +'"
			End With
			With .Add("B")
				.SortType = exontrol.EXPLORERTREELib.SortTypeEnum.SortNumeric
				.AllowSizing = False
				.Width = 36
				.FormatColumn = "len(value) ? value + ' +'"
			End With
			With .Add("C")
				.SortType = exontrol.EXPLORERTREELib.SortTypeEnum.SortNumeric
				.AllowSizing = False
				.Width = 36
				.FormatColumn = "len(value) ? value + ' ='"
			End With
			With .Add("A+B+C")
				.SortType = exontrol.EXPLORERTREELib.SortTypeEnum.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') )"
				.set_Def(exontrol.EXPLORERTREELib.DefColumnEnum.exCellCaptionFormat,1)
			End With
		End With
		With .Items
			h = .AddItem("Root")
			.set_CellCaptionFormat(h,4,exontrol.EXPLORERTREELib.CaptionFormatEnum.exComputedField)
			h1 = .InsertItem(h,,"Child 1")
			.set_CellCaption(h1,1,7)
			.set_CellCaption(h1,2,3)
			.set_CellCaption(h1,3,1)
			h1 = .InsertItem(h,,"Child 2")
			.set_CellCaption(h1,1,-2)
			.set_CellCaption(h1,2,-2)
			.set_CellCaption(h1,3,-4)
			h1 = .InsertItem(h,,"Child 3")
			.set_CellCaption(h1,1,2)
			.set_CellCaption(h1,2,2)
			.set_CellCaption(h1,3,-4)
			.set_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
			.set_CellCaption(.AddItem(1),1,2)
		End With
		With .Items
			.set_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 = Color.FromArgb(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 = exontrol.EXPLORERTREELib.FilterTypeEnum.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

Dim h
With Explorertree1
	.BeginUpdate()
	With .Groups.Add("Default")
		.AutoHeight = True
		.DrawGridLines = exontrol.EXPLORERTREELib.GridLinesEnum.exAllLines
		.GridLineStyle = exontrol.EXPLORERTREELib.GridLinesStyleEnum.exGridLinesVSolid Or exontrol.EXPLORERTREELib.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")
			.set_CellCaption(h,1,"SubItem 1.2")
			.set_CellCaption(h,2,"SubItem 1.3")
			h = .AddItem("Item 2")
			.set_CellCaption(h,1,"SubItem 2.2")
			.set_CellCaption(h,2,"SubItem 2.3")
			h = .AddItem("Item 3")
			.set_CellCaption(h,1,"SubItem 3.2")
			.set_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 = exontrol.EXPLORERTREELib.GridLinesEnum.exAllLines
		.GridLineStyle = exontrol.EXPLORERTREELib.GridLinesStyleEnum.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")
	.BackColorGroup32 = &H1000000
	With .Groups
		.Add("Group 1")
		.Add("Group 2")
		.Add("Group 3")
	End With
	.EndUpdate()
End With