42
How can I prevent the control from filtering while the user is typing in the filter prompt, and apply the filter only when the Enter key is pressed
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
		.HeaderAppearance = exontrol.EXPLORERTREELib.AppearanceEnum.Etched
		.HeaderHeight = 24
		.FilterBarPromptVisible = exontrol.EXPLORERTREELib.FilterBarVisibleEnum.exFilterBarPromptOnEnter Or exontrol.EXPLORERTREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
		.FilterBarPrompt = "<i><fgcolor=808080>Type filter and press Enter…</fgcolor></i>"
		.FilterBarBackColor = Explorertree1.BackColor
		.FilterBarPromptType = exontrol.EXPLORERTREELib.FilterPromptEnum.exFilterPromptStartWith
		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
41
Locks the first visible column on the left and the last visible column on the right

Dim rs
With Explorertree1
	.BeginUpdate()
	With .Groups.Add("Def")
		.Expanded = True
		.ColumnAutoResize = False
		.BackColorLock = Color.FromArgb(192,192,192)
		.GridLineStyle = exontrol.EXPLORERTREELib.GridLinesStyleEnum.exGridLinesSolid
		.DrawGridLines = exontrol.EXPLORERTREELib.GridLinesEnum.exVLines
		.HeaderAppearance = exontrol.EXPLORERTREELib.AppearanceEnum.Etched
		rs = New ADODB.Recordset()
		With rs
			.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\Access\sample.mdb",3,3)
		End With
		.DataSource = rs
		.CountLockedColumns = 17
	End With
	.EndUpdate()
End With
40
Lock the column on the right

Dim rs
With Explorertree1
	.BeginUpdate()
	With .Groups.Add("Def")
		.Expanded = True
		.ColumnAutoResize = False
		.BackColorLock = Color.FromArgb(192,192,192)
		.GridLineStyle = exontrol.EXPLORERTREELib.GridLinesStyleEnum.exGridLinesSolid
		.DrawGridLines = exontrol.EXPLORERTREELib.GridLinesEnum.exVLines
		.HeaderAppearance = exontrol.EXPLORERTREELib.AppearanceEnum.Etched
		rs = New ADODB.Recordset()
		With rs
			.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\Access\sample.mdb",3,3)
		End With
		.DataSource = rs
		.CountLockedColumns = 16
	End With
	.EndUpdate()
End With
39
Lock the column on the left

Dim rs
With Explorertree1
	.BeginUpdate()
	With .Groups.Add("Def")
		.Expanded = True
		.ColumnAutoResize = False
		.BackColorLock = Color.FromArgb(192,192,192)
		.GridLineStyle = exontrol.EXPLORERTREELib.GridLinesStyleEnum.exGridLinesSolid
		.DrawGridLines = exontrol.EXPLORERTREELib.GridLinesEnum.exVLines
		.HeaderAppearance = exontrol.EXPLORERTREELib.AppearanceEnum.Etched
		rs = New ADODB.Recordset()
		With rs
			.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\Access\sample.mdb",3,3)
		End With
		.DataSource = rs
		.CountLockedColumns = 1
	End With
	.EndUpdate()
End With
38
How can I replace or add an icon at runtime

With Explorertree1
	.BeginUpdate()
	.ReplaceIcon("gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+O" & _
	"kYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==")
	.ReplaceIcon("C:\images\favicon.ico",0)
	With .Groups.Add("Select")
		.Expanded = True
		.ColumnAutoResize = True
		.Columns.Item(0).set_Def(exontrol.EXPLORERTREELib.DefColumnEnum.exCellCaptionFormat,1)
		.Items.AddItem("Item <img>1</img>")
	End With
	.EndUpdate()
End With
37
Can I set a filter that automatically adds a * before and after the word, so the user can just search for 'cat' and it becomes '*cat*' automatically
Dim h
With Explorertree1
	With .Groups.Add("Tree")
		.Expanded = True
		.BeginUpdate()
		.HeaderAppearance = exontrol.EXPLORERTREELib.AppearanceEnum.Etched
		.HeaderHeight = 24
		.LinesAtRoot = exontrol.EXPLORERTREELib.LinesAtRootEnum.exLinesAtRoot
		.Columns.Clear()
		With .Columns.Add("Items")
			.DisplayFilterButton = True
			.DisplayFilterPattern = True
			.set_Def(exontrol.EXPLORERTREELib.DefColumnEnum.exFilterPatternTemplate,"*<%filter%>*")
			.FilterType = exontrol.EXPLORERTREELib.FilterTypeEnum.exPattern
			.Filter = "1"
		End With
		With .Items
			h = .AddItem("Root 1")
			.InsertItem(h,Nothing,"Child 1")
			.InsertItem(h,Nothing,"Child 2")
			.set_ExpandItem(h,True)
			h = .AddItem("Root 2")
			.InsertItem(h,Nothing,"Child 1")
			.InsertItem(h,Nothing,"Child 2")
		End With
		.ApplyFilter()
		.EndUpdate()
	End With
End With
36
Load data as a tree using a parent-id relationship

Dim rs
With Explorertree1
	.BeginUpdate()
	With .Groups.Add("Tree")
		.Expanded = True
		.Height = 196
		.BeginUpdate()
		.ColumnAutoResize = False
		.DrawGridLines = exontrol.EXPLORERTREELib.GridLinesEnum.exVLines
		.LinesAtRoot = exontrol.EXPLORERTREELib.LinesAtRootEnum.exLinesAtRoot
		rs = New ADODB.Recordset()
		With rs
			.Open("Select * FROM Employees WHERE 1=0","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb",3,3)
		End With
		.DataSource = rs
		.Columns.Item(0).Width = 128
		rs = New ADODB.Recordset()
		With rs
			.Open("Employees","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb",3,3)
		End With
		.PutItems(rs.GetRows(),";0;15")
		.Items.set_ExpandItem(0,True)
		.EndUpdate()
	End With
	.EndUpdate()
End With
35
Highlight the leaf items

Dim h,hR
With Explorertree1
	.BeginUpdate()
	With .Groups.Add("Tree")
		.Expanded = True
		.ConditionalFormats.Add("%CC0=0").ForeColor = Color.FromArgb(128,128,128)
		.HeaderAppearance = exontrol.EXPLORERTREELib.AppearanceEnum.Etched
		.HeaderHeight = 24
		.LinesAtRoot = exontrol.EXPLORERTREELib.LinesAtRootEnum.exLinesAtRoot
		With .Columns
			.Clear()
			.Add("Item").Width = 16
			.Add("Desc")
		End With
		With .Items
			hR = .AddItem("Root")
			.set_CellCaption(hR,1,"The root directory /")
			h = .InsertItem(hR,Nothing,"Home")
			.set_CellCaption(h,1,"The home directory with user directories Alice and Bob")
			.InsertItem(h,Nothing,"Alice")
			.InsertItem(h,Nothing,"Bob")
			.set_ExpandItem(h,True)
			h = .InsertItem(hR,Nothing,"Etc")
			.set_CellCaption(h,1,"The etc directory with one configuration file")
			h = .InsertItem(h,Nothing,"nginx.conf")
			.set_CellCaption(.InsertItem(hR,Nothing,"Var"),1,"The var directory")
			.set_ExpandItem(hR,True)
		End With
	End With
	.EndUpdate()
End With
34
Highlight the parent items

Dim h,hR
With Explorertree1
	.BeginUpdate()
	With .Groups.Add("Tree")
		.Expanded = True
		.ConditionalFormats.Add("%CC0").ForeColor = Color.FromArgb(255,0,0)
		.HeaderAppearance = exontrol.EXPLORERTREELib.AppearanceEnum.Etched
		.HeaderHeight = 24
		.LinesAtRoot = exontrol.EXPLORERTREELib.LinesAtRootEnum.exLinesAtRoot
		With .Columns
			.Clear()
			.Add("Item").Width = 16
			.Add("Desc")
		End With
		With .Items
			hR = .AddItem("Root")
			.set_CellCaption(hR,1,"The root directory /")
			h = .InsertItem(hR,Nothing,"Home")
			.set_CellCaption(h,1,"The home directory with user directories Alice and Bob")
			.InsertItem(h,Nothing,"Alice")
			.InsertItem(h,Nothing,"Bob")
			.set_ExpandItem(h,True)
			h = .InsertItem(hR,Nothing,"Etc")
			.set_CellCaption(h,1,"The etc directory with one configuration file")
			h = .InsertItem(h,Nothing,"nginx.conf")
			.set_CellCaption(.InsertItem(hR,Nothing,"Var"),1,"The var directory")
			.set_ExpandItem(hR,True)
		End With
	End With
	.EndUpdate()
End With
33
Highlight the item being expanded or collapsed

Dim h,hR
With Explorertree1
	.BeginUpdate()
	With .Groups.Add("Tree")
		.Expanded = True
		.ConditionalFormats.Add("%CX0").Bold = True
		.LinesAtRoot = exontrol.EXPLORERTREELib.LinesAtRootEnum.exLinesAtRoot
		With .Columns
			.Clear()
			.Add("Item").Width = 16
			.Add("Desc")
		End With
		With .Items
			hR = .AddItem("Root")
			.set_CellCaption(hR,1,"The root directory /")
			h = .InsertItem(hR,Nothing,"Home")
			.set_CellCaption(h,1,"The home directory with user directories Alice and Bob")
			.InsertItem(h,Nothing,"Alice")
			.InsertItem(h,Nothing,"Bob")
			.set_ExpandItem(h,True)
			h = .InsertItem(hR,Nothing,"Etc")
			.set_CellCaption(h,1,"The etc directory with one configuration file")
			h = .InsertItem(h,Nothing,"nginx.conf")
			.set_CellCaption(.InsertItem(hR,Nothing,"Var"),1,"The var directory")
			.set_ExpandItem(hR,True)
		End With
	End With
	.EndUpdate()
End With
32
Expandable-caption

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub Explorertree1_AnchorClick(ByVal sender As System.Object, ByVal AnchorID As String, ByVal Options As String) Handles Explorertree1.AnchorClick
	With Explorertree1
		Debug.Print( AnchorID )
	End With
End Sub

Dim h
With Explorertree1
	.BeginUpdate()
	With .Groups.Add("Items")
		.ColumnAutoResize = True
		.TreeColumnIndex = -1
		.DrawGridLines = exontrol.EXPLORERTREELib.GridLinesEnum.exAllLines
		.GridLineStyle = exontrol.EXPLORERTREELib.GridLinesStyleEnum.exGridLinesGeometric
		.BackColorAlternate = Color.FromArgb(240,240,240)
		.ShowFocusRect = False
		With .Items
			.AddItem("before item")
			h = .AddItem("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4Aj" & _
	"MGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEB" & _
	"A==>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DAB" & _
	"vABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>	" & _
	"650;</a><br>+ withdraw(amount: Currency)")
			.set_CellCaptionFormat(h,0,exontrol.EXPLORERTREELib.CaptionFormatEnum.exHTML)
			.set_CellSingleLine(h,0,exontrol.EXPLORERTREELib.CellSingleLineEnum.exCaptionWordWrap)
			.AddItem("after item")
		End With
		.Expanded = True
	End With
	.EndUpdate()
End With
31
Expandable-caption

Dim h
With Explorertree1
	.BeginUpdate()
	With .Groups.Add("Items")
		.TreeColumnIndex = -1
		.DrawGridLines = exontrol.EXPLORERTREELib.GridLinesEnum.exAllLines
		.GridLineStyle = exontrol.EXPLORERTREELib.GridLinesStyleEnum.exGridLinesGeometric
		.BackColorAlternate = Color.FromArgb(240,240,240)
		.ShowFocusRect = False
		With .Items
			.AddItem("before item")
			h = .AddItem("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3")
			.set_CellCaptionFormat(h,0,exontrol.EXPLORERTREELib.CaptionFormatEnum.exHTML)
			.set_CellSingleLine(h,0,exontrol.EXPLORERTREELib.CellSingleLineEnum.exCaptionWordWrap)
			.AddItem("after item")
		End With
		.Expanded = True
	End With
	.EndUpdate()
End With
30
Display a custom tooltip
' 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
		.ShowToolTip("new content","",Nothing,"+8","+8")
	End With
End Sub
29
Shows the tooltip of the object moved relative to its default position
' 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
		.ShowToolTip("<null>","<null>",Nothing,"+8","+8")
	End With
End Sub

With Explorertree1
	.Groups.Add("Group").ToolTip = "just a tooltip"
End With
28
Re-order the cell's caption, icons and images/pictures

Dim h
With Explorertree1
	.BeginUpdate()
	.Images("gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmD" & _
	"cD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB")
	With .Groups.Add("Group")
		.Expanded = True
		.AutoHeight = True
		.Columns.Clear()
		With .Columns.Add("ToLeft")
			.set_Def(exontrol.EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox,True)
		End With
		With .Columns.Add("ToRight")
			.set_Def(exontrol.EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.set_Def(exontrol.EXPLORERTREELib.DefColumnEnum.exCellDrawPartsOrder,"caption,picture,icons,icon,check")
		End With
		.DefaultItemHeight = 32
		.DrawGridLines = exontrol.EXPLORERTREELib.GridLinesEnum.exVLines
		.HeaderAppearance = exontrol.EXPLORERTREELib.AppearanceEnum.Etched
		With .Items
			h = .AddItem("Caption")
			.set_CellImage(h,0,2)
			.set_CellImages(h,0,"1,2")
			.set_CellPicture(h,0,Explorertree1.ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLs" & _
	"GL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7" & _
	"FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0F" & _
	"CjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4" & _
	"wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/Ay" & _
	"QJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZe" & _
	"nEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSF" & _
	"pTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5si" & _
	"qbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8Yx" & _
	"XhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8D" & _
	"PH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZA" & _
	"mBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCM" & _
	"EgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rBy" & _
	"jJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0W" & _
	"gLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTH" & _
	"CBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB" & _
	"1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHw" & _
	"L4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0" & _
	"FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYd" & _
	"guhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCG" & _
	"USNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmh" & _
	"AFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg" & _
	"6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GF" & _
	"ZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gm" & _
	"iXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsA" & _
	"YAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg" & _
	"5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARA" & _
	"SA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9A" & _
	"IBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcA" & _
	"dAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJB" & _
	"PhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzA" & _
	"hhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARB" & _
	"vgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURA" & _
	"Ghvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh" & _
	"/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3s" & _
	"UhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4A" & _
	"fgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8x" & _
	"MhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA" & _
	"2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXB" & _
	"WhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBag" & _
	"xAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9B" & _
	"tnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqB" & _
	"UgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDA" & _
	"jAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBih" & _
	"Fh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdA" & _
	"uAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeA" & _
	"FBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg" & _
	"3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhch" & _
	"ug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCB" & _
	"QAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxh" & _
	"Tg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5" & _
	"WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJA" & _
	"kgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEg" & _
	"qgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyh" & _
	"VgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADB" & _
	"Wh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMA" & _
	"GAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFO" & _
	"rC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZT" & _
	"WP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwd" & _
	"i4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8" & _
	"PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnL" & _
	"Cs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIy" & _
	"DQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhO" & _
	"ApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj" & _
	"5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)"))
			.set_CellCaption(h,1,.get_CellCaption(h,0))
			.set_CellHAlignment(h,1,exontrol.EXPLORERTREELib.AlignmentEnum.RightAlignment)
			.set_CellImage(h,1,.get_CellImage(h,0))
			.set_CellImages(h,1,"2,1")
			.set_CellPicture(h,1,.get_CellPicture(h,0))
			h = .AddItem("<b>HTML</b> <off 4>Caption")
			.set_CellCaptionFormat(h,0,exontrol.EXPLORERTREELib.CaptionFormatEnum.exHTML)
			.set_CellImage(h,0,2)
			.set_CellImages(h,0,"1,2")
			.set_CellPicture(h,0,Explorertree1.ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLs" & _
	"GL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7" & _
	"FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0F" & _
	"CjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4" & _
	"wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/Ay" & _
	"QJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZe" & _
	"nEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSF" & _
	"pTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5si" & _
	"qbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8Yx" & _
	"XhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8D" & _
	"PH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZA" & _
	"mBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCM" & _
	"EgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rBy" & _
	"jJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0W" & _
	"gLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTH" & _
	"CBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB" & _
	"1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHw" & _
	"L4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0" & _
	"FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYd" & _
	"guhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCG" & _
	"USNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmh" & _
	"AFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg" & _
	"6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GF" & _
	"ZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gm" & _
	"iXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsA" & _
	"YAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg" & _
	"5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARA" & _
	"SA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9A" & _
	"IBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcA" & _
	"dAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJB" & _
	"PhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzA" & _
	"hhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARB" & _
	"vgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURA" & _
	"Ghvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh" & _
	"/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3s" & _
	"UhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4A" & _
	"fgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8x" & _
	"MhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA" & _
	"2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXB" & _
	"WhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBag" & _
	"xAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9B" & _
	"tnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqB" & _
	"UgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDA" & _
	"jAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBih" & _
	"Fh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdA" & _
	"uAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeA" & _
	"FBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg" & _
	"3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhch" & _
	"ug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCB" & _
	"QAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxh" & _
	"Tg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5" & _
	"WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJA" & _
	"kgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEg" & _
	"qgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyh" & _
	"VgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADB" & _
	"Wh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMA" & _
	"GAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFO" & _
	"rC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZT" & _
	"WP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwd" & _
	"i4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8" & _
	"PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnL" & _
	"Cs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIy" & _
	"DQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhO" & _
	"ApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj" & _
	"5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)"))
			.set_CellCaption(h,1,.get_CellCaption(h,0))
			.set_CellCaptionFormat(h,1,exontrol.EXPLORERTREELib.CaptionFormatEnum.exHTML)
			.set_CellHAlignment(h,1,exontrol.EXPLORERTREELib.AlignmentEnum.RightAlignment)
			.set_CellImage(h,1,.get_CellImage(h,0))
			.set_CellImages(h,1,"2,1")
			.set_CellPicture(h,1,.get_CellPicture(h,0))
		End With
	End With
	.EndUpdate()
End With
27
ImageSize property on 32 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)

' AddGroup event - Occurs when a new group is added to collection.
Private Sub Explorertree1_AddGroup(ByVal sender As System.Object, ByVal Group As exontrol.EXPLORERTREELib.Group) Handles Explorertree1.AddGroup
	With Explorertree1
		With Group
		End With
	End With
End Sub

Dim h,h1
With Explorertree1
	.BeginUpdate()
	.ShowShortcutBar = True
	.ImageSize = 32
	.GroupHeight = 32
	.Font.Size = 16
	.Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq" & _
	"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" & _
	"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" & _
	"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" & _
	"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" & _
	"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" & _
	"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" & _
	"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" & _
	"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" & _
	"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" & _
	"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" & _
	"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" & _
	"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" & _
	"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" & _
	"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" & _
	"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" & _
	"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
	"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
	"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" & _
	"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" & _
	"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" & _
	"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" & _
	"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" & _
	"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" & _
	"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" & _
	"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==")
		.Add(2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
	"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
	"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
	"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" & _
	"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" & _
	"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" & _
	"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" & _
	"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" & _
	"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" & _
	"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" & _
	"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" & _
	"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" & _
	"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" & _
	"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" & _
	"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" & _
	"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" & _
	"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" & _
	"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" & _
	"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" & _
	"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" & _
	"gRBCCQAgQEA==")
		.Add(3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
	"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
	"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
	"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" & _
	"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" & _
	"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" & _
	"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" & _
	"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" & _
	"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" & _
	"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" & _
	"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" & _
	"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" & _
	"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" & _
	"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" & _
	"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" & _
	"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" & _
	"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" & _
	"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" & _
	"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=")
		.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
	"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
	"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
	"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
	"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
	"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
	"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
	"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
	"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
	End With
	.set_Background32(exontrol.EXPLORERTREELib.BackgroundPartEnum.exSelBackColorFilter,&H4000000)
	.set_Background(exontrol.EXPLORERTREELib.BackgroundPartEnum.exSelForeColorFilter,Color.FromArgb(0,0,0))
	.set_Background(exontrol.EXPLORERTREELib.BackgroundPartEnum.exBackColorFilter,.BackColor)
	.set_Background(exontrol.EXPLORERTREELib.BackgroundPartEnum.exForeColorFilter,.ForeColor)
	.set_Background32(exontrol.EXPLORERTREELib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.set_Background32(exontrol.EXPLORERTREELib.BackgroundPartEnum.exHeaderFilterBarButton,&H4000000)
	.set_Background32(exontrol.EXPLORERTREELib.BackgroundPartEnum.exHeaderFilterBarActive,&H4010101)
	.set_Background32(exontrol.EXPLORERTREELib.BackgroundPartEnum.exFooterFilterBarButton,&H40000ff)
	With .Groups.Add("Classament <b>A</b>")
		.Columns.Clear()
		.Shortcut = "<img>1</img>"
		.HasLines = exontrol.EXPLORERTREELib.HierarchyLineEnum.exNoLine
		With .Columns
			.Add("Group")
			With .Add("P1")
				.Width = 32
				.AllowSizing = False
			End With
			With .Add("P2")
				.Width = 32
				.AllowSizing = False
			End With
			With .Add("P3")
				.Width = 32
				.AllowSizing = False
			End With
			With .Add("P4")
				.Width = 32
				.AllowSizing = False
			End With
		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.DividerCenter)
			.set_ItemHeight(h,24)
			.set_SortableItem(h,False)
			h1 = .InsertItem(h,Nothing,"Team 1")
			.set_CellCaption(h1,1,11)
			.set_CellCaption(h1,2,2)
			.set_CellCaption(h1,3,3)
			.set_CellCaption(h1,4,12)
			h1 = .InsertItem(h,Nothing,"Team 2")
			.set_CellCaption(h1,1,2)
			.set_CellCaption(h1,2,3)
			.set_CellCaption(h1,3,4)
			.set_CellCaption(h1,4,2)
			.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.DividerCenter)
			.set_ItemHeight(h,24)
			.set_SortableItem(h,False)
			h1 = .InsertItem(h,Nothing,"Team 1")
			.set_CellCaption(h1,1,1)
			.set_CellCaption(h1,2,2)
			.set_CellCaption(h1,3,3)
			.set_CellCaption(h1,4,4)
			h1 = .InsertItem(h,Nothing,"Team 2")
			.set_CellCaption(h1,1,5)
			.set_CellCaption(h1,2,6)
			.set_CellCaption(h1,3,6)
			.set_CellCaption(h1,4,16)
			.set_ExpandItem(h,True)
		End With
		.Expanded = True
	End With
	.Groups.Add("Classament <b>D").Shortcut = "<img>3</img>"
	With .Groups.Add("Classament <b>B")
		.Shortcut = "<img>1</img>"
		.CaptionFormat = exontrol.EXPLORERTREELib.CaptionFormatEnum.exHTML
		.Columns.Clear()
	End With
	With .Groups.Add("Classament <b>C")
		.Shortcut = "<img>1</img>"
		.Columns.Clear()
		With .Columns.Add("Group")
			.set_Def(exontrol.EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.PartialCheck = True
		End With
		With .Columns.Add("P1")
			.set_Def(exontrol.EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.PartialCheck = True
			.Width = 32
			.AllowSizing = False
			.LevelKey = 1
		End With
		With .Columns.Add("P2")
			.set_Def(exontrol.EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.PartialCheck = True
			.Width = 32
			.AllowSizing = False
			.LevelKey = 1
		End With
		With .Columns.Add("P3")
			.set_Def(exontrol.EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.PartialCheck = True
			.Width = 32
			.AllowSizing = False
			.LevelKey = 2
		End With
		With .Columns.Add("P4")
			.set_Def(exontrol.EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.PartialCheck = True
			.Width = 32
			.AllowSizing = False
			.LevelKey = 2
		End With
		With .Items
			h = .AddItem("Group 1")
			.set_CellMerge(h,0,1)
			.set_CellMerge(h,0,2)
			.set_CellMerge(h,0,3)
			.set_CellMerge(h,0,4)
			.InsertItem(h,Nothing,"Team 1")
			.set_CellState(.InsertItem(h,Nothing,"Team 2"),0,1)
			.set_ExpandItem(h,True)
			h = .AddItem("Group 2")
			.set_CellMerge(h,0,1)
			.set_CellMerge(h,0,2)
			.set_CellMerge(h,0,3)
			.set_CellMerge(h,0,4)
			.InsertItem(h,Nothing,"Team 1")
			.InsertItem(h,Nothing,"Team 2")
			.set_ExpandItem(h,True)
		End With
		.AutoHeight = True
		.Expanded = True
	End With
	.EndUpdate()
End With
26
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)

' AddGroup event - Occurs when a new group is added to collection.
Private Sub Explorertree1_AddGroup(ByVal sender As System.Object, ByVal Group As exontrol.EXPLORERTREELib.Group) Handles Explorertree1.AddGroup
	With Explorertree1
		With Group
		End With
	End With
End Sub

Dim h,h1
With Explorertree1
	.BeginUpdate()
	.ShowShortcutBar = True
	.ImageSize = 16
	.Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq" & _
	"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" & _
	"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" & _
	"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" & _
	"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" & _
	"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" & _
	"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" & _
	"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" & _
	"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" & _
	"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" & _
	"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" & _
	"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" & _
	"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" & _
	"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" & _
	"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" & _
	"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" & _
	"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
	"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
	"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" & _
	"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" & _
	"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" & _
	"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" & _
	"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" & _
	"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" & _
	"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" & _
	"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==")
		.Add(2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
	"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
	"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
	"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" & _
	"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" & _
	"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" & _
	"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" & _
	"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" & _
	"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" & _
	"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" & _
	"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" & _
	"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" & _
	"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" & _
	"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" & _
	"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" & _
	"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" & _
	"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" & _
	"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" & _
	"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" & _
	"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" & _
	"gRBCCQAgQEA==")
		.Add(3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
	"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
	"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
	"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" & _
	"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" & _
	"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" & _
	"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" & _
	"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" & _
	"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" & _
	"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" & _
	"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" & _
	"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" & _
	"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" & _
	"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" & _
	"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" & _
	"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" & _
	"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" & _
	"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" & _
	"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=")
		.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
	"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
	"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
	"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
	"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
	"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
	"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
	"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
	"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
	End With
	.set_Background32(exontrol.EXPLORERTREELib.BackgroundPartEnum.exSelBackColorFilter,&H4000000)
	.set_Background(exontrol.EXPLORERTREELib.BackgroundPartEnum.exSelForeColorFilter,Color.FromArgb(0,0,0))
	.set_Background(exontrol.EXPLORERTREELib.BackgroundPartEnum.exBackColorFilter,.BackColor)
	.set_Background(exontrol.EXPLORERTREELib.BackgroundPartEnum.exForeColorFilter,.ForeColor)
	.set_Background32(exontrol.EXPLORERTREELib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.set_Background32(exontrol.EXPLORERTREELib.BackgroundPartEnum.exHeaderFilterBarButton,&H4000000)
	.set_Background32(exontrol.EXPLORERTREELib.BackgroundPartEnum.exHeaderFilterBarActive,&H4010101)
	.set_Background32(exontrol.EXPLORERTREELib.BackgroundPartEnum.exFooterFilterBarButton,&H40000ff)
	With .Groups.Add("Classament <b>A</b>")
		.Columns.Clear()
		.Shortcut = "<img>1</img>"
		.HasLines = exontrol.EXPLORERTREELib.HierarchyLineEnum.exNoLine
		With .Columns
			.Add("Group")
			With .Add("P1")
				.Width = 32
				.AllowSizing = False
			End With
			With .Add("P2")
				.Width = 32
				.AllowSizing = False
			End With
			With .Add("P3")
				.Width = 32
				.AllowSizing = False
			End With
			With .Add("P4")
				.Width = 32
				.AllowSizing = False
			End With
		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.DividerCenter)
			.set_ItemHeight(h,24)
			.set_SortableItem(h,False)
			h1 = .InsertItem(h,Nothing,"Team 1")
			.set_CellCaption(h1,1,11)
			.set_CellCaption(h1,2,2)
			.set_CellCaption(h1,3,3)
			.set_CellCaption(h1,4,12)
			h1 = .InsertItem(h,Nothing,"Team 2")
			.set_CellCaption(h1,1,2)
			.set_CellCaption(h1,2,3)
			.set_CellCaption(h1,3,4)
			.set_CellCaption(h1,4,2)
			.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.DividerCenter)
			.set_ItemHeight(h,24)
			.set_SortableItem(h,False)
			h1 = .InsertItem(h,Nothing,"Team 1")
			.set_CellCaption(h1,1,1)
			.set_CellCaption(h1,2,2)
			.set_CellCaption(h1,3,3)
			.set_CellCaption(h1,4,4)
			h1 = .InsertItem(h,Nothing,"Team 2")
			.set_CellCaption(h1,1,5)
			.set_CellCaption(h1,2,6)
			.set_CellCaption(h1,3,6)
			.set_CellCaption(h1,4,16)
			.set_ExpandItem(h,True)
		End With
		.Expanded = True
	End With
	.Groups.Add("Classament <b>D").Shortcut = "<img>3</img>"
	With .Groups.Add("Classament <b>B")
		.Shortcut = "<img>1</img>"
		.CaptionFormat = exontrol.EXPLORERTREELib.CaptionFormatEnum.exHTML
		.Columns.Clear()
	End With
	With .Groups.Add("Classament <b>C")
		.Shortcut = "<img>1</img>"
		.Columns.Clear()
		With .Columns.Add("Group")
			.set_Def(exontrol.EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.PartialCheck = True
		End With
		With .Columns.Add("P1")
			.set_Def(exontrol.EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.PartialCheck = True
			.Width = 32
			.AllowSizing = False
			.LevelKey = 1
		End With
		With .Columns.Add("P2")
			.set_Def(exontrol.EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.PartialCheck = True
			.Width = 32
			.AllowSizing = False
			.LevelKey = 1
		End With
		With .Columns.Add("P3")
			.set_Def(exontrol.EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.PartialCheck = True
			.Width = 32
			.AllowSizing = False
			.LevelKey = 2
		End With
		With .Columns.Add("P4")
			.set_Def(exontrol.EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.PartialCheck = True
			.Width = 32
			.AllowSizing = False
			.LevelKey = 2
		End With
		With .Items
			h = .AddItem("Group 1")
			.set_CellMerge(h,0,1)
			.set_CellMerge(h,0,2)
			.set_CellMerge(h,0,3)
			.set_CellMerge(h,0,4)
			.InsertItem(h,Nothing,"Team 1")
			.set_CellState(.InsertItem(h,Nothing,"Team 2"),0,1)
			.set_ExpandItem(h,True)
			h = .AddItem("Group 2")
			.set_CellMerge(h,0,1)
			.set_CellMerge(h,0,2)
			.set_CellMerge(h,0,3)
			.set_CellMerge(h,0,4)
			.InsertItem(h,Nothing,"Team 1")
			.InsertItem(h,Nothing,"Team 2")
			.set_ExpandItem(h,True)
		End With
		.AutoHeight = True
		.Expanded = True
	End With
	.EndUpdate()
End With
25
Highlight the item from the cursor

Dim h,hotback,selback
With Explorertree1
	hotback = 16748574
	selback = 16736256
	.BeginUpdate()
	With .Groups.Add("Group 1")
		.LinesAtRoot = exontrol.EXPLORERTREELib.LinesAtRootEnum.exLinesAtRoot
		.HasLines = exontrol.EXPLORERTREELib.HierarchyLineEnum.exNoLine
		.ShowFocusRect = False
		With .Items
			.AddItem("Item A")
			h = .AddItem("Item B")
			.InsertItem(h,Nothing,"Child 1")
			.InsertItem(h,Nothing,"Child 2")
			.AddItem("Item C")
		End With
		.SelBackColor = selback
		.HotBackColor = hotback
		.HotForeColor = .SelForeColor
		.Expanded = True
		.AutoHeight = True
	End With
	With .Groups.Add("Group 2")
		.Items.AddItem("Item A")
		.Items.AddItem("Item B")
		.Items.AddItem("Item C")
		.ShowFocusRect = False
		.SelBackColor = selback
		.HotBackColor = hotback
		.HotForeColor = .SelForeColor
		.Expanded = True
		.AutoHeight = True
	End With
	.EndUpdate()
End With
24
Classament

Dim h,h1
With Explorertree1
	.Images("gBJJgBAIEAAGAEGCAAhb/hz/EIAh8Tf5CJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1BAmBhOCwMGwuDw2ExWJxmIx2HyGLv+TlykUCgABmGYzzObzuczWcKujzOa0ug02h" & _
	"z+r1Wtz2qoCA2QAYG1yk02YA3NMy2Yh8Sh202zx4gA4jxADM5XG4vHACy6ESdjM6XUZiZTMS5bwZSm1c83+yQHCYHk81Q8O7qW18u/9NG3vAf/y83u4PQWQA0ZVADq/z" & _
	"6um6rkuw7TqH+5bYJu+z5vE8z2N02cGweoDfwfCrbQfBqkNzBb6QfDLxp6+LlOs5cSOTEzlm7FYACFFwADvGIAGvGjzOu7MbwHHECQSmUOvS8cGwk20gQc2ycQs4MLvL" & _
	"D8MNtDSfyS+cmyZJzywa96axzDsTw6/x1AAL8xRbF8Vm65jkH/AL8QFNTqR6lsfuDIb2uDKTzTo88FTtIk+PK3SNRDKiew5JVDSnK08NnOUGRClkt0PFEDUjMwAENS4A" & _
	"M2zj4udNznujT1PTgjdGQg8c71RPtESvCL1JrO8lozQUj1nP6d1TKtc0U8dS1jCaNRzGhrxnGthWJYdjUrYwc2ZMMx2NB8czZNk4VLPMstzXD6Q6mltVjPNAT0m1CvnD" & _
	"tBxBXlI3PRKNzZDtjQ6cd5TQ/TSU0/r/udC0A1Ez1SUja8/QhWVavrSLfpxWNzXZR2CygmVtXXVl03Lg+BV+lV3UjeDgzEL4AXkcb6Pje5LZNDzhuLfrOX/RtT0TQbc5" & _
	"lENSvBi2K5xlFdUHhN1ZhJ9F59WybOU7NjWTFkvxhGT9zIIQAWYHIABFqmnABSsT0HUaNYlI1dZmjNuUDRybzvIVWyDoOc54n8Oyxm9Ta9cSUaLbbg44+b4xiO9nY/pt" & _
	"73u38Tuc52tpdruYxDVyUbBV+gYpu2c7PyGMKTt21cjnW6OvzO8PppUvP/Ljlt/wt/Vvn+v8V1eCdbgaa7fnMi8vyD0TnzGEJXyp/wJ3js98iXe+F3/hwGM3jeQZjTeU" & _
	"znmOT5bTKJyqYcbm2c5bzXpqvsWw4FUkCO473wgB8cD9/znzO14n1+D4/efcTP4fl5+WKvxbbptmqV+B/ni/68R4514AvxeTAR50B3oPNei/iBhFgfErgeR4kBIiSAAJ" & _
	"KSiC7PT5wMKIQ4fwfyHDzg2PwD4/B/jgg2PgA48AfjgB+RkeAARwAPGAA8jI4AADgAOMAAZGTyw6YbDkA7ZDaAHgxDyCxGgBw8EBBmJcS4LjAATDweBGoqjgAGP4jQ/A" & _
	"cjwAHBsiQex8gPH+MF7pDxxkB")
	.VisualAppearance.Add(1,"E:\Exontrol\ExG2antt\sample\EBN\vistasel.ebn")
	.BeginUpdate()
	.ShowShortcutBar = True
	With .Groups.Add("Classament <b>A</b>")
		.IndentGroupLeft = 18
		.IndentGroupRight = 18
		.SelBackMode = exontrol.EXPLORERTREELib.BackModeEnum.exTransparent
		.ShowFocusRect = False
		.SelBackColor32 = &H1000000
		.SelForeColor = Color.FromArgb(0,0,0)
		.CaptionFormat = exontrol.EXPLORERTREELib.CaptionFormatEnum.exHTML
		.Shortcut = "<img>1</img>"
		.AutoHeight = True
		.HeaderVisible = True
		.Columns.Clear()
		.HasLines = exontrol.EXPLORERTREELib.HierarchyLineEnum.exNoLine
		.ScrollBySingleLine = True
		.MarkSearchColumn = False
		With .Columns
			.Add("Group")
			With .Add("P1")
				.Width = 32
				.AllowSizing = False
			End With
			With .Add("P2")
				.Width = 32
				.AllowSizing = False
			End With
			With .Add("P3")
				.Width = 32
				.AllowSizing = False
			End With
			With .Add("P4")
				.Width = 32
				.AllowSizing = False
			End With
		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.DividerCenter)
			.set_ItemHeight(h,24)
			.set_SortableItem(h,False)
			h1 = .InsertItem(h,Nothing,"Team 1")
			.set_CellCaption(h1,1,11)
			.set_CellCaption(h1,2,2)
			.set_CellCaption(h1,3,3)
			.set_CellCaption(h1,4,12)
			h1 = .InsertItem(h,Nothing,"Team 2")
			.set_CellCaption(h1,1,2)
			.set_CellCaption(h1,2,3)
			.set_CellCaption(h1,3,4)
			.set_CellCaption(h1,4,2)
			.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.DividerCenter)
			.set_ItemHeight(h,24)
			.set_SortableItem(h,False)
			h1 = .InsertItem(h,Nothing,"Team 1")
			.set_CellCaption(h1,1,1)
			.set_CellCaption(h1,2,2)
			.set_CellCaption(h1,3,3)
			.set_CellCaption(h1,4,4)
			h1 = .InsertItem(h,Nothing,"Team 2")
			.set_CellCaption(h1,1,5)
			.set_CellCaption(h1,2,6)
			.set_CellCaption(h1,3,6)
			.set_CellCaption(h1,4,16)
			.set_ExpandItem(h,True)
		End With
		.Expanded = True
	End With
	.Groups.Add("Classament 4").Shortcut = "<img>4</img>"
	With .Groups.Add("Classament <b>B")
		.Shortcut = "<img>1</img>"
		.CaptionFormat = exontrol.EXPLORERTREELib.CaptionFormatEnum.exHTML
	End With
	With .Groups.Add("Classament <b>C")
		.IndentGroupLeft = 18
		.IndentGroupRight = 18
		.SelBackMode = exontrol.EXPLORERTREELib.BackModeEnum.exTransparent
		.ShowFocusRect = False
		.SelBackColor32 = &H1000000
		.SelForeColor = Color.FromArgb(0,0,0)
		.CaptionFormat = exontrol.EXPLORERTREELib.CaptionFormatEnum.exHTML
		.Shortcut = "<img>1</img>"
		.HeaderVisible = True
		.MarkSearchColumn = False
		.Columns.Clear()
		.LinesAtRoot = exontrol.EXPLORERTREELib.LinesAtRootEnum.exLinesAtRoot
		With .Columns.Add("Group")
			.set_Def(exontrol.EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.PartialCheck = True
		End With
		With .Columns.Add("P1")
			.set_Def(exontrol.EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.PartialCheck = True
			.Width = 32
			.AllowSizing = False
			.LevelKey = 1
		End With
		With .Columns.Add("P2")
			.set_Def(exontrol.EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.PartialCheck = True
			.Width = 32
			.AllowSizing = False
			.LevelKey = 1
		End With
		With .Columns.Add("P3")
			.set_Def(exontrol.EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.PartialCheck = True
			.Width = 32
			.AllowSizing = False
			.LevelKey = 2
		End With
		With .Columns.Add("P4")
			.set_Def(exontrol.EXPLORERTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.PartialCheck = True
			.Width = 32
			.AllowSizing = False
			.LevelKey = 2
		End With
		With .Items
			h = .AddItem("Group 1")
			.set_CellMerge(h,0,1)
			.set_CellMerge(h,0,2)
			.set_CellMerge(h,0,3)
			.set_CellMerge(h,0,4)
			.InsertItem(h,Nothing,"Team 1")
			.InsertItem(h,Nothing,"Team 2")
			.set_ExpandItem(h,True)
			h = .AddItem("Group 2")
			.set_CellMerge(h,0,1)
			.set_CellMerge(h,0,2)
			.set_CellMerge(h,0,3)
			.set_CellMerge(h,0,4)
			.InsertItem(h,Nothing,"Team 1")
			.InsertItem(h,Nothing,"Team 2")
			.set_ExpandItem(h,True)
		End With
		.AutoHeight = True
		.Expanded = True
	End With
	.EndUpdate()
End With
23
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop
With Explorertree1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV" & _
	"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" & _
	"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" & _
	"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDI" & _
	"BICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAok" & _
	"GKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=")
		.Add(2,"CP:1 0 -36 0 0")
	End With
	.set_Background32(exontrol.EXPLORERTREELib.BackgroundPartEnum.exColumnsPositionSign,&H2000000)
	With .Groups.Add("New")
		.HeaderVisible = True
		.HeaderHeight = 22
		With .Columns
			.Clear()
			.Add("Column 1")
			.Add("Column 2")
			.Add("Column 3")
		End With
		.Expanded = True
	End With
	.EndUpdate()
End With
22
How do I get sorted the column as string, numeric, date, date and time. Also how can it be applied to drop down filter panel

Dim h
With Explorertree1
	.BeginUpdate()
	With .Groups.Add("Group")
		.HeaderVisible = True
		.Columns.Clear()
		With .Columns.Add("Date")
			.SortType = exontrol.EXPLORERTREELib.SortTypeEnum.SortDate
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.DisplayFilterDate = True
			.FilterList = exontrol.EXPLORERTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXPLORERTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXPLORERTREELib.FilterListEnum.exSortItemsDesc
		End With
		With .Columns.Add("DateTime")
			.SortType = exontrol.EXPLORERTREELib.SortTypeEnum.SortDateTime
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterList = exontrol.EXPLORERTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXPLORERTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXPLORERTREELib.FilterListEnum.exSortItemsDesc
		End With
		With .Columns.Add("Time")
			.SortType = exontrol.EXPLORERTREELib.SortTypeEnum.SortTime
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterList = exontrol.EXPLORERTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXPLORERTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXPLORERTREELib.FilterListEnum.exSortItemsDesc
			.FormatColumn = "time(value)"
		End With
		With .Columns.Add("Numeric")
			.SortType = exontrol.EXPLORERTREELib.SortTypeEnum.SortNumeric
			.DisplayFilterButton = True
			.FilterList = exontrol.EXPLORERTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXPLORERTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXPLORERTREELib.FilterListEnum.exSortItemsDesc
		End With
		With .Columns.Add("String")
			.DisplayFilterButton = True
			.FilterList = exontrol.EXPLORERTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXPLORERTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXPLORERTREELib.FilterListEnum.exSortItemsDesc
		End With
		With .Items
			h = .AddItem(#1/27/2010#)
			.set_CellCaption(h,1,#1/27/2010 10:00:00 AM#)
			.set_CellCaption(h,2,.get_CellCaption(h,1))
			.set_CellCaption(h,3,1)
			.set_CellCaption(h,4,.get_CellCaption(h,3))
			h = .AddItem(#1/27/2011#)
			.set_CellCaption(h,1,#1/27/2011 9:00:00 AM#)
			.set_CellCaption(h,2,.get_CellCaption(h,1))
			.set_CellCaption(h,3,11)
			.set_CellCaption(h,4,.get_CellCaption(h,3))
			h = .AddItem(#11/2/2010#)
			.set_CellCaption(h,1,#11/2/2010 9:00:00 AM#)
			.set_CellCaption(h,2,.get_CellCaption(h,1))
			.set_CellCaption(h,3,2)
			.set_CellCaption(h,4,.get_CellCaption(h,3))
		End With
		.Columns.Item("DateTime").DisplayFilterDate = False
		.Expanded = True
	End With
	.EndUpdate()
End With
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,Nothing,"Child 1")
			.set_CellCaption(h1,1,1)
			.set_CellCaption(h1,2,2)
			.set_CellCaption(h1,3,3)
			h1 = .InsertItem(h,Nothing,"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,Nothing,"Child 1")
			.set_CellCaption(h1,1,1)
			.set_CellCaption(h1,2,2)
			.set_CellCaption(h1,3,3)
			h1 = .InsertItem(h,Nothing,"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,exontrol.EXPLORERTREELib.CellSingleLineEnum.exCaptionWordWrap)
			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,Nothing,"Child 1")
			.InsertItem(h,Nothing,"Child 2")
			h = .AddItem("Root 2")
			.InsertItem(h,Nothing,"Child 1")
			.InsertItem(h,Nothing,"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,Nothing,"Child 1")
			.set_CellCaption(h1,1,7)
			.set_CellCaption(h1,2,3)
			.set_CellCaption(h1,3,1)
			h1 = .InsertItem(h,Nothing,"Child 2")
			.set_CellCaption(h1,1,-2)
			.set_CellCaption(h1,2,-2)
			.set_CellCaption(h1,3,-4)
			h1 = .InsertItem(h,Nothing,"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