With Extree1
	.BeginUpdate()
	.HeaderSingleLine = False
	.HeaderHeight = 36
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exRowLines
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	With .Columns
		With .Add("Single-Line (exCaptionSingleLine)")
			.Width = 96
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellSingleLine,-1)
		End With
		With .Add("Word-Wrap (exCaptionWordWrap)")
			.Width = 96
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellSingleLine,0)
			.FormatColumn = "%0"
		End With
		With .Add("Break-Wrap (exCaptionBreakWrap)")
			.Width = 96
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellSingleLine,1)
			.FormatColumn = "%0"
		End With
	End With
	With .Items
		.AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
		.AddItem("This is the <b>first</b> line.\r\nThis is the <b>second</b> line.\r\nThis is the <b>third</b> line.")
	End With
	.EndUpdate()
End With

Dim h
With Extree1
	.BeginUpdate()
	.HeaderSingleLine = False
	.HeaderHeight = 36
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exRowLines
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	.Columns.Add("Default").Width = 128
	With .Items
		h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
		h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
		.set_CellCaptionFormat(h,0,exontrol.EXTREELib.CaptionFormatEnum.exHTML)
		h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
		.set_CellSingleLine(h,0,exontrol.EXTREELib.CellSingleLineEnum.exCaptionWordWrap)
		h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
		.set_CellCaptionFormat(h,0,exontrol.EXTREELib.CaptionFormatEnum.exHTML)
		.set_CellSingleLine(h,0,exontrol.EXTREELib.CellSingleLineEnum.exCaptionWordWrap)
		h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
		.set_CellSingleLine(h,0,exontrol.EXTREELib.CellSingleLineEnum.exCaptionBreakWrap)
		h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
		.set_CellCaptionFormat(h,0,exontrol.EXTREELib.CaptionFormatEnum.exHTML)
		.set_CellSingleLine(h,0,exontrol.EXTREELib.CellSingleLineEnum.exCaptionBreakWrap)
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exRowLines
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	.Columns.Add("Default").Width = 128
	With .Items
		.set_CellSingleLine(.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line."),0,exontrol.EXTREELib.CellSingleLineEnum.exCaptionBreakWrap)
		.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exRowLines
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	With .Columns.Add("Default")
		.Width = 128
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellSingleLine,1)
	End With
	With .Items
		.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
		.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
	End With
	.EndUpdate()
End With

Dim h
With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.BackColorHeader = Color.FromArgb(1,0,0)
	.ForeColorHeader = Color.FromArgb(255,255,255)
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exBackColorFilter,.BackColorHeader)
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exForeColorFilter,.ForeColorHeader)
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exHeaderFilterBarButton,Color.FromArgb(240,240,240))
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Bump
	With .Columns.Add("Items")
		.FilterOnType = True
		.DisplayFilterButton = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exNoItems
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.ColumnAutoResize = True
	With .Columns.Add("Default")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
		.FormatColumn = "((trim(value) replace `   ` with ` `) replace `  ` with ` `) replace ` ` with `<bgcolor=FF0000> </bgcolor>`"
	End With
	With .Items
		.AddItem("")
		.AddItem("Item A")
		.AddItem("    Item B")
		.AddItem("        Item   C    ")
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.ColumnAutoResize = True
	With .Columns.Add("Default")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
		.FormatColumn = "`'` + ( value replace ` ` with `_` ) + `'`"
	End With
	With .Items
		.AddItem("")
		.AddItem("Item A")
		.AddItem("    Item B")
		.AddItem("        Item   C    ")
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.ColumnAutoResize = True
	With .Columns.Add("Default")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
		.FormatColumn = "len(value) = 0 ? `<bgcolor=FF0000> </bgcolor>` : ( value replace ` ` with `<bgcolor=FF0000> </bgcolor>` )"
	End With
	With .Items
		.AddItem("")
		.AddItem("Item A")
		.AddItem("    Item B")
		.AddItem("        Item   C    ")
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exBackColorFilter,Color.FromArgb(0,0,1))
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exForeColorFilter,Color.FromArgb(255,255,255))
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exDateScrollRange,Color.FromArgb(255,255,255))
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exDateHeader,.get_Background(exontrol.EXTREELib.BackgroundPartEnum.exBackColorFilter))
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exDateScrollThumb,Color.FromArgb(128,128,128))
	With .Columns.Add("Date")
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exDate
		.DisplayFilterButton = True
		.DisplayFilterDate = True
		.DisplayFilterPattern = False
	End With
	.EndUpdate()
End With

Dim h,sFile
With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.BackColorAlternate = Color.FromArgb(240,240,240)
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exAllLines
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	.set_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
"nt + ` item(s)`) )))"
	.FilterBarPromptVisible = &Ha13
	.FilterBarPromptType = exontrol.EXTREELib.FilterPromptEnum.exFilterPromptContainsAny
	With .ConditionalFormats
		.Add("%0 like `*parent*`","parent").BackColor = Color.FromArgb(192,192,192)
		With .Add("%0 like `*child*`","child")
			.ForeColor = Color.FromArgb(255,128,128)
			.ApplyTo = exontrol.EXTREELib.FormatApplyToEnum.exFormatToColumns
		End With
		With .Add("%0 like `*B*`","b")
			.ForeColor = Color.FromArgb(0,0,255)
			.Bold = True
			.Italic = True
			.ApplyTo = exontrol.EXTREELib.FormatApplyToEnum.exFormatToColumns
		End With
	End With
	With .Columns
		With .Add("Value")
			.Width = 128
			.HTMLCaption = "<b>VA</b><r>sko"
		End With
		With .Add("APos")
			.FormatColumn = "0 apos ``"
			.AllowSort = False
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellBackColor,15790320)
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellForeColor,8421504)
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exHeaderForeColor,.get_Def(exontrol.EXTREELib.DefColumnEnum.exCellForeColor))
			.Position = 0
		End With
		With .Add("RPos")
			.FormatColumn = "0 rpos ``"
			.AllowSort = False
			.Position = 1
		End With
		With .Add("Index")
			.FormatColumn = "0 index ``"
			.DisplayFilterButton = True
			.FilterList = exontrol.EXTREELib.FilterListEnum.exShowCheckBox
			.Position = 2
		End With
		With .Add("Data 1")
			.FormatColumn = "0 index `A-Z`"
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		End With
		With .Add("Data 2")
			.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`"
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellSingleLine,False)
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasRadioButton,True)
		End With
		With .Add("Data 3")
			.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`"
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
		End With
	End With
	With .Items
		h = .AddItem("ParentA")
		.InsertItem(h,,"Child A")
		.InsertItem(h,,"Child B")
		.set_CellState(h,4,1)
		.set_CellBackColor(.InsertItem(h,,"Child C"),5,Color.FromArgb(0,255,0))
		.set_ExpandItem(h,True)
		.AddItem("Item A")
		h = .AddItem("ParentB")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		.set_CellBackColor(.InsertItem(h,,"Child 3"),5,Color.FromArgb(0,255,0))
		.set_CellState(h,5,1)
		.AddItem("Item B")
		.AddItem("Item C")
		.AddItem("Item D")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
	sFile = "c:/temp/export.html"
	.Export(sFile,"vis")
	With New SHDocVw.ShellBrowserWindow()
		.Navigate2(sFile)
	End With
End With

Dim h
With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.BackColorAlternate = Color.FromArgb(240,240,240)
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exAllLines
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	.set_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
"nt + ` item(s)`) )))"
	.FilterBarPromptVisible = &Ha13
	.FilterBarPromptType = exontrol.EXTREELib.FilterPromptEnum.exFilterPromptContainsAny
	With .ConditionalFormats
		.Add("%0 like `*parent*`","parent").BackColor = Color.FromArgb(192,192,192)
		With .Add("%0 like `*child*`","child")
			.ForeColor = Color.FromArgb(255,128,128)
			.ApplyTo = exontrol.EXTREELib.FormatApplyToEnum.exFormatToColumns
		End With
		With .Add("%0 like `*B*`","b")
			.ForeColor = Color.FromArgb(0,0,255)
			.Bold = True
			.Italic = True
			.ApplyTo = exontrol.EXTREELib.FormatApplyToEnum.exFormatToColumns
		End With
	End With
	With .Columns
		With .Add("Value")
			.Width = 128
			.HTMLCaption = "<b>VA</b><r>sko"
		End With
		With .Add("APos")
			.FormatColumn = "0 apos ``"
			.AllowSort = False
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellBackColor,15790320)
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellForeColor,8421504)
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exHeaderForeColor,.get_Def(exontrol.EXTREELib.DefColumnEnum.exCellForeColor))
			.Position = 0
		End With
		With .Add("RPos")
			.FormatColumn = "0 rpos ``"
			.AllowSort = False
			.Position = 1
		End With
		With .Add("Index")
			.FormatColumn = "0 index ``"
			.DisplayFilterButton = True
			.FilterList = exontrol.EXTREELib.FilterListEnum.exShowCheckBox
			.Position = 2
		End With
		With .Add("Data 1")
			.FormatColumn = "0 index `A-Z`"
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		End With
		With .Add("Data 2")
			.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`"
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellSingleLine,False)
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasRadioButton,True)
		End With
		With .Add("Data 3")
			.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`"
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
		End With
	End With
	With .Items
		h = .AddItem("ParentA")
		.InsertItem(h,,"Child A")
		.InsertItem(h,,"Child B")
		.set_CellState(h,4,1)
		.set_CellBackColor(.InsertItem(h,,"Child C"),5,Color.FromArgb(0,255,0))
		.set_ExpandItem(h,True)
		.AddItem("Item A")
		h = .AddItem("ParentB")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		.set_CellBackColor(.InsertItem(h,,"Child 3"),5,Color.FromArgb(0,255,0))
		.set_CellState(h,5,1)
		.AddItem("Item B")
		.AddItem("Item C")
		.AddItem("Item D")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
	Debug.Print( .Export("","vis") )
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Extree1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Extree1.AddItem
	Dim bHasParent
	With Extree1
		bHasParent = .FormatABC("value != 0",.Items.get_ItemParent(Item))
		With .Items
			.set_CellHasCheckBox(Item,0,False)
		End With
	End With
End Sub

Dim h,hChild
With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Tasks")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
		.FormatColumn = "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)"
	End With
	.HeaderVisible = True
	.SingleSel = False
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		hChild = .InsertItem(h,,"Task 2")
		hChild = .InsertItem(h,,"Task 3")
		.set_ExpandItem(h,True)
		.set_LockedItemCount(exontrol.EXTREELib.VAlignmentEnum.TopAlignment,1)
		.set_CellCaption(.get_LockedItem(exontrol.EXTREELib.VAlignmentEnum.TopAlignment,0),0,"<c>Select multiple items and press the <b>SPACE</b> key")
	End With
	.EndUpdate()
End With

' 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
	Dim c,hit,i
	With Extree1
		i = .get_ItemFromPoint(-1,-1,c,hit)
		Debug.Print( .FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? ( ( (value bitand 0xFFFF0000) bitshift 16 ) array B split `,` )  : `no image`",hit,.Items.get_CellImages(i,c)) )
	End With
End Sub

With Extree1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Columns.Add("Default")
	With .Items
		.set_CellImages(.AddItem("Item 1"),0,"3,2,1")
		.set_CellImages(.AddItem("Item 2"),0,"2,3")
		.set_CellImages(.AddItem("Item 3"),0,"2,")
	End With
	.EndUpdate()
End With

' 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
	Dim c,hit,i
	With Extree1
		i = .get_ItemFromPoint(-1,-1,c,hit)
		Debug.Print( .FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? 1 + ( (value bitand 0xFFFF0000) bitshift 16 ) : `no image`",hit) )
	End With
End Sub

With Extree1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Columns.Add("Default")
	With .Items
		.set_CellImages(.AddItem("Item 1"),0,"3,2,1")
		.set_CellImages(.AddItem("Item 2"),0,"2,3")
		.set_CellImages(.AddItem("Item 3"),0,"2")
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
	With .Columns
		.Add("Column 1")
		.Add("Column 2")
		.Add("Column 3")
	End With
	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.EXTREELib.BackgroundPartEnum.exColumnsPositionSign,&H2000000)
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.ColumnAutoResize = True
	.DefaultItemHeight = 20
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhIDhAxHAxg0HG0Mg4xGI3HMOig3GcJiYAf8jAEhhUnAAyhEqg8hk0oAsIjgAiAwmYxGA4mYzGwwkI0i0ooUnB0IBMIl1Dg8zmYyGolptPkI1m" & _
"Y1GAll9KoUslNIrVCqNQldShFUstXAVfrVcrlZtVhuFnsUHq1zoczoQGhFBkNpg6zbDykUkhsPHE2h85nc9n8xtVDtlex9Msd2p1YstVq9ux8HyMtzuFz1PsNTzQlv2h" & _
"hWfkuqpeVuN0q+nvEooN5veSAGpkb/ACcZrvhU3w83nM/poxGuchGpoVBvWgg+8knA4WimnFxI45Er5XOlHMg/Q3XU33W4ew9Wyu11mchDagcO7zus8VDoNBBEIKBpMY" & _
"6DqOQyokhA/IQIQmwMk4bIQFDcoO6LWgwhQkNcABwEyAB5GwWbet6cRQg3DENQ5D8QxADZvEkAB8nabsURGeBpFM3pwE2AEZRpDx/neZpOR3Dz9oO/r/wCMoZNTBQAQR" & _
"JSEwYg8HPGhEIoNCaEwq10gQ2WcRt7LcRxRFpuxUAEURQ3sczBEMgTTG8gN7HpOSEAEiQBAQZpmQ0DibPUFwbKcHwkhQoQtNQNzNEMbABOKDy/DMYQzHLeoPL0OTJSUd" & _
"0pHcxTewk5zrIygIRPslz4lEngBKIAQivgASs/kLSBTlO00f8t0vGcgUbDlDRjXLCUNRERRvRgAHW2oAICA==")
	With .Columns.Add("Default")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .Columns.Add("Position")
		.FormatColumn = "1 rindex ``"
		.Visible = False
	End With
	With .ConditionalFormats.Add("%C1 mod 2")
		.BackColor32 = &H1000000
	End With
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem("Item 4")
	End With
	.EndUpdate()
End With

Dim h
With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Default")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .Columns.Add("Position")
		.FormatColumn = "( ( 1:=( ( 0:=(1 rpos '') ) lfind `.`) ) < 0 ? =:0 : (=:0 left =:1) )"
		.Visible = False
	End With
	With .ConditionalFormats.Add("%C1 mod 2")
		.BackColor = Color.FromArgb(240,240,240)
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		h = .AddItem("Root 3")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
	End With
	.EndUpdate()
End With

With Extree1
	.Columns.Add("ColumnName").Caption = "NewName"
	.Columns.Add("ColumnName").HTMLCaption = "<b>New</b>Name"
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Extree1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Extree1.AddItem
	Dim i
	With Extree1
		i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
		.Items.set_CellImage(Item,3,i)
	End With
End Sub

Dim h
With Extree1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exImage
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
		h = .AddItem("Item B")
		.set_CellCaption(h,1,"Sub-Item B")
		.set_CellState(h,2,1)
		.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "(( ( all replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[" & _
"<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matchi" & _
"temcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount" & _
" + ` item(s)`) )))"
	.FilterBarPromptVisible = &H3
	With .Columns.Item(0)
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Extree1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Extree1.AddItem
	Dim i
	With Extree1
		i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
		.Items.set_CellImage(Item,3,i)
	End With
End Sub

Dim h
With Extree1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exImage
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
		h = .AddItem("Item B")
		.set_CellCaption(h,1,"Sub-Item B")
		.set_CellState(h,2,1)
		.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "all"
	.FilterBarPromptVisible = &H3
	With .Columns.Item(0)
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Extree1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Extree1.AddItem
	Dim i
	With Extree1
		i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
		.Items.set_CellImage(Item,3,i)
	End With
End Sub

Dim h
With Extree1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exImage
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
		h = .AddItem("Item B")
		.set_CellCaption(h,1,"Sub-Item B")
		.set_CellState(h,2,1)
		.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
"nt + ` item(s)`) )))"
	.FilterBarPromptVisible = &H3
	With .Columns.Item(0)
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Extree1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Extree1.AddItem
	Dim i
	With Extree1
		i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
		.Items.set_CellImage(Item,3,i)
	End With
End Sub

Dim h
With Extree1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exImage
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
		h = .AddItem("Item B")
		.set_CellCaption(h,1,"Sub-Item B")
		.set_CellState(h,2,1)
		.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "allui"
	.FilterBarPromptVisible = &H3
	With .Columns.Item(0)
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Extree1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Extree1.AddItem
	Dim i
	With Extree1
		i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
		.Items.set_CellImage(Item,3,i)
	End With
End Sub

Dim h
With Extree1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exImage
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
		h = .AddItem("Item B")
		.set_CellCaption(h,1,"Sub-Item B")
		.set_CellState(h,2,1)
		.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( ava" & _
"ilable replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with `" & _
"` replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount" & _
" + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
	.FilterBarPromptVisible = &H3
	With .Columns.Item(0)
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Extree1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Extree1.AddItem
	Dim i
	With Extree1
		i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
		.Items.set_CellImage(Item,3,i)
	End With
End Sub

Dim h
With Extree1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exImage
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
		h = .AddItem("Item B")
		.set_CellCaption(h,1,"Sub-Item B")
		.set_CellState(h,2,1)
		.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "value + ` ` + available"
	.FilterBarPromptVisible = &H3
	With .Columns.Item(0)
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
		.set_CellCaption(.AddItem("Item B"),1,"Sub-Item B")
		.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.get_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "(`<b>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) +" & _
" ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )) replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replac" & _
"e `]` with ` </b></bgcolor></fgcolor>`"
	.FilterBarPromptVisible = exontrol.EXTREELib.FilterBarVisibleEnum.exFilterBarToggle
	With .Columns.Item(0)
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	With .Columns.Item(1)
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exPattern
		.Filter = "*B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
		.set_CellCaption(.AddItem("Item B"),1,"Sub-Item B")
		.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.get_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
	.FilterBarPromptVisible = exontrol.EXTREELib.FilterBarVisibleEnum.exFilterBarToggle
	With .Columns.Item(0)
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	With .Columns.Item(1)
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exPattern
		.Filter = "*B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
		.set_CellCaption(.AddItem("Item B"),1,"Sub-Item B")
		.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.set_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.get_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"
	.FilterBarPromptVisible = exontrol.EXTREELib.FilterBarVisibleEnum.exFilterBarToggle
	With .Columns.Item(0)
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	With .Columns.Item(1)
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exPattern
		.Filter = "*B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	With .Columns.Add("Item")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarCaption = "`<r>` + value"
	.FilterBarPromptVisible = &H500
	With .Columns.Item(0)
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
		.Filter = "Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	With .Columns.Add("Item")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarFont = .Font
	.FilterBarPrompt = .FormatABC("`<b>` + value",.FilterBarPrompt)
	.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount " & _
"+ 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )"
	.FilterBarPromptVisible = &He07
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarFont = .Font
	.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount " & _
"+ 1) + ` result(s)` ) : ``)"
	.FilterBarPromptVisible = &H807
	With .Columns.Item(0)
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarFont = .Font
	.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? `<off -4> ` + abs(matchitemcount + 1) + ` result(s)` : ``)"
	.FilterBarPromptVisible = &H817
	With .Columns.Item(0)
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarFont = .Font
	.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
	.FilterBarPromptVisible = &H7
	With .Columns.Item(0)
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

' AfterExpandItem event - Fired after an item is expanded (collapsed).
Private Sub Extree1_AfterExpandItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Extree1.AfterExpandItem
	With Extree1
		.Refresh()
	End With
End Sub

Dim h
With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Check")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		h = .AddItem("Item B")
		.set_CellState(.InsertItem(h,,"Sub-Item B1"),1,1)
		.InsertItem(h,,"Sub-Item B2")
		.set_ExpandItem(h,True)
		.AddItem("Item C")
	End With
	.FilterInclude = exontrol.EXTREELib.FilterIncludeEnum.exItemsWithChilds
	.FilterBarFont = .Font
	.FilterBarCaption = "`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</" & _
"i></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>" & _
": ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF>" & _
"<i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</" & _
"i></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=8" & _
"08080>` + promptpattern + `</fgcolor>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount +" & _
" `</fgcolor>`"
	.FilterBarPromptPattern = "B"
	.FilterBarPromptVisible = &H7
	With .Columns.Item(0)
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarFont = .Font
	.FilterBarCaption = "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
	.FilterBarPromptPattern = "B"
	.FilterBarPromptVisible = &H813
	With .Columns.Item(0)
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarPromptVisible = &H501
	.FilterBarPrompt = .FormatABC("`<r>` + value",.FilterBarPrompt)
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.RightToLeft = True
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarPromptVisible = &H101
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJ" & _
"jyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKm" & _
"SZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OR" & _
"OicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2" & _
"DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJX" & _
"AiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaK" & _
"JDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G" & _
"0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEA" & _
"kjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRS" & _
"MRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhA" & _
"QHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ")
	End With
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarPromptVisible = &H101
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exFooterFilterBarButton,&H1000000)
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarPromptVisible = exontrol.EXTREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exFooterFilterBarButton,Color.FromArgb(255,0,0))
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarPromptVisible = exontrol.EXTREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exFooterFilterBarButton,-1)
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarPromptVisible = &H201
	.EndUpdate()
End With

Dim h
With Extree1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
		.set_LockedItemCount(exontrol.EXTREELib.VAlignmentEnum.BottomAlignment,1)
		h = .get_LockedItem(exontrol.EXTREELib.VAlignmentEnum.BottomAlignment,0)
		.set_ItemDivider(h,0)
		.set_CellCaption(h,0,"<c><fgcolor=808080>Press the CTRL + F to turn on/off the control's filter bar. ALT + Up/Down moves the focus.")
		.set_CellCaptionFormat(h,0,exontrol.EXTREELib.CaptionFormatEnum.exHTML)
	End With
	.FilterBarCaption = "`<r><fgcolor=808080>` + value"
	.FilterBarPromptPattern = "B"
	.FilterBarPromptVisible = &H913
	With .Columns.Item(0)
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
		.Filter = "Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarCaption = "len(value) ? `filter for: <fgcolor 808080>` + value  : `<fgcolor 808080>no filter`"
	.FilterBarPromptVisible = &H12
	With .Columns.Item(0)
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarCaption = "`<r>` + value"
	.FilterBarPromptVisible = &H813
	With .Columns.Item(0)
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

' Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
Private Sub Extree1_Click(ByVal sender As System.Object) Handles Extree1.Click
	With Extree1
		.ClearFilter()
	End With
End Sub

' FilterChange event - Notifies your application that the filter is changed.
Private Sub Extree1_FilterChange(ByVal sender As System.Object) Handles Extree1.FilterChange
	With Extree1
		Debug.Print( "Items.MatchItemCount" )
		Debug.Print( .Items.MatchItemCount )
		Debug.Print( .FormatABC("value < 0 ? `filter applied: ` + abs(value + 1) + ` result(s)` : `no filter`",.Items.MatchItemCount) )
	End With
End Sub

With Extree1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarPromptVisible = exontrol.EXTREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptPattern = "Item"
	.EndUpdate()
End With

' Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
Private Sub Extree1_Click(ByVal sender As System.Object) Handles Extree1.Click
	With Extree1
		.ClearFilter()
	End With
End Sub

With Extree1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarPromptVisible = exontrol.EXTREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptPattern = "B"
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarPromptPattern = "B"
	.FilterBarPromptVisible = &H3
	With .Columns.Item(0)
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
		.Filter = "Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarPromptVisible = exontrol.EXTREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptPattern = "B"
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarCaption = "len(value) = 0 ? `<fgcolor=808080>no filter` : value"
	.FilterBarPromptVisible = exontrol.EXTREELib.FilterBarVisibleEnum.exFilterBarVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
		.Filter = "Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

Dim h
With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.VisualDesign = "gBFLBWIgBAEHhEJAEGg6VAkHeLpgwChAOhULB8XAUUg8MAAREEHGMcgRCJ0ei8dhABDEcQAAYAQGKIYBkAKBQAGaAoDDMOQwQwAAxjGKEEwsACEIrjKCRShyCYZRhGc" & _
"TSBCIZBqEqSZLiEZRQiiCYsS5GQBRWAkEwiBiEQTjea5CgOIAFS7LIqjRQEBxhIaZYIGaiQADENo9TxIMZAfBIHShK6NJABCCSQKkYx0HScRijDIEFwGIQmbKiej4DCi" & _
"CQQW7OYYRVCNMQSfa8HivJyrcamfp/YBgOBYHb1eLVPR5LwfPCGUw1P6PLxkORZHimK4tSLHV7xVpMIwZFafIQhCCoHomS5NU7UNR0TQUFx9FaGX7rDDsGwLAJ6XRgF4" & _
"bg2VpnHePpenAN4bH2GwHFmApSjEGBLnWOpRGOTBZHOegrE6BxPiWVJqCweQrn0LgJAWJBjwgaw1gKO5HmWch5h+fovF+G5bmich4BgfZkB8dynRUVYqiUR5rnmex/F6" & _
"N4tn2AJfnebZ3DEXw3HWXgzAyIwgicKJKBKEIhCeCgiHyHYFEmSAFmqBghFIdgSCeIJygYDAyAgJx6AoIINAMOJNCgCZCGoGoLmMCI+CwJoihMNglCCIhzFCUg0EmMhg" & _
"hWDBkAiQg9CUY4jEYN4Jk2IxklYJoJHIUg+CSZJSESFwkkkGI+FOFIJEIRhPhMCRJCSVoRrSBhiDgTZjHYT4PEkYhwhgJYm0SaIaiaSYuE+GQNlmCIBGCJxjhiZQ5AkM" & _
"hAg6ExJCkPhPguaAiFYUAlAkKZ0g6HoOEmWR/GHcA4m0OwIlIJIHCRgQshGJhpjoaocieaZiC6GAimkUgehIOwnGYGYIGkah6jaE4rg6SpCjKK5rEOMYlGIGIihKOggl" & _
"oFoqj6L5aGaBo6CkGIkAQjiPpCAAaJILCTJQlKPACDaXJgmSaJsnCdJ4nygKEoijKQpSmKcqCpKoqysK0rivLAsSyLMtC1LYty4Lkui7LwvS+L8wDBMIwzEMUxjHMgyT" & _
"KMszDNM4zzQNE0jTNQ1TWNc2DZNo2zcN03jfOA4TiOM5DlOY5zoOk6jrOw7TuO88DxPI8z0PU9j3Pg+T6Ps/D9P4/0AQFAkDQRBUGQdCEJQpC0MQ1DkPRBEUSRNFEVBh" & _
"FkXRhGQ9D6Dxfh+W5gGGd4QH2XQjCmDpFFaKoVB+D5Xmed5+H8YAHnIAh9EwV5Fl0d4MkMKJICmSgygSJAoEmMUCIPgnDCCIOQFYCxJjwFoCcA4kxoF+AIJkAgExegDE" & _
"gEYQInAzCUAIOEGgfxiiRDYF1Q4EQ2BSCaEQYwbAiKREMpRSymFNDIAkAxT6oVRgSA2qdVKq1WqvVirMZQUhSCnBUMoIgoQRgnGSIQUgkg1hIHYAkAYMROAmHiLsE4xx" & _
"SCxBwEwCQ0wmDdBsE0GYXBtg2CSPMFIuwYiQBYBQeAcwOCnBCCZgw0g0glBONAQgqQThCGgPQGoBQfiRGmOEZIPAXjsBoPAO4HRThhA0EQSA5BAgaCKJIGg3QdhOCmNU" & _
"BoQAijTCIF0FwQxpCHDIPAYYMQGgtCmFcaQtRAjZCyFYSojQ2B2BoKwIYFApBXEIBsIQ1QsAWAWEwaA1xCgjAoIAQBAQ="
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,,"Child")
	End With
	.EndUpdate()
End With

Dim h
With Extree1
	.BeginUpdate()
	With .VisualAppearance
		.Add(3,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5Jlg" & _
"XIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIR" & _
"gwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOM" & _
"INCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=")
		.Add(1,"CP:3 -2 -2 2 2")
		.Add(4,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCE" & _
"eBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchO" & _
"FSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQO" & _
"JtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=")
		.Add(2,"CP:4 -2 -2 2 2")
	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,,"Child 1")
		.InsertItem(h,,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,,"Child")
	End With
	.EndUpdate()
End With

Dim h
With Extree1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"XP:TREEVIEW 2 1")
		.Add(2,"XP:TREEVIEW 2 2")
	End With
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exTreeGlyphOpen,&H1000000)
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exTreeGlyphClose,&H2000000)
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,,"Child")
	End With
	.EndUpdate()
End With

With Extree1
	Debug.Print( .FormatABC("dpi = 1 ? `normal/stretch mode` : `dpi mode`") )
End With

Dim h
With Extree1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5Jlg" & _
"XIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIR" & _
"gwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOM" & _
"INCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=")
		.Add(2,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCE" & _
"eBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchO" & _
"FSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQO" & _
"JtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=")
	End With
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exTreeGlyphOpen,&H1000000)
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exTreeGlyphClose,&H2000000)
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,,"Child")
	End With
	.EndUpdate()
End With

' SelectionChanged event - Fired after a new item has been selected.
Private Sub Extree1_SelectionChanged(ByVal sender As System.Object) Handles Extree1.SelectionChanged
	With Extree1
		Debug.Print( "SelectionChanged" )
	End With
End Sub

With Extree1
	.BeginUpdate()
	.FreezeEvents(True)
	.SingleSel = True
	.SelectOnRelease = True
	.Columns.Add("Column").FormatColumn = "1 apos `A-Z`"
	With .Items
		.AddItem("")
		.set_SelectItem(.AddItem(""),True)
		.AddItem("")
	End With
	.FreezeEvents(False)
	.EndUpdate()
End With

' SelectionChanged event - Fired after a new item has been selected.
Private Sub Extree1_SelectionChanged(ByVal sender As System.Object) Handles Extree1.SelectionChanged
	With Extree1
		Debug.Print( "SelectionChanged" )
	End With
End Sub

With Extree1
	.BeginUpdate()
	.FreezeEvents(True)
	.AllowSelectNothing = True
	.Columns.Add("Column").FormatColumn = "1 apos `A-Z`"
	With .Items
		.AddItem("")
		.set_SelectItem(.AddItem(""),True)
		.AddItem("")
	End With
	.FreezeEvents(False)
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	With .Columns.Add("")
		.AllowSizing = False
		.AllowDragging = False
		.AllowSort = False
		.Width = 24
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasButton,True)
	End With
	.Columns.Add("Column").FormatColumn = "1 apos `A-Z`"
	With .Items
		.AddItem("")
		.set_SelectItem(.AddItem(""),True)
		.AddItem("")
	End With
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exSelBackColorHide,Color.FromArgb(196,196,196))
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exSelForeColorHide,Color.FromArgb(0,0,1))
	.EndUpdate()
End With

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Extree1_CellStateChanged(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Extree1.CellStateChanged
	With Extree1
		.Refresh()
	End With
End Sub

Dim h,hChild
With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.SelBackMode = exontrol.EXTREELib.BackModeEnum.exTransparent
	.DefaultItemHeight = 22
	With .Columns.Add("Tasks")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .VisualAppearance
		.Add(2,"gBFLBCJwBAEHhEJAAEhABUkIQAAYAQGKIcBiAKBQAGYBIJDEMQ3DjAUBjMK4ZwTC4AIQjCK4JDKHYJRpHEZgLBMJAAGIZYhhUYRUiYMkiJBGGDIDiGGI2SJAcbTVIEc" & _
"x9EyUJSgSTJOjCMokTTIU4TTLYASbJafJJhWSaAiyMouDIOMg1BDNIw/Hika6jOgKUisNJXRzWIBTbDlOQ3JqnbCjOQRSrQBoNDAMAiiaKlbwJPK9RoieQXfwUAJrXJc" & _
"FqXFSLVxNBKAQEBA=")
		.Add(1,"CP:2 1 1 -1 -1")
	End With
	With .ConditionalFormats.Add("%CS0 = 1")
		.BackColor32 = &H1000000
	End With
	.HeaderVisible = True
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.set_SelectItem(hChild,True)
		hChild = .InsertItem(h,,"Task 2")
		.set_CellState(hChild,1)
		hChild = .InsertItem(h,,"Task 3")
		.set_CellState(hChild,1)
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

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 = "%CS0 = 1 ? `<bgcolor=000000><fgcolor=FFFFFF> ` + value + ` </fgcolor></bgcolor>` : value"
	End With
	.HeaderVisible = True
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.set_SelectItem(hChild,True)
		hChild = .InsertItem(h,,"Task 2")
		.set_CellState(hChild,1)
		hChild = .InsertItem(h,,"Task 3")
		.set_CellState(hChild,1)
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

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,,"Task 1")
		.set_SelectItem(hChild,True)
		hChild = .InsertItem(h,,"Task 2")
		.set_CellState(hChild,1)
		hChild = .InsertItem(h,,"Task 3")
		.set_CellState(hChild,1)
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Extree1_CellStateChanged(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Extree1.CellStateChanged
	With Extree1
		.Refresh()
	End With
End Sub

Dim f,h,hChild
With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.DefaultItemHeight = 22
	With .Columns.Add("Tasks")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .ConditionalFormats.Add("%CS0 = 1")
		f = New stdole.StdFont()
		With f
			.Name = Extree1.Font.Name
			.Size = 12
		End With
		.Font = f
	End With
	.HeaderVisible = True
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.set_SelectItem(hChild,True)
		hChild = .InsertItem(h,,"Task 2")
		.set_CellState(hChild,1)
		hChild = .InsertItem(h,,"Task 3")
		.set_CellState(hChild,1)
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Extree1_CellStateChanged(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Extree1.CellStateChanged
	With Extree1
		.Refresh()
	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
	End With
	With .ConditionalFormats.Add("%CS0 = 1")
		.Bold = True
	End With
	.HeaderVisible = True
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.set_SelectItem(hChild,True)
		hChild = .InsertItem(h,,"Task 2")
		.set_CellState(hChild,1)
		hChild = .InsertItem(h,,"Task 3")
		.set_CellState(hChild,1)
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Extree1_CellStateChanged(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Extree1.CellStateChanged
	With Extree1
		.Refresh()
	End With
End Sub

Dim h,hChild
With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.SelBackMode = exontrol.EXTREELib.BackModeEnum.exTransparent
	With .Columns.Add("Tasks")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .ConditionalFormats.Add("%CS0 = 1")
		.ForeColor = Color.FromArgb(255,128,128)
	End With
	.HeaderVisible = True
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.set_SelectItem(hChild,True)
		hChild = .InsertItem(h,,"Task 2")
		.set_CellState(hChild,1)
		hChild = .InsertItem(h,,"Task 3")
		.set_CellState(hChild,1)
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Extree1_CellStateChanged(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Extree1.CellStateChanged
	With Extree1
		.Refresh()
	End With
End Sub

Dim h,hChild
With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.SelBackMode = exontrol.EXTREELib.BackModeEnum.exTransparent
	With .Columns.Add("Tasks")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .ConditionalFormats.Add("%CS0 = 1")
		.BackColor = Color.FromArgb(255,128,128)
	End With
	.HeaderVisible = True
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.set_SelectItem(hChild,True)
		hChild = .InsertItem(h,,"Task 2")
		.set_CellState(hChild,1)
		hChild = .InsertItem(h,,"Task 3")
		.set_CellState(hChild,1)
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	With .Columns
		.Add("C1").set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.Add("C2").FormatColumn = "1 index `A-Z`"
		.Add("C3").FormatColumn = "100 index ``"
	End With
	With .Items
		.AddItem("Item 1")
		.set_CellState(.AddItem("Item 2"),1)
		.set_CellState(.AddItem("Item 3"),1)
	End With
	.EndUpdate()
	Debug.Print( "Export CSV Items including Check-State:" )
	.BeginUpdate()
	With .Columns.Add("Check")
		.Position = 0
		.FormatColumn = "%CS0"
	End With
	Debug.Print( .Export("") )
	.Columns.Remove("Check")
	.EndUpdate()
End With

' 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
		Debug.Print( "BeforeExpandItem" )
		Debug.Print( Item )
		Debug.Print( "ColumnFromPoint" )
		Debug.Print( .get_ColumnFromPoint(-1,-1) )
		Debug.Print( "ColumnFromPoint return -1, if the user clicks the +/- glitch, else it returns the index of the column where the click occurs." )
		.Items.InsertItem(Item,,"new child")
	End With
End Sub

With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	With .Columns
		.Add("Items").DisplayFilterButton = True
	End With
	With .Items
		.set_ItemHasChildren(.InsertItem(,,"Group 1"),True)
		.set_ItemHasChildren(.InsertItem(,,"Group 2"),True)
	End With
	.EndUpdate()
End With

' 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
		Debug.Print( "BeforeExpandItem" )
		Debug.Print( Item )
		.Items.InsertItem(Item,,"new child")
	End With
End Sub

With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	With .Columns
		With .Add("Items")
			.DisplayFilterButton = True
			.FilterList = exontrol.EXTREELib.FilterListEnum.exRootItems
		End With
	End With
	With .Items
		.set_ItemHasChildren(.InsertItem(,,"Group 1"),True)
		.set_ItemHasChildren(.InsertItem(,,"Group 2"),True)
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" & _
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" & _
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA")
	End With
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exHeaderFilterBarButton,&H1000000)
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.None2
	.BackColorHeader = Color.FromArgb(0,0,0)
	.ForeColorHeader = Color.FromArgb(255,255,255)
	.HeaderVisible = True
	.BackColorLevelHeader = .BackColor
	With .Columns.Add("Filter")
		.DisplayFilterButton = True
		.AllowSort = False
		.AllowDragging = False
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	With .VisualAppearance
		.Add(2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgAN" & _
"J0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8Y" & _
"NYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4" & _
"hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mg" & _
"bhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhW" & _
"BMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=")
		.Add(1,"CP:2 -14 -4 -2 4")
	End With
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exHeaderFilterBarButton,&H1000000)
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exCursorHoverColumn,.BackColor)
	.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.None2
	.BackColorHeader = Color.FromArgb(255,255,255)
	.HeaderVisible = True
	.HeaderHeight = 24
	.BackColorLevelHeader = .BackColor
	With .Columns.Add("Filter")
		.DisplayFilterButton = True
		.AllowSort = False
		.AllowDragging = False
	End With
	.EndUpdate()
End With

Dim rs
With Extree1
	.BeginUpdate()
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\Access2007\sample.accdb",3,3)
	End With
	.DataSource = rs
	.EndUpdate()
	' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
	With New exontrol.EXPRINTLib.exprint()
		.Options = "FitToPage =2 x 1"
		.PrintExt = Extree1
		.Preview()
	End With
End With

Dim rs
With Extree1
	.BeginUpdate()
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\Access2007\sample.accdb",3,3)
	End With
	.DataSource = rs
	.EndUpdate()
	' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
	With New exontrol.EXPRINTLib.exprint()
		.Options = "FitToPage = x 2"
		.PrintExt = Extree1
		.Preview()
	End With
End With

Dim rs
With Extree1
	.BeginUpdate()
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\Access2007\sample.accdb",3,3)
	End With
	.DataSource = rs
	.EndUpdate()
	' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
	With New exontrol.EXPRINTLib.exprint()
		.Options = "FitToPage = 2 x"
		.PrintExt = Extree1
		.Preview()
	End With
End With

Dim rs
With Extree1
	.BeginUpdate()
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\Access2007\sample.accdb",3,3)
	End With
	.DataSource = rs
	.EndUpdate()
	' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
	With New exontrol.EXPRINTLib.exprint()
		.Options = "FitToPage = 50%"
		.PrintExt = Extree1
		.Preview()
	End With
End With

' CellStateChanging event - Fired before cell's state is about to be changed.
Private Sub Extree1_CellStateChanging(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer,ByRef NewState As Integer) Handles Extree1.CellStateChanging
	With Extree1
		With .Items
			NewState = .get_CellState(Item,ColIndex)
		End With
	End With
End Sub

Dim h
With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("P1")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .Columns.Add("P2")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Extree1_CellStateChanged(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Extree1.CellStateChanged
End Sub

Dim h
With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exGroupLinesInsideLeaf
	.SelBackMode = exontrol.EXTREELib.BackModeEnum.exTransparent
	With .Columns.Add("Items")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .Columns.Add("Format")
		.FormatColumn = "%CS0"
		.Caption = .FormatColumn
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellForeColor,8421504)
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exHeaderForeColor,.get_Def(exontrol.EXTREELib.DefColumnEnum.exCellForeColor))
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,,"Item 1")
		.set_CellState(.InsertItem(h,,"Item 2"),0,1)
		.set_CellState(.InsertItem(h,,"Item 3"),0,1)
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.Columns.Add("Items")
	With .Columns.Add("Format")
		.FormatColumn = "%CD0"
		.Caption = .FormatColumn
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellForeColor,8421504)
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exHeaderForeColor,.get_Def(exontrol.EXTREELib.DefColumnEnum.exCellForeColor))
	End With
	With .Items
		.set_CellData(.AddItem("Item 1"),0,1234)
		.set_CellData(.AddItem("Item 2"),0,"this is just an user data")
		.set_CellData(.AddItem("Item 3"),0,#1/1/2001#)
	End With
	.EndUpdate()
End With

Dim h
With Extree1
	.BeginUpdate()
	.Columns.Add("Items")
	With .Columns.Add("Format")
		.FormatColumn = "%0"
		.Caption = .FormatColumn
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellForeColor,8421504)
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exHeaderForeColor,.get_Def(exontrol.EXTREELib.DefColumnEnum.exCellForeColor))
		.Width = 96
		.AllowSizing = False
	End With
	With .Columns.Add("Format")
		.FormatColumn = "%C0"
		.Caption = .FormatColumn
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellForeColor,8421504)
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exHeaderForeColor,.get_Def(exontrol.EXTREELib.DefColumnEnum.exCellForeColor))
		.Width = 96
		.AllowSizing = False
	End With
	With .Items
		.AddItem(1)
		h = .AddItem(0)
		.set_CellCaption(h,0,"<b>HTML</b> Text")
		.set_CellCaptionFormat(h,0,exontrol.EXTREELib.CaptionFormatEnum.exHTML)
		.AddItem(2)
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.set_RadioImage(False,32699122)
	.set_RadioImage(True,16777216)
	.Columns.Add("Check").set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasRadioButton,True)
	With .Items
		.AddItem("Radio 1")
		.set_CellState(.AddItem("Radio 2"),0,1)
		.AddItem("Radio 1")
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.set_CheckImage(exontrol.EXTREELib.CheckStateEnum.Unchecked,32699122)
	.set_CheckImage(exontrol.EXTREELib.CheckStateEnum.Checked,16777216)
	.Columns.Add("Check").set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
	With .Items
		.AddItem("Check 1")
		.set_CellState(.AddItem("Check 2"),0,1)
		.AddItem("Check 3")
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.HeaderHeight = 48
	.ColumnAutoResize = True
	With .Columns
		.Add("And others ...")
		With .Add("")
			.HTMLCaption = "First Column"
			.HeaderVertical = True
			.Width = 36
			.AllowSizing = False
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellPaddingLeft,8)
			.Position = 0
		End With
		With .Add("")
			.HTMLCaption = "<c><b>Second Column"
			.HeaderVertical = True
			.Width = 36
			.AllowSizing = False
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellPaddingLeft,8)
			.Position = 1
		End With
		With .Add("")
			.HTMLCaption = "<r>Third Column"
			.HeaderVertical = True
			.Width = 36
			.AllowSizing = False
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellPaddingLeft,8)
			.Position = 2
		End With
	End With
	With .Items
		.set_CellState(.AddItem("Item 1"),3,1)
		.set_CellState(.AddItem("Item 2"),2,1)
		.set_CellState(.AddItem("Item 3"),1,1)
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.HeaderHeight = 48
	.HeaderSingleLine = False
	.ColumnAutoResize = True
	With .Columns
		.Add("And others ...")
		With .Add("First Column")
			.HeaderVertical = True
			.Width = 36
			.AllowSizing = False
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellPaddingLeft,8)
			.Position = 0
		End With
		With .Add("Second Column")
			.HeaderBold = True
			.HeaderVertical = True
			.Width = 36
			.AllowSizing = False
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellPaddingLeft,8)
			.Position = 1
		End With
		With .Add("Third Column")
			.HeaderVertical = True
			.Width = 36
			.AllowSizing = False
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellPaddingLeft,8)
			.Position = 2
		End With
	End With
	With .Items
		.set_CellState(.AddItem("Item 1"),3,1)
		.set_CellState(.AddItem("Item 2"),2,1)
		.set_CellState(.AddItem("Item 3"),1,1)
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.HeaderHeight = 48
	.ColumnAutoResize = True
	With .Columns
		.Add("And others ...")
		With .Add("")
			.HTMLCaption = "First"
			.HeaderVertical = True
			.Width = 20
			.AllowSizing = False
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.Position = 0
		End With
		With .Add("")
			.HTMLCaption = "<c><b>Second"
			.HeaderVertical = True
			.Width = 20
			.AllowSizing = False
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.Position = 1
		End With
		With .Add("")
			.HTMLCaption = "<r>Third"
			.HeaderVertical = True
			.Width = 20
			.AllowSizing = False
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.Position = 2
		End With
	End With
	With .Items
		.set_CellState(.AddItem("Item 1"),3,1)
		.set_CellState(.AddItem("Item 2"),2,1)
		.set_CellState(.AddItem("Item 3"),1,1)
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.HeaderHeight = 48
	.ColumnAutoResize = True
	With .Columns
		.Add("And others ...")
		With .Add("First")
			.HeaderVertical = True
			.Width = 20
			.AllowSizing = False
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.Position = 0
		End With
		With .Add("Second")
			.HeaderBold = True
			.HeaderVertical = True
			.Width = 20
			.AllowSizing = False
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.Position = 1
		End With
		With .Add("Third")
			.HeaderVertical = True
			.Width = 20
			.AllowSizing = False
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
			.Position = 2
		End With
	End With
	With .Items
		.set_CellState(.AddItem("Item 1"),3,1)
		.set_CellState(.AddItem("Item 2"),2,1)
		.set_CellState(.AddItem("Item 3"),1,1)
	End With
	.EndUpdate()
End With

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Extree1_CellStateChanged(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Extree1.CellStateChanged
End Sub

With Extree1
	.BeginUpdate()
	.SelBackMode = exontrol.EXTREELib.BackModeEnum.exTransparent
	With .ConditionalFormats.Add("%CS0","check")
		.Bold = True
	End With
	.Columns.Add("Items").set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
	.Columns.Add(Extree1.ConditionalFormats.Item("check").Expression).FormatColumn = Extree1.ConditionalFormats.Item("check").Expression
	With .Items
		.AddItem("Item 1")
		.set_CellState(.AddItem("Item 2"),0,1)
		.AddItem("Item 3")
	End With
	.EndUpdate()
End With

Dim h0
With Extree1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.Indent = 16
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.FilterBarPromptVisible = True
	.FilterBarPromptPattern = "Nancy"
	.FilterInclude = exontrol.EXTREELib.FilterIncludeEnum.exItemsWithChilds
	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 = .InsertItem(h0,,"Andrew Fuller")
		.set_CellCaption(h0,1,"Vice President, Sales")
		.set_CellCaption(h0,2,"Tacoma")
		h0 = .InsertItem(h0,,"Michael Suyama")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Janet Leverling")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Kirkland")
		h0 = .InsertItem(h0,,"Margaret Peacock")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Redmond")
	End With
	.ApplyFilter()
	.EndUpdate()
End With

Dim h
With Extree1
	.BeginUpdate()
	With .Columns.Add("Date")
		.SortType = exontrol.EXTREELib.SortTypeEnum.SortDate
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.DisplayFilterDate = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsDesc
	End With
	With .Columns.Add("DateTime")
		.SortType = exontrol.EXTREELib.SortTypeEnum.SortDateTime
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsDesc
	End With
	With .Columns.Add("Time")
		.SortType = exontrol.EXTREELib.SortTypeEnum.SortTime
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsDesc
		.FormatColumn = "time(value)"
	End With
	With .Columns.Add("Numeric")
		.SortType = exontrol.EXTREELib.SortTypeEnum.SortNumeric
		.DisplayFilterButton = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsDesc
	End With
	With .Columns.Add("String")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.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
	.EndUpdate()
End With