752
Locks the first visible column on the left and the last visible column on the right

Dim rs
With Extree1
	.BeginUpdate()
	.ColumnAutoResize = False
	.BackColorLock = Color.FromArgb(192,192,192)
	.GridLineStyle = exontrol.EXTREELib.GridLinesStyleEnum.exGridLinesSolid
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exVLines
	.HeaderAppearance = exontrol.EXTREELib.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
	.EndUpdate()
End With
751
Lock the column on the right

Dim rs
With Extree1
	.BeginUpdate()
	.ColumnAutoResize = False
	.BackColorLock = Color.FromArgb(192,192,192)
	.GridLineStyle = exontrol.EXTREELib.GridLinesStyleEnum.exGridLinesSolid
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exVLines
	.HeaderAppearance = exontrol.EXTREELib.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
	.EndUpdate()
End With
750
Lock the column on the left

Dim rs
With Extree1
	.BeginUpdate()
	.ColumnAutoResize = False
	.BackColorLock = Color.FromArgb(192,192,192)
	.GridLineStyle = exontrol.EXTREELib.GridLinesStyleEnum.exGridLinesSolid
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exVLines
	.HeaderAppearance = exontrol.EXTREELib.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
	.EndUpdate()
End With
749
Bolds only the expanded items

Dim h
With Extree1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.ConditionalFormats.Add("%CX0").Bold = True
	.Columns.Add("Description")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(.InsertItem(h,Nothing,"Child 2"),Nothing,"Sub-Child 2")
		.set_CellState(.InsertItem(h,Nothing,"Child 3"),0,1)
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
	End With
	.EndUpdate()
End With
748
Displays the root item's index and value/caption using expressions

Dim h
With Extree1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.AutoDrag = exontrol.EXTREELib.AutoDragEnum.exAutoDragPositionAny
	.SingleSel = False
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exRowLines
	.GridLineStyle = exontrol.EXTREELib.GridLinesStyleEnum.exGridLinesSolid
	.GridLineColor = Color.FromArgb(208,208,208)
	.ConditionalFormats.Add("%CC0 and %CX0").Bold = True
	With .ConditionalFormats.Add("1")
		.Bold = True
		.ApplyTo = &H2
	End With
	With .Columns.Add("Description")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .Columns.Add("Index")
		.FormatColumn = "1 index ``"
		.Position = 0
		.Width = 16
	End With
	With .Columns.Add("Root-Index")
		.FormatColumn = "root(1 index ``)"
		.Position = 1
		.Width = 32
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellBackColor,15790320)
	End With
	With .Columns.Add("Root-Value")
		.FormatColumn = "root(%0)"
		.Position = 2
		.Width = 32
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellBackColor,15790320)
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(.InsertItem(h,Nothing,"Child 2"),Nothing,"Sub-Child 2")
		.set_CellState(.InsertItem(h,Nothing,"Child 3"),0,1)
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With
747
Displays the parent item's index and caption/value using expressions

Dim h
With Extree1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.AutoDrag = exontrol.EXTREELib.AutoDragEnum.exAutoDragPositionAny
	.SingleSel = False
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exRowLines
	.GridLineStyle = exontrol.EXTREELib.GridLinesStyleEnum.exGridLinesSolid
	.GridLineColor = Color.FromArgb(208,208,208)
	.ConditionalFormats.Add("%CC0 and %CX0").Bold = True
	With .ConditionalFormats.Add("1")
		.Bold = True
		.ApplyTo = &H2
	End With
	With .Columns.Add("Description")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .Columns.Add("Index")
		.FormatColumn = "1 index `I`"
		.Position = 0
		.Width = 16
	End With
	With .Columns.Add("Parent-Index")
		.FormatColumn = "parent(1 index `I`)"
		.Position = 1
		.Width = 32
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellBackColor,15790320)
	End With
	With .Columns.Add("Parent-Value")
		.FormatColumn = "parent(%0)"
		.Position = 2
		.Width = 32
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellBackColor,15790320)
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(.InsertItem(h,Nothing,"Child 2"),Nothing,"Sub-Child 2")
		.set_CellState(.InsertItem(h,Nothing,"Child 3"),0,1)
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With
746
Specify the size of the Columns panel

With Extree1
	.BeginUpdate()
	.HeaderHeight = 24
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	With .Columns
		.Add("City")
		.Add("Start").Visible = False
		.Add("End").Visible = False
	End With
	.ColumnsFloatBarRect = ",,96"
	.ColumnsFloatBarVisible = &H20 Or exontrol.EXTREELib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeCheckColumns
	.EndUpdate()
End With
745
Show a vertical line between pivot and Columns panel (EBN color)

With Extree1
	.BeginUpdate()
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABRsIQAAYAQGKIYBkAKBQAGaAoDDUNQxQwAAxwfBMKgBBCLIxhEYobgmGIXRpFICQTIcBhaGIZRiAKCRTDmHwyRCNIwCLD8QxtDqBY4gOZZX" & _
	"hal4cJTgMaBYi+Pw3DZHcbvBRkewzHQAKgnSjoDhEMg1CTVVYTDKdOSzDyEX7sIAACpOIZQVJVEY1VT8cyxIyEZimSypWqiYJ0Ty6cQwTAIgI")
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exColumnsFloatBackColor,&H1000000)
	.HeaderHeight = 24
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	With .Columns
		.Add("City")
		.Add("Start").Visible = False
		.Add("End").Visible = False
	End With
	.ColumnsFloatBarVisible = &H20 Or exontrol.EXTREELib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeCheckColumns
	.EndUpdate()
End With
744
Change the background of the Columns panel (EBN color)

With Extree1
	.BeginUpdate()
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABNoCg6AADACAxRDAMgBQKAAzQFAYahqGKGAAGOD4JhUAIIRZGMIjFDcEwxC6NIpAWLoJDCH4mSTHYxgJIMWwzDiBZgkCA4fiGEYnThCIxzT" & _
	"J0aw1CKbYRAKCUKoUAJFsSnQAJIgOO4lULPMIhDDQKQTIKBahoehqIhaEQyDSJNb2DCIahhMSEbKtCooDhGFZUWzLVxTJJNawHJqJJDuOTpSjKH4+RjWFKUXR9b4BJSN" & _
	"AgqeCQTiSWZEVxRUS0XbGCyZLSQY7uAAMKgOVoDYzdGLwHTtOwrMa1QAsDSbKqWZ5uRpHcQ5aAGN5DPbMbqwOaqLznAaLQLtG4RTikVRPTDYaj437+OaHGyNbI6HTNPp" & _
	"TlWDJWjYXI8l8C4fg6GYAAEEISgGJJGHQOocgyIwYnqKhYAAIQTH2MYRjQJBRAmZptmEAYIjGU5dk8UgOFgBJUgCTQIBYBoBmCCAmAqApghgDJUDmYQFCCZoEk2OBUm+" & _
	"BZPCgZgagaYZIHYHoHmGWBcm8NwiEiFJVgmYgji4Kg6GKSI2C6C5jAiRgygwIojiycINkyeJmAYPJjkiTg+g+ZAIkCdIQkyWQWDuDxkBkJhKguZAzlIRQzGQc5ODWFJl" & _
	"EkVhWhWZYJFYTYTmUE4yF6F5mAmBhihiZhJhYX4WmQaAUnWGpOlmNhuhuZwJkYcocmcSY4naHZlkmKhrDuJ5JnYfofmgCgGgKIJnlmXJ2h4TQKBosRokoNoOiOaQKDSd" & _
	"4kmiChMncPBpgoZoaiaaZKHaHonmmE5iiKJRpDicomimaoKiaKoqmqSoeiIPgogqPotiyaxKlYPA+GuCqbBMa5KnaPovmwCwGj6LgP24RIhiyCwmkqMpsksNpKD6LQLB" & _
	"qOIzi0SxWlaHZtAOahPssM5Wi+IYtlsXpijKbZ5lyTo5mAE4UlqOpjHOQpEjubyanKPJvEuNgVj2TY1CCao+k2G52AyP5wAwBp9DYZZ1CCaxsAABAEICA")
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exColumnsFloatBackColor,&H1000000)
	.HeaderHeight = 24
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	With .Columns
		.Add("City")
		.Add("Start").Visible = False
		.Add("End").Visible = False
	End With
	.ColumnsFloatBarVisible = &H20 Or exontrol.EXTREELib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeCheckColumns
	.EndUpdate()
End With
743
Change the background of the Columns panel (solid color)

With Extree1
	.BeginUpdate()
	.HeaderHeight = 24
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	With .Columns
		.Add("City")
		.Add("Start").Visible = False
		.Add("End").Visible = False
	End With
	.ColumnsFloatBarVisible = &H20 Or exontrol.EXTREELib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeCheckColumns
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exColumnsFloatBackColor,Color.FromArgb(240,240,240))
	.EndUpdate()
End With
742
Change the visual appearance of the Columns panel

With Extree1
	.BeginUpdate()
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABNoCg6AADACAxRDAMgBQKAAzQFAYahqGKGAAGOD4JhUAIIRZGMIjFDcEwxC6NIpAWLoJDCH4mSTHYxgJIMWwzDiBZgkCA4fiGEYnThCIxzT" & _
	"J0aw1CKbYRAKCUKoUAJFsSnQAJIgOO4lULPMIhDDQKQTIKBahoehqIhaEQyDSJNb2DCIahhMSEbKtCooDhGFZUWzLVxTJJNawHJqJJDuOTpSjKH4+RjWFKUXR9b4BJSN" & _
	"AgqeCQTiSWZEVxRUS0XbGCyZLSQY7uAAMKgOVoDYzdGLwHTtOwrMa1QAsDSbKqWZ5uRpHcQ5aAGN5DPbMbqwOaqLznAaLQLtG4RTikVRPTDYaj437+OaHGyNbI6HTNPp" & _
	"TlWDJWjYXI8l8C4fg6GYAAEEISgGJJGHQOocgyIwYnqKhYAAIQTH2MYRjQJBRAmZptmEAYIjGU5dk8UgOFgBJUgCTQIBYBoBmCCAmAqApghgDJUDmYQFCCZoEk2OBUm+" & _
	"BZPCgZgagaYZIHYHoHmGWBcm8NwiEiFJVgmYgji4Kg6GKSI2C6C5jAiRgygwIojiycINkyeJmAYPJjkiTg+g+ZAIkCdIQkyWQWDuDxkBkJhKguZAzlIRQzGQc5ODWFJl" & _
	"EkVhWhWZYJFYTYTmUE4yF6F5mAmBhihiZhJhYX4WmQaAUnWGpOlmNhuhuZwJkYcocmcSY4naHZlkmKhrDuJ5JnYfofmgCgGgKIJnlmXJ2h4TQKBosRokoNoOiOaQKDSd" & _
	"4kmiChMncPBpgoZoaiaaZKHaHonmmE5iiKJRpDicomimaoKiaKoqmqSoeiIPgogqPotiyaxKlYPA+GuCqbBMa5KnaPovmwCwGj6LgP24RIhiyCwmkqMpsksNpKD6LQLB" & _
	"qOIzi0SxWlaHZtAOahPssM5Wi+IYtlsXpijKbZ5lyTo5mAE4UlqOpjHOQpEjubyanKPJvEuNgVj2TY1CCao+k2G52AyP5wAwBp9DYZZ1CCaxsAABAEICA")
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exColumnsFloatAppearance,&H1000000)
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exColumnsFloatCaptionBackColor,Color.FromArgb(246,246,246))
	.BackColorHeader32 = &H1000000
	.HeaderHeight = 24
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	With .Columns
		.Add("City")
		.Add("Start").Visible = False
		.Add("End").Visible = False
	End With
	.set_Description(exontrol.EXTREELib.DescriptionTypeEnum.exColumnsFloatBar,"Show/Hide")
	.ColumnsFloatBarVisible = exontrol.EXTREELib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeCheckColumns
	.EndUpdate()
End With
741
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (ditto mark)

With Extree1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exRowLines
	.Columns.Add("Country").ShowIdem = "<fgcolor gray>〃"
	With .Items
		.AddItem("Spain")
		.AddItem("Spain")
		.AddItem("Spain")
		.AddItem("Spain")
		.AddItem("Germany")
		.AddItem("Germany")
		.AddItem("Germany")
		.AddItem("Germany")
	End With
	.EndUpdate()
End With
740
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (space)

With Extree1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exRowLines
	.Columns.Add("Country").ShowIdem = " "
	With .Items
		.AddItem("Spain")
		.AddItem("Spain")
		.AddItem("Spain")
		.AddItem("Spain")
		.AddItem("Germany")
		.AddItem("Germany")
		.AddItem("Germany")
		.AddItem("Germany")
	End With
	.EndUpdate()
End With
739
Displays a glitch funnel for drop-down filter buttons (empty or active)

With Extree1
	.BeginUpdate()
	With .VisualAppearance
		.RenderType = &Hffffffffui
		.Add(1,"gBFLBCJwBAEHhEJAAEhABa8IQAAYAQGKIYBkAKBQAGaAoDDUNQxQwAAxwfBMKgBBCLIxhEYobgmGIXRpFMbxCKQahLEiTIhGUYJHgmK4tRiAUgxVDkBxrECZYqjcBZO" & _
	"iwLQ2TxDM7DNKUCBnIoABhGOaYDh+IQNQjUFKwTRFGRxK4EIRKAyTDLQdRyGSMMbjdQpBCbMiMRqhESKRq2UwYRYCFS1NalaztO6BUAvK67YrWez/YBfF+SfwGeqDYRe" & _
	"WAPfgWERnQrGMLxbD8KwZAKTRjkGJ4XhuB41TbQMqufL9ByXHKSSDpGjaXjeO5VVjYNAvS69UzXNq3bhtQAOXCMEwCgI=")
		.Add(2,"CP:1 -2 0 0 0")
	End With
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exAllLines
	.GridLineStyle = exontrol.EXTREELib.GridLinesStyleEnum.exGridLinesGeometric
	.ShowFocusRect = False
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exHeaderFilterBarButton,&H2000000)
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exHeaderFilterBarActive,&H2000001)
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	.BackColorHeader = Color.FromArgb(255,255,255)
	.HeaderHeight = 24
	.HeaderVisible = True
	With .Columns.Add("1st col")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.Filter = "Item B"
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
	End With
	.Columns.Add("2nd col")
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.ApplyFilter()
	.EndUpdate()
End With
738
How can I replace or add an icon at runtime

With Extree1
	.BeginUpdate()
	.ReplaceIcon("gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+O" & _
	"kYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==")
	.ReplaceIcon("C:\images\favicon.ico",0)
	.Columns.Add("Items").set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
	.Items.AddItem("Item <img>1</img>")
	.EndUpdate()
End With
737
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 Extree1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exFilterPatternTemplate,"*<%filter%>*")
		.FilterType = exontrol.EXTREELib.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
736
The fine dotted lines in the control appear much thicker than the standard ones we've been using. How can we fix this

With Extree1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exAllLines
	.GridLineStyle = exontrol.EXTREELib.GridLinesStyleEnum.exGridLinesGeometric
	.ColumnAutoResize = False
	.Columns.Add("Column 1")
	.Columns.Add("Column 2")
	.Columns.Add("Column 3")
	.Columns.Add("Column 4")
	.EndUpdate()
End With
735
Load data as a tree using a parent-id relationship

Dim rs
With Extree1
	.BeginUpdate()
	.ColumnAutoResize = False
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exVLines
	.LinesAtRoot = exontrol.EXTREELib.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\ExTree\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\ExTree\Sample\Access\sample.mdb",3,3)
	End With
	.PutItems(rs.GetRows(),";0;15")
	.Items.set_ExpandItem(0,True)
	.EndUpdate()
End With
734
Highlight the leaf items

Dim h,hR
With Extree1
	.BeginUpdate()
	.ConditionalFormats.Add("%CC0=0").ForeColor = Color.FromArgb(128,128,128)
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	With .Columns
		.Add("Item").Width = 16
		.Add("Desc")
	End With
	With .Items
		hR = .AddItem("Root")
		.set_CellCaption(hR,1,"The root directory /")
		.set_ExpandItem(hR,True)
		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")
	End With
	.EndUpdate()
End With
733
Highlight the parent items

Dim h,hR
With Extree1
	.BeginUpdate()
	.ConditionalFormats.Add("%CC0").ForeColor = Color.FromArgb(255,0,0)
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	With .Columns
		.Add("Item").Width = 16
		.Add("Desc")
	End With
	With .Items
		hR = .AddItem("Root")
		.set_CellCaption(hR,1,"The root directory /")
		.set_ExpandItem(hR,True)
		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")
	End With
	.EndUpdate()
End With
732
Highlight the item being expanded or collapsed

Dim h,hR
With Extree1
	.BeginUpdate()
	.ConditionalFormats.Add("%CX0").Bold = True
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	With .Columns
		.Add("Item").Width = 16
		.Add("Desc")
	End With
	With .Items
		hR = .AddItem("Root")
		.set_CellCaption(hR,1,"The root directory /")
		.set_ExpandItem(hR,True)
		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")
	End With
	.EndUpdate()
End With
731
Disable temporarily the column's sort, resize and drag and drop

With Extree1
	.BeginUpdate()
	.SortBarVisible = True
	.SortBarCaption = "<fgcolor 808080><c>the header and the sort-bar are disabled (no drag and drop is allowed)"
	.HeaderEnabled = False
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	.Columns.Add("Index").FormatColumn = "1 index ``"
	.Columns.Add("Pos").FormatColumn = "1 apos ``"
	.Columns.Add("Edit")
	.GridLineStyle = exontrol.EXTREELib.GridLinesStyleEnum.exGridLinesGeometric
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exVLines
	.GridLineColor = Color.FromArgb(224,224,224)
	.EndUpdate()
End With
730
Expandable-caption

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

Dim h
With Extree1
	.BeginUpdate()
	.ColumnAutoResize = True
	.TreeColumnIndex = -1
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exAllLines
	.GridLineStyle = exontrol.EXTREELib.GridLinesStyleEnum.exGridLinesGeometric
	.BackColorAlternate = Color.FromArgb(240,240,240)
	.ShowFocusRect = False
	.Columns.Add("Default")
	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.EXTREELib.CaptionFormatEnum.exHTML)
		.set_CellSingleLine(h,0,exontrol.EXTREELib.CellSingleLineEnum.exCaptionWordWrap)
		.AddItem("after item")
	End With
	.EndUpdate()
End With
729
Expandable-caption

Dim h
With Extree1
	.BeginUpdate()
	.ColumnAutoResize = True
	.TreeColumnIndex = -1
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exAllLines
	.GridLineStyle = exontrol.EXTREELib.GridLinesStyleEnum.exGridLinesGeometric
	.BackColorAlternate = Color.FromArgb(240,240,240)
	.ShowFocusRect = False
	.Columns.Add("Default")
	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.EXTREELib.CaptionFormatEnum.exHTML)
		.set_CellSingleLine(h,0,exontrol.EXTREELib.CellSingleLineEnum.exCaptionWordWrap)
		.AddItem("after item")
	End With
	.EndUpdate()
End With
728
Force scrollbars hover-all feature
With Extree1
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exScrollHoverAll,-1)
End With
727
Disable scrollbars hover-all feature (Windows 11 or greater)
With Extree1
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exScrollHoverAll,Color.FromArgb(1,0,0))
End With
726
Display a custom tooltip
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Extree1_MouseMoveEvent(ByVal sender As System.Object, ByVal Button As Short, ByVal Shift As Short, ByVal X As Integer, ByVal Y As Integer) Handles Extree1.MouseMoveEvent
	With Extree1
		.ShowToolTip("new content","",Nothing,"+8","+8")
	End With
End Sub


725
Shows the tooltip of the object moved relative to its default position

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Extree1_MouseMoveEvent(ByVal sender As System.Object, ByVal Button As Short, ByVal Shift As Short, ByVal X As Integer, ByVal Y As Integer) Handles Extree1.MouseMoveEvent
	With Extree1
		.ShowToolTip("<null>","<null>",Nothing,"+8","+8")
	End With
End Sub

With Extree1
	.ColumnAutoResize = False
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
724
Highlight the match once the filter is applied

' FilterChange event - Notifies your application that the filter is changed.
Private Sub Extree1_FilterChange(ByVal sender As System.Object) Handles Extree1.FilterChange
	Dim format
	With Extree1
		format = .FormatABC("`lower(value) replace lower('` + value + `') with '<bgcolor 000000><fgcolor FFFFFF>` + value  + `</fgcolor></bgcolor>'`",.FilterBarPromptPattern)
		.Columns.Item(0).FormatColumn = format
		.Columns.Item(1).FormatColumn = format
		.Columns.Item(2).FormatColumn = format
	End With
End Sub

Dim h0
With Extree1
	.BeginUpdate()
	.SelBackColor = .BackColor
	.SelForeColor = .ForeColor
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	.HeaderHeight = 23
	.BackColorLevelHeader = .BackColor
	.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
	.FilterBarPromptVisible = exontrol.EXTREELib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXTREELib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXTREELib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXTREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarBackColor = .BackColor
	.FilterBarPromptPattern = "and"
	With .Columns
		With .Add("Name")
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
			.FormatColumn = "lower(value)"
		End With
		With .Add("Title")
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
			.FormatColumn = "lower(value)"
		End With
		With .Add("City")
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
			.FormatColumn = "lower(value)"
		End With
	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
	.EndUpdate()
End With
723
ADOR, MDB (JET)

Dim rs
With Extree1
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\Access\sample.mdb",3,3)
	End With
	.DataSource = rs
End With
722
Re-order the cell's caption, icons and images/pictures

Dim h
With Extree1
	.BeginUpdate()
	.Images("gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmD" & _
	"cD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB")
	With .Columns.Add("ToLeft")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
	End With
	With .Columns.Add("ToRight")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellDrawPartsOrder,"caption,picture,icons,icon,check")
	End With
	.DefaultItemHeight = 32
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exVLines
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	With .Items
		h = .AddItem("Caption")
		.set_CellImage(h,0,2)
		.set_CellImages(h,0,"1,2")
		.set_CellPicture(h,0,Extree1.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.EXTREELib.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.EXTREELib.CaptionFormatEnum.exHTML)
		.set_CellImage(h,0,2)
		.set_CellImages(h,0,"1,2")
		.set_CellPicture(h,0,Extree1.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.EXTREELib.CaptionFormatEnum.exHTML)
		.set_CellHAlignment(h,1,exontrol.EXTREELib.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
	.EndUpdate()
End With
721
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)

' AddColumn event - Fired after a new column has been added.
Private Sub Extree1_AddColumn(ByVal sender As System.Object, ByVal Column As exontrol.EXTREELib.Column) Handles Extree1.AddColumn
	' Column.Def(48) = 2
	' Column.Def(49) = 2
End Sub

Dim h,hR
With Extree1
	.BeginUpdate()
	.ImageSize = 32
	.DefaultItemHeight = 36
	.HeaderHeight = .DefaultItemHeight
	.SortBarHeight = .DefaultItemHeight
	.Font.Size = 16
	.FilterBarFont.Size = Extree1.Font.Size
	.ToolTipFont.Size = Extree1.Font.Size
	.Indent = 26
	.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
	.BackColorHeader32 = &H4c6c6c6
	.SelBackColor32 = &H4000000
	.SelForeColor = Color.FromArgb(0,0,1)
	.set_CheckImage(exontrol.EXTREELib.CheckStateEnum.Unchecked,16777216)
	.set_CheckImage(exontrol.EXTREELib.CheckStateEnum.Checked,33554432)
	.set_CheckImage(exontrol.EXTREELib.CheckStateEnum.PartialChecked,50331648)
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exSelBackColorFilter,.SelBackColor)
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exSelForeColorFilter,.SelForeColor)
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exBackColorFilter,.BackColor)
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exForeColorFilter,.ForeColor)
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exHeaderFilterBarButton,&H4000000)
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exHeaderFilterBarActive,&H4010101)
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exFooterFilterBarButton,&H40000ff)
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	.ShowFocusRect = False
	.SortBarVisible = True
	.BackColorSortBar = .BackColor
	.BackColorLevelHeader = .BackColor
	.FilterBarDropDownHeight = 1
	With .Columns.Add("Check")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
		.Width = 128
		.DisplayFilterButton = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.FormatColumn = "1 pos ``"
		.AllowSort = False
		.Width = 48
		.AllowSizing = False
		.Alignment = exontrol.EXTREELib.AlignmentEnum.CenterAlignment
		.HeaderAlignment = exontrol.EXTREELib.AlignmentEnum.CenterAlignment
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exImage
		.DisplayExpandButton = True
		.ExpandColumns = "1,2,3"
		.Width = 128
		.HeaderImage = 1
	End With
	With .Columns.Add("Images")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.Width = 196
		.HTMLCaption = "<img>1</img><img>2</img><img>3</img> Images"
	End With
	.Columns.Item("Pos").Position = 3
	With .Items
		hR = .AddItem("Root")
		.set_ItemDivider(hR,0)
		.set_ItemDividerLine(hR,exontrol.EXTREELib.DividerLineEnum.EmptyLine)
		h = .InsertItem(hR,Nothing,"Child A")
		.set_CellImage(h,2,1)
		.set_CellImages(h,3,"1,2,3")
		.set_CellCaption(h,3,"123")
		h = .InsertItem(hR,Nothing,"Child B")
		.set_CellState(h,0,1)
		.set_CellImage(h,2,3)
		.set_CellImages(h,3,"2,3,1")
		.set_CellCaption(h,3,"231")
		.set_SelectItem(h,True)
		h = .InsertItem(hR,Nothing,"Child C")
		.set_CellImage(h,2,2)
		.set_CellState(h,3,1)
		.set_CellCaption(h,3,"312")
		.set_CellImages(h,3,"3,1,2")
		.set_ExpandItem(hR,True)
	End With
	.EndUpdate()
End With
720
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)

' AddColumn event - Fired after a new column has been added.
Private Sub Extree1_AddColumn(ByVal sender As System.Object, ByVal Column As exontrol.EXTREELib.Column) Handles Extree1.AddColumn
	' Column.Def(48) = 2
	' Column.Def(49) = 2
End Sub

Dim h,hR
With Extree1
	.BeginUpdate()
	.ImageSize = 16
	.Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq" & _
	"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" & _
	"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" & _
	"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" & _
	"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" & _
	"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==")
	With .VisualAppearance
		.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
	"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
	"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
	"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
	"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
	"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
	"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
	"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
	"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
	End With
	.BackColorHeader32 = &H4c6c6c6
	.SelBackColor32 = &H4000000
	.SelForeColor = Color.FromArgb(0,0,1)
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exSelBackColorFilter,.SelBackColor)
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exSelForeColorFilter,.SelForeColor)
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exBackColorFilter,.BackColor)
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exForeColorFilter,.ForeColor)
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exHeaderFilterBarButton,&H4000000)
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exHeaderFilterBarActive,&H4010101)
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exFooterFilterBarButton,&H40000ff)
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	.ShowFocusRect = False
	.SortBarVisible = True
	.BackColorSortBar = .BackColor
	.BackColorLevelHeader = .BackColor
	.FilterBarDropDownHeight = 1
	With .Columns.Add("Check")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
		.Width = 128
		.DisplayFilterButton = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.FormatColumn = "1 pos ``"
		.AllowSort = False
		.Width = 48
		.AllowSizing = False
		.Alignment = exontrol.EXTREELib.AlignmentEnum.CenterAlignment
		.HeaderAlignment = exontrol.EXTREELib.AlignmentEnum.CenterAlignment
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exImage
		.DisplayExpandButton = True
		.ExpandColumns = "1,2,3"
		.Width = 128
		.HeaderImage = 1
	End With
	With .Columns.Add("Images")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.Width = 196
		.HTMLCaption = "<img>1</img><img>2</img><img>3</img> Images"
	End With
	.Columns.Item("Pos").Position = 3
	With .Items
		hR = .AddItem("Root")
		.set_ItemDivider(hR,0)
		.set_ItemDividerLine(hR,exontrol.EXTREELib.DividerLineEnum.EmptyLine)
		h = .InsertItem(hR,Nothing,"Child A")
		.set_CellImage(h,2,1)
		.set_CellImages(h,3,"1,2,3")
		.set_CellCaption(h,3,"123")
		h = .InsertItem(hR,Nothing,"Child B")
		.set_CellState(h,0,1)
		.set_CellImage(h,2,3)
		.set_CellImages(h,3,"2,3,1")
		.set_CellCaption(h,3,"231")
		.set_SelectItem(h,True)
		h = .InsertItem(hR,Nothing,"Child C")
		.set_CellImage(h,2,2)
		.set_CellState(h,3,1)
		.set_CellCaption(h,3,"312")
		.set_CellImages(h,3,"3,1,2")
		.set_ExpandItem(hR,True)
	End With
	.EndUpdate()
End With
719
The user clicks the drop-down filter, select a value and the control's list filters for the selected item(s). Is there a way for when the user then goes to the next column to add another filter and the drop down arrow is clicked for the list of values they can filter by to be limited to what is being displayed in the list due to the first filter they set

' AddColumn event - Fired after a new column has been added.
Private Sub Extree1_AddColumn(ByVal sender As System.Object, ByVal Column As exontrol.EXTREELib.Column) Handles Extree1.AddColumn
	With Extree1
		With Column
		End With
	End With
End Sub

Dim rs
With Extree1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\Access\sample.accdb",3,3)
	End With
	.DataSource = rs
	.Columns.Item("ShipVia").Position = 2
	.EndUpdate()
End With
718
Is it possible to set from code, a column sort without being inserted in the sortbar

Dim rs
With Extree1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\Access\sample.accdb",1,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.Layout = "singlesort=""C1:1"""
	.EndUpdate()
End With
717
Is it possible to view all events the control fires
' Event event - Notifies the application once the control fires an event.
Private Sub Extree1_Event(ByVal sender As System.Object, ByVal EventID As Integer) Handles Extree1.Event
	With Extree1
		Debug.Print( .get_EventParam(-2) )
	End With
End Sub

Dim h,hChild
With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Tasks")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
		.FormatColumn = "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)"
	End With
	.HeaderVisible = True
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,Nothing,"Task 1")
		.set_SelectItem(hChild,True)
		hChild = .InsertItem(h,Nothing,"Task 2")
		.set_CellState(hChild,0,1)
		hChild = .InsertItem(h,Nothing,"Task 3")
		.set_CellState(hChild,0,1)
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With
716
How can I prevent expanding/collapsing the child items

' BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
Private Sub Extree1_BeforeExpandItem(ByVal sender As System.Object, ByVal Item As Integer, ByRef Cancel As Object) Handles Extree1.BeforeExpandItem
	With Extree1
		Cancel = Extree1.Items.get_ItemParent(Item)
	End With
End Sub

Dim h
With Extree1
	.BeginUpdate()
	.SingleSel = False
	.Columns.Add("Default")
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(.InsertItem(h,Nothing,"Child 1.1"),Nothing,"Child")
		.InsertItem(h,Nothing,"Child 1.2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(.InsertItem(h,Nothing,"Child 2.1"),Nothing,"Child")
		.InsertItem(h,Nothing,"Child 2.2")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With
715
How can I display an item of picture type

Dim h,h1
With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.ScrollBySingleLine = False
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.Columns.Add("Artikel").HTMLCaption = "<u>Artikel"
	.Columns.Add("Waarde").HTMLCaption = "<u>Waarde"
	.set_HTMLPicture("T22128","c:\exontrol\images\zipdisk.gif")
	With .Items
		h = .AddItem("T22128-28)2D")
		h1 = .InsertItem(h,Nothing,"<img>T22128:128</img>")
		.set_CellCaptionFormat(h1,0,exontrol.EXTREELib.CaptionFormatEnum.exHTML)
		.set_ItemHeight(h1,128)
		h1 = .InsertItem(h,Nothing,"werkvoorbereiding")
		.set_CellCaption(h1,1,"5.80")
		.set_CellBold(h1,1,True)
		.set_CellCaption(.InsertItem(h1,Nothing,"Type"),1,"Eenvoudig")
		.set_CellCaption(.InsertItem(h1,Nothing,"Prijs p/uur"),1,"60,00")
		.set_CellCaption(.InsertItem(h1,Nothing,"Marhe"),1,"15,00%")
		.set_CellCaption(.InsertItem(h1,Nothing,"Insteltijd min."),1,"5,00")
		.set_CellCaption(.InsertItem(h1,Nothing,"Aantal"),1,1)
		.set_CellCaption(.InsertItem(h1,Nothing,"Kostprije"),1,"5,00")
		.set_ExpandItem(h1,True)
		h1 = .InsertItem(h,Nothing,"materiall")
		.set_CellCaption(h1,1,"14.82")
		.set_CellBold(h1,1,True)
		.set_ItemHasChildren(h1,True)
		h1 = .InsertItem(h,Nothing,"snijden")
		.set_CellCaption(h1,1,"3.13")
		.set_CellBold(h1,1,True)
		.set_ItemHasChildren(h1,True)
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With
714
Dark mode

Dim back,fore
With Extree1
	.BeginUpdate()
	back = 65536
	fore = 16777215
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" & _
	"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" & _
	"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA")
	.VisualAppearance.Add(2,"gBFLBCJwBAEHhEJAAEhABPMIQAAYAQGKIcBiAKBQAGaAoDDcMgwQwAAxjIKUEwsACEIrjKCYVgOHYYQjGMZwHCMIhiGwcAChEZYHgkMYmDAMUhSE78axHG6PY7kKZ4b" & _
	"iaKIqQLLEhSfJ0YyBECBZpfebIbjmIZMSLEIxDKItJSpCIaRgqWS6ahGO4JUbUFLQHT9IR4daIYRgEEBA")
	.VisualAppearance.Add(3,"gBFLBCJwBAEHhEJAAEhABUUIQAAYAQGKIcBiAKBQAGaAoDDcMgwQwAAxjIKUEwsACEIrjKCYVgOHYYQjGMZwGAsEwjAoYAChEaILgkMw2DBIQwgJIMEr/G6RZxjeL5C" & _
	"jmG4nDhKMpybAcXxjBIYZJgOQpXb+PobTrNNLzfRFAxVAaWJikcZ4HpIAJNVLFdQ0XYMNSBISsBqrKiKcpeIIDWBZMbRZT1ZABCIZBpEW6LahENQwXrCN74DYkNTdKax" & _
	"bbuaaXLhGCYBgIA==")
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Bump
	.BackColor = back
	.BackColorHeader = back
	.BackColorLevelHeader = back
	.BackColorSortBar = back
	.BackColorSortBarCaption = back
	.FilterBarBackColor = back
	.FilterBarForeColor = fore
	.ForeColor = fore
	.ForeColorHeader = fore
	.ForeColorSortBar = fore
	.SelBackColor = fore
	.SelForeColor = back
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exHeaderFilterBarButton,&H1000000)
	.set_Background32(&H10 Or exontrol.EXTREELib.BackgroundPartEnum.exCellButtonUp,&H2000000)
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exToolTipAppearance,&H3000000)
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exToolTipBackColor,back)
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exToolTipForeColor,fore)
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exSelBackColorFilter,fore)
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exSelForeColorFilter,back)
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exBackColorFilter,back)
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exForeColorFilter,fore)
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exSortBarLinkColor,back)
	.set_Background32(&H80 Or exontrol.EXTREELib.BackgroundPartEnum.exDateSelect,&H2000000)
	.set_Background32(&H80 Or exontrol.EXTREELib.BackgroundPartEnum.exDateSeparatorBar,&H2000000)
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exTreeLinesColor,fore)
	.set_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarExclude,"<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>")
	.EndUpdate()
End With
713
How can I specify the cell's outline, border or lines around, when the cell gets selected

With Extree1
	.BeginUpdate()
	.AttachTemplate("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}")
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH" & _
	"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" & _
	"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" & _
	"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" & _
	"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA=")
		.Add(2,"CP:1 -4 0 0 0")
	End With
	.SelBackColor32 = &H2000000
	.SelForeColor = Color.FromArgb(0,0,1)
	.FullRowSelect = False
	.ShowFocusRect = False
	.DefaultItemHeight = 24
	.HeaderHeight = 24
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exVLines
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		.set_CellCaption(.AddItem("Cell 1"),1,"Cell 2")
		.set_CellCaption(.AddItem("Cell 3"),1,"Cell 4")
	End With
	.Items.SelectPos = 1
	.SelectColumnIndex = 1
	.EndUpdate()
End With
712
How can I specify the cell's outline, border or lines around, when the item gets selected

With Extree1
	.BeginUpdate()
	.AttachTemplate("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}")
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH" & _
	"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" & _
	"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" & _
	"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" & _
	"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA=")
	.SelBackColor32 = &H1000000
	.SelForeColor = Color.FromArgb(0,0,1)
	.ShowFocusRect = False
	.DefaultItemHeight = 24
	.HeaderHeight = 24
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exVLines
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		.set_CellCaption(.AddItem("Cell 1"),1,"Cell 2")
		.set_CellCaption(.AddItem("Cell 3"),1,"Cell 4")
		.SelectPos = 1
	End With
	.EndUpdate()
End With
711
How can I specify the cell's outline, border or lines around

Dim h
With Extree1
	.BeginUpdate()
	.AttachTemplate("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}")
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH" & _
	"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" & _
	"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" & _
	"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" & _
	"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA=")
	.SelBackMode = exontrol.EXTREELib.BackModeEnum.exTransparent
	.ShowFocusRect = False
	.DefaultItemHeight = 24
	.HeaderHeight = 24
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exVLines
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		.set_CellCaption(.AddItem("Cell 1"),1,"Cell 2")
		h = .AddItem("Cell 2")
		.set_CellCaption(h,1,"Cell 3")
		.set_CellBackColor32(h,1,&H1000000)
	End With
	.EndUpdate()
End With
710
Is it possible to highligth the match while a filter is applied

' AddColumn event - Fired after a new column has been added.
Private Sub Extree1_AddColumn(ByVal sender As System.Object, ByVal Column As exontrol.EXTREELib.Column) Handles Extree1.AddColumn
	' Column.Def(17) = 1
End Sub

' FilterChange event - Notifies your application that the filter is changed.
Private Sub Extree1_FilterChange(ByVal sender As System.Object) Handles Extree1.FilterChange
	Dim format
	With Extree1
		format = .FormatABC("`value replace '` + value + `' with '<bgcolor 000000><fgcolor FFFFFF>` + value  + `</fgcolor></bgcolor>'`",.FilterBarPromptPattern)
		.Columns.Item(0).FormatColumn = format
		.Columns.Item(1).FormatColumn = format
	End With
End Sub

With Extree1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exVLines
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	.Columns.Add("Col 1")
	.Columns.Add("Col 2")
	With .Items
		.set_CellCaption(.AddItem("219 Smith"),1,"Ignacio 1234")
		.set_CellCaption(.AddItem("1666 County Road 309A"),1,"897 Manassa")
		.set_CellCaption(.AddItem("38 Lone Pine"),1,"Durango 11")
		.set_CellCaption(.AddItem("612 Jachim Street"),1,"Lamar 222")
	End With
	.FilterBarPromptPattern = "1"
	.FilterBarPromptVisible = exontrol.EXTREELib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXTREELib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXTREELib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXTREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = exontrol.EXTREELib.FilterPromptEnum.exFilterPromptCaseSensitive Or exontrol.EXTREELib.FilterPromptEnum.exFilterPromptContainsAll
	.EndUpdate()
End With
709
Is it possible to highlight the column's header once a filter is applied (sample 2)

Dim h
With Extree1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABO8GACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwQgmNYDSBMcbwS" & _
	"AsXRYFocJ5gOT6AjKBA2UclEZpajiTY3ABUEgUS5oOBIACqariaQJAAiCRQGiYZyHKaRSwPBKFYDIIjbJheTIDChNVxUcDENQjJqLBIDRzbarye59YBfeBXdgmA4LQbD" & _
	"MRwNgMMQTDqKYbkOQZHbeGKAWTMEZzJj8cxTEqIaBhGTLfojSZMS7UGK1LLtMyHI6kP7sOiLfi2W4/W7XV72F79TzXIa2ZBuO57bhnAZ/VzGNj4PRNezfRqicjsGxcZw" & _
	"Xg+TpQj0ew6gSOw7wSbozjsfYXi8PwMnSc52leHotl+MxjmoXh2nybxOH+SQtnYXx+D2P4vGMB56hQf5PCgBYeDwYBCEo1xggebgKH6IIDBYBgkiAQ5FgYPAhEIRgWGq" & _
	"DBoC4GoCiGCBYhGBQPAWdIQp0eIUiWCZigiJgqgqYpIioJQhmIMhBH0NxjEMag2g2Y4ImYOoOmOSJeDQNxXlOLR3ECUAQICA=")
		.Add(2,"gBFLBCJwBAEHhEJAAEhABgsHQAAYAQGKIcBiAKBQAGaAoDDYNwwQwAAxDAKcEwsACEIrjKCRShyCYZRrGUgRCKQahLEiTIhGUYJHgmK4tRoAUgxWCEExrAaQJjjeCQF" & _
	"i6LAtDhPMByfQEZQIGyjkgjNLUcSbG4AKgkCiXfpUAJVP7FcgSABEEigNIxToOU4jFgeCYLQKQRK2RC9GQGFCbLhpYKIahGTYWVheN5XXblez9P7ABQwKCcAwXBp7YIK" & _
	"AT4XBIdYdQ7IL4xGA0AJPFoJC7mOQ5XiYAIBAZ/RL0LCcbxHHafVboQj6JouD5PUDVNY1XBdPynI6CbLhWy6Dq4UZzPwzeBifSHfDjRoJcCZe71KY3GwSEboNA6Kp+QB" & _
	"HAmZoZjSPYIEiF47lOLJVnuYofBwJJHmaQoYj0MIRHeM4/m6cJ8B+fpBHQJ5SGKPYYH8OYMk+P5Bn4fxaAYZAvEIX4RgUWBGgCCAmAqApgkgNgOgMEYlGASoEkQeBWBa" & _
	"BZhggZgagaYRoEwShWA6NZZAMQBAICA==")
	End With
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exHeaderFilterBarButton,&H1000000)
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exHeaderFilterBarActive,&H2000000)
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.HeaderHeight = 28
	.BackColorHeader = Color.FromArgb(255,255,255)
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exRowLines
	.HeaderVisible = True
	With .Columns
		.Add("C1").DisplayFilterButton = True
		With .Add("C2")
			.DisplayFilterButton = True
			.Filter = "Item 2"
			.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
		End With
		.Add("C3").DisplayFilterButton = True
	End With
	With .Items
		h = .AddItem("Item 1")
		.set_CellCaption(h,1,"Item 2")
		.set_CellCaption(h,2,"Item 3")
		h = .AddItem("Item 4")
		.set_CellCaption(h,1,"Item 5")
		.set_CellCaption(h,2,"Item 6")
	End With
	.ApplyFilter()
	.EndUpdate()
End With
708
How can I make the expand/collapse glyphs DPI aware

Dim h,size
With Extree1
	size = 2
	.BeginUpdate()
	With .VisualAppearance
		.Add(3,"gBFLBCJwBAEHhEJAAEhEGAUHQAAYAQGKIcBiAKBQAGaAoDDYOA4QwAAxDAKcEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBRfIUEghGyNZjgNzQc" & _
	"CQAI8T5IUgARBJIDSMY6DpOIxYHgmC4DEITNLxOK0EhRHCBZrgOCAYhqEY1Ro+dhPFYjVTMdK0LRtKy7Mq2aJmOpZDxWE7dZKpO5fbxXS67cr2fp/YBed4rfa7KTlOBK" & _
	"cRQRBEFQPDqPZBkORZHh2FoLRJKbgtHJmHYNQWhVyYBbNCyTI6lahpeuHBx1QaWWxjbCMEr6bpoWLbFi3Ha1UzrPa8b5vSw7Gr+HzYQTHGPXGqaYJdZrnea6B7+U5XUJ" & _
	"rnSOZciYHwhAeR5HDK+JVGqKRRmScx5HyfRei+H5bmmcp4Fi8o/CGGJKGQKZUGoFQigUPIiCeSZXnyHB6l0SAJn8JxfkIeZ5CgXxjCCAhyB8QgIlAM4MlKAIcCaIBIGY" & _
	"GoGGEYhqBMMxgnICgRDUDQjESGwmAkWBuCqBoiHIVgkDQYgYESWg2E0YhohcJQigITg3CQSRyEyEYGGOWJwhQJD4FiFIMk0aJFGsIBkkOBJeDc+AchYJwJgIWhSgYZQp" & _
	"FIVoVGOGQ4l2EwIBWMhgDmDhThCEwkAiaJchKDhjhgZhsCUY4iFCEoZkiaYQmSGAWhWQhgDuDpTjCDQiEgchAg0IpJBoDoFiEKBqCaCAimgIguH8IZnkPUhcBcJg+hGJ" & _
	"ZnloYJsiaKZKGa24YnWSR0CkKhCA2CxlCqColhAYpqEKER0DqVZ0A0ASAgA==")
		.Add(4,"gBFLBCJwBAEHhEJAAEhABAQCg6AADACAxRDgMQBQKAAzQFAYbBwHCGAAGIYBTgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACjeQYJBCNYbTJAbqhY" & _
	"IgAR3HqQZABCCSQKkYx0HScRiwPBMFwGIQmaaicZoJCiN4DTZAcIBRDUIxpDR9bBeKw3KqVaZnWhaNpWXZlTzKdSxXisF67RZSdi/XgvF5XXblez9P69LwXe5mUrGbyV" & _
	"YghCCIKgeG4dR7IMhyLDcKQXCCVW7aGSsOwbAqAXpdGAXTQdDyLJKnaZqOi6BjjA4rNbHGIYJb1XTRMa1LJuG5LJrOeZ3Xre4BLfh1VoFRpjWIYNY1QS7TLOczzfRdDx" & _
	"TiGVpkjCeJoD4Ng1hSRxiisVRKg8D4PkWZJznmPQ+F8Xx5guWpjHGWYMiYQodEaIRSCgU5KCSeh3naHB/iAAh9n8fwfgIeZ1CgXwjCCAhxl8AgIlAM4MlKAIcCaD54FY" & _
	"FoFmGCBmBaBIJigPJNgKSAoDSVC+BIbIYCUYYoiYKoJgkWIMlGCAglMaJZDWCYiFyFIJkkOJYhEJc7G4PYPCOaJshQJBjgiVIUgyDRokEaggGSQ4El4N1CBiFgnAmAha" & _
	"FKFZlFkShUhWJRYmITg3GSQgFGuGBOGOFJkCSSQCDoNgkiOCY0hUJJmmmQhvhqZtYmUOQmBWIRvhgTpjjSbAjEiEgchBZgyEaBIhigWgegqIhIjoDILiACB5nTL5WnWR" & _
	"YOiSKYJnqGQ7CmOh2hqJ5OkYORxFyShKhSAxihkOomioY5YiqFIkFyTo1HkAxAEAgIA==")
		.Add(1,Extree1.FormatABC("`CP:3 -` + int(value*dpi) + ` -` + int(value*dpi) + ` ` +  int(value*dpi) + ` ` + int(value*dpi)",size))
		.Add(2,Extree1.FormatABC("`CP:4 -` + int(value*dpi) + ` -` + int(value*dpi) + ` ` +  int(value*dpi) + ` ` + int(value*dpi)",size))
	End With
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exGroupLinesAtRoot
	.HasButtons = exontrol.EXTREELib.ExpandButtonEnum.exCustom
	.set_HasButtonsCustom(False,16777216)
	.set_HasButtonsCustom(True,33554432)
	.Columns.Add("Column")
	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")
	End With
	.EndUpdate()
End With
707
Is it possible to highlight the column's header once a filter is applied (sample 1)

Dim h
With Extree1
	.BeginUpdate()
	With .VisualAppearance
		.Add(2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgAN" & _
	"J0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8Y" & _
	"NYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4" & _
	"hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mg" & _
	"bhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhW" & _
	"BMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=")
		.Add(1,"CP:2 -8 -4 2 4")
	End With
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exHeaderFilterBarButton,&H1fefefe)
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exHeaderFilterBarActive,&H1010101)
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.HeaderHeight = 28
	.BackColorHeader = Color.FromArgb(255,255,255)
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exRowLines
	.HeaderVisible = True
	With .Columns
		.Add("C1").DisplayFilterButton = True
		With .Add("C2")
			.DisplayFilterButton = True
			.Filter = "Item 2"
			.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
		End With
		.Add("C3").DisplayFilterButton = True
	End With
	With .Items
		h = .AddItem("Item 1")
		.set_CellCaption(h,1,"Item 2")
		.set_CellCaption(h,2,"Item 3")
		h = .AddItem("Item 4")
		.set_CellCaption(h,1,"Item 5")
		.set_CellCaption(h,2,"Item 6")
	End With
	.ApplyFilter()
	.EndUpdate()
End With
706
Is it possible to show the filterbar on top of the rows

With Extree1
	.BeginUpdate()
	.FilterBarPromptVisible = exontrol.EXTREELib.FilterBarVisibleEnum.exFilterBarTop
	.HeaderHeight = 24
	.FilterBarHeight = .HeaderHeight
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Flat
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exAllLines
	.GridLineStyle = exontrol.EXTREELib.GridLinesStyleEnum.exGridLinesGeometric
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exPattern
		.Filter = "B*"
	End With
	With .Columns.Add("Index")
		.FormatColumn = "1 index ``"
		.Position = 0
		.Width = 48
		.AllowSizing = False
		.SortType = exontrol.EXTREELib.SortTypeEnum.SortNumeric
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
	End With
	With .Items
		.AddItem("A.1")
		.AddItem("A.2")
		.AddItem("B.1")
		.AddItem("B.2")
		.AddItem("B.3")
		.AddItem("C")
	End With
	.ApplyFilter()
	.EndUpdate()
End With
705
DragDrop (with visual effect)

// OLEDragDrop event is not supported. Use the DragEnter,DragLeave,DragOver, DragDrop ... events.
// OLEStartDrag event is not supported. Use the DragEnter,DragLeave,DragOver, DragDrop ... events.
Dim h
With Extree1
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABPUIQAAYAQGKIcBiAKBQAGaAoDgYN4MAANAwjJBMKgBBCLIxhEYobgmGIaRjEEQDCKYcxHCaIBiGcaIfDEBIeSBHcgRbAcOQHGSZZBhGRJG" & _
	"juKIbSrLICzBDUcRnGwAKQoaaaEomHwyAZOYwDAIoWhpKKCKjqWJKNb+XgAAJTES0RRVRTNAZ1YghGAQgIA==")
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exListOLEDropPosition,&H1000000)
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exDragDropBefore,Color.FromArgb(0,0,0))
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exDragDropAfter,Color.FromArgb(255,255,255))
	.OLEDropMode = exontrol.EXTREELib.exOLEDropModeEnum.exOLEDropManual
	.AutoDrag = exontrol.EXTREELib.AutoDragEnum.exAutoDragPositionAnyOnRight
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.Indent = 16
	.SelBackMode = exontrol.EXTREELib.BackModeEnum.exTransparent
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
	End With
	Debug.Print( "You can:" )
	Debug.Print( "A) left-click to drag and drop items between controls (open a new exhelper and run the same sample)" )
	Debug.Print( "B) right-click to re-arrange the item position inside the same control" )
	Debug.Print( "This sample shows how you can insert the data being dropped as a child of the item being hovered." )
End With
704
DragDrop (with no visual effect, hide item while drag and drop)

// OLEDragDrop event is not supported. Use the DragEnter,DragLeave,DragOver, DragDrop ... events.
// OLEStartDrag event is not supported. Use the DragEnter,DragLeave,DragOver, DragDrop ... events.
Dim h
With Extree1
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exDragDropBefore,Color.FromArgb(0,0,0))
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exDragDropAfter,Color.FromArgb(255,255,255))
	.OLEDropMode = exontrol.EXTREELib.exOLEDropModeEnum.exOLEDropManual
	.AutoDrag = exontrol.EXTREELib.AutoDragEnum.exAutoDragPositionAnyOnRight
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.Indent = 16
	.SelBackMode = exontrol.EXTREELib.BackModeEnum.exTransparent
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
	End With
	Debug.Print( "You can:" )
	Debug.Print( "A) left-click to drag and drop items between controls (open a new exhelper and run the same sample)" )
	Debug.Print( "B) right-click to re-arrange the item position inside the same control" )
	Debug.Print( "This sample shows how you can insert the data being dropped as a child of the item being hovered." )
End With
703
DragDrop

// OLEDragDrop event is not supported. Use the DragEnter,DragLeave,DragOver, DragDrop ... events.
// OLEStartDrag event is not supported. Use the DragEnter,DragLeave,DragOver, DragDrop ... events.
Dim h
With Extree1
	.OLEDropMode = exontrol.EXTREELib.exOLEDropModeEnum.exOLEDropManual
	.AutoDrag = exontrol.EXTREELib.AutoDragEnum.exAutoDragPositionAnyOnRight
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.Indent = 16
	.SelBackMode = exontrol.EXTREELib.BackModeEnum.exTransparent
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
	End With
	Debug.Print( "You can:" )
	Debug.Print( "A) left-click to drag and drop items between controls (open a new exhelper and run the same sample)" )
	Debug.Print( "B) right-click to re-arrange the item position inside the same control" )
	Debug.Print( "This sample shows how you can insert the data being dropped as a child of the item being hovered." )
End With
702
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header (non-clickable)

With Extree1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	With .Columns
		.Add("Item")
		With .Add("Pos")
			.Position = 0
			.Width = 32
			.AllowSizing = False
			.FormatColumn = "1 index ``"
			.AllowSort = False
			.AllowDragging = False
		End With
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.EndUpdate()
End With
701
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header

With Extree1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exCursorHoverColumn,-1)
	With .Columns
		.Add("Item")
		With .Add("Pos")
			.Position = 0
			.Width = 32
			.AllowSizing = False
			.FormatColumn = "1 index ``"
			.AllowSort = False
			.AllowDragging = False
		End With
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.EndUpdate()
End With