With CascadeTree1
	.BeginUpdate 
	With .View
		.BeginUpdate 
		.HeaderAppearance = Etched
		.HeaderHeight = 24
		.DrawGridLines = exRowLines
		.ColumnAutoResize = True
		.Columns.Add("Country").ShowIdem = "<fgcolor gray>〃"
		With .Items
			.AddItem "Spain"
			.AddItem "Spain"
			.AddItem "Spain"
			.AddItem "Spain"
			.AddItem "Germany"
			.AddItem "Germany"
			.AddItem "Germany"
			.AddItem "Germany"
		End With
		.EndUpdate 
	End With
	.EndUpdate 
End With

With CascadeTree1
	.BeginUpdate 
	With .View
		.BeginUpdate 
		.HeaderAppearance = Etched
		.HeaderHeight = 24
		.DrawGridLines = exRowLines
		.ColumnAutoResize = True
		.Columns.Add("Country").ShowIdem = " "
		With .Items
			.AddItem "Spain"
			.AddItem "Spain"
			.AddItem "Spain"
			.AddItem "Spain"
			.AddItem "Germany"
			.AddItem "Germany"
			.AddItem "Germany"
			.AddItem "Germany"
		End With
		.EndUpdate 
	End With
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		With .View
			.EnsureVisibleColumn "Function"
			With .Columns.Item("Function")
			End With
			.Columns.Item(0).Def(exCellHasCheckBox) = True
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.ImageSize = 16
	.ReplaceIcon "gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+O" & _
"kYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA=="
	.ReplaceIcon "C:\images\favicon.ico",0
	With .VisualAppearance
		.Add 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="
	End With
	.BackColorHeader = &H4c6c6c6
	.SelBackColor = &H4000000
	.SelForeColor = RGB(0,0,1)
	.Background(&H14) = .SelBackColor
	.Background(&H15) = .SelForeColor
	.Background(&H8 Or BackgroundPartEnum.exSplitBar) = .BackColor
	.Background(&H9 Or BackgroundPartEnum.exSplitBar) = .ForeColor
	.Background(&H20) = -1
	.Background(&H0) = &H4000000
	.Background(exHeaderFilterBarActive) = &H4010101
	.Background(&H1) = &H40000ff
	.HeaderAppearance = Etched
	.BackColorSortBar = .BackColor
	.BackColorLevelHeader = .BackColor
	.Mode = exSplitFixCascadeMode
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\MN"
	.EndUpdate 
End With

With CascadeTree1
	With .View
		.BeginUpdate 
		.ColumnAutoResize = True
		.HeaderAppearance = Etched
		.HeaderHeight = 24
		.LinesAtRoot = exLinesAtRoot
		.Columns.Clear 
		With .Columns.Add("Items")
			.DisplayFilterButton = True
			.DisplayFilterPattern = True
			.Def(exFilterPatternTemplate) = "*<%filter%>*"
			.FilterType = exPattern
			.Filter = "1"
		End With
		With .Items
			h = .AddItem("Root 1")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			.ExpandItem(h) = True
			h = .AddItem("Root 2")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End With

With CascadeTree1
	With .View
		.BeginUpdate 
		.ConditionalFormats.Add("%CC0=0").ForeColor = RGB(128,128,128)
		.HeaderAppearance = Etched
		.HeaderHeight = 24
		.LinesAtRoot = exLinesAtRoot
		With .Columns
			.Add("Item").Width = 16
			.Add "Desc"
		End With
		With .Items
			hR = .AddItem("Root")
			.CellValue(hR,1) = "The root directory /"
			h = .InsertItem(hR,,"Home")
			.CellValue(h,1) = "The home directory with user directories Alice and Bob"
			.InsertItem h,,"Alice"
			.InsertItem h,,"Bob"
			.ExpandItem(h) = True
			h = .InsertItem(hR,,"Etc")
			.CellValue(h,1) = "The etc directory with one configuration file"
			h = .InsertItem(h,,"nginx.conf")
			.CellValue(.InsertItem(hR,,"Var"),1) = "The var directory"
			.ExpandItem(hR) = True
		End With
		.EndUpdate 
	End With
End With

With CascadeTree1
	With .View
		.BeginUpdate 
		.ConditionalFormats.Add("%CC0").ForeColor = RGB(255,0,0)
		.HeaderAppearance = Etched
		.HeaderHeight = 24
		.LinesAtRoot = exLinesAtRoot
		With .Columns
			.Add("Item").Width = 16
			.Add "Desc"
		End With
		With .Items
			hR = .AddItem("Root")
			.CellValue(hR,1) = "The root directory /"
			h = .InsertItem(hR,,"Home")
			.CellValue(h,1) = "The home directory with user directories Alice and Bob"
			.InsertItem h,,"Alice"
			.InsertItem h,,"Bob"
			.ExpandItem(h) = True
			h = .InsertItem(hR,,"Etc")
			.CellValue(h,1) = "The etc directory with one configuration file"
			h = .InsertItem(h,,"nginx.conf")
			.CellValue(.InsertItem(hR,,"Var"),1) = "The var directory"
			.ExpandItem(hR) = True
		End With
		.EndUpdate 
	End With
End With

With CascadeTree1
	With .View
		.BeginUpdate 
		.ConditionalFormats.Add("%CX0").Bold = True
		.HeaderAppearance = Etched
		.HeaderHeight = 24
		.LinesAtRoot = exLinesAtRoot
		With .Columns
			.Add("Item").Width = 16
			.Add "Desc"
		End With
		With .Items
			hR = .AddItem("Root")
			.CellValue(hR,1) = "The root directory /"
			h = .InsertItem(hR,,"Home")
			.CellValue(h,1) = "The home directory with user directories Alice and Bob"
			.InsertItem h,,"Alice"
			.InsertItem h,,"Bob"
			.ExpandItem(h) = True
			h = .InsertItem(hR,,"Etc")
			.CellValue(h,1) = "The etc directory with one configuration file"
			h = .InsertItem(h,,"nginx.conf")
			.CellValue(.InsertItem(hR,,"Var"),1) = "The var directory"
			.ExpandItem(hR) = True
		End With
		.EndUpdate 
	End With
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub CascadeTree1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With CascadeTree1
		.ShowToolTip "new content","",,"+8","+8"
	End With
End Sub

With CascadeTree1
	.ToolTipMargin = "16,8"
End With

With CascadeTree1
	.Background(exScrollHoverAll) = -1
End With

With CascadeTree1
	.Background(exScrollHoverAll) = RGB(1,0,0)
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub CascadeTree1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With CascadeTree1
		.ShowToolTip "new content","",,"+8","+8"
	End With
End Sub

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		bSingle = .FormatABC("value > 0 ?  0 : -1",.View.Index)
		bColumnAutoResize = .FormatABC("value = `City` ?  0 : -1",.View.Tag)
		With .View
			.ColumnAutoResize = bColumnAutoResize
			.SingleSel = bSingle
		End With
	End With
End Sub

' MouseMove event - Occurs when the user moves the mouse.
Private Sub CascadeTree1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With CascadeTree1
		.ShowToolTip "<null>","<null>",,"+8","+8"
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Mode = CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	' Items.ItemHeight(0) = View.DefaultItemHeight
	' FilterBarFont.Size = Me.Font.Size
	' ToolTipFont.Size = Me.Font.Size
	With CascadeTree1
		With .View
			.DefaultItemHeight = 36
			.HeaderHeight = .DefaultItemHeight
			.SortBarHeight = .DefaultItemHeight
			.Indent = 26
			.CheckImage(Unchecked) = 16777216
			.CheckImage(Checked) = 33554432
			.CheckImage(PartialChecked) = 50331648
			.EnsureVisibleColumn "Function"
			With .Columns.Item("Function")
			End With
			.Columns.Item(0).Def(exCellHasCheckBox) = True
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.ImageSize = 32
	.Font.Size = 16
	.Images "gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq" & _
"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" & _
"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" & _
"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" & _
"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" & _
"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" & _
"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" & _
"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" & _
"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" & _
"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" & _
"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" & _
"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" & _
"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" & _
"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" & _
"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" & _
"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" & _
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA=="
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" & _
"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" & _
"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" & _
"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" & _
"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" & _
"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" & _
"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" & _
"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ=="
		.Add 2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" & _
"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" & _
"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" & _
"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" & _
"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" & _
"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" & _
"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" & _
"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" & _
"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" & _
"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" & _
"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" & _
"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" & _
"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" & _
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" & _
"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" & _
"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" & _
"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" & _
"gRBCCQAgQEA=="
		.Add 3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" & _
"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" & _
"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" & _
"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" & _
"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" & _
"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" & _
"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" & _
"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" & _
"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" & _
"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" & _
"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" & _
"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" & _
"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" & _
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" & _
"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" & _
"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI="
		.Add 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="
	End With
	.BackColorHeader = &H4c6c6c6
	.SelBackColor = &H4000000
	.SelForeColor = RGB(0,0,1)
	.Background(&H14) = .SelBackColor
	.Background(&H15) = .SelForeColor
	.Background(&H8 Or BackgroundPartEnum.exSplitBar) = .BackColor
	.Background(&H9 Or BackgroundPartEnum.exSplitBar) = .ForeColor
	.Background(&H20) = -1
	.Background(&H0) = &H4000000
	.Background(exHeaderFilterBarActive) = &H4010101
	.Background(&H1) = &H40000ff
	.HeaderAppearance = Etched
	.BackColorSortBar = .BackColor
	.BackColorLevelHeader = .BackColor
	.Mode = exSplitFixCascadeMode
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\MN"
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		With .View
			.EnsureVisibleColumn "Function"
			With .Columns.Item("Function")
			End With
			.Columns.Item(0).Def(exCellHasCheckBox) = True
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.ImageSize = 16
	.Images "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq" & _
"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" & _
"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" & _
"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" & _
"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" & _
"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="
	With .VisualAppearance
		.Add 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="
	End With
	.BackColorHeader = &H4c6c6c6
	.SelBackColor = &H4000000
	.SelForeColor = RGB(0,0,1)
	.Background(&H14) = .SelBackColor
	.Background(&H15) = .SelForeColor
	.Background(&H8 Or BackgroundPartEnum.exSplitBar) = .BackColor
	.Background(&H9 Or BackgroundPartEnum.exSplitBar) = .ForeColor
	.Background(&H20) = -1
	.Background(&H0) = &H4000000
	.Background(exHeaderFilterBarActive) = &H4010101
	.Background(&H1) = &H40000ff
	.HeaderAppearance = Etched
	.BackColorSortBar = .BackColor
	.BackColorLevelHeader = .BackColor
	.Mode = exSplitFixCascadeMode
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\MN"
	.EndUpdate 
End With

With CascadeTree1
	.BeginUpdate 
	With .VisualAppearance
		.Add 2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgAN" & _
"J0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8Y" & _
"NYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4" & _
"hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mg" & _
"bhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhW" & _
"BMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI="
		.Add 1,"CP:2 -8 -4 2 4"
	End With
	.Background(&H0) = &H1fefefe
	.Background(exHeaderFilterBarActive) = &H1010101
	.Background(&H20) = -1
	.BackColorHeader = RGB(255,255,255)
	.Mode = exSingleCascadeMode
	With .DefaultView()
		.HeaderHeight = 28
		.DrawGridLines = exRowLines
		.HeaderVisible = 1
		With .Columns
			.Add("C1").DisplayFilterButton = True
			With .Add("C2")
				.DisplayFilterButton = True
				.Filter = "Item 2"
				.FilterType = exFilter
			End With
			.Add("C3").DisplayFilterButton = True
		End With
		With .Items
			h = .AddItem("Item 1")
			.CellValue(h,1) = "Item 2"
			.CellValue(h,2) = "Item 3"
			h = .AddItem("Item 4")
			.CellValue(h,1) = "Item 5"
			.CellValue(h,2) = "Item 6"
		End With
		.ApplyFilter 
	End With
	.EndUpdate 
End With

With CascadeTree1
	.BeginUpdate 
	.Mode = exSingleCascadeMode
	With .DefaultView()
		.ColumnAutoResize = True
		.FilterBarPromptVisible = exFilterBarTop
		.HeaderHeight = 24
		.FilterBarHeight = .HeaderHeight
		.HeaderAppearance = Flat
		.DrawGridLines = exAllLines
		.GridLineStyle = exGridLinesGeometric
		With .Columns.Add("Column")
			.DisplayFilterButton = True
			.FilterType = exPattern
			.Filter = "B*"
		End With
		With .Columns.Add("Index")
			.FormatColumn = "1 index ``"
			.Position = 0
			.Width = 48
			.AllowSizing = False
			.SortType = SortNumeric
			.Def(exCellHasCheckBox) = True
		End With
		With .Items
			.AddItem "A.1"
			.AddItem "A.2"
			.AddItem "B.1"
			.AddItem "B.2"
			.AddItem "B.3"
			.AddItem "C"
		End With
		.ApplyFilter 
	End With
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		With .View
			k = .ParentView.Value()
			.BeginUpdate 
			.ColumnAutoResize = True
			.Columns.Add k
			With .Items
				.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 1`",k)
				.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 2`",k)
				.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 3`",k)
			End With
			.EndUpdate 
		End With
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	With .View
		.BeginUpdate 
		.ColumnAutoResize = True
		With .Columns.Add("Default")
			.AllowSort = False
			.AllowDragging = False
		End With
		.Key = 0
		With .Items
			.AddItem "Item A"
			.SelectItem(.AddItem("Item B")) = True
			.AddItem "Item C"
		End With
		.EndUpdate 
	End With
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		With .View
			k = .ParentView.Value()
			.BeginUpdate 
			.ColumnAutoResize = True
			.Columns.Add k
			With .Items
				.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 1`",k)
				.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 2`",k)
				.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 3`",k)
			End With
			.EndUpdate 
		End With
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Background(&H20) = -1
	With .View
		.BeginUpdate 
		.ColumnAutoResize = True
		.Columns.Add "Default"
		.Key = 0
		With .Items
			.AddItem "Item A"
			.SelectItem(.AddItem("Item B")) = True
			.AddItem "Item C"
		End With
		.EndUpdate 
	End With
	.EndUpdate 
End With

With CascadeTree1
	.Mode = exSingleCascadeMode
	With .DefaultView()
		.BeginUpdate 
		.HeaderSingleLine = False
		.HeaderHeight = 36
		.DrawGridLines = exRowLines
		.ColumnAutoResize = False
		.ScrollBySingleLine = True
		With .Columns
			With .Add("Single-Line (exCaptionSingleLine)")
				.Width = 96
				.Def(exCellValueFormat) = 1
				.Def(exCellSingleLine) = -1
			End With
			With .Add("Word-Wrap (exCaptionWordWrap)")
				.Width = 96
				.Def(exCellValueFormat) = 1
				.Def(exCellSingleLine) = 0
				.FormatColumn = "%0"
			End With
			With .Add("Break-Wrap (exCaptionBreakWrap)")
				.Width = 96
				.Def(exCellValueFormat) = 1
				.Def(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
End With

With CascadeTree1
	.Mode = exSingleCascadeMode
	With .DefaultView()
		.BeginUpdate 
		.HeaderSingleLine = False
		.HeaderHeight = 36
		.DrawGridLines = 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.")
			.CellValueFormat(h,0) = exHTML
			h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
			.CellSingleLine(h,0) = 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.")
			.CellValueFormat(h,0) = exHTML
			.CellSingleLine(h,0) = exCaptionWordWrap
			h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
			.CellSingleLine(h,0) = 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.")
			.CellValueFormat(h,0) = exHTML
			.CellSingleLine(h,0) = exCaptionBreakWrap
		End With
		.EndUpdate 
	End With
End With

With CascadeTree1
	.Mode = exSingleCascadeMode
	With .DefaultView()
		.BeginUpdate 
		.DrawGridLines = exRowLines
		.ColumnAutoResize = False
		.ScrollBySingleLine = True
		.Columns.Add("Default").Width = 128
		With .Items
			.CellSingleLine(.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line."),0) = exCaptionBreakWrap
			.AddItem "This is the first line.\r\nThis is the second line.\r\nThis is the third line."
		End With
		.EndUpdate 
	End With
End With

With CascadeTree1
	.Mode = exSingleCascadeMode
	With .DefaultView()
		.BeginUpdate 
		.DrawGridLines = exRowLines
		.ColumnAutoResize = False
		.ScrollBySingleLine = True
		With .Columns.Add("Default")
			.Width = 128
			.Def(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
End With

With CascadeTree1
	.BeginUpdate 
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV" & _
"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" & _
"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" & _
"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDI" & _
"BICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAok" & _
"GKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI="
		.Add 2,"CP:1 0 -36 0 0"
	End With
	.Background(exColumnsPositionSign) = &H2000000
	.Mode = exSingleCascadeMode
	With .DefaultView()
		.BeginUpdate 
		.HeaderAppearance = Etched
		With .Columns
			.Add "Column 1"
			.Add "Column 2"
			.Add "Column 3"
		End With
		.EndUpdate 
	End With
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		bSingle = .FormatABC("value > 0 ?  0 : -1",.View.Index)
		bColumnAutoResize = .FormatABC("value = `City` ?  0 : -1",.View.Tag)
		With .View
			.ColumnAutoResize = bColumnAutoResize
			.SingleSel = bSingle
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Mode = CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
	.DataSource = "locktype=1;Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=Country" & _
"Code;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Na" & _
"me=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Memb" & _
"er=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Na" & _
"me=Name"
	.Select = "US\AK"
	.EndUpdate 
End With

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.StatusBarVisible = exStatusBarAnchorTop
	.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
	.DefColumnWidth = 336
	Set ado = CreateObject("ADODB.Recordset")
	With ado
		.Open "Countries","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb",3,1,-1
	End With
	With .DefaultView()
		.DataSource = ado
		.ColumnAutoResize = True
	End With
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		bSingle = .FormatABC("value > 0 ?  0 : -1",.View.Index)
		bColumnAutoResize = .FormatABC("value = `City` ?  0 : -1",.View.Tag)
		With .View
			.ColumnAutoResize = bColumnAutoResize
			.SingleSel = bSingle
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Mode = CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		With .View
			.HeaderHeight = 20
			.HeaderAppearance = Etched
			.DrawGridLines = exAllLines
			.GridLineStyle = exGridLinesDash
		End With
		With .DefaultView()
			With .View("Country")
				.BeginUpdate 
				.ColumnAutoResize = True
				.Columns.Item(0).Visible = False
				With .Columns.Item(1)
					.HTMLCaption = "Country"
					.DisplayFilterButton = True
					.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
					.FilterBarDropDownWidth = 2
				End With
				.EndUpdate 
			End With
			With .View("State")
				.BeginUpdate 
				.ColumnAutoResize = True
				.Columns.Item(0).Visible = False
				.Columns.Item(1).Visible = False
				With .Columns.Item(2)
					.HTMLCaption = "State"
					.DisplayFilterButton = True
					.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
					.FilterBarDropDownWidth = 2
				End With
				.EndUpdate 
			End With
			With .View("City")
				.BeginUpdate 
				.Columns.Item("CountryCode").Visible = False
				.Columns.Item("StateCode").Visible = False
				With .Columns.Item("Name")
					.HTMLCaption = "City"
					.Width = 128
					.DisplayFilterButton = True
					.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
					.FilterBarDropDownWidth = 2
				End With
				.SearchColumnIndex = .Columns.Item("Name").Index
				With .Columns.Item("Status")
					.DisplayFilterButton = True
					.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
					.FilterBarDropDownWidth = 2
				End With
				With .Columns.Item("Function")
					.Def(exCellValueFormat) = 1
					.FormatColumn = "value replace 1 with `<img>1</img>` replace 2 with `<img>2</img>` replace 3 with `<img>3</img>` replace 4 with `<img>4</img>` r" & _
	"eplace 5 with `<img>5</img>` replace 6 with `<img>6</img>` replace 7 with `<img>7</img>` replace 8 with `<img>8</img>` replace 9" & _
	" with `<img>9</img>` replace `-` with `` "
				End With
				With .Columns.Add("Pos")
					.AllowSizing = False
					.Width = 32
					.Def(exCellBackColor) = 15790320
					.Position = 0
					.FormatColumn = "1 pos ``"
					.Alignment = CenterAlignment
					.HeaderAlignment = .Alignment
				End With
				.CountLockedColumns = 1
				.Width = .WidthToFit
				.EndUpdate 
			End With
		End With
		With .View
			.FilterBarHeight = 36
			.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 = FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Images "C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-01.ico"
	.Images "C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-02.ico"
	.Images "C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-03.ico"
	.Images "C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-04.ico"
	.Images "C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-05.ico"
	.Images "C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-06.ico"
	.Images "C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-07.ico"
	.Images "C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-08.ico"
	.Images "C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-09.ico"
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Coun" & _
"try;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;" & _
"Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * F" & _
"ROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "RO\CJ"
	With .DefaultView().View("City")
		.FilterBarPromptPattern = "Tu"
	End With
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV" & _
"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" & _
"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" & _
"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDI" & _
"BICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAok" & _
"GKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI="
		.Add 2,"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
	.BackColorSortBar = .BackColor
	.ScrollPartVisible(exVScroll,exExtentThumbPart) = True
	.ScrollPartVisible(exHScroll,exExtentThumbPart) = True
	.ScrollPartVisible(exScroll,exExtentThumbPart) = True
	.ScrollWidth = 4
	.Background(exVSBack) = RGB(240,240,240)
	.Background(exVSThumb) = RGB(128,128,128)
	.ScrollHeight = 4
	.Background(exHSBack) = .Background(exVSBack)
	.Background(exHSThumb) = .Background(exVSThumb)
	.Background(exScrollSizeGrip) = .Background(exVSBack)
	.Background(exSplitBar) = RGB(196,196,196)
	.Background(exCSplitBar) = .Background(exSplitBar)
	.Background(exHSplitBar) = .Background(exSplitBar)
	.Background(exSplitBarSize) = RGB(4,0,0)
	.Background(&H0) = &H1000000
	.Background(&H1) = &H2000000
	.Background(&H20) = -1
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		.View.HeaderHeight = 24
		With .DefaultView()
			With .View("State")
				.BeginUpdate 
				.SingleSel = False
				.ColumnAutoResize = True
				.Columns.Item(0).Visible = False
				.Columns.Item(1).Visible = False
				With .Columns.Item(2)
					.HTMLCaption = "State <off 4><fgcolor=808080>Name"
					.SortOrder = SortAscending
				End With
				.EndUpdate 
			End With
			With .View("City")
				nSelected = .ParentView.Items.SelectCount
				bGroupBy = CascadeTree1.FormatABC("value > 1 ? -1 : 0",nSelected)
				.BeginUpdate 
				.SingleSel = False
				.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
				.HasLines = exSolidLine
				.ColumnAutoResize = False
				.DrawGridLines = exVLines
				.GridLineStyle = exGridLinesVSolid
				.Columns.Item("CountryCode").Visible = False
				With .Columns.Item("Name")
					.HTMLCaption = "City <off 4><fgcolor=808080>Name"
					.Width = 128
					.SortOrder = SortAscending
				End With
				.SearchColumnIndex = 2
				.TreeColumnIndex = .SearchColumnIndex
				.SingleSort = False
				.AllowGroupBy = bGroupBy
				.SortBarVisible = bGroupBy
				With .Columns.Item("StateCode")
					.Visible = bGroupBy
					.SortOrder = SortAscending
				End With
				.Width = .WidthToFit
				.EndUpdate 
			End With
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	With .VisualAppearance
		.Add 1,"C:\Program Files\Exontrol\ExCascadeTree\Sample\EBN\Assorted\vistaselDark.ebn"
		.Add 2,"C:\Program Files\Exontrol\ExCascadeTree\Sample\EBN\Assorted\bhframe.ebn"
	End With
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Coun" & _
"try;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;" & _
"Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * F" & _
"ROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "RO\CJ|BV|GL|IL"
	With .DefaultView().View("Country")
		.BeginUpdate 
		.ColumnAutoResize = True
		.Columns.Item(0).Visible = False
		With .Columns.Item(1)
			.HTMLCaption = "Country <off 4><fgcolor=808080>Name"
			.SortOrder = SortAscending
		End With
		.EndUpdate 
	End With
	.SelBackColor = &H1000000
	.SelForeColor = RGB(255,255,255)
	.BackColorHeader = &H2000000
	.BackColorSortBar = .BackColor
	.BackColorSortBarCaption = .BackColor
	.ScrollPartVisible(exVScroll,exExtentThumbPart) = True
	.ScrollPartVisible(exHScroll,exExtentThumbPart) = True
	.ScrollPartVisible(exScroll,exExtentThumbPart) = True
	.ScrollWidth = 4
	.Background(exVSBack) = RGB(240,240,240)
	.Background(exVSThumb) = RGB(128,128,128)
	.ScrollHeight = 4
	.Background(exHSBack) = .Background(exVSBack)
	.Background(exHSThumb) = .Background(exVSThumb)
	.Background(exScrollSizeGrip) = .Background(exVSBack)
	.Background(exSplitBar) = RGB(196,196,196)
	.Background(exCSplitBar) = .Background(exSplitBar)
	.Background(exHSplitBar) = .Background(exSplitBar)
	.Background(exSplitBarSize) = RGB(4,0,0)
	.BackColorSortBar = .BackColor
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal V As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		With .View
			.BeginUpdate 
			k = .ParentView.Value()
			.HeaderVisible = False
			.ColumnAutoResize = True
			.ScrollBySingleLine = True
			.Columns.Add("Default").Def(exCellSingleLine) = False
			.Key = 0
			With .Items
				.AddItem CascadeTree1.FormatABC("A + `.Child 1`",k)
				.AddItem CascadeTree1.FormatABC("A + `.Child 2`",k)
				.AddItem CascadeTree1.FormatABC("A + `.Child 3`",k)
			End With
			.EndUpdate 
		End With
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.BackColorAlternate = &H7ff0f0f0
	.Background(exSplitBar) = RGB(240,240,240)
	With .DefaultView()
		.BeginUpdate 
		.HeaderVisible = False
		.ColumnAutoResize = True
		.ScrollBySingleLine = True
		.Columns.Add("Default").Def(exCellSingleLine) = False
		.Key = 0
		With .Items
			.AddItem "Item A"
			.AddItem "Item B"
			.AddItem "Item C"
		End With
		.EndUpdate 
	End With
	.Select = "Item A\Item*A*2\Item*A*2*3\"
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		.View.HeaderHeight = 24
		With .DefaultView()
			With .View("State")
				.BeginUpdate 
				.ColumnAutoResize = True
				.Columns.Item(0).Visible = False
				.Columns.Item(1).Visible = False
				With .Columns.Item(2)
					.HTMLCaption = "State <off 4><fgcolor=808080>Name"
					.SortOrder = SortAscending
				End With
				With .Items
					.LockedItemCount(exTop) = 1
					h = .LockedItem(exTop,0)
					.ItemDivider(h) = 0
					.CellValueFormat(h,0) = ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
					.CellValue(h,0) = "count(all,all,1)"
					.FormatCell(h,0) = "`<r>States: <b>`+ (value format `0`)"
				End With
				.EndUpdate 
			End With
			With .View("City")
				.BeginUpdate 
				.SingleSel = False
				.ColumnAutoResize = False
				.DrawGridLines = exVLines
				.GridLineStyle = exGridLinesVSolid
				.Columns.Item(0).Visible = False
				.Columns.Item(1).Visible = False
				With .Columns.Item(2)
					.HTMLCaption = "City <off 4><fgcolor=808080>Name"
					.Width = 128
					.Def(exCellHasCheckBox) = True
					.SortOrder = SortAscending
				End With
				.SearchColumnIndex = 2
				.ConditionalFormats.Add("%CS2 = 1").Bold = True
				With .Items
					.LockedItemCount(exTop) = 1
					h = .LockedItem(exTop,0)
					.ItemDivider(h) = 0
					.CellValueFormat(h,0) = ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
					.CellValue(h,0) = "count(all,all,1)"
					.FormatCell(h,0) = "`<r>Cities: <b>`+ (value format `0`)"
				End With
				.Width = .WidthToFit
				.EndUpdate 
			End With
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	With .VisualAppearance
		.Add 1,"C:\Program Files\Exontrol\ExCascadeTree\Sample\EBN\MSOffice-Ribbon\msor_select.ebn"
		.Add 2,"C:\Program Files\Exontrol\ExCascadeTree\Sample\EBN\MSOffice-Ribbon\msor_background.ebn"
	End With
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Coun" & _
"try;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;" & _
"Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * F" & _
"ROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	With .DefaultView().View("Country")
		.BeginUpdate 
		.ColumnAutoResize = True
		.Columns.Item(0).Visible = False
		With .Columns.Item(1)
			.HTMLCaption = "Country <off 4><fgcolor=808080>Name"
			.SortOrder = SortAscending
		End With
		With .Items
			.LockedItemCount(exTop) = 1
			h = .LockedItem(exTop,0)
			.ItemDivider(h) = 0
			.CellValueFormat(h,0) = ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
			.CellValue(h,0) = "count(all,all,1)"
			.FormatCell(h,0) = "`<r>Countries: <b>`+ (value format `0`)"
		End With
		.EndUpdate 
	End With
	.SelBackColor = &H1000000
	.SelForeColor = RGB(0,0,0)
	.BackColorHeader = &H2000000
	.ScrollPartVisible(exVScroll,exExtentThumbPart) = True
	.ScrollPartVisible(exHScroll,exExtentThumbPart) = True
	.ScrollPartVisible(exScroll,exExtentThumbPart) = True
	.ScrollWidth = 4
	.Background(exVSBack) = RGB(240,240,240)
	.Background(exVSThumb) = RGB(128,128,128)
	.ScrollHeight = 4
	.Background(exHSBack) = .Background(exVSBack)
	.Background(exHSThumb) = .Background(exVSThumb)
	.Background(exScrollSizeGrip) = .Background(exVSBack)
	.Background(exSplitBar) = RGB(196,196,196)
	.Background(exCSplitBar) = .Background(exSplitBar)
	.Background(exHSplitBar) = .Background(exSplitBar)
	.Background(exSplitBarSize) = RGB(4,0,0)
	.BackColorSortBar = .BackColor
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		With .View
			k = .ParentView.Value()
			.BeginUpdate 
			.ColumnAutoResize = True
			.Key = -1
			.Columns.Add k
			With .Items
				.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 1`",k)
				.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 2`",k)
				.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 3`",k)
			End With
			.EndUpdate 
		End With
	End With
End Sub

' ViewItemStateEndChanging event - Indicates that the state of the item has been changed.
Private Sub CascadeTree1_ViewItemStateEndChanging(ByVal Operation As EXCASCADETREELibCtl.ViewItemStateEnum,ByVal Item As EXCASCADETREELibCtl.HITEM,ByVal ColIndex As Long)
	With CascadeTree1
		Debug.Print( "End" )
		Debug.Print( Operation )
		With .View.Items
			Debug.Print( "FocusItem" )
			Debug.Print( .CellCaption(.FocusItem,0) )
			Debug.Print( "SelectedItem" )
			Debug.Print( .CellCaption(.SelectedItem(0),0) )
		End With
	End With
End Sub

' ViewItemStateStartChanging event - Indicates that the state of the item is about to be changed.
Private Sub CascadeTree1_ViewItemStateStartChanging(ByVal Operation As EXCASCADETREELibCtl.ViewItemStateEnum,ByVal Item As EXCASCADETREELibCtl.HITEM,ByVal ColIndex As Long,Cancel As Variant)
	With CascadeTree1
		Debug.Print( "Start" )
		Debug.Print( Operation )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	With .View
		.BeginUpdate 
		.ColumnAutoResize = True
		.Columns.Add "Default"
		.Key = 0
		.LinesAtRoot = exLinesAtRoot
		With .Items
			.AddItem "Item A"
			.SelectItem(.AddItem("Item B")) = True
			.AddItem "Item C"
		End With
		.EndUpdate 
	End With
	.EndUpdate 
End With

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Mode = exSplitFixCascadeMode
	.Background(exSplitBar) = RGB(196,196,196)
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	.DefaultView().ConditionalFormats.Add("1").ForeColor = RGB(128,128,128)
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		With .View
			.HeaderAppearance = Etched
			.HeaderHeight = 24
			.DrawGridLines = exAllLines
			.GridLineStyle = exGridLinesDash
		End With
		With .DefaultView()
			With .View("Country")
				.BeginUpdate 
				.ColumnAutoResize = True
				.Columns.Item(0).Visible = False
				With .Columns.Item(1)
					.HTMLCaption = "Country <off 4><fgcolor=808080>Name"
					.DisplayFilterButton = True
					.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
					.FilterBarDropDownWidth = 2
				End With
				.EndUpdate 
			End With
			With .View("State")
				.BeginUpdate 
				.ColumnAutoResize = True
				.Columns.Item(0).Visible = False
				.Columns.Item(1).Visible = False
				With .Columns.Item(2)
					.HTMLCaption = "State <off 4><fgcolor=808080>Name"
					.DisplayFilterButton = True
					.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
					.FilterBarDropDownWidth = 2
				End With
				.EndUpdate 
			End With
			With .View("City")
				.BeginUpdate 
				.Columns.Item(0).Visible = False
				.Columns.Item(1).Visible = False
				With .Columns.Item(2)
					.HTMLCaption = "City <off 4><fgcolor=808080>Name"
					.Width = 128
					.Def(exCellHasCheckBox) = True
					.DisplayFilterButton = True
					.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
					.FilterBarDropDownWidth = 2
				End With
				With .Columns.Add("Pos")
					.AllowSizing = False
					.Width = 32
					.Def(exCellBackColor) = 15790320
					.Position = 0
					.FormatColumn = "1 pos ``"
				End With
				.CountLockedColumns = 1
				.EndUpdate 
			End With
		End With
		With .View
			.FilterBarHeight = 36
			.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)`) )))"
			.FilterBarPromptType = exFilterPromptStartWith
			.FilterBarPromptVisible = FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.ScrollPartVisible(exVScroll,exExtentThumbPart) = True
	.ScrollPartVisible(exHScroll,exExtentThumbPart) = True
	.ScrollPartVisible(exScroll,exExtentThumbPart) = True
	.ScrollWidth = 4
	.Background(exVSBack) = RGB(240,240,240)
	.Background(exVSThumb) = RGB(128,128,128)
	.ScrollHeight = 4
	.Background(exHSBack) = .Background(exVSBack)
	.Background(exHSThumb) = .Background(exVSThumb)
	.Background(exScrollSizeGrip) = .Background(exVSBack)
	.Background(exSplitBar) = RGB(196,196,196)
	.Background(exCSplitBar) = .Background(exSplitBar)
	.Background(exHSplitBar) = .Background(exSplitBar)
	.Background(exSplitBarSize) = RGB(2,0,0)
	.EndUpdate 
	.BeginUpdate 
	.MinColumnWidth = 348
	.Mode = exSplitFixCascadeMode
	.Background(exSplitBar) = RGB(196,196,196)
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	With .DefaultView().View("City")
		.FilterBarPromptPattern = "An"
	End With
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		With .View
			.FilterBarPromptType = exFilterPromptStartWith
			.FilterBarPromptVisible = exFilterBarPromptVisible
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Mode = exSplitFixCascadeMode
	.Background(exSplitBar) = RGB(196,196,196)
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	With .DefaultView().View("City")
		.FilterBarPromptPattern = "An"
		With .Columns.Item("Name")
			.Width = 128
			.Def(exCellValueFormat) = 1
			.FormatColumn = "value replace `An` with `<bgcolor=000000><fgcolor=FFFFFF>An</fgcolor></bgcolor>` "
		End With
	End With
	.EndUpdate 
End With

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.BackColorAlternate = RGB(240,240,240)
	.Mode = exSingleCascadeMode
	.Background(exSplitBar) = RGB(196,196,196)
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US"
	With .DefaultView().View("Country")
		With .Columns.Add("Pos")
			.Position = 0
			.Width = 32
			.AllowSizing = False
			.FormatColumn = "1pos ``"
		End With
		With .Columns.Item("CountryCode")
			.Width = 32
			.AllowSizing = False
			.DisplayFilterButton = True
		End With
		With .Columns.Item("CountryName")
			.DisplayFilterButton = True
			.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
			.FilterBarDropDownWidth = 2
			.FilterType = exFilter
			.Filter = "Italy|Romania|Germany"
		End With
		.FilterBarPromptPattern = "a"
		.ColumnAutoResize = True
		.SearchColumnIndex = .Columns.Item("CountryName").Index
		.FilterInclude = exItemsWithChilds
		.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>`"
		.FilterBarPromptVisible = FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		.ApplyFilter 
	End With
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		.View.FilterBarPromptVisible = exFilterBarPromptVisible
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Mode = exSplitFixCascadeMode
	.Background(exSplitBar) = RGB(196,196,196)
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	With .DefaultView().View("Country")
		.ColumnAutoResize = True
		.Columns.Item("CountryCode").Visible = False
		With .Columns.Item("CountryName")
			.DisplayFilterButton = True
			.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
			.FilterBarDropDownWidth = 2
			.FilterType = exFilter
			.Filter = "Romania|Germany"
		End With
		.ApplyFilter 
	End With
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		With .View
			.FilterBarPromptVisible = exFilterBarPromptVisible
			With .Columns.Item(0)
				.DisplayFilterButton = True
				.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
				.FilterBarDropDownWidth = 2
			End With
		End With
		With .DefaultView().View("Country")
			With .Columns.Item(0)
				.FilterType = exFilter
				.Filter = "US|RO|GE"
			End With
			.ApplyFilter 
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Mode = exSplitFixCascadeMode
	.Background(exSplitBar) = RGB(196,196,196)
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	.EndUpdate 
End With

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Mode = exSplitFixCascadeMode
	.Background(exSplitBar) = RGB(196,196,196)
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	.DefaultView().FilterBarPromptVisible = exFilterBarPromptVisible
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		.View.FilterBarPromptVisible = exFilterBarPromptVisible
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Mode = exSplitFixCascadeMode
	.Background(exSplitBar) = RGB(196,196,196)
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	.EndUpdate 
End With

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Mode = exSplitEqualCascadeMode
	.Background(exSplitBar) = RGB(196,196,196)
	.Background(exSplitBarSize) = RGB(4,0,0)
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "RO"
	With .DefaultView().View("Country")
		.BeginUpdate 
		.ColumnAutoResize = True
		.Columns.Item(0).Visible = False
		With .Items
			.LockedItemCount(exTop) = 1
			h = .LockedItem(exTop,0)
			.ItemDivider(h) = 0
			.CellValueFormat(h,0) = ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
			.CellValue(h,0) = "count(all,all,1)"
			.FormatCell(h,0) = "`<r>Countries: <b>`+ (value format `0`)"
		End With
		.EndUpdate 
	End With
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		.View.HeaderVisible = False
		With .DefaultView()
			With .View("Country")
				.BeginUpdate 
				.ColumnAutoResize = True
				.Columns.Item(0).Visible = False
				With .Items
					.LockedItemCount(exTop) = 1
					h = .LockedItem(exTop,0)
					.ItemDivider(h) = 0
					.CellValueFormat(h,0) = ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
					.CellValue(h,0) = "count(all,all,1)"
					.FormatCell(h,0) = "`<r>Countries: <b>`+ (value format `0`)"
				End With
				.EndUpdate 
			End With
			With .View("State")
				.BeginUpdate 
				.SingleSel = False
				.ColumnAutoResize = True
				.Columns.Item(0).Visible = False
				.Columns.Item(1).Visible = False
				With .Items
					.LockedItemCount(exTop) = 1
					h = .LockedItem(exTop,0)
					.ItemDivider(h) = 0
					.CellValueFormat(h,0) = ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
					.CellValue(h,0) = "count(all,all,1)"
					.FormatCell(h,0) = "`<r>States: <b>`+ (value format `0`)"
				End With
				.EndUpdate 
			End With
			With .View("City")
				.BeginUpdate 
				.Columns.Item(0).Visible = False
				.Columns.Item(1).Visible = False
				With .Columns.Item(2)
					.Width = 128
					.HTMLCaption = "CityName"
				End With
				With .Items
					.LockedItemCount(exTop) = 1
					h = .LockedItem(exTop,0)
					.ItemDivider(h) = 0
					.CellValueFormat(h,0) = ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
					.CellValue(h,0) = "count(all,all,1)"
					.FormatCell(h,0) = "`<r>Cities: <b>`+ (value format `0`)"
				End With
				.EndUpdate 
			End With
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Mode = exSplitFixCascadeMode
	.Background(exSplitBar) = RGB(196,196,196)
	.Background(exSplitBarSize) = RGB(4,0,0)
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	.EndUpdate 
End With

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.StatusBarVisible = exStatusBarAnchorTop
	.StatusBarLabel = "<c>Select multiple-items in the City view, and press <b>SPACE</b> key"
	.Background(exStatusBackColor) = .BackColor
	.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEhqGiUBihaQhRgyJI3RlJGaoD" & _
"iKIokShKEpDLKlCx3H6OKQjOZgAoySo4SbDMp0NAkRBlFqcJCCCLAUgmTpQUBOYyiLKNRxQGoYLIlayZIiSIpMRbWcB3BYEOSFFasAAleYZTg2Jp1TbPAAYFL1ISDKSi" & _
"IZqTA6PheT5yUzCNazbgEMTvRKqcSnO6bOgnEKQZKAGg4bg1RTVAYZLKtPR7aqyUJvZ5sMB6DiuLYRPKXZoucaNExSS5ebJtOzQJbEXBpXSpBwzSieBozIaQcJUOoaVx" & _
"PFkaJrGuIx3h2BZPgOUIQmUcIwDARAkiAaQxh0DonCMLAeBKZobBCCY+niWJaBIKJJH4MoBgiQpCmmUR/ooBgCgCYBIBYBoBmCBYAn+ApgkgNgOgOYQIEYBIEGESBWBS" & _
"BJhGgZgZgYIYoHYEIHCGaIGAuCAiCgegkgkYYoh4KIFiKKIuBeAJimiGgwgwYoYk4NILCCGJmDqDpjkidg+gGTo1jUAxAEAgI"
	.SelBackColor = &H1000000
	.SelForeColor = .ForeColor
	.Mode = exSplitFixCascadeMode
	.Background(exSplitBar) = RGB(196,196,196)
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	With .DefaultView().View("City")
		.BeginUpdate 
		.ShowFocusRect = False
		.SingleSel = False
		.Columns.Item(0).Visible = False
		.Columns.Item(1).Visible = False
		With .Columns.Item(2)
			.HTMLCaption = "City <off 4><fgcolor=808080>Name"
			.Width = 128
			.Def(exCellHasCheckBox) = True
		End With
		.SearchColumnIndex = .Columns.Item("Name").Index
		With .Columns.Add("Pos")
			.Position = 0
			.Width = 32
			.FormatColumn = "1 pos ``"
		End With
		With .ConditionalFormats
			.Add("%CS2 = 1").BackColor = RGB(190,190,190)
			With .Add("%CS2 = 1")
				.Bold = True
				.ApplyTo = &H8
			End With
		End With
		With .Items
			.CellState(.ItemByIndex(1),2) = 1
			.CellState(.ItemByIndex(3),2) = 1
			.CellState(.ItemByIndex(5),2) = 1
		End With
		.EndUpdate 
	End With
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		With .View
			.HeaderAppearance = Etched
			.HeaderHeight = 24
			.DrawGridLines = exVLines
			.GridLineStyle = exGridLinesDash
		End With
		With .DefaultView()
			With .View("Country")
				.BeginUpdate 
				.ColumnAutoResize = True
				.Columns.Item(0).Visible = False
				.Columns.Item(1).HTMLCaption = "Country <off 4><fgcolor=808080>Name"
				.EndUpdate 
			End With
			With .View("State")
				.BeginUpdate 
				.ColumnAutoResize = True
				.Columns.Item(0).Visible = False
				.Columns.Item(1).Visible = False
				.Columns.Item(2).HTMLCaption = "State <off 4><fgcolor=808080>Name"
				.EndUpdate 
			End With
			With .View("City")
				.BeginUpdate 
				.ShowFocusRect = False
				.SingleSel = False
				.Columns.Item(0).Visible = False
				.Columns.Item(1).Visible = False
				With .Columns.Item(2)
					.HTMLCaption = "City <off 4><fgcolor=808080>Name"
					.Width = 128
					.Def(exCellHasCheckBox) = True
				End With
				.SearchColumnIndex = .Columns.Item("Name").Index
				With .Columns.Add("Pos")
					.Position = 0
					.Width = 32
					.FormatColumn = "1 pos ``"
				End With
				With .ConditionalFormats
					.Add("%CS2 = 1").BackColor = RGB(190,190,190)
					With .Add("%CS2 = 1")
						.Bold = True
						.ApplyTo = &H8
					End With
				End With
				With .Items
					.CellState(.ItemByIndex(1),2) = 1
					.CellState(.ItemByIndex(3),2) = 1
					.CellState(.ItemByIndex(5),2) = 1
				End With
				.EndUpdate 
			End With
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.StatusBarVisible = exStatusBarAnchorTop
	.StatusBarLabel = "<c>Select multiple-items in the City view, and press <b>SPACE</b> key"
	.Background(exStatusBackColor) = .BackColor
	.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEhqGiUBihaQhRgyJI3RlJGaoD" & _
"iKIokShKEpDLKlCx3H6OKQjOZgAoySo4SbDMp0NAkRBlFqcJCCCLAUgmTpQUBOYyiLKNRxQGoYLIlayZIiSIpMRbWcB3BYEOSFFasAAleYZTg2Jp1TbPAAYFL1ISDKSi" & _
"IZqTA6PheT5yUzCNazbgEMTvRKqcSnO6bOgnEKQZKAGg4bg1RTVAYZLKtPR7aqyUJvZ5sMB6DiuLYRPKXZoucaNExSS5ebJtOzQJbEXBpXSpBwzSieBozIaQcJUOoaVx" & _
"PFkaJrGuIx3h2BZPgOUIQmUcIwDARAkiAaQxh0DonCMLAeBKZobBCCY+niWJaBIKJJH4MoBgiQpCmmUR/ooBgCgCYBIBYBoBmCBYAn+ApgkgNgOgOYQIEYBIEGESBWBS" & _
"BJhGgZgZgYIYoHYEIHCGaIGAuCAiCgegkgkYYoh4KIFiKKIuBeAJimiGgwgwYoYk4NILCCGJmDqDpjkidg+gGTo1jUAxAEAgI"
	.SelBackColor = &H1000000
	.SelForeColor = .ForeColor
	.Mode = exSplitFixCascadeMode
	.Background(exSplitBar) = RGB(196,196,196)
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		With .View
			.HeaderAppearance = Etched
			.HeaderHeight = 24
			.DrawGridLines = exAllLines
			.GridLineStyle = exGridLinesDash
		End With
		With .DefaultView()
			With .View("Country")
				.BeginUpdate 
				.ColumnAutoResize = True
				.Columns.Item(0).Visible = False
				.Columns.Item(1).HTMLCaption = "Country <off 4><fgcolor=808080>Name"
				.EndUpdate 
			End With
			With .View("State")
				.BeginUpdate 
				.ColumnAutoResize = True
				.Columns.Item(0).Visible = False
				.Columns.Item(1).Visible = False
				.Columns.Item(2).HTMLCaption = "State <off 4><fgcolor=808080>Name"
				.EndUpdate 
			End With
			With .View("City")
				.BeginUpdate 
				.Columns.Item(0).Visible = False
				.Columns.Item(1).Visible = False
				With .Columns.Item(2)
					.HTMLCaption = "City <off 4><fgcolor=808080>Name"
					.Width = 128
					.Def(exCellBackColor) = 15790320
				End With
				.CountLockedColumns = 1
				.EndUpdate 
			End With
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Mode = exSplitFixCascadeMode
	.Background(exSplitBar) = RGB(196,196,196)
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		With .View
			With .ConditionalFormats.Add("%CS0 = 1")
				.Bold = True
			End With
			.Columns.Item(0).Def(exCellHasCheckBox) = True
			With .Items
				.CellState(.FocusItem,0) = 1
			End With
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Mode = exSplitFixCascadeMode
	.Background(exSplitBar) = RGB(196,196,196)
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	.EndUpdate 
End With

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Mode = exSplitFixCascadeMode
	.Background(exSplitBar) = RGB(196,196,196)
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	With .DefaultView().View("City")
		With .ConditionalFormats.Add("(%0 = `US`) and (%2 like `Al*`)")
			.Bold = True
			.BackColor = RGB(240,240,240)
		End With
	End With
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		With .View
			With .ConditionalFormats.Add("%0 = `US`")
				.Bold = True
			End With
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Mode = exSplitFixCascadeMode
	.Background(exSplitBar) = RGB(196,196,196)
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	.EndUpdate 
End With

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Mode = exSplitFixCascadeMode
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	.AllowSplitView = exAllowOneSplitView
	.SplitViewHeight = 256
	With .DefaultView(1)
	End With
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		.View.SingleSel = False
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAAEhABa0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDYOMjwlDKEgADDFEgjJBkRxtDCPIDnGQoD" & _
"iGI4vSrCQ4yDA8GxCGSfIrjKiYbiGNY8RgZCiOMAFJSpC6gZRoSq4doGGJLQiDMaAdBNHyZKqpbQqeCZPDINQlWzbcrjKKFYQTOi7I4sCbYcqKA5PTbNdYyVBMWxfGIb" & _
"aIkXAcBjuO4hWbFdASRQdDYtHTIbzjCxLcgMD4gRwWCYNSAGRZJLDKK4gSh6eorHQAX4AGabFBOP5fC7TNJ0OKLRrkAJub5eFx3LJ97ohbLsOzYZK2ByDFqiMLGQZMZx" & _
"vGWUBAnYfJImcOwLEiBp0gaGpekSBxjE+WZ2jse5Im2S5ZkGYhdn4EY6A4Q4vAOWJ6H0V4oEgIgSFAGhGDGUB1ByBhVBUAwyhKMQIE2AgRjCWQJAoEIWk2SxCAGBBghQ" & _
"eJYkMZIYBYIYoHIG4HGICB+CKB4iEiBglgaUAzhiJAZA+Q4Qk2CxiniOgwgyYwolYMYNmMQw2CoGQihiLg5g+YxpAIOINiOOJ2CyEBkgkDhKhCJBQAI2IlAkJhMgqZBp" & _
"EYS4UiSGQ2E+FglHkdg5haI5pHIVoViYCQeF6vZJhYY4aCWWYqGyGpkimOhnhyZQ4nIToYGcSY+ESFQnHmGhwh+YpphYO4gmKOlEiGKIKBaCohmeQ4tkUQJQBAgI="
		.Add 2,"gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDYOMjwlDKEgADDFEgjDBkRxtDCPIDnGQoD" & _
"iGI4vSrCQ4zHQkOx9C6NKLjOQaMhwcJPABTZwRRQMUyLAiQRioGKKJgkC4cAxIFhRXSVIyhC6XRiGURbJquLw1DBbEI3BaUOS7HqOK7vCZ7cACVYqQjLMrzCK8ZxLPqb" & _
"ZznOjZXoCKJDQzVYADFRVd4rMK9QABWw4YqWZYXX7kUDxbTdEYzPQAMw1GCcbxmF6eWbCNq3LidXTnOK3dwkO55cyuA6oazi8T6Bi2M6DDQNGSzZiuGZ9YSOOIwHJIN4" & _
"QDSUpYmQOoJA6KxVlCDBsnwOx9iWUhfiCThzjUHZun2WgSAiBIUA0JgziGVJkGWUZAkEUoyBEN51BsDYQhCIQJGqHAUCAGBGA0RwtDcVIgkgNgOgOYQIDiXYEmESBWBa" & _
"BZhggTgSgYYZIHYGoDGGaIGBiBpiCiFJdgkIksiiChhliLgsgYYpoj4F4MGMKBWDSDRhngMg4gcIQYnYPoEE6N4ZAMQBAICA="
	End With
	.SelBackColor = &H1000000
	.SelForeColor = RGB(0,0,0)
	.BackColorHeader = &H2000000
	.ScrollPartVisible(exVScroll,exExtentThumbPart) = True
	.ScrollPartVisible(exHScroll,exExtentThumbPart) = True
	.ScrollPartVisible(exScroll,exExtentThumbPart) = True
	.ScrollWidth = 4
	.Background(exVSBack) = RGB(240,240,240)
	.Background(exVSThumb) = RGB(128,128,128)
	.ScrollHeight = 4
	.Background(exHSBack) = .Background(exVSBack)
	.Background(exHSThumb) = .Background(exVSThumb)
	.Background(exScrollSizeGrip) = .Background(exVSBack)
	.Background(exSplitBar) = RGB(196,196,196)
	.Background(exCSplitBar) = .Background(exSplitBar)
	.Background(exHSplitBar) = .Background(exSplitBar)
	.Background(exSplitBarSize) = RGB(2,0,0)
	.BackColorSortBar = .BackColor
	.EndUpdate 
	.BeginUpdate 
	.Mode = exSplitFixCascadeMode
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "RO\CJ|BV|CS"
	With .DefaultView().View("City")
		.BeginUpdate 
		With .Columns
			.Item("CountryCode").Visible = False
			With .Item("Name")
				.SortOrder = SortAscending
				.Width = 128
			End With
		End With
		.SortBarVisible = True
		.AllowGroupBy = True
		.SingleSort = False
		.Columns.Item("StateCode").SortOrder = SortAscending
		.TreeColumnIndex = .Columns.Item("Name").Index
		.EndUpdate 
	End With
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	' Columns("StateCode").Visible = False
	' Columns("StateName").SortOrder = 1
	' Columns("StateCode").SortOrder = nGroupByIfCity
	With CascadeTree1
		nGroupByIfCity = .FormatABC("( A = `City`) ? 1 : 0",.View.Tag)
		bColumnAutoResize = .FormatABC(" (A = `City`) ? 0 : -1",.View.Tag)
		With .View
			.BeginUpdate 
			.SingleSel = False
			.Columns.Item("CountryCode").Visible = False
			.Columns.Item("CountryName").SortOrder = SortAscending
			With .Columns.Item(2)
			End With
			.TreeColumnIndex = 2
			.AllowGroupBy = True
			.SingleSort = False
			.SortBarVisible = nGroupByIfCity
			.ColumnAutoResize = bColumnAutoResize
			.EndUpdate 
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAAEhABa0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDYOMjwlDKEgADDFEgjJBkRxtDCPIDnGQoD" & _
"iGI4vSrCQ4yDA8GxCGSfIrjKiYbiGNY8RgZCiOMAFJSpC6gZRoSq4doGGJLQiDMaAdBNHyZKqpbQqeCZPDINQlWzbcrjKKFYQTOi7I4sCbYcqKA5PTbNdYyVBMWxfGIb" & _
"aIkXAcBjuO4hWbFdASRQdDYtHTIbzjCxLcgMD4gRwWCYNSAGRZJLDKK4gSh6eorHQAX4AGabFBOP5fC7TNJ0OKLRrkAJub5eFx3LJ97ohbLsOzYZK2ByDFqiMLGQZMZx" & _
"vGWUBAnYfJImcOwLEiBp0gaGpekSBxjE+WZ2jse5Im2S5ZkGYhdn4EY6A4Q4vAOWJ6H0V4oEgIgSFAGhGDGUB1ByBhVBUAwyhKMQIE2AgRjCWQJAoEIWk2SxCAGBBghQ" & _
"eJYkMZIYBYIYoHIG4HGICB+CKB4iEiBglgaUAzhiJAZA+Q4Qk2CxiniOgwgyYwolYMYNmMQw2CoGQihiLg5g+YxpAIOINiOOJ2CyEBkgkDhKhCJBQAI2IlAkJhMgqZBp" & _
"EYS4UiSGQ2E+FglHkdg5haI5pHIVoViYCQeF6vZJhYY4aCWWYqGyGpkimOhnhyZQ4nIToYGcSY+ESFQnHmGhwh+YpphYO4gmKOlEiGKIKBaCohmeQ4tkUQJQBAgI="
		.Add 2,"gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDYOMjwlDKEgADDFEgjDBkRxtDCPIDnGQoD" & _
"iGI4vSrCQ4zHQkOx9C6NKLjOQaMhwcJPABTZwRRQMUyLAiQRioGKKJgkC4cAxIFhRXSVIyhC6XRiGURbJquLw1DBbEI3BaUOS7HqOK7vCZ7cACVYqQjLMrzCK8ZxLPqb" & _
"ZznOjZXoCKJDQzVYADFRVd4rMK9QABWw4YqWZYXX7kUDxbTdEYzPQAMw1GCcbxmF6eWbCNq3LidXTnOK3dwkO55cyuA6oazi8T6Bi2M6DDQNGSzZiuGZ9YSOOIwHJIN4" & _
"QDSUpYmQOoJA6KxVlCDBsnwOx9iWUhfiCThzjUHZun2WgSAiBIUA0JgziGVJkGWUZAkEUoyBEN51BsDYQhCIQJGqHAUCAGBGA0RwtDcVIgkgNgOgOYQIDiXYEmESBWBa" & _
"BZhggTgSgYYZIHYGoDGGaIGBiBpiCiFJdgkIksiiChhliLgsgYYpoj4F4MGMKBWDSDRhngMg4gcIQYnYPoEE6N4ZAMQBAICA="
	End With
	.SelBackColor = &H1000000
	.SelForeColor = RGB(0,0,0)
	.BackColorHeader = &H2000000
	.ScrollPartVisible(exVScroll,exExtentThumbPart) = True
	.ScrollPartVisible(exHScroll,exExtentThumbPart) = True
	.ScrollPartVisible(exScroll,exExtentThumbPart) = True
	.ScrollWidth = 4
	.Background(exVSBack) = RGB(240,240,240)
	.Background(exVSThumb) = RGB(128,128,128)
	.ScrollHeight = 4
	.Background(exHSBack) = .Background(exVSBack)
	.Background(exHSThumb) = .Background(exVSThumb)
	.Background(exScrollSizeGrip) = .Background(exVSBack)
	.Background(exSplitBar) = RGB(196,196,196)
	.Background(exCSplitBar) = .Background(exSplitBar)
	.Background(exHSplitBar) = .Background(exSplitBar)
	.Background(exSplitBarSize) = RGB(2,0,0)
	.BackColorSortBar = .BackColor
	.EndUpdate 
	.BeginUpdate 
	.Mode = exSplitFixCascadeMode
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "RO\CJ|BV|CS"
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	' Columns("StateCode").Visible = False
	' Columns("StateName").SortOrder = 1
	With CascadeTree1
		With .View
			.BeginUpdate 
			.ColumnAutoResize = True
			.Columns.Item("CountryCode").Visible = False
			.Columns.Item("CountryName").SortOrder = SortAscending
			With .Columns.Item("Name")
			End With
			.EndUpdate 
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAAEhABWYDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCNAwgFBIcBhE4ZIKkEYoMiONoYR5Ac4yF" & _
"AcQxHE6TZRgeDZToWN48TZLEB0VRFGL1J4AKbfKKKBiqIZDTpMdKSHIIFQ4BiEaYkGjqQpKVIdDSJMwWTI4ahhNSEbauCZ7DhyXpLUbeNSyXJsXw7GSOZJvGZ5bjuIY+" & _
"RxQEK1NQkOyNOiOAosGCQWiDE4DWZZUT3XS+HgAGStY4rWCcSgOYIDZTPOT1DYtIY3NC5c7tS4bPq3NZHXTAeigBa4AZTQafcTvSA5OjOQQ2VhNWIXRxgAZ3YCNbzpTg" & _
"sHeD5DmUQh3jSTQ/DuIZBh0bJ8BsG4WlsYwXjEapphuXh/HsRQJAQQhKAaEwZlCahyDKchJlEIgRDedQbA2EIQiECR3BudAgBgRgBgSHZQFSCwzECV4DGCeA6BCBJhCg" & _
"VgRgWs4YkgNJKCOMJ2C0T4Dn4IIIiIGIOCaCRiy0HQ9iGIxMhgMAMmKZJ2D+SQThININgiM4In+DhPnIDJhD+RxzgCfwaE2c58F0N4PniSJ/guTJiCiOAygwCJODyDwI" & _
"FifhVD+R5JBQcIREYOQgFgNwPnkRJ/qOIgIjEMYMFOVg9hESA5BQfYSCbQx1DcZA5lAXQ2vURh4hoT55hiRgfEqYwMkUPQPnGahgiGJwpmAdYeAaWZgGINoPnEWoQBKa" & _
"QKAyf4gAwMZoisMIMGOTJ/B0KQK0EG5NhqDolBmKhRG6JQUX8GJYD+aZaBaGweAqEwEkYPNpDaL4u2kIJXi8a5xgKPwViucQuj8EBrnqXJ/i0DARlyJwwCyIYglaLxtD" & _
"GDpVjSRY7EwUY0kQexMD+MhrgsOJAB2LJzCKOAZG0O4gn8GANFuLptBaLpREKUwRG0MJylOOYPnuEpjjOTIamAYo7G/QxfDUMAsBAWI7ESe40ZuQ5bjafY+GycZcigMB" & _
"ODOZJ/CoTo8F8GZGDGI58iaRhKEwZIhkYSZ8GcFYQVeZIqDCThsFiMQ7g+fI8n8LAOlyTw1CuMxSjMNQqHMUojDWSxPnyKJDB8CpjBSag+iSE4/EmUpLh0KI2lKCxNCi" & _
"Mvkg0KxHhYNBSACMQyA6c5wn8MJrg2Axflga4DAaOAviuApyjgLorg0dJ/laDICAyNQyg8LR47INxznzfI3jOPkS4NQMDzCoPgMQUBNqzFyJAco0ROLRFOPkVIEB4v7F" & _
"WBAeT/xTB7E+OYR4MAzjzAMG8GIxgPj8CSJwIolxjCJTeB8cw7hIjVDqD0LwkA3BpAMNYFgbAxDGF8C0aYxw+gpA8GEeI/QgjJFeHcc4/xBjggePEYgfRPjnAOJAN4+Q" & _
"DjHCiN0TQhBMiODWOkA4+RqjGH0P4W4sRjCdB4GkaIxhOD6HiM0V4ehfCRFcEsDIZhkjcD4J8PwQR/j3D8Acf43x8h+B+Jkf49RPh/CCLIVIEwTBxFsP8L4+x/CAAgA4" & _
"AIQAsADACMoSA6wghEAYIAQBAQA=="
		.Add 2,"gBFLBCJwBAEHhEJAAEhABEwFg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDaMUjwlDiEgADCNAySCKkGRHG6MI6gOapC" & _
"gOIYjS7KYASTIMDw7EIZJ7jSioboKNo9ABQT71GAFJr/DChKIhWiKIoKI4hAZHAIQTR8QylKirIwlcYhVCWa5tS82CzoJrKdI4WZHFgwHR8cRxLKVJQlaDZSoIMQ2STf" & _
"V7TZLkQyZNSTJQpGq6HxWeIcETkMBlLIGNSrNCqIrwChach2XpLQjeYAZTAdR43TqBbLqeyYXq+dwAWxtdzXDacXy/TzWAA1LLMKr/EpZDhSxARVDbD4XY7TdBcDwsOY" & _
"AmQcohjyXQ8G6QRkgSa41H0WY+luSx1l6eZ2noLYFEePwDlUdQ8HufRsCSIBpDGHQOicIwtBoBguGuBAhDWfxGkMZAkCgeAQhcEQiAYEYDmABx8hANRYmQMhKHMTItB+" & _
"IRoGIF4GGEMoeBKBQhGGfRWgiYhIgYHYIE+c5Ym8P5OlMWgsguIpYj4KQ7mIExMi6CIVGOKJTD/OxyDuDxVDiWB/g2CAIgyZwzk+eQeEmEgkikBIuCADRJD4Iw5AyU5+" & _
"FSFYlFkXRThQZQJEkVg4gyM5+GCGImBmDhbhOTRCj4RRVg4Ewkn+GxmnmOhwhaZopiYaxUk4Awgn+Hhnjmah8h0JQJioI4fCgSZ6HqIAnGoDoGh8aJKCCMAgGiKgygUV" & _
"YNEoPoViQFRqE6E4WmkYpAgKJBpioHJ/iUSAqhKIIimeeoOh4NQLBIDoniSKgqjCA4szqYJoDcKxqmKN4uGkSo2oGKxam6Qoug2Sp0gRggiBaQYxCuGpyFuMhsgsKRTj" & _
"MbA7DqI40AsIgakuNQsEoUpZYIOxqlONRsDoUphjgCB7G6ZIxGWMpMgeOgsBMbo2jyDoLlCW45i6cpSmmOJvGuTpziUL4jFCNAiC8G56nWP5ljwDJVC0CIcBcB5Dm8dR" & _
"PZyTRSlcDY/DAa5ZFaRRxEKVIKkOL5blcG5Hg0UpYgsVYPhuVwpDaco87eSYyFyHRTkscoslcEQ/nMExYjYIwygyWw0k2c4iDCVgtkiXJ3CyT4yCUTxDCMdI9BsP5LjS" & _
"LQTEMI40m0IxAd4YxYjgI51NsXhVjWIg8leVp1lzLJYnYIpkhCWRzG2HxqDWS4SEcbJXlUPZAhGXAJC2TxQD+O8AwuQ6i8HMGcIItRKDwD4BcBIsx3j7HiCcTw8BeBvA" & _
"eLoS4RBMiwC6JITgZwEjLHgEoW4JglBzD4LcBozxNotBSM4eAPA7hBGiHMQo2QVjPDoWcU4yRJCmGCHgJYdRODHC4H8ewRGWhLHsL0H4XgvASHMMkPY3g6C9FuB4P4+A" & _
"vAJD0EwO4vA1CtHCBMDwEQZjmHwP4SIsgvh6D8C8II6h9geFyDUdQcwVCfF4G0C4xBvjBG2PwQg2RaBfH4MoTI9Rgh9HMNccY+BVDfC+NQL4kxFC3HOPgP4nwjjwBsIY" & _
"AAnQ/hPHqP0XwiABgABABMdwgBHj1H0MACItgYAEHoAMPwUAWjbGAPEHgNhjAIE+IIKAFR9AVBwDAE44B+AbEEIULQDxgiBCAP4Q4Sx5CFBGOoCowhMBIBgEUAA2wMBC" & _
"EMBQIQqA2gLBAKwGYhgoDRHuEIbAbwFigHoDMDYgwEBRCGFgOIERxAAH+IgMQiA3AMBwIsB4RhuAsEUCMUwKRZh4E2BMAwGBRiFAiFYFIRQRCtAmEUDgTQKCRDcC4YoS" & _
"BeBUHGBAbgGBIiMFSI8XAqQNiGG4HARwEQ/A1GMKEJQVRDjYHUBsSI5gejHFQPkDoBQWB2BUMMeAeAHCJASCEUgLBDiQAGHQMQig0gGB4AcHghBJAyCEEkCoaQMApFIL" & _
"wR4kg5BuCUJUHILwRgQHiFMSQUhHBKCSAkFgMQig8EYBUCQPA5hICSFpKgeBzCUHEKANwjAwhTBAMcPgrRLgjHkF0ZYmQWgtFKKwW4lApDCCuEwLIYQXjFCYLUCochwB" & _
"yGWMkTQOxzB4HKJccQrgyhMGSJ0Go5hCDTA2MMDwZRKgxH2DQEw+ByicBmIQVYTRYhXBsMUMIVhNjjEkHUZw0RvA5BOCgY4FRJiiDqE4BI7QcCmGSFMToExogVCcOkbI" & _
"OxzhaBmJ0AYnA1AMdoCsKIJQEgfHoB4QQDAJCtCGGgHoEQMDiFtPIKQrAdDNHiAMEAICAgA=="
	End With
	.SelBackColor = &H1000000
	.SelForeColor = RGB(0,0,0)
	.BackColorHeader = &H2000000
	.ScrollPartVisible(exVScroll,exExtentThumbPart) = True
	.ScrollPartVisible(exHScroll,exExtentThumbPart) = True
	.ScrollPartVisible(exScroll,exExtentThumbPart) = True
	.ScrollWidth = 4
	.Background(exVSBack) = RGB(240,240,240)
	.Background(exVSThumb) = RGB(128,128,128)
	.ScrollHeight = 4
	.Background(exHSBack) = .Background(exVSBack)
	.Background(exHSThumb) = .Background(exVSThumb)
	.Background(exScrollSizeGrip) = .Background(exVSBack)
	.Background(exSplitBar) = RGB(196,196,196)
	.Background(exCSplitBar) = .Background(exSplitBar)
	.Background(exHSplitBar) = .Background(exSplitBar)
	.Background(exSplitBarSize) = RGB(2,0,0)
	.BackColorSortBar = .BackColor
	.EndUpdate 
	.BeginUpdate 
	.Mode = exSplitFixCascadeMode
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "RO\CJ"
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	' Columns("StateCode").Visible = False
	With CascadeTree1
		With .View
			.BeginUpdate 
			.ContinueColumnScroll = False
			.ScrollBySingleLine = True
			.DrawGridLines = exAllLines
			.EnsureVisibleColumn "Date"
			.Columns.Item("CountryCode").Visible = False
			With .Columns.Item("Date")
			End With
			With .Columns.Item("Function")
			End With
			With .Columns.Item("Coordinates")
			End With
			With .Columns.Item("Status")
			End With
			.EndUpdate 
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.FitCascadeColumns = 7
	.Mode = exSplitFixCascadeMode
	.ScrollWidth = 4
	.ScrollHeight = 4
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\OR"
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		With .View
			With .Columns.Add("Pos")
				.Width = 32
				.AllowSizing = False
				.Position = 0
				.FormatColumn = "1 pos ``"
				.Def(exCellBackColor) = 15790320
				.Alignment = RightAlignment
				.HeaderAlignment = .Alignment
				.Def(exCellPaddingRight) = 2
				.Def(exCellPaddingLeft) = 2
				.Def(exHeaderPaddingLeft) = 2
				.Def(exHeaderPaddingRight) = 2
			End With
			.CountLockedColumns = 1
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Mode = exSplitFixCascadeMode
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\IA"
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		With .View
			.EnsureVisibleColumn "Function"
			With .Columns.Item("Function")
			End With
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Mode = exSplitFixCascadeMode
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\MN"
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		.StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name)
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub CascadeTree1_ViewEndChanging(ByVal Operation As EXCASCADETREELibCtl.ViewOperationEnum)
	With CascadeTree1
		.StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name)
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.StatusBarVisible = exStatusBarAnchorTop
	.StatusBarHeight = 24
	.Mode = exSplitFixCascadeMode
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Name = "Romania\Cluj\Baciu*"
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		.View.AutoSearch = False
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Mode = exSplitFixCascadeMode
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	' Columns("StateCode").Visible = False
	With CascadeTree1
		With .View
			.ColumnAutoResize = True
			.Columns.Item("CountryCode").Visible = False
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.ScrollPartVisible(exVScroll,exExtentThumbPart) = True
	.ScrollPartVisible(exHScroll,exExtentThumbPart) = True
	.ScrollPartVisible(exScroll,exExtentThumbPart) = True
	.ScrollWidth = 4
	.Background(exVSBack) = RGB(240,240,240)
	.Background(exVSThumb) = RGB(128,128,128)
	.ScrollHeight = 4
	.Background(exHSBack) = .Background(exVSBack)
	.Background(exHSThumb) = .Background(exVSThumb)
	.Background(exScrollSizeGrip) = .Background(exVSBack)
	.Background(exSplitBar) = RGB(196,196,196)
	.Background(exCSplitBar) = .Background(exSplitBar)
	.Background(exHSplitBar) = .Background(exSplitBar)
	.Background(exSplitBarSize) = RGB(2,0,0)
	.EndUpdate 
	.BeginUpdate 
	.Mode = exSplitFixCascadeMode
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	.DefaultView().Columns.Item("CountryName").SortOrder = SortAscending
	.DefaultView().NextView.Columns.Item("StateName").SortOrder = SortAscending
	With .DefaultView().NextView.NextView
		.ColumnAutoResize = False
		With .Columns.Item("Name")
			.SortOrder = SortAscending
			.Width = 128
		End With
		With .Items
			.SelectItem(.FindItem("Anchorage","Name")) = True
		End With
	End With
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	' Columns("StateCode").Visible = False
	With CascadeTree1
		With .View
			.ColumnAutoResize = True
			.Columns.Item("CountryCode").Visible = False
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Mode = exSplitEqualCascadeMode
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "RO\CJ"
	.DefaultView().Columns.Item("CountryName").SortOrder = SortAscending
	.DefaultView().NextView.Columns.Item("StateName").SortOrder = SortAscending
	With .DefaultView().NextView.NextView
		.BeginUpdate 
		.ColumnAutoResize = False
		With .Columns.Item("Name")
			.Width = 128
			.SortOrder = SortAscending
		End With
		.SingleSort = False
		.AllowGroupBy = True
		.Columns.Item("Status").SortOrder = SortDescending
		.TreeColumnIndex = .Columns.Item("Name").Index
		.EndUpdate 
	End With
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	' Columns("StateCode").Visible = False
	With CascadeTree1
		With .View
			.ColumnAutoResize = True
			.Columns.Item("CountryCode").Visible = False
		End With
		.StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name)
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub CascadeTree1_ViewEndChanging(ByVal Operation As EXCASCADETREELibCtl.ViewOperationEnum)
	With CascadeTree1
		.StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name)
		.ExecuteContextMenu = 0
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.AllowSplitView = exAllowOneSplitView
	.FitCascadeColumns = 3
	.Mode = exSplitEqualCascadeMode
	.StatusBarVisible = exStatusBarAnchorTop
	.StatusBarHeight = 24
	.ScrollPartVisible(exVScroll,exExtentThumbPart) = True
	.ScrollPartVisible(exHScroll,exExtentThumbPart) = True
	.ScrollPartVisible(exScroll,exExtentThumbPart) = True
	.ScrollWidth = 4
	.Background(exVSBack) = RGB(240,240,240)
	.Background(exVSThumb) = RGB(128,128,128)
	.ScrollHeight = 4
	.Background(exHSBack) = .Background(exVSBack)
	.Background(exHSThumb) = .Background(exVSThumb)
	.Background(exScrollSizeGrip) = .Background(exVSBack)
	.Background(exSplitBar) = RGB(196,196,196)
	.Background(exCSplitBar) = .Background(exSplitBar)
	.Background(exHSplitBar) = .Background(exSplitBar)
	.Background(exSplitBarSize) = RGB(2,0,0)
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	.ShowContextMenu = "`vlevels=` + vlevels + `,vlevel=` + vlevel + `,hlevels=` + hlevels + `,hlevel=` + hlevel + `,view=` + view "
	.SplitViewHeight = "256"
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	' Columns("StateCode").Visible = False
	With CascadeTree1
		With .View
			.ColumnAutoResize = True
			.Columns.Item("CountryCode").Visible = False
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub CascadeTree1_ViewEndChanging(ByVal Operation As EXCASCADETREELibCtl.ViewOperationEnum)
	With CascadeTree1
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Mode = exSplitFixCascadeMode
	.Background(exSplitBar) = RGB(196,196,196)
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	.ShowContextMenu = "[debug]Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]"
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	' Columns("StateCode").Visible = False
	With CascadeTree1
		With .View
			.ColumnAutoResize = True
			.Columns.Item("CountryCode").Visible = False
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub CascadeTree1_ViewEndChanging(ByVal Operation As EXCASCADETREELibCtl.ViewOperationEnum)
	With CascadeTree1
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Mode = exSplitFixCascadeMode
	.Background(exSplitBar) = RGB(196,196,196)
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	.ShowContextMenu = "Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]"
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	' Columns("StateCode").Visible = False
	With CascadeTree1
		With .View
			.ColumnAutoResize = True
			.Columns.Item("CountryCode").Visible = False
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Mode = CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
	.Background(exSplitBar) = RGB(196,196,196)
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	' Columns("StateCode").Visible = False
	With CascadeTree1
		With .View
			.ColumnAutoResize = True
			.Columns.Item("CountryCode").Visible = False
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Mode = exSplitFixCascadeMode
	.Background(exSplitBar) = RGB(196,196,196)
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		.View.ColumnAutoResize = True
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Background(exSplitBar) = RGB(196,196,196)
	.Mode = CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exDisableResizeCascadeColumns Or CascadeModeEnum.exSplitFixCascadeMode
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	.EndUpdate 
End With

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Background(exSplitBar) = RGB(196,196,196)
	.Mode = exSplitFixCascadeMode
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	.EndUpdate 
End With

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Background(exSplitBar) = RGB(196,196,196)
	.DefColumnWidth = 96
	.Mode = exFixCascadeMode
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	.EndUpdate 
End With

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Background(exSplitBar) = RGB(196,196,196)
	.Mode = exSplitEqualCascadeMode
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	.EndUpdate 
End With

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Background(exSplitBar) = RGB(196,196,196)
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	.EndUpdate 
End With

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Mode = exSingleCascadeMode
	With .DefaultView()
		.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Cities Where CountryCode = 'RO' " & _
""
		.AllowGroupBy = True
		.SortBarVisible = True
		.Columns.Item("StateCode").SortOrder = SortAscending
		.Name = "Name"
	End With
	.Name = "Isaccea"
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		.StatusBarLabel = .Name
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub CascadeTree1_ViewEndChanging(ByVal Operation As EXCASCADETREELibCtl.ViewOperationEnum)
	With CascadeTree1
		.StatusBarLabel = .Name
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.StatusBarVisible = exStatusBarAnchorTop
	.Mode = exSplitFixCascadeMode
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	.EndUpdate 
End With

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Mode = exSplitFixCascadeMode
	.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
	.Select = "US\AK"
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		.View.ColumnAutoResize = CascadeTree1.FormatABC("not(A = `City`)",.View.Tag)
		label = .FormatABC("`<b>Select = </b>` + value",.Select)
		label = .FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `|` with ` `",label,.Name)
		.StatusBarLabel = label
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub CascadeTree1_ViewEndChanging(ByVal Operation As EXCASCADETREELibCtl.ViewOperationEnum)
	With CascadeTree1
		label = .FormatABC("`<b>Select = </b>` + value",.Select)
		label = .FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `|` with ` `",label,.Name)
		.StatusBarLabel = label
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Mode = exSplitEqualCascadeMode
	.StatusBarVisible = StatusBarAnchorEnum.exStatusBarWordWrap Or StatusBarAnchorEnum.exStatusBarAnchorTop
	ds = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb"
	dm1 = "Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName"
	ds = .FormatABC("A + `;` + B",ds,dm1)
	dm2 = "Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Sel" & _
"ect * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name"
	ds = .FormatABC("A + ` >>> ` + B",ds,dm2)
	dm3 = "Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=Ci" & _
"ty;Name=Name"
	ds = .FormatABC("A + ` >>> ` + B",ds,dm3)
	.DataSource = ds
	.Name = "Romania\Cluj\Baciu*"
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		bColumnAutoResize = .FormatABC("not(A = `City`)",.View.Tag)
		With .View
			.SingleSel = False
			.ColumnAutoResize = bColumnAutoResize
		End With
		label = .FormatABC("`<b>Select = </b>` + value",.Select)
		label = .FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `|` with ` `",label,.Name)
		.StatusBarLabel = label
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub CascadeTree1_ViewEndChanging(ByVal Operation As EXCASCADETREELibCtl.ViewOperationEnum)
	With CascadeTree1
		label = .FormatABC("`<b>Select = </b>` + value",.Select)
		label = .FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `|` with ` `",label,.Name)
		.StatusBarLabel = label
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Mode = exSplitEqualCascadeMode
	.StatusBarVisible = StatusBarAnchorEnum.exStatusBarWordWrap Or StatusBarAnchorEnum.exStatusBarAnchorTop
	.StatusBarHeight = 48
	ds = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb"
	dm1 = "Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName"
	ds = .FormatABC("A + `;` + B",ds,dm1)
	dm2 = "Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Sel" & _
"ect * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name"
	ds = .FormatABC("A + ` >>> ` + B",ds,dm2)
	dm3 = "Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=Ci" & _
"ty;Name=Name"
	ds = .FormatABC("A + ` >>> ` + B",ds,dm3)
	.DataSource = ds
	.Select = "RO\CJ|D*"
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		bColumnAutoResize = .FormatABC("not(A = `City`)",.View.Tag)
		.View.ColumnAutoResize = bColumnAutoResize
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub CascadeTree1_ViewEndChanging(ByVal Operation As EXCASCADETREELibCtl.ViewOperationEnum)
	With CascadeTree1
		.StatusBarLabel = CascadeTree1.Select
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.Mode = exSplitEqualCascadeMode
	.StatusBarVisible = exStatusBarAnchorBottom
	ds = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb"
	dm1 = "Member=Select * FROM Countries;Key=CountryCode;Tag=Country"
	ds = .FormatABC("A + `;` + B",ds,dm1)
	dm2 = "Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Tag=State ||| Member=Select * FROM Citi" & _
"es WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City"
	ds = .FormatABC("A + ` >>> ` + B",ds,dm2)
	dm3 = "Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=Ci" & _
"ty"
	ds = .FormatABC("A + ` >>> ` + B",ds,dm3)
	.DataSource = ds
	.Select = "RO\CJ"
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		.StatusBarLabel = .FormatABC("value replace `data source` with `<b><fgcolor=808080>Source</fgcolor></b>` replace `Source` with `<b><fgcolor=808080>Source</fg" & _
	"color></b>` replace `Member` with `<b><fgcolor=808080>Member</fgcolor></b>` replace `Key` with `<b><fgcolor=808080>Key</fgcolor>" & _
	"</b>` replace `Tag` with `<b><fgcolor=808080>Tag</fgcolor></b>` replace `;` with `;<br>`",.View.DataSource)
		bColumnAutoResize = .FormatABC("not(A = `City`)",.View.Tag)
		nWidth = .FormatABC("A = `City` ? B : C",.View.Tag,.View.WidthToFit,.View.Width)
		With .View
			.ColumnAutoResize = bColumnAutoResize
			.Width = nWidth
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.StatusBarHeight = 58
	.StatusBarVisible = StatusBarAnchorEnum.exStatusBarWordWrap Or StatusBarAnchorEnum.exStatusBarAnchorTop
	ds = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb"
	dm1 = "Member=Select * FROM Countries;Key=CountryCode;Tag=Country"
	ds = .FormatABC("A + `;` + B",ds,dm1)
	dm2 = "Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Tag=State ||| Member=Select * FROM Citi" & _
"es WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City"
	ds = .FormatABC("A + ` >>> ` + B",ds,dm2)
	dm3 = "Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=Ci" & _
"ty"
	ds = .FormatABC("A + ` >>> ` + B",ds,dm3)
	.DataSource = ds
	.EndUpdate 
End With

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.StatusBarVisible = exStatusBarAnchorTop
	.StatusBarLabel = "<b>DataSource</b> could ""Data Source=...;Data Member=..."" or ""Source=...;Member=..."" "
	.DefColumnWidth = 336
	ds = "Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb"
	dm = "Data Member=Select * FROM Countries"
	With .DefaultView()
		.DataSource = CascadeTree1.FormatABC("A + `;` + B",ds,dm)
		.ColumnAutoResize = True
	End With
	.EndUpdate 
End With

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.StatusBarVisible = exStatusBarAnchorTop
	.StatusBarLabel = "<b>DataSource</b> could ""Data Source=...;Data Member=..."" or ""Source=...;Member=..."" "
	.DefColumnWidth = 336
	ds = "Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb"
	dm = "Data Member=Select * FROM Countries"
	With .DefaultView()
		.DataSource = CascadeTree1.FormatABC("A + `;` + B",ds,dm)
		.ColumnAutoResize = True
	End With
	.EndUpdate 
End With

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.StatusBarVisible = exStatusBarAnchorTop
	.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
	.DefColumnWidth = 336
	Set ado = CreateObject("ADODB.Recordset")
	With ado
		.Open "Countries","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb",3,3
	End With
	With .DefaultView()
		.DataSource = ado
		.ColumnAutoResize = True
	End With
	.EndUpdate 
End With

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.StatusBarVisible = exStatusBarAnchorTop
	.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
	.DefColumnWidth = 336
	Set ado = CreateObject("ADODB.Recordset")
	With ado
		.Open "Countries","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb",3,3
	End With
	With .DefaultView()
		.DataSource = ado
		.ColumnAutoResize = True
	End With
	.EndUpdate 
End With

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.StatusBarVisible = exStatusBarAnchorTop
	.StatusBarLabel = "<b>DataSource</b> could ""Data Source=...;Data Member=..."" or ""Source=...;Member=..."" "
	.DefColumnWidth = 336
	ds = "Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb"
	dm = "Data Member=Select * FROM Countries"
	.DataSource = .FormatABC("A + `;` + B",ds,dm)
	.View.ColumnAutoResize = True
	.EndUpdate 
End With

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.StatusBarVisible = exStatusBarAnchorTop
	.StatusBarLabel = "<b>DataSource</b> could ""Data Source=...;Data Member=..."" or ""Source=...;Member=..."" "
	.DefColumnWidth = 336
	ds = "Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb"
	dm = "Data Member=Select * FROM Countries"
	.DataSource = .FormatABC("A + `;` + B",ds,dm)
	.View.ColumnAutoResize = True
	.EndUpdate 
End With

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.StatusBarVisible = exStatusBarAnchorTop
	.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
	.DefColumnWidth = 336
	Set ado = CreateObject("ADODB.Recordset")
	With ado
		.Open "Countries","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb",3,3
	End With
	.DataSource = ado
	.View.ColumnAutoResize = True
	.EndUpdate 
End With

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.StatusBarVisible = exStatusBarAnchorTop
	.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
	.DefColumnWidth = 336
	Set ado = CreateObject("ADODB.Recordset")
	With ado
		.Open "Countries","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb",3,3
	End With
	.DataSource = ado
	.View.ColumnAutoResize = True
	.EndUpdate 
End With

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.StatusBarVisible = exStatusBarAnchorTop
	.StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument"
	.DefColumnWidth = 336
	With .DefaultView()
		Set xml = CreateObject("MSXML.DOMDocument")
		With xml
			.load "C:\Program Files\Exontrol\ExCascadeTree\Sample\Testing.xml"
		End With
		.DataSource = xml
		.ColumnAutoResize = True
	End With
	.EndUpdate 
End With

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.StatusBarVisible = exStatusBarAnchorTop
	.StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument"
	.DefColumnWidth = 336
	With .DefaultView()
		.DataSource = "http://www.exontrol.net/testing.xml"
		.ColumnAutoResize = True
	End With
	.EndUpdate 
End With

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.StatusBarVisible = exStatusBarAnchorTop
	.StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument"
	.DefColumnWidth = 336
	Set xml = CreateObject("MSXML.DOMDocument")
	With xml
		.load "C:\Program Files\Exontrol\ExCascadeTree\Sample\Testing.xml"
	End With
	.DataSource = xml
	.View.ColumnAutoResize = True
	.EndUpdate 
End With

' Error event - An internal error occurs.
Private Sub CascadeTree1_Error(ByVal Error As Long,ByVal Description As String)
	With CascadeTree1
		Debug.Print( "Error" )
		Debug.Print( Description )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	.StatusBarVisible = exStatusBarAnchorTop
	.StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument"
	.DefColumnWidth = 336
	.DataSource = "http://www.exontrol.net/testing.xml"
	.View.ColumnAutoResize = True
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		With .View
			k = .ParentView.Value()
			.BeginUpdate 
			.ColumnAutoResize = True
			.Key = -1
			.Columns.Add k
			With .Items
				.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 1`",k)
				.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 2`",k)
				.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 3`",k)
			End With
			.EndUpdate 
		End With
	End With
End Sub

' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub CascadeTree1_ViewEndChanging(ByVal Operation As EXCASCADETREELibCtl.ViewOperationEnum)
	With CascadeTree1
		Debug.Print( "End" )
		Debug.Print( Operation )
		With .View.Items
			Debug.Print( "FocusItem" )
			Debug.Print( .CellCaption(.FocusItem,0) )
			Debug.Print( "SelectedItem" )
			Debug.Print( .CellCaption(.SelectedItem(0),0) )
		End With
	End With
End Sub

' ViewStartChanging event - Occurs once the user is about to change the view.
Private Sub CascadeTree1_ViewStartChanging(ByVal Operation As EXCASCADETREELibCtl.ViewOperationEnum)
	With CascadeTree1
		Debug.Print( "Start" )
		Debug.Print( Operation )
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	With .View
		.BeginUpdate 
		.ColumnAutoResize = True
		.Columns.Add "Default"
		.Key = 0
		.LinesAtRoot = exLinesAtRoot
		With .Items
			.AddItem "Item A"
			.SelectItem(.AddItem("Item B")) = True
			.AddItem "Item C"
		End With
		.EndUpdate 
	End With
	.EndUpdate 
End With

With CascadeTree1
	.BeginUpdate 
	.Mode = exSingleCascadeMode
	With .View
		.BeginUpdate 
		.ColumnAutoResize = True
		.Columns.Add "Default"
		.Key = -1
		.LinesAtRoot = exLinesAtRoot
		With .Items
			.AddItem "Item A"
			.InsertItem .AddItem("Item B"),,"Child"
			.AddItem "Item C"
		End With
		.EndUpdate 
	End With
	.EndUpdate 
End With

' CreateView event - A view has been created.
Private Sub CascadeTree1_CreateView(ByVal View As EXCASCADETREELibCtl.IView)
	With CascadeTree1
		With .View
			k = .ParentView.Value()
			.BeginUpdate 
			.ColumnAutoResize = True
			.Columns.Add k
			With .Items
				.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 1`",k)
				.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 2`",k)
				.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 3`",k)
			End With
			.EndUpdate 
		End With
	End With
End Sub

With CascadeTree1
	.BeginUpdate 
	With .View
		.BeginUpdate 
		.ColumnAutoResize = True
		.Columns.Add "Default"
		.Key = 0
		With .Items
			.AddItem "Item A"
			.SelectItem(.AddItem("Item B")) = True
			.AddItem "Item C"
		End With
		.EndUpdate 
	End With
	.EndUpdate 
End With

With CascadeTree1
	.BackColor = RGB(240,240,240)
End With