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

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
		.FormatColumn = "1 index ``"
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,,"Child A")
		.InsertItem(h,,"Child B")
		.InsertItem(h,,"Child A")
		.InsertItem(h,,"Child B")
		.AddItem("Root")
		.AddItem("Root")
	End With
	.SingleSort = False
	.Layout = "multiplesort=""C0:1 C1:2"";collapse="""""
	.EndUpdate()
End With

// OLEStartDrag event is not supported. Use the DragEnter,DragLeave,DragOver, DragDrop ... events.
Dim h
With Extree1
	.OLEDropMode = exontrol.EXTREELib.exOLEDropModeEnum.exOLEDropManual
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exDragDropAfter,Color.FromArgb(255,255,255))
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		.set_ExpandItem(h,True)
	End With
End With

With Extree1
	.BeginUpdate()
	.MarkSearchColumn = False
	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"),0,1)
		.set_CellState(.AddItem("Item 3"),0,1)
	End With
	.EndUpdate()
	Debug.Print( "Export CSV Checked Items Only:" )
	Debug.Print( .Export("","chk") )
End With

With Extree1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .Columns
		.Add("C1")
		With .Add("C2")
			.FormatColumn = "1 index `A-Z`"
			.Visible = False
		End With
		With .Add("C3")
			.FormatColumn = "100 index ``"
			.Visible = False
		End With
	End With
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
	End With
	.EndUpdate()
	Debug.Print( "Export CSV Hidden Columns (1,2):" )
	Debug.Print( .Export("","|1,2") )
End With

Dim h,hChild
With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exRowLines
	.AutoDrag = exontrol.EXTREELib.AutoDragEnum.exAutoDragPositionAny
	.HasLines = exontrol.EXTREELib.HierarchyLineEnum.exSolidLine
	.Indent = 16
	.MarkSearchColumn = False
	With .Columns
		With .Add("")
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
			.FormatColumn = "((1:=(0 :=(1 rpos '.|A-Z||a-z|')) rfind `.`) < 0 ? `<b>` + =:0 + `` :  (=:0 mid (1 + 1 + =:1) )  + `)` ) + ` ` + value"
		End With
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,,"Child")
		hChild = .InsertItem(h,,"Child")
		.InsertItem(hChild,,"Child")
		.InsertItem(hChild,,"Child")
		.InsertItem(hChild,,"Child")
		.InsertItem(h,,"Child")
		.set_ExpandItem(0,True)
		h = .AddItem("Root")
		.InsertItem(h,,"Child")
		hChild = .InsertItem(h,,"Child")
		.set_CellState(hChild,0,1)
		.InsertItem(hChild,,"Child")
		.InsertItem(hChild,,"Child")
		.InsertItem(hChild,,"Child")
		.InsertItem(h,,"Child")
	End With
	.EndUpdate()
End With

Dim h,hChild
With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.GridLineColor = Color.FromArgb(190,190,190)
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exRowLines
	.AutoDrag = exontrol.EXTREELib.AutoDragEnum.exAutoDragPositionAny
	.HasLines = exontrol.EXTREELib.HierarchyLineEnum.exSolidLine
	.Indent = 16
	With .Columns
		.Add("Default")
		With .Add("")
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellPaddingRight,4)
			.AllowSizing = False
			.Width = 36
			.Position = 0
			.FormatColumn = "(1:=(0 :=(1 rpos '.|A-Z||a-z|')) rfind `.`) < 0 ? `<b>` + =:0 : (`............` left 2 * (=:0 count `.`)) + (=:0 mid (1 + 1 + =" & _
":1) ) "
		End With
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,,"Child")
		hChild = .InsertItem(h,,"Child")
		.InsertItem(hChild,,"Child")
		.InsertItem(hChild,,"Child")
		.InsertItem(hChild,,"Child")
		.InsertItem(h,,"Child")
		.set_ExpandItem(0,True)
		h = .AddItem("Root")
		.InsertItem(h,,"Child")
		hChild = .InsertItem(h,,"Child")
		.set_CellState(hChild,0,1)
		.InsertItem(hChild,,"Child")
		.InsertItem(hChild,,"Child")
		.InsertItem(hChild,,"Child")
		.InsertItem(h,,"Child")
	End With
	.EndUpdate()
End With

Dim h,hChild
With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exRowLines
	.AutoDrag = exontrol.EXTREELib.AutoDragEnum.exAutoDragPositionAny
	.HasLines = exontrol.EXTREELib.HierarchyLineEnum.exSolidLine
	.Indent = 16
	With .Columns
		.Add("Default")
		With .Add("")
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellPaddingRight,4)
			.Alignment = exontrol.EXTREELib.AlignmentEnum.RightAlignment
			.AllowSizing = False
			.Width = 24
			.Position = 0
			.FormatColumn = "(1:=(0 :=(1 rpos '.|A-Z||a-z|')) rfind `.`) < 0 ? `<b>` + =:0 : `<i>` + (=:0 mid (1 + 1 + =:1) ) "
		End With
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,,"Child")
		hChild = .InsertItem(h,,"Child")
		.InsertItem(hChild,,"Child")
		.InsertItem(hChild,,"Child")
		.InsertItem(hChild,,"Child")
		.InsertItem(h,,"Child")
		.set_ExpandItem(0,True)
		h = .AddItem("Root")
		.InsertItem(h,,"Child")
		hChild = .InsertItem(h,,"Child")
		.set_CellState(hChild,0,1)
		.InsertItem(hChild,,"Child")
		.InsertItem(hChild,,"Child")
		.InsertItem(hChild,,"Child")
		.InsertItem(h,,"Child")
	End With
	.EndUpdate()
End With

Dim h
With Extree1
	.BeginUpdate()
	.TreeColumnIndex = -1
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exRowLines
	With .Columns.Add("Default")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
	End With
	With .Items
		.set_CellHAlignment(.AddItem("all-left"),0,exontrol.EXTREELib.AlignmentEnum.LeftAlignment)
		.set_CellHAlignment(.AddItem("all-center"),0,exontrol.EXTREELib.AlignmentEnum.CenterAlignment)
		.set_CellHAlignment(.AddItem("all-right"),0,exontrol.EXTREELib.AlignmentEnum.RightAlignment)
		h = .AddItem("left<c>center<r>right")
		.set_CellCaptionFormat(h,0,exontrol.EXTREELib.CaptionFormatEnum.exHTML)
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	With .Columns
		With .Add("MultipleLine")
			.Width = 32
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellSingleLine,False)
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exColumnResizeContiguously,True)
		End With
		With .Add("SingleLine")
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellSingleLine,False)
		End With
	End With
	With .Items
		.set_CellCaption(.AddItem("This is a bit of long text that should break the line"),1,"This is a bit of long text that should break the line")
	End With
	.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
	With Extree1
		With .Items
			.set_CellData(Item,1,.get_ItemToIndex(Item))
		End With
	End With
End Sub

With Extree1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exAllLines
	.ColumnAutoResize = True
	.ShowFocusRect = False
	With .Columns.Add("Next")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellPaddingLeft,4)
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exHeaderPaddingLeft,4)
	End With
	With .Columns.Add("Index")
		.AllowSizing = False
		.Width = 48
		.FormatColumn = "(((0 := (1 index ``)) mod 3) case ( default: ``; 0 : `<r><fgcolor=B0B0B0>`; 1: ``; 2 : `<c><fgcolor=808080>` )) + str(=:0)"
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
		.SortType = exontrol.EXTREELib.SortTypeEnum.SortUserData
		.Position = 0
	End With
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem("Item 4")
		.AddItem("Item 5")
		.AddItem("Item 6")
		.AddItem("Item 7")
		.AddItem("Item 8")
		.AddItem("Item 9")
		.AddItem("Item 10")
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.ColumnAutoResize = True
	.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("C+B")
		.AllowSizing = False
		.Width = 48
		.FormatColumn = "` <img>` + ( 1 + (1 index ``) mod 3 ) + `</img> `"
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasButton,True)
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellButtonAutoWidth,True)
	End With
	.Columns.Add("")
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exVLines
	.DefaultItemHeight = 20
	With .Items
		.AddItem("")
		.AddItem("")
		.AddItem("")
		.AddItem("")
		.AddItem("")
		.AddItem("")
		.AddItem("")
		.AddItem("")
	End With
	.EndUpdate()
End With

' CellButtonClick event - Fired after the user clicks on the cell of button type. 
Private Sub Extree1_CellButtonClick(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Extree1.CellButtonClick
	With Extree1
			Debug.Print( "CellButtonClick" )
		Debug.Print( Item )
	End With
End Sub

' 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
			Debug.Print( "CellStateChanged" )
		Debug.Print( Item )
	End With
End Sub

With Extree1
	.BeginUpdate()
	.ColumnAutoResize = True
	With .Columns.Add("")
		.AllowSizing = False
		.Width = 32
		.FormatColumn = "1 index ``"
	End With
	With .Columns.Add("Def")
		.AllowSizing = False
		.Width = 48
		.FormatColumn = "`     `"
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasButton,True)
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellButtonAutoWidth,True)
	End With
	.Columns.Add("")
	With .Items
		.AddItem("")
		.AddItem("")
		.AddItem("")
		.AddItem("")
		.AddItem("")
		.AddItem("")
		.AddItem("")
		.AddItem("")
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	With .Columns.Add("Names")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exPattern
	End With
	With .Items
		.AddItem("Mantel")
		.AddItem("Mechanik")
		.AddItem("Motor")
		.AddItem("Murks")
		.AddItem("Märchen")
		.AddItem("Möhren")
		.AddItem("Mühle")
		.AddItem("Sérigraphie")
	End With
	.Columns.Item(0).Filter = "*ä*"
	.ApplyFilter()
	.EndUpdate()
End With

Dim rs
With Extree1
	.BeginUpdate()
	.MarkSearchColumn = False
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\VB\SAMPLE.MDB",3,3)
	End With
	.DataSource = rs
	With .Columns.Add("Pos")
		.Position = 0
		.FormatColumn = "0 index ``"
		.Width = 32
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellBackColor,15790320)
	End With
	.set_ScrollPos(True,13)
	.EndUpdate()
End With

Dim h
With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		h = .AddItem("Root")
		.set_CellCaption(h,1,"A")
		.set_CellCaption(.InsertItem(h,,"Child 1"),1,"B")
		.set_CellCaption(.InsertItem(h,,"Child 2"),1,"C")
		.set_ExpandItem(h,True)
	End With
	.SearchColumnIndex = 1
	Debug.Print( .SearchColumnIndex )
	Debug.Print( .get_FullPath(.Items.get_ItemByIndex(2)) )
	.SearchColumnIndex = 0
	Debug.Print( .SearchColumnIndex )
	Debug.Print( .get_FullPath(.Items.get_ItemByIndex(2)) )
	.EndUpdate()
End With

Dim h0
With Extree1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = True
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	With .Columns
		.Add("Name").Width = 96
		With .Add("Title")
			.Width = 96
		End With
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellCaption(h0,1,"Vice President, Sales")
		.set_CellCaption(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellCaption(h0,1,"Sales Manager")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellCaption(h0,1,"Inside Sales Coordinator")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
	End With
	.FilterBarPromptColumns = "1"
	.FilterBarPromptPattern = "Vice Inside"
	.FilterBarPromptType = exontrol.EXTREELib.FilterPromptEnum.exFilterPromptContainsAny
	.EndUpdate()
End With

Dim h0
With Extree1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = True
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	With .Columns
		.Add("Name").Width = 96
		With .Add("Title")
			.Width = 96
		End With
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellCaption(h0,1,"Vice President, Sales")
		.set_CellCaption(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellCaption(h0,1,"Sales Manager")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellCaption(h0,1,"Inside Sales Coordinator")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
	End With
	.FilterBarPromptColumns = "1"
	.FilterBarPromptPattern = "Vice Sales"
	.FilterBarPromptType = exontrol.EXTREELib.FilterPromptEnum.exFilterPromptContainsAll
	.EndUpdate()
End With

Dim h0
With Extree1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarHeight = 0
	.FilterBarPromptVisible = True
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellCaption(h0,1,"Vice President, Sales")
		.set_CellCaption(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellCaption(h0,1,"Sales Manager")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellCaption(h0,1,"Inside Sales Coordinator")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
	End With
	.FilterBarPromptPattern = "London"
	.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
	With Extree1
		With .Items
			.SetParent(Item,.get_FindItem(.get_CellCaption(Item,"ReportsTo"),"EmployeeID"))
		End With
	End With
End Sub

Dim rs
With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	rs = New ADODB.Recordset()
	With rs
		.Open("SELECT * FROM Employees ORDER BY ReportsTo","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\VB\SAMPLE.MDB",3,3)
	End With
	.DataSource = rs
	.Items.set_ExpandItem(0,True)
	.EndUpdate()
End With

' AllowAutoDrag event - Occurs when the user drags the item between InsertA and InsertB as child of NewParent.
Private Sub Extree1_AllowAutoDrag(ByVal sender As System.Object,ByVal Item As Integer,ByVal NewParent As Integer,ByVal InsertA As Integer,ByVal InsertB As Integer,ByRef Cancel As Boolean) Handles Extree1.AllowAutoDrag
	With Extree1
		With .Items
			Debug.Print( "NewParent" )
			Debug.Print( .get_CellCaption(NewParent,0) )
			Debug.Print( "After" )
			Debug.Print( .get_CellCaption(InsertA,0) )
			Debug.Print( "Before" )
			Debug.Print( .get_CellCaption(InsertB,0) )
		End With
		Cancel = True
	End With
End Sub

Dim h,h1,h2,h3
With Extree1
	.BeginUpdate()
	.AutoDrag = exontrol.EXTREELib.AutoDragEnum.exAutoDragPositionAny
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exNoLinesAtRoot
	.HasLines = exontrol.EXTREELib.HierarchyLineEnum.exThinLine
	.ShowFocusRect = False
	.Columns.Add("Task")
	With .Items
		h = .AddItem("Group 1")
		.set_ItemDivider(h,0)
		.set_ItemBold(h,True)
		h1 = .InsertItem(h,,"Task 1")
		h2 = .InsertItem(h,,"Task 2")
		h3 = .InsertItem(h,,"Task 3")
		.set_ExpandItem(h,True)
		h = .AddItem("Group 2")
		.set_ItemBold(h,True)
		.set_ItemDivider(h,0)
	End With
	.EndUpdate()
End With

Dim h
With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Default")
	.ASCIIUpper = ""
	With .Items
		h = .AddItem("L:")
		.InsertItem(h,,"test")
		.InsertItem(h,,"Test")
		.InsertItem(h,,"TEST")
		.set_ExpandItem(h,True)
		.set_ItemBold(.get_FindPath("L:\TEST"),True)
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exEnableToolTip Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem("Item 4")
	End With
	With .Columns.Item(0)
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilterExclude Or exontrol.EXTREELib.FilterTypeEnum.exFilter
		.Filter = "Item 1|Item 4"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.Columns.Add("Default")
	With .Items
		.set_CellImages(.AddItem(0),0,"1")
		.set_CellHasCheckBox(.AddItem(1),0,True)
		.set_CellImages(.AddItem(2),0,"1")
	End With
	.EndUpdate()
End With

' MouseDown event - Occurs when the user presses a mouse button.
Private Sub Extree1_MouseDownEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Extree1.MouseDownEvent
	' Items.EnsureVisibleItem(ItemFromPoint(-1,-1,c,hit))
End Sub

With Extree1
	.BeginUpdate()
	.TreeColumnIndex = -1
	.SelForeColor = .ForeColor
	With .Columns.Add("Buttons")
		.Alignment = exontrol.EXTREELib.AlignmentEnum.CenterAlignment
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasButton,True)
	End With
	With .Items
		.AddItem("Button A")
		.AddItem("Button B")
		.AddItem("Button C")
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	With .Columns.Add("")
		.Caption = ""
		.HTMLCaption = "Column"
	End With
	With .Items
		.set_CellToolTip(.AddItem("tooltip w/h different title"),0,"<c><b><fgcolor=FF0000>Title</fgcolor></b><br>This is bit of text that's shown when the user hovers the cell. This shows the tit" & _
"le centered with a different color.")
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	With .Columns.Add("")
		.Caption = "This is the title"
		.HTMLCaption = "Column"
	End With
	With .Items
		.set_CellToolTip(.AddItem("tooltip w/h different title"),0,"This is bit of text that's shown when the user hovers the cell.")
	End With
	.EndUpdate()
End With

Dim h
With Extree1
	.BeginUpdate()
	With .Columns
		.Add("C1")
		.Add("C2")
	End With
	With .Items
		h = .AddItem("tooltip w/h caption")
		.set_CellToolTip(h,0,"This is bit of text that's shown when the user hovers the cell. This shows the column's caption in the title.")
		.set_CellCaption(h,1,"tooltip no caption")
		.set_CellToolTip(h,1,"This is bit of text that's shown when the user hovers the cell. This shows no column's caption in the title.")
	End With
	With .Columns.Item("C2")
		.HTMLCaption = .Caption
		.Caption = ""
	End With
	.EndUpdate()
End With

' RClick event - Fired when right mouse button is clicked
Private Sub Extree1_RClick(ByVal sender As System.Object) Handles Extree1.RClick
	Dim c,hit,i
	With Extree1
		i = .get_ItemFromPoint(-1,-1,c,hit)
		.Columns.Item(c).ShowFilter("-1,-1,128,128")
	End With
End Sub

With Extree1
	.BeginUpdate()
	.ShowFocusRect = False
	With .Columns.Add("Items ")
		.DisplayFilterPattern = False
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
	End With
	.EndUpdate()
End With

' ColumnClick event - Fired after the user clicks on column's header.
Private Sub Extree1_ColumnClick(ByVal sender As System.Object,ByVal Column As exontrol.EXTREELib.Column) Handles Extree1.ColumnClick
	' Column.SortOrder = 1
	With Extree1
		.SortOnClick = exontrol.EXTREELib.SortOnClickEnum.exDefaultSort
		.Columns.Item("Sort").SortOrder = exontrol.EXTREELib.SortOrderEnum.SortAscending
		.SortOnClick = exontrol.EXTREELib.SortOnClickEnum.exUserSort
	End With
End Sub

With Extree1
	.BeginUpdate()
	.MarkSearchColumn = False
	.SortOnClick = exontrol.EXTREELib.SortOnClickEnum.exUserSort
	.Columns.Add("Items")
	.Columns.Add("Sort").Visible = False
	With .Items
		.set_CellCaption(.AddItem("Item 1 (3)"),1,3)
		.set_CellCaption(.AddItem("Item 2 (1)"),1,1)
		.set_CellCaption(.AddItem("Item 3 (2)"),1,2)
	End With
	.EndUpdate()
End With

' ColumnClick event - Fired after the user clicks on column's header.
Private Sub Extree1_ColumnClick(ByVal sender As System.Object,ByVal Column As exontrol.EXTREELib.Column) Handles Extree1.ColumnClick
	' Column.SortOrder = 1
	With Extree1
		.Items.SortChildren(0,"Sort",True)
	End With
End Sub

With Extree1
	.BeginUpdate()
	.MarkSearchColumn = False
	.SortOnClick = exontrol.EXTREELib.SortOnClickEnum.exUserSort
	.Columns.Add("Items")
	.Columns.Add("Sort").Visible = False
	With .Items
		.set_CellCaption(.AddItem("Item 1 (3)"),1,3)
		.set_CellCaption(.AddItem("Item 2 (1)"),1,1)
		.set_CellCaption(.AddItem("Item 3 (2)"),1,2)
	End With
	.EndUpdate()
End With

Dim h,hChild,hSubChild
With Extree1
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.MarkSearchColumn = False
	.Columns.Add("Items")
	.Columns.Add("Level").Visible = False
	With .Items
		h = .AddItem("Parent")
		.set_CellCaption(h,1,0)
		hChild = .InsertItem(h,,"Child 1.1")
		.set_CellCaption(hChild,1,1)
		hSubChild = .InsertItem(hChild,,"SubChild A")
		.set_CellCaption(hSubChild,1,2)
		hChild = .InsertItem(h,,"Child 1.2")
		.set_CellCaption(hChild,1,1)
		hSubChild = .InsertItem(hChild,,"SubChild B")
		.set_CellCaption(hSubChild,1,2)
		.set_ExpandItem(h,True)
	End With
	.FilterInclude = exontrol.EXTREELib.FilterIncludeEnum.exMatchingItemsOnly
	With .Columns.Item("Level")
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
		.Filter = 2
	End With
	.ApplyFilter()
End With

Dim h
With Extree1
	.BeginUpdate()
	.SingleSort = False
	With .Columns
		.Add("Index").FormatColumn = "1 index ``"
		.Add("Date").SortType = exontrol.EXTREELib.SortTypeEnum.SortDate
		With .Add("Time")
			.SortType = exontrol.EXTREELib.SortTypeEnum.SortTime
			.FormatColumn = "time(value)"
		End With
	End With
	With .Items
		h = .AddItem(0)
		.set_CellCaption(h,1,#1/1/2001#)
		.set_CellCaption(h,2,#1/1/2001 10:00:00 AM#)
		h = .AddItem(0)
		.set_CellCaption(h,1,#12/31/2000#)
		.set_CellCaption(h,2,#1/1/2001 10:00:00 AM#)
		h = .AddItem(0)
		.set_CellCaption(h,1,#1/1/2001#)
		.set_CellCaption(h,2,#1/1/2001 6:00:00 AM#)
		h = .AddItem(0)
		.set_CellCaption(h,1,#12/31/2000#)
		.set_CellCaption(h,2,#1/1/2001 8:00:00 AM#)
		h = .AddItem(0)
		.set_CellCaption(h,1,#1/1/2001#)
		.set_CellCaption(h,2,#1/1/2001 8:00:00 AM#)
		h = .AddItem(0)
		.set_CellCaption(h,1,#12/31/2000#)
		.set_CellCaption(h,2,#1/1/2001 6:00:00 AM#)
	End With
	.Layout = "multiplesort=""C1:1 C2:1"""
	.EndUpdate()
End With

Dim h
With Extree1
	.BeginUpdate()
	With .VisualAppearance
		.Add(3,"gBFLBCJwBAEHhEJAAChABDEMACAADACAxRDQNABQKAAzQFAYbBkGqGAAGIYxYgmFgAQhFcZQSKUOQTDKMIziaQIRg8JYlDTJcIjKKEVQHFiXIrAKKwEgmEQMQiCcbzX" & _
"IUBxAAqVZZFUaKAi+Qg4TLBAzUSAAYhtHqeJBjID4JA6UJXRpIAIQSSBUjGOg6TiMUYZAguAxCEzZUT0fAYUQSCC3ZzDCKoRpiCT7Xg8V5OVbjUz9P7AMBwLA7erxap6" & _
"PJeD54QymGp/R5eMhyLI8UxXFqRY6veKtJhGDIrT5CEIQVA9EyXJqnahqOiaCguPorQy/dYYdg2BYBPS6MAvG4bVrOd59XrgN42fY2ByzAqlMQwS7rOqiY6YWTnehWTo" & _
"HE+JZUmoLB5CufQuAkBYkGO+ZrDWAo7keZZyHmH5+i8X4bluaJyHgGB9mQHx3JjBpViqJRHmueZ7H8Xo3i2fYAl+d5tncMRfDcdZeDMDIjCCJwokoEoQiEJ4KCIfIdgU" & _
"SZIAWaoGCEUh2BIJ4gnKBgMDICAnHoCggg0Aw4k0KAJkIagaguYwIj4LAmiKEw2CUIIiHMUJSDQSYyGCFYMGQCJCD0JRjiMRg3gmTYjGSVgmgkchSD4JJklIRIXCSSQY" & _
"j4U4UgkQhGE+EwJEkJJWhGpgGGIOBNmMdhPg8SRiHCGAlibNhohqJpJi4T4ZA2WYIgEYInGOGJlDkCQyECDoTEkKQ+E+C5oCIVhQCUCQpnSDoeg4SZZH8YdhjibQ7AiU" & _
"gkgcJFyiyEYmGmOhqhyJ5pmILoYCKaRSB6Eg7CcZgZggaRqHqNoTiuDpKkKMormsQ4xiUYgYiKEo6CCWgWiqPovloZoGjoKQYiQBCAg==")
		.Add(4,"gBFLBCJwBAEHhEJAAChABDcMACAADACAxRDQNABQKAAzQFAYbBkGqGAAGIYxYgmFgAQhFcZQSKUOQTDKMIziaQIRg8JYlDTJcIjKKEVQHFiXIrAKKwEgmEQMQiCcbzX" & _
"IUBxAAqVZZFUaKAi+Qg4TLBAzUSAAYhtHqeJBjID4JA6UJXRpIAIQSSBUjGOg6TiMUYZAguAxCEzZUT0fAYUQSCC3ZzDCKoRpiCT7Xg8V5OVbjUz9P7AMBwLA7erxap6" & _
"PJeD54QymGp/R5eMhyLI8UxXFqRY6veKtJhGDIrT5CEIQVA9EyXJqnahqOiaCguPorQy/dYYdg2BYBPS6MAvG4bVrOd59XrgN42fY2ByzAqlMQwS7rOqiY6YWTnehWTo" & _
"HE+JZUmoLB5CufQuAkBYkGO+ZrDWAo7keZZyHmPQ+g8X4fluYBhneEB9l0Iwpg6RRWiqFQfg+V5nnefh/GAB5yAIfRMFeRZdHeDJDCiSApkoMoEiQKBJmKCIfCcYQiHI" & _
"FYFkmeBaBOA5JmgMIhgITICAmXoBkgIxAk4MxKAIcIaD+YpIjYLoLmMCI2CkJoiGMNgiCCIhDFCUg0EmMhghWDBkAkBg9CUY4jEYN4JA2IxklYJoJHIUg+CSZJSESFwk" & _
"mUKRSFOFRlCIUIRhOZJCFISQ1iQdgEgGGJOBMeJdhOY5SFiHAmAkaYmG6GwmhmLhthsJJ5hSXYYkgFgKHgOYOFOEITCQCJpDSEoTmgQhUhOIRoHoGoCh+SJpnCZIeBed" & _
"gaHgO4OlOMINCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYYYgaFopiuaRakCbIsisSpGjYOwaFYIYKCkK5CA2IRqiwCwFiYaBrkKEYKEAQCAgA==")
		.Add(1,"CP:3 -4 -4 4 4")
		.Add(2,"CP:4 -4 -4 4 4")
	End With
	.DefaultItemHeight = 22
	.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 rs
With Extree1
	.BeginUpdate()
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Select * From foxcode.DBF","Provider=vfpoledb;Data Source=C:\Program Files\Microsoft Visual FoxPro 9\",3,3)
	End With
	.DataSource = rs
	.EndUpdate()
End With

Dim rs
With Extree1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\VB\SAMPLE.MDB",3,3)
	End With
	.DataSource = rs
	.EndUpdate()
	' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
	With New exontrol.EXPRINTLib.exprint()
		.Options = "FitToPage = On"
		.PrintExt = Extree1
		.Preview()
	End With
End With

Dim rs
With Extree1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\VB\SAMPLE.MDB",3,3)
	End With
	.DataSource = rs
	.AutoDrag = exontrol.EXTREELib.AutoDragEnum.exAutoDragScrollOnShortTouch Or exontrol.EXTREELib.AutoDragEnum.exAutoDragScroll
	.ScrollBySingleLine = True
	.ContinueColumnScroll = True
	.EndUpdate()
End With

With Extree1
	.BackColorAlternate32 = &H7ff0f0f0
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem("Item 4")
		.AddItem("Item 5")
	End With
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
		With .Items
			.set_CellCaption(Item,2,.get_CellState(Item,0))
		End With
	End With
End Sub

Dim h,var_ConditionalFormat
With Extree1
	.BeginUpdate()
	.ShowFocusRect = False
	.MarkSearchColumn = False
	.SelBackMode = exontrol.EXTREELib.BackModeEnum.exTransparent
	var_ConditionalFormat = .ConditionalFormats.Add("%2 != 0")
	With var_ConditionalFormat
		.Bold = True
		.ForeColor = Color.FromArgb(255,0,0)
		.ApplyTo = exontrol.EXTREELib.FormatApplyToEnum.exFormatToItems
	End With
	With .Columns.Add("")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.Width = 16
		.AllowSizing = False
	End With
	.Columns.Add("Information")
	.Columns.Add("Hidden").Visible = False
	With .Items
		.set_CellCaption(.AddItem(""),1,"This is a bit of text associated")
		h = .AddItem("")
		.set_CellCaption(h,1,"This is a bit of text associated")
		.set_CellState(h,0,1)
		.set_CellCaption(.AddItem(""),1,"This is a bit of text associated")
	End With
	.EndUpdate()
End With

' AfterCellEdit event - Occurs after data in the current cell is edited.
Private Sub Extree1_AfterCellEdit(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer,ByVal NewCaption As String) Handles Extree1.AfterCellEdit
	With Extree1
		.Items.set_CellCaption(Item,ColIndex,NewCaption)
	End With
End Sub

' CancelCellEdit event - Occurs if the edit operation is canceled.
Private Sub Extree1_CancelCellEdit(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer,ByVal Reserved As Object) Handles Extree1.CancelCellEdit
	With Extree1
		.Items.set_CellCaption(Item,ColIndex,Reserved)
	End With
End Sub

' 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
		With .Items
			.Edit(.FocusItem,0)
		End With
	End With
End Sub

With Extree1
	.AllowEdit = True
	.Columns.Add("Column")
	.Items.AddItem("Item 1")
	.Items.AddItem("Item 2")
	.Items.AddItem("")
End With

With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem("Item 4")
	End With
	With .Columns.Item(0)
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilterExclude Or exontrol.EXTREELib.FilterTypeEnum.exFilter
		.Filter = "Item 1|Item 4"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Extree1
	.ColumnAutoResize = False
	With .Columns
		.Add("City").Visible = False
		.Add("Start").Visible = False
		.Add("End").Visible = False
	End With
	.ColumnsFloatBarVisible = True
	.ColumnsFloatBarSortOrder = exontrol.EXTREELib.SortOrderEnum.SortAscending
End With

With Extree1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exAllLines
	With .Columns.Add("Padding")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellSingleLine,False)
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellPaddingLeft,6)
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellPaddingRight,6)
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellPaddingTop,6)
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellPaddingBottom,6)
	End With
	With .Items
		.AddItem("padding")
		.AddItem("padding")
	End With
	.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
	With Extree1
		Debug.Print( "Adding ..." )
		Debug.Print( .Items.get_CellCaption(Item,0) )
	End With
End Sub

Dim h
With Extree1
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Def")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
	End With
	Debug.Print( "Call PutItems" )
	.PutItems(.GetItems(-1))
End With

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

With Extree1
	.BeginUpdate()
	With .Columns
		.Add("Car").set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
	End With
	With .Items
		.AddItem("<a mazda_1;options for 1>Mazda <b>1</b></a>")
		.AddItem("<a mazda_2;options for 2>Mazda <b>2</b></a>")
		.AddItem("<a mazda_3;options for 3a>Mazda <b>3.a</b></a>")
		.AddItem("<a mazda_3;options for 3b>Mazda <b>3.b</b></a>")
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BVEIQAAYAQGKIYBkAKBQAGaAoDDMOQwQwAAxjGKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQCWIAzATGYBRfIUEgjBM6ExwG78e" & _
"gBHp/ZpkACIJJAaRjHQdJxGKKMQB9DIhCZpeKhWgkKIJBzOEyBRC4ERBGqNGrsIgLEqWZpnWhaNpWXYTLyBN64LhuK46g53O6wLxvK6hEr2dJ/YBcIAOfghf4NQ7EMRx" & _
"LC8Mw3BDvYDkOAABAIgI=")
	.SelBackColor32 = &H1fffffe
	.ShowFocusRect = False
	.Columns.Add("Items")
	With .Items
		.set_ItemBackColor(.AddItem("red"),Color.FromArgb(255,0,0))
		.set_ItemBackColor(.AddItem("blue"),Color.FromArgb(0,0,255))
		.set_ItemBackColor(.AddItem("green"),Color.FromArgb(0,255,0))
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.SelBackMode = exontrol.EXTREELib.BackModeEnum.exTransparent
	.ShowFocusRect = False
	.Columns.Add("Items")
	With .Items
		.set_ItemBackColor(.AddItem("red"),Color.FromArgb(255,0,0))
		.set_ItemBackColor(.AddItem("blue"),Color.FromArgb(0,0,255))
		.set_ItemBackColor(.AddItem("green"),Color.FromArgb(0,255,0))
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.SelBackColor = .BackColor
	.SelForeColor = .ForeColor
	.ShowFocusRect = True
	.Columns.Add("Items")
	With .Items
		.set_ItemBackColor(.AddItem("red"),Color.FromArgb(255,0,0))
		.set_ItemBackColor(.AddItem("blue"),Color.FromArgb(0,0,255))
		.set_ItemBackColor(.AddItem("green"),Color.FromArgb(0,255,0))
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.ColumnAutoResize = False
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exAllLines
	With .Columns
		With .Add("C0")
			.ExpandColumns = "1,2"
			.DisplayExpandButton = False
		End With
		.Add("C1")
		.Add("C2")
		.Add("C3")
		With .Add("C4")
			.ExpandColumns = "5,6"
			.DisplayExpandButton = False
		End With
		.Add("C5")
		With .Add("C6")
			.ExpandColumns = "6,7"
			.DisplayExpandButton = False
		End With
		.Add("C7")
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exAllLines
	.BackColorLevelHeader = Color.FromArgb(240,240,240)
	With .Columns
		With .Add("Photo")
			.AllowSizing = False
			.Width = 32
		End With
		.Add("Personal Info")
		.Add("Title")
		.Add("Name")
		.Add("First")
		.Add("Last")
		.Add("Address")
		.Item("Personal Info").ExpandColumns = "2,3"
		With .Item("Name")
			.ExpandColumns = "4,5"
			.Expanded = False
		End With
	End With
	.EndUpdate()
End With

Dim h
With Extree1
	.ColumnAutoResize = False
	.HeaderHeight = 28
	.DefaultItemHeight = 24
	With .Columns
		With .Add("Column 1")
			.HTMLCaption = "Column <b><off 2><font ;6>1"
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
		End With
		With .Add("Column 2")
			.HTMLCaption = "Column <b><off 2><font ;6>2"
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
		End With
		With .Add("Column 3")
			.HTMLCaption = "Column <b><off 2><font ;6>3"
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
		End With
	End With
	With .Items
		h = .AddItem("Item <font ;6><off 4>1")
		.set_CellCaption(h,1,"Item <font ;6><off -6>2")
		.set_CellCaption(h,2,"Item <b><font ;6><off -6>2<off 4>3<off 4>1")
	End With
End With

With Extree1
	.BeginUpdate()
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
	End With
	.Layout = "Select=""0"";SingleSort=""C0:2"";Columns=1"
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
	End With
	.Layout = "gBjAAwAAuABmABpABsAB0ABlAByhoAPIAOEPAA9gYABoABQAgUEg0XN4AOcJicKkpujMbjsfkMFk0YhkQgUOjUEl8gjcGO0ok8KMULjEaGMcj08kQAO8oMkTNEtGwAG" & _
"QAqc7gUlhh1ABtAEsk9GpEfhElgVcsMupNlnlonlaAFcr0shUsp8QPEtnVJqJhmcIhUMh0QiU5sYAqMngUSuEMw07k8Qv0SgVRrNEuVflF2jF5x9JyNEm0TjQijemyE0" & _
"jE3t+YruauoAu4Az1qj9BzRn0UzksSnAA0xDjY6qnAw8OiUQ0dwzN0zWz2t7j8/xURAGNvWH6k8xlEhklhEI0O/6QAgI="
	.EndUpdate()
End With

With Extree1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	With .Columns
		.Add("Column 1")
		.Add("Column 2")
	End With
	.BackColorHeader32 = &H1000000
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exCursorHoverColumn,&H12d86ff)
End With

With Extree1
	.ColumnAutoResize = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2").Visible = False
	End With
	.VisualAppearance.Add(2,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(3,"c:\exontrol\images\pushed.ebn")
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exColumnsFloatAppearance,&H2000000)
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exColumnsFloatBackColor,&H3000000)
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exColumnsFloatCaptionBackColor,Color.FromArgb(246,245,240))
	.ColumnsFloatBarVisible = True
End With

With Extree1
	.ColumnAutoResize = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2").Visible = False
	End With
	.VisualAppearance.Add(3,"c:\exontrol\images\pushed.ebn")
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exColumnsFloatBackColor,&H3000000)
	.ColumnsFloatBarVisible = True
End With

With Extree1
	.VisualAppearance.Add(2,"c:\exontrol\images\normal.ebn")
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exColumnsFloatAppearance,&H2000000)
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exColumnsFloatBackColor,Color.FromArgb(246,245,240))
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exColumnsFloatCaptionBackColor,Color.FromArgb(246,245,240))
	.ColumnsFloatBarVisible = True
End With

With Extree1
	.ColumnAutoResize = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2").Visible = False
	End With
	.ColumnsFloatBarVisible = True
End With

With Extree1
	.ColumnAutoResize = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2").Visible = False
		With .Add("Column 3")
			.Visible = False
			.Enabled = False
		End With
	End With
	.ColumnsFloatBarVisible = True
End With

With Extree1
	.ColumnAutoResize = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2").Visible = False
		With .Add("Column 3")
			.Visible = False
			.AllowDragging = False
		End With
	End With
	.ColumnsFloatBarVisible = True
End With

With Extree1
	.ColumnAutoResize = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2").Visible = False
	End With
	.set_Description(exontrol.EXTREELib.DescriptionTypeEnum.exColumnsFloatBar,"Hidden Columns")
	.ColumnsFloatBarVisible = True
End With

With Extree1
	.ColumnAutoResize = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2").Visible = False
	End With
	.ColumnsFloatBarVisible = True
End With

With Extree1
	With .Columns
		.Add("Column 1")
		.Add("Column 2")
	End With
	.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exCursorHoverColumn,-1)
End With

With Extree1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .Columns
		.Add("C1")
		.Add("C2").FormatColumn = "1 index `A-Z`"
		.Add("C3").FormatColumn = "100 index ``"
	End With
	With .Items
		.AddItem("Item 1")
		.set_SelectItem(.AddItem("Item 2"),True)
		.AddItem("Item 3")
	End With
	.EndUpdate()
	Debug.Print( "Export CSV Selected Items Only:" )
	Debug.Print( .Export("","sel") )
End With

Dim h
With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
		.Filter = "Child 2"
	End With
	With .Columns.Add("Pos.1")
		.FormatColumn = "1 ropos ''"
		.Position = 0
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.2")
		.FormatColumn = "1 ropos ':'"
		.Position = 1
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.3")
		.FormatColumn = "1 ropos ':|A-Z'"
		.Position = 2
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.4")
		.FormatColumn = "1 ropos '|A-Z|'"
		.Position = 3
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.5")
		.FormatColumn = "'<font Tahoma;7>' + 1 ropos '-<b>||A-Z'"
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
		.Position = 4
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.6")
		.FormatColumn = "'<b>'+ 1 ropos '</b>:<fgcolor=FF0000>|A-Z|'"
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
		.Position = 5
		.Width = 48
		.AllowSizing = False
	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
	.ApplyFilter()
	.EndUpdate()
End With

Dim h
With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Items")
	With .Columns.Add("Pos.1")
		.FormatColumn = "1 rpos ''"
		.Position = 0
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.2")
		.FormatColumn = "1 rpos ':'"
		.Position = 1
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.3")
		.FormatColumn = "1 rpos ':|A-Z'"
		.Position = 2
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.4")
		.FormatColumn = "1 rpos '|A-Z|'"
		.Position = 3
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.5")
		.FormatColumn = "'<font Tahoma;7>' + 1 rpos '-<b>||A-Z'"
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
		.Position = 4
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.6")
		.FormatColumn = "'<b>'+ 1 rpos '</b>:<fgcolor=FF0000>|A-Z|'"
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
		.Position = 5
		.Width = 48
		.AllowSizing = False
	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

' 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( "If negative, the filter is present, else not" )
		Debug.Print( .Items.VisibleItemCount )
	End With
End Sub

Dim h
With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.TreeColumnIndex = -1
	.FilterInclude = exontrol.EXTREELib.FilterIncludeEnum.exMatchingItemsOnly
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
		.Filter = "C1"
	End With
	With .Items
		h = .AddItem("R1")
		.InsertItem(h,,"C1")
		.InsertItem(h,,"C2")
		.set_ExpandItem(h,True)
		h = .AddItem("R2")
		.InsertItem(h,,"C1")
		.InsertItem(h,,"C2")
	End With
	.ApplyFilter()
	.EndUpdate()
End With

Dim h
With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.TreeColumnIndex = -1
	.FilterInclude = exontrol.EXTREELib.FilterIncludeEnum.exMatchingItemsOnly
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
		.Filter = "C1|C2"
	End With
	With .Items
		h = .AddItem("R1")
		.InsertItem(h,,"C1")
		.InsertItem(h,,"C2")
		.set_ExpandItem(h,True)
		h = .AddItem("R2")
		.InsertItem(h,,"C1")
		.InsertItem(h,,"C2")
	End With
	.ApplyFilter()
	.EndUpdate()
End With

Dim h
With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.FilterInclude = exontrol.EXTREELib.FilterIncludeEnum.exMatchingItemsOnly
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
		.Filter = "C1|C2"
	End With
	With .Items
		h = .AddItem("R1")
		.InsertItem(h,,"C1")
		.InsertItem(h,,"C2")
		.set_ExpandItem(h,True)
		h = .AddItem("R2")
		.InsertItem(h,,"C1")
		.InsertItem(h,,"C2")
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.Columns.Add("Padding-Left").set_Def(exontrol.EXTREELib.DefColumnEnum.exHeaderPaddingLeft,18)
	With .Columns.Add("Padding-Right")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exHeaderPaddingRight,18)
		.HeaderAlignment = exontrol.EXTREELib.AlignmentEnum.RightAlignment
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exRowLines
	With .Columns.Add("Padding-Left")
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellPaddingLeft,18)
	End With
	.Columns.Add("No-Padding").set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
	.Columns.Add("Empty").Position = 0
	With .Items
		.set_CellCaption(.AddItem("Item A.1"),1,"Item A.2")
		.set_CellCaption(.AddItem("Item B.1"),1,"Item B.2")
		.set_CellCaption(.AddItem("Item C.1"),1,"Item C.2")
	End With
	.EndUpdate()
End With

Dim h
With Extree1
	.BeginUpdate()
	.Columns.Add("Def").set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
	With .Items
		h = .AddItem(100000.27)
		.set_FormatCell(h,0,"(value format '') +  ' <fgcolor=808080>(default positive)'")
		h = .AddItem(100000.27)
		.set_FormatCell(h,0,"(value format '2|.|3|,|1|1')")
		h = .AddItem(-100000.27)
		.set_FormatCell(h,0,"(value format '') +  ' <fgcolor=808080>(default negative)'")
		h = .AddItem(-100000.27)
		.set_FormatCell(h,0,"(value format '2|.|3|,|1|1')")
	End With
	.EndUpdate()
End With

Dim h
With Extree1
	.BeginUpdate()
	.Columns.Add("Def").set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
	With .Items
		h = .AddItem(0.27)
		.set_FormatCell(h,0,"(value format '') +  ' <fgcolor=808080>(default)'")
		h = .AddItem(0.27)
		.set_FormatCell(h,0,"(value format '|||||0') +  ' <fgcolor=808080>(Display no leading zeros)'")
	End With
	.EndUpdate()
End With

Dim h
With Extree1
	.BeginUpdate()
	.Columns.Add("Def").set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
	With .Items
		h = .AddItem(-100000.27)
		.set_FormatCell(h,0,"(value format '') +  ' <fgcolor=808080>(default)'")
		h = .AddItem(-100000.27)
		.set_FormatCell(h,0,"(value format '||||1') +  ' <fgcolor=808080>(Negative sign, number; for example, -1.1)'")
	End With
	.EndUpdate()
End With

Dim h
With Extree1
	.BeginUpdate()
	.Columns.Add("Def").set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
	With .Items
		h = .AddItem(100000.27)
		.set_FormatCell(h,0,"(value format '') +  ' <fgcolor=808080>(default)'")
		h = .AddItem(100000.27)
		.set_FormatCell(h,0,"(value format '|||-') +  ' <fgcolor=808080>(grouping character is -)'")
	End With
	.EndUpdate()
End With

Dim h
With Extree1
	.BeginUpdate()
	.Columns.Add("Def").set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
	With .Items
		h = .AddItem(100000.27)
		.set_FormatCell(h,0,"(value format '') +  ' <fgcolor=808080>(default)'")
		h = .AddItem(100000.27)
		.set_FormatCell(h,0,"(value format '||2') +  ' <fgcolor=808080>(grouping by 2 digits)'")
	End With
	.EndUpdate()
End With

Dim h
With Extree1
	.BeginUpdate()
	.Columns.Add("Def").set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
	With .Items
		h = .AddItem(100.27)
		.set_FormatCell(h,0,"(value format '') +  ' <fgcolor=808080>(default)'")
		h = .AddItem(100.27)
		.set_FormatCell(h,0,"(value format '|;') +  ' <fgcolor=808080>(decimal separator is <b>;</b>)'")
	End With
	.EndUpdate()
End With

Dim h
With Extree1
	.BeginUpdate()
	.Columns.Add("Def").set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
	With .Items
		h = .AddItem(100.27)
		.set_FormatCell(h,0,"(value format '') +  ' <fgcolor=808080>(default)'")
		h = .AddItem(100.27)
		.set_FormatCell(h,0,"(value format '3') +  ' <fgcolor=808080>(3 digits)'")
		h = .AddItem(100.27)
		.set_FormatCell(h,0,"(value format 2) +  '  <fgcolor=808080>(2 digits)'")
		h = .AddItem(100.27)
		.set_FormatCell(h,0,"(value format 1) +  ' <fgcolor=808080>(1 digit)'")
	End With
	.EndUpdate()
End With

Dim h,h1
With Extree1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .Columns
		.Add("Name")
		With .Add("A")
			.SortType = exontrol.EXTREELib.SortTypeEnum.SortNumeric
			.AllowSizing = False
			.Width = 36
			.FormatColumn = "len(value) ? value + ' +'"
		End With
		With .Add("B")
			.SortType = exontrol.EXTREELib.SortTypeEnum.SortNumeric
			.AllowSizing = False
			.Width = 36
			.FormatColumn = "len(value) ? value + ' +'"
		End With
		With .Add("C")
			.SortType = exontrol.EXTREELib.SortTypeEnum.SortNumeric
			.AllowSizing = False
			.Width = 36
			.FormatColumn = "len(value) ? value + ' ='"
		End With
		With .Add("A+B+C")
			.SortType = exontrol.EXTREELib.SortTypeEnum.SortNumeric
			.Width = 64
			.ComputedField = "dbl(%1)+dbl(%2)+dbl(%3)"
			.FormatColumn = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00" & _
"00FF>+'+(value format '2|.|3|,' ): '0.00') )"
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
		End With
	End With
	With .Items
		h = .AddItem("Root")
		.set_CellCaptionFormat(h,4,exontrol.EXTREELib.CaptionFormatEnum.exComputedField)
		h1 = .InsertItem(h,,"Child 1")
		.set_CellCaption(h1,1,7)
		.set_CellCaption(h1,2,3)
		.set_CellCaption(h1,3,1)
		h1 = .InsertItem(h,,"Child 2")
		.set_CellCaption(h1,1,-2)
		.set_CellCaption(h1,2,-2)
		.set_CellCaption(h1,3,-4)
		h1 = .InsertItem(h,,"Child 3")
		.set_CellCaption(h1,1,2)
		.set_CellCaption(h1,2,2)
		.set_CellCaption(h1,3,-4)
		.set_ExpandItem(h,True)
	End With
	.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
		With .Items
			.ClearItemBackColor(0)
			.set_ItemBackColor(.get_SelectedItem(0),Color.FromArgb(128,255,255))
		End With
	End With
End Sub

With Extree1
	.BeginUpdate()
	.MarkSearchColumn = False
	.SelForeColor = .ForeColor
	.SelBackColor = .BackColor
	.ShowFocusRect = False
	With .Columns
		With .Add("Format")
			.FormatColumn = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00" & _
"00FF>+'+(value format '2|.|3|,' ): '0.00') )"
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
		End With
	End With
	With .Items
		.AddItem(10)
		.AddItem(-8)
	End With
	.EndUpdate()
End With

Dim h
With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Items")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		h = .AddItem("Root 2")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		.set_ExpandItem(0,True)
	End With
	.EndUpdate()
	.DefaultItemHeight = 12
	.Items.set_ItemHeight(0,12)
End With

Dim h
With Extree1
	.ShowLockedItems = True
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exVLines
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		.set_LockedItemCount(exontrol.EXTREELib.VAlignmentEnum.BottomAlignment,1)
		h = .get_LockedItem(exontrol.EXTREELib.VAlignmentEnum.BottomAlignment,0)
		.set_ItemBackColor(h,Color.FromArgb(128,128,128))
		.set_ItemForeColor(h,Color.FromArgb(255,255,255))
		.set_CellCaption(h,0,"footer c1")
		.set_CellCaption(h,1,"footer c2")
		.set_CellCaption(.AddItem("cell"),1,"cell")
	End With
End With

Dim h
With Extree1
	.ShowLockedItems = True
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exVLines
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		.set_LockedItemCount(exontrol.EXTREELib.VAlignmentEnum.TopAlignment,1)
		h = .get_LockedItem(exontrol.EXTREELib.VAlignmentEnum.TopAlignment,0)
		.set_ItemBackColor(h,Color.FromArgb(128,128,128))
		.set_ItemForeColor(h,Color.FromArgb(255,255,255))
		.set_CellCaption(h,0,"footer c1")
		.set_CellCaption(h,1,"footer c2")
		.set_CellCaption(.AddItem("cell"),1,"cell")
	End With
End With

With Extree1
	With .Columns
		.Add("Value")
		With .Add("CellSingleLine = False")
			.ComputedField = "%0"
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellSingleLine,False)
		End With
		With .Add("FormatColumn/replace CRLF")
			.ComputedField = "%0"
			.FormatColumn = "value replace `\r\n` with ``"
		End With
		With .Add("FormatColumn/replace TAB,CRLF")
			.ComputedField = "%0"
			.FormatColumn = "(value replace `\t` with ``) replace `\r\n` with ``"
		End With
	End With
	With .Items
		.AddItem("a\ta\r\nb\tb")
	End With
End With

' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub Extree1_DblClick(ByVal sender As System.Object,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Extree1.DblClick
	Dim h
	With Extree1
		With .Items
			h = .get_CellChecked(1234)
			.set_CellHasCheckBox(0,h,True)
			.set_CellState(0,h,0)
			.set_CellHasCheckBox(0,h,False)
		End With
	End With
End Sub

' SelectionChanged event - Fired after a new item has been selected.
Private Sub Extree1_SelectionChanged(ByVal sender As System.Object) Handles Extree1.SelectionChanged
	With Extree1
		With .Items
			.set_CellState(.FocusItem,0,1)
		End With
	End With
End Sub

Dim h
With Extree1
	.MarkSearchColumn = False
	.SelBackColor = Color.FromArgb(255,255,128)
	.SelForeColor = Color.FromArgb(0,0,0)
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Radio 1")
		.set_CellHasRadioButton(h,0,True)
		.set_CellRadioGroup(h,0,1234)
		h = .AddItem("Radio 2")
		.set_CellHasRadioButton(h,0,True)
		.set_CellRadioGroup(h,0,1234)
		.set_CellState(h,0,1)
		h = .AddItem("Radio 3")
		.set_CellHasRadioButton(h,0,True)
		.set_CellRadioGroup(h,0,1234)
	End With
End With

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=")
	.TreeColumnIndex = -1
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exAllLines
	.HeaderHeight = 24
	.MarkSearchColumn = False
	.DefaultItemHeight = 24
	With .Columns.Add("Image")
		.AllowSizing = False
		.Width = 32
		.HTMLCaption = "<img>1</img>"
		.HeaderAlignment = exontrol.EXTREELib.AlignmentEnum.CenterAlignment
		.Alignment = exontrol.EXTREELib.AlignmentEnum.CenterAlignment
		.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
	End With
	.Columns.Add("Rest")
	With .Items
		.AddItem("<img>1</img>")
		.AddItem("<img>2</img>")
		.AddItem("<img>3</img>")
	End With
	.EndUpdate()
End With

With Extree1
	With .Columns
		.Add("Default")
		With .Add("Format.1")
			.ComputedField = "%0"
			.FormatColumn = "dateF(value) replace `/` with `-`"
		End With
		With .Add("Format.2")
			.ComputedField = "%0"
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
			.FormatColumn = "`<b>`+ shortdate(value) + `</b> ` + timeF(value)"
		End With
		With .Add("Format.3")
			.ComputedField = "%0"
			.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
			.FormatColumn = "( dateF(value) replace `/` with `-` ) + ` <b>`+ ( weekday(value) case ( 0 : `Su`; 1 : `Mo`; 2 : `Tu`; 3 : `We`; 4 : `Th`; 5 : `" & _
"Fr`; 6 : `Sa`) )"
		End With
	End With
	With .Items
		.AddItem(#1/1/2001 10:00:00 AM#)
		.AddItem(#1/2/2001 10:00:00 AM#)
	End With
End With

Dim rs
With Extree1
	.BeginUpdate()
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\VB\SAMPLE.MDB",3,3)
	End With
	.DataSource = rs
	.AutoDrag = exontrol.EXTREELib.AutoDragEnum.exAutoDragScroll
	.EndUpdate()
End With

Dim h,h1,h2,h3
With Extree1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_HTMLPicture("p1","c:\exontrol\images\card.png")
	.set_HTMLPicture("p2","c:\exontrol\images\sun.png")
	.AutoDrag = exontrol.EXTREELib.AutoDragEnum.exAutoDragCopySnapShot
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exNoLinesAtRoot
	.HasLines = exontrol.EXTREELib.HierarchyLineEnum.exThinLine
	.ShowFocusRect = False
	.DefaultItemHeight = 26
	.Columns.Add("Task")
	With .Items
		h = .AddItem("<img>p1:32</img>Group 1")
		.set_CellCaptionFormat(h,0,exontrol.EXTREELib.CaptionFormatEnum.exHTML)
		.set_ItemDivider(h,0)
		.set_ItemBold(h,True)
		h1 = .InsertItem(h,,"Task 1")
		h2 = .InsertItem(h,,"Task 2")
		h3 = .InsertItem(h,,"Task 3")
		h = .AddItem("<img>p2:32</img>Group 2")
		.set_CellCaptionFormat(h,0,exontrol.EXTREELib.CaptionFormatEnum.exHTML)
		.set_ItemBold(h,True)
		.set_ItemDivider(h,0)
		h1 = .InsertItem(h,,"Task")
		.set_ExpandItem(0,True)
	End With
	.EndUpdate()
End With

Dim h,rs,var_HTMLPicture
With Extree1
	.BeginUpdate()
	.set_HTMLPicture("p1","c:\exontrol\images\card.png")
	.set_HTMLPicture("p2","c:\exontrol\images\sun.png")
	var_HTMLPicture = .get_HTMLPicture("aka1")
	.HeaderHeight = 24
	.DefaultItemHeight = 48
	.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exRowLines
	.GridLineColor = Color.FromArgb(240,240,240)
	.SelBackMode = exontrol.EXTREELib.BackModeEnum.exTransparent
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\VB\SAMPLE.MDB",3,3)
	End With
	.DataSource = rs
	.Columns.Item(0).set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
	.Columns.Item(0).FormatColumn = "value + ` <img>p` + (1 + (value mod 3 ) ) + `</img>`"
	.Columns.Item(0).Width = 112
	.Columns.Item(1).set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,1)
	.Columns.Item(2).LevelKey = "1"
	.Columns.Item(3).LevelKey = "1"
	.Columns.Item(4).LevelKey = "1"
	.AutoDrag = exontrol.EXTREELib.AutoDragEnum.exAutoDragCopyImage
	.SingleSel = False
	With .Items
		h = .get_ItemByIndex(1)
		.set_SelectItem(h,True)
		h = .get_ItemByIndex(2)
		.set_SelectItem(h,True)
		h = .get_ItemByIndex(3)
		.set_SelectItem(h,True)
		.set_LockedItemCount(exontrol.EXTREELib.VAlignmentEnum.BottomAlignment,1)
		h = .get_LockedItem(exontrol.EXTREELib.VAlignmentEnum.BottomAlignment,0)
		.set_CellCaption(h,1,"<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, ...")
		.set_CellSingleLine(h,1,False)
		.set_CellCaptionFormat(h,1,exontrol.EXTREELib.CaptionFormatEnum.exHTML)
		.set_CellHAlignment(h,1,exontrol.EXTREELib.AlignmentEnum.CenterAlignment)
		.set_ItemDivider(h,1)
		.set_ItemDividerLineAlignment(h,exontrol.EXTREELib.DividerAlignmentEnum.DividerTop)
	End With
	.EndUpdate()
End With

Dim h,rs
With Extree1
	.BeginUpdate()
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\VB\SAMPLE.MDB",3,3)
	End With
	.DataSource = rs
	.Columns.Item(2).LevelKey = "1"
	.Columns.Item(3).LevelKey = "1"
	.Columns.Item(4).LevelKey = "1"
	.AutoDrag = exontrol.EXTREELib.AutoDragEnum.exAutoDragCopyText
	.SingleSel = False
	With .Items
		h = .get_ItemByIndex(1)
		.set_SelectItem(h,True)
		h = .get_ItemByIndex(3)
		.set_SelectItem(h,True)
		h = .get_ItemByIndex(4)
		.set_SelectItem(h,True)
		h = .get_ItemByIndex(5)
		.set_SelectItem(h,True)
		.set_LockedItemCount(exontrol.EXTREELib.VAlignmentEnum.BottomAlignment,1)
		h = .get_LockedItem(exontrol.EXTREELib.VAlignmentEnum.BottomAlignment,0)
		.set_CellCaption(h,0,"<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, Excel, ...")
		.set_CellSingleLine(h,0,False)
		.set_CellCaptionFormat(h,0,exontrol.EXTREELib.CaptionFormatEnum.exHTML)
		.set_CellHAlignment(h,0,exontrol.EXTREELib.AlignmentEnum.CenterAlignment)
		.set_ItemDivider(h,0)
		.set_ItemDividerLineAlignment(h,exontrol.EXTREELib.DividerAlignmentEnum.DividerTop)
	End With
	.EndUpdate()
End With

Dim h,h1,h2,h3
With Extree1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.AutoDrag = exontrol.EXTREELib.AutoDragEnum.exAutoDragPositionAny
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exNoLinesAtRoot
	.HasLines = exontrol.EXTREELib.HierarchyLineEnum.exSolidLine
	.HasButtons = exontrol.EXTREELib.ExpandButtonEnum.exWPlus
	.ShowFocusRect = False
	.SelBackMode = exontrol.EXTREELib.BackModeEnum.exTransparent
	.Columns.Add("Task")
	With .Items
		h = .AddItem("Group 1")
		.set_ItemBold(h,True)
		.set_ItemDivider(h,0)
		h1 = .InsertItem(h,,"Task 1")
		h2 = .InsertItem(h1,,"Task 2")
		h2 = .InsertItem(h1,,"Task 3")
		h3 = .InsertItem(h,,"Task 3")
		.set_ExpandItem(h,True)
		.set_ExpandItem(h1,True)
		h = .AddItem("Group 2")
		.set_ItemBold(h,True)
		.set_ItemDivider(h,0)
		.set_LockedItemCount(exontrol.EXTREELib.VAlignmentEnum.BottomAlignment,1)
		h = .get_LockedItem(exontrol.EXTREELib.VAlignmentEnum.BottomAlignment,0)
		.set_CellCaption(h,0,"Click a row, and move by dragging <b>up, down</b> to change the row's parent or <b>left,right</b> to increase or decrease the i" & _
"ndentation.")
		.set_CellSingleLine(h,0,False)
		.set_CellCaptionFormat(h,0,exontrol.EXTREELib.CaptionFormatEnum.exHTML)
	End With
	.EndUpdate()
End With

Dim h,h1,h2,h3
With Extree1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.AutoDrag = exontrol.EXTREELib.AutoDragEnum.exAutoDragPositionKeepIndent
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exNoLinesAtRoot
	.HasLines = exontrol.EXTREELib.HierarchyLineEnum.exThinLine
	.ShowFocusRect = False
	.Columns.Add("Task")
	With .Items
		h = .AddItem("Group 1")
		.set_ItemDivider(h,0)
		.set_ItemBold(h,True)
		h1 = .InsertItem(h,,"Task 1")
		h2 = .InsertItem(h,,"Task 2")
		h3 = .InsertItem(h,,"Task 3")
		.set_ExpandItem(h,True)
		h = .AddItem("Group 2")
		.set_ItemBold(h,True)
		.set_ItemDivider(h,0)
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.ShowFocusRect = False
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.AutoDrag = exontrol.EXTREELib.AutoDragEnum.exAutoDragPosition
	.Columns.Add("Task")
	With .Items
		.AddItem("Task 1")
		.AddItem("Task 2")
		.AddItem("Task 3")
		.AddItem("Task 4")
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.ScrollBars = exontrol.EXTREELib.ScrollBarsEnum.exDisableBoth
	.set_ScrollPartVisible(exontrol.EXTREELib.ScrollBarEnum.exVScroll,exontrol.EXTREELib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(exontrol.EXTREELib.ScrollBarEnum.exHScroll,exontrol.EXTREELib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(&H2,exontrol.EXTREELib.ScrollPartEnum.exExtentThumbPart,True)
	.ScrollWidth = 4
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exVSBack,Color.FromArgb(240,240,240))
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exVSThumb,Color.FromArgb(128,128,128))
	.ScrollHeight = 4
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exHSBack,.get_Background(exontrol.EXTREELib.BackgroundPartEnum.exVSBack))
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exHSThumb,.get_Background(exontrol.EXTREELib.BackgroundPartEnum.exVSThumb))
	.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(exontrol.EXTREELib.BackgroundPartEnum.exVSBack))
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .Columns
		With .Add("Car")
			.DisplayFilterButton = True
			.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
			.Filter = "MAZDA"
		End With
		With .Add("Equipment")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.CustomFilter = "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
			.FilterType = exontrol.EXTREELib.FilterTypeEnum.exPattern
			.Filter = "AIR BAG"
		End With
	End With
	With .Items
		.set_CellCaption(.AddItem("Mazda"),1,"Air Bag")
		.set_CellCaption(.AddItem("Toyota"),1,"Air Bag,Air condition")
		.set_CellCaption(.AddItem("Ford"),1,"Air condition")
		.set_CellCaption(.AddItem("Nissan"),1,"Air Bag,ABS,ESP")
		.set_CellCaption(.AddItem("Mazda"),1,"Air Bag, ABS,ESP")
		.set_CellCaption(.AddItem("Mazda"),1,"ABS,ESP")
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .Columns
		With .Add("Car")
			.DisplayFilterButton = True
			.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilterDoCaseSensitive Or exontrol.EXTREELib.FilterTypeEnum.exFilter
			.Filter = "Mazda"
		End With
		With .Add("Equipment")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.CustomFilter = "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
			.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilterDoCaseSensitive Or exontrol.EXTREELib.FilterTypeEnum.exPattern
			.Filter = "Air Bag"
		End With
	End With
	With .Items
		.set_CellCaption(.AddItem("Mazda"),1,"Air Bag")
		.set_CellCaption(.AddItem("Toyota"),1,"Air Bag,Air condition")
		.set_CellCaption(.AddItem("Ford"),1,"Air condition")
		.set_CellCaption(.AddItem("Nissan"),1,"Air Bag,ABS,ESP")
		.set_CellCaption(.AddItem("Mazda"),1,"Air Bag, ABS,ESP")
		.set_CellCaption(.AddItem("Mazda"),1,"ABS,ESP")
	End With
	.ApplyFilter()
	.EndUpdate()
End With

Dim h
With Extree1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Item")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.Filter = "Child 1"
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
	End With
	With .Columns.Add("Date")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.DisplayFilterDate = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exNoItems
		.Filter = #12/28/2010#
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exDate
	End With
	.FilterCriteria = "%0 or %1"
	.set_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarOr,"<font ;18><fgcolor=FF0000>or</fgcolor></font>")
	.set_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd,"<font ;18><fgcolor=FF0000>and</fgcolor></font>")
	With .Items
		h = .AddItem("Root 1")
		.set_CellCaption(.InsertItem(h,,"Child 1"),1,#12/27/2010#)
		.set_CellCaption(.InsertItem(h,,"Child 2"),1,#12/28/2010#)
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.set_CellCaption(.InsertItem(h,,"Child 1"),1,#12/29/2010#)
		.set_CellCaption(.InsertItem(h,,"Child 2"),1,#12/30/2010#)
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	With .Columns.Add("Date")
		.SortType = exontrol.EXTREELib.SortTypeEnum.SortDate
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.DisplayFilterDate = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exNoItems
	End With
	With .Items
		.AddItem(#12/27/2010#)
		.AddItem(#12/28/2010#)
		.AddItem(#12/29/2010#)
		.AddItem(#12/30/2010#)
		.AddItem(#12/31/2010#)
	End With
	.EndUpdate()
End With

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.exNoItems
	End With
	With .Items
		.AddItem(#12/27/2010#)
		.AddItem(#12/28/2010#)
		.AddItem(#12/29/2010#)
		.AddItem(#12/30/2010#)
		.AddItem(#12/31/2010#)
	End With
	.EndUpdate()
End With

With Extree1
	.BeginUpdate()
	With .Columns.Add("Dates")
		.SortType = exontrol.EXTREELib.SortTypeEnum.SortDate
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.DisplayFilterDate = True
		.FilterList = exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox
		.Filter = "to 12/27/2010"
		.FilterType = exontrol.EXTREELib.FilterTypeEnum.exDate
	End With
	With .Items
		.AddItem(#12/27/2010#)
		.AddItem(#12/28/2010#)
		.AddItem(#12/29/2010#)
		.AddItem(#12/30/2010#)
		.AddItem(#12/31/2010#)
	End With
	.ApplyFilter()
	.EndUpdate()
End With