With AxCascadeTree1
	.BeginUpdate()
	With .View
		.BeginUpdate()
		.HeaderAppearance = EXCASCADETREELib.AppearanceEnum.Etched
		.HeaderHeight = 24
		.DrawGridLines = EXCASCADETREELib.GridLinesEnum.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 AxCascadeTree1
	.BeginUpdate()
	With .View
		.BeginUpdate()
		.HeaderAppearance = EXCASCADETREELib.AppearanceEnum.Etched
		.HeaderHeight = 24
		.DrawGridLines = EXCASCADETREELib.GridLinesEnum.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	With AxCascadeTree1
		With .View
			.EnsureVisibleColumn("Function")
			With .Columns.Item("Function")
			End With
			.Columns.Item(0).Def(EXCASCADETREELib.DefColumnEnum.exCellHasCheckBox) = True
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.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
	.GetOcx().BackColorHeader = &H4c6c6c6
	.GetOcx().SelBackColor = &H4000000
	.SelForeColor = RGB(0,0,1)
	.set_Background(&H14,.SelBackColor)
	.set_Background(&H15,.SelForeColor)
	.set_Background(&H8 Or EXCASCADETREELib.BackgroundPartEnum.exSplitBar,.BackColor)
	.set_Background(&H9 Or EXCASCADETREELib.BackgroundPartEnum.exSplitBar,.ForeColor)
	.set_Background(&H20,-1)
	.set_Background(&H0,67108864)
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHeaderFilterBarActive,67174657)
	.set_Background(&H1,67109119)
	.HeaderAppearance = EXCASCADETREELib.AppearanceEnum.Etched
	.BackColorSortBar = .BackColor
	.BackColorLevelHeader = .BackColor
	.Mode = EXCASCADETREELib.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\MN"
	.EndUpdate()
End With

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

Dim h,hR
With AxCascadeTree1
	With .View
		.BeginUpdate()
		.ConditionalFormats.Add("%CC0=0").ForeColor = RGB(128,128,128)
		.HeaderAppearance = EXCASCADETREELib.AppearanceEnum.Etched
		.HeaderHeight = 24
		.LinesAtRoot = EXCASCADETREELib.LinesAtRootEnum.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,Nothing,"Home")
			.CellValue(h,1) = "The home directory with user directories Alice and Bob"
			.InsertItem(h,Nothing,"Alice")
			.InsertItem(h,Nothing,"Bob")
			.ExpandItem(h) = True
			h = .InsertItem(hR,Nothing,"Etc")
			.CellValue(h,1) = "The etc directory with one configuration file"
			h = .InsertItem(h,Nothing,"nginx.conf")
			.CellValue(.InsertItem(hR,Nothing,"Var"),1) = "The var directory"
			.ExpandItem(hR) = True
		End With
		.EndUpdate()
	End With
End With

Dim h,hR
With AxCascadeTree1
	With .View
		.BeginUpdate()
		.ConditionalFormats.Add("%CC0").ForeColor = RGB(255,0,0)
		.HeaderAppearance = EXCASCADETREELib.AppearanceEnum.Etched
		.HeaderHeight = 24
		.LinesAtRoot = EXCASCADETREELib.LinesAtRootEnum.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,Nothing,"Home")
			.CellValue(h,1) = "The home directory with user directories Alice and Bob"
			.InsertItem(h,Nothing,"Alice")
			.InsertItem(h,Nothing,"Bob")
			.ExpandItem(h) = True
			h = .InsertItem(hR,Nothing,"Etc")
			.CellValue(h,1) = "The etc directory with one configuration file"
			h = .InsertItem(h,Nothing,"nginx.conf")
			.CellValue(.InsertItem(hR,Nothing,"Var"),1) = "The var directory"
			.ExpandItem(hR) = True
		End With
		.EndUpdate()
	End With
End With

Dim h,hR
With AxCascadeTree1
	With .View
		.BeginUpdate()
		.ConditionalFormats.Add("%CX0").Bold = True
		.HeaderAppearance = EXCASCADETREELib.AppearanceEnum.Etched
		.HeaderHeight = 24
		.LinesAtRoot = EXCASCADETREELib.LinesAtRootEnum.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,Nothing,"Home")
			.CellValue(h,1) = "The home directory with user directories Alice and Bob"
			.InsertItem(h,Nothing,"Alice")
			.InsertItem(h,Nothing,"Bob")
			.ExpandItem(h) = True
			h = .InsertItem(hR,Nothing,"Etc")
			.CellValue(h,1) = "The etc directory with one configuration file"
			h = .InsertItem(h,Nothing,"nginx.conf")
			.CellValue(.InsertItem(hR,Nothing,"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 AxCascadeTree1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_MouseMoveEvent) Handles AxCascadeTree1.MouseMoveEvent
	With AxCascadeTree1
		.ShowToolTip("new content","",Nothing,"+8","+8")
	End With
End Sub

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

With AxCascadeTree1
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exScrollHoverAll,-1)
End With

With AxCascadeTree1
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exScrollHoverAll,1)
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxCascadeTree1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_MouseMoveEvent) Handles AxCascadeTree1.MouseMoveEvent
	With AxCascadeTree1
		.ShowToolTip("new content","",Nothing,"+8","+8")
	End With
End Sub

' CreateView event - A view has been created.
Private Sub AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	Dim bColumnAutoResize,bSingle
	With AxCascadeTree1
		bSingle = .FormatABC("value > 0 ?  0 : -1",.View.Index)
		bColumnAutoResize = .FormatABC("value = `City` ?  0 : -1",.View.Tag)
		With .View
			.ColumnAutoResize = False
			.SingleSel = False
		End With
	End With
End Sub

' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxCascadeTree1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_MouseMoveEvent) Handles AxCascadeTree1.MouseMoveEvent
	With AxCascadeTree1
		.ShowToolTip("<null>","<null>",Nothing,"+8","+8")
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.CascadeModeEnum.exAutoFitOnResizeClient Or EXCASCADETREELib.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	' Items.ItemHeight(0) = View.DefaultItemHeight
	' FilterBarFont.Size = Me.Font.Size
	' ToolTipFont.Size = Me.Font.Size
	With AxCascadeTree1
		With .View
			.DefaultItemHeight = 36
			.HeaderHeight = .DefaultItemHeight
			.SortBarHeight = .DefaultItemHeight
			.Indent = 26
			.CheckImage(EXCASCADETREELib.CheckStateEnum.Unchecked) = 16777216
			.CheckImage(EXCASCADETREELib.CheckStateEnum.Checked) = 33554432
			.CheckImage(EXCASCADETREELib.CheckStateEnum.PartialChecked) = 50331648
			.EnsureVisibleColumn("Function")
			With .Columns.Item("Function")
			End With
			.Columns.Item(0).Def(EXCASCADETREELib.DefColumnEnum.exCellHasCheckBox) = True
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.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
	.GetOcx().BackColorHeader = &H4c6c6c6
	.GetOcx().SelBackColor = &H4000000
	.SelForeColor = RGB(0,0,1)
	.set_Background(&H14,.SelBackColor)
	.set_Background(&H15,.SelForeColor)
	.set_Background(&H8 Or EXCASCADETREELib.BackgroundPartEnum.exSplitBar,.BackColor)
	.set_Background(&H9 Or EXCASCADETREELib.BackgroundPartEnum.exSplitBar,.ForeColor)
	.set_Background(&H20,-1)
	.set_Background(&H0,67108864)
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHeaderFilterBarActive,67174657)
	.set_Background(&H1,67109119)
	.HeaderAppearance = EXCASCADETREELib.AppearanceEnum.Etched
	.BackColorSortBar = .BackColor
	.BackColorLevelHeader = .BackColor
	.Mode = EXCASCADETREELib.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\MN"
	.EndUpdate()
End With

' CreateView event - A view has been created.
Private Sub AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	With AxCascadeTree1
		With .View
			.EnsureVisibleColumn("Function")
			With .Columns.Item("Function")
			End With
			.Columns.Item(0).Def(EXCASCADETREELib.DefColumnEnum.exCellHasCheckBox) = True
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.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
	.GetOcx().BackColorHeader = &H4c6c6c6
	.GetOcx().SelBackColor = &H4000000
	.SelForeColor = RGB(0,0,1)
	.set_Background(&H14,.SelBackColor)
	.set_Background(&H15,.SelForeColor)
	.set_Background(&H8 Or EXCASCADETREELib.BackgroundPartEnum.exSplitBar,.BackColor)
	.set_Background(&H9 Or EXCASCADETREELib.BackgroundPartEnum.exSplitBar,.ForeColor)
	.set_Background(&H20,-1)
	.set_Background(&H0,67108864)
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHeaderFilterBarActive,67174657)
	.set_Background(&H1,67109119)
	.HeaderAppearance = EXCASCADETREELib.AppearanceEnum.Etched
	.BackColorSortBar = .BackColor
	.BackColorLevelHeader = .BackColor
	.Mode = EXCASCADETREELib.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\MN"
	.EndUpdate()
End With

Dim h
With AxCascadeTree1
	.BeginUpdate()
	With .VisualAppearance
		.Add(2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgAN" & _
"J0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8Y" & _
"NYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4" & _
"hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mg" & _
"bhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhW" & _
"BMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=")
		.Add(1,"CP:2 -8 -4 2 4")
	End With
	.set_Background(&H0,33488638)
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHeaderFilterBarActive,16843009)
	.set_Background(&H20,-1)
	.BackColorHeader = RGB(255,255,255)
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSingleCascadeMode
	With .get_DefaultView()
		.HeaderHeight = 28
		.DrawGridLines = EXCASCADETREELib.GridLinesEnum.exRowLines
		.HeaderVisible = True
		With .Columns
			.Add("C1").DisplayFilterButton = True
			With .Add("C2")
				.DisplayFilterButton = True
				.Filter = "Item 2"
				.FilterType = EXCASCADETREELib.FilterTypeEnum.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 AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSingleCascadeMode
	With .get_DefaultView()
		.ColumnAutoResize = True
		.FilterBarPromptVisible = EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarTop
		.HeaderHeight = 24
		.FilterBarHeight = .HeaderHeight
		.HeaderAppearance = EXCASCADETREELib.AppearanceEnum.Flat
		.DrawGridLines = EXCASCADETREELib.GridLinesEnum.exAllLines
		.GridLineStyle = EXCASCADETREELib.GridLinesStyleEnum.exGridLinesGeometric
		With .Columns.Add("Column")
			.DisplayFilterButton = True
			.FilterType = EXCASCADETREELib.FilterTypeEnum.exPattern
			.Filter = "B*"
		End With
		With .Columns.Add("Index")
			.FormatColumn = "1 index ``"
			.Position = 0
			.Width = 48
			.AllowSizing = False
			.SortType = EXCASCADETREELib.SortTypeEnum.SortNumeric
			.Def(EXCASCADETREELib.DefColumnEnum.exCellHasCheckBox) = True
		End With
		With .Items
			.AddItem("A.1")
			.AddItem("A.2")
			.AddItem("B.1")
			.AddItem("B.2")
			.AddItem("B.3")
			.AddItem("C")
		End With
		.ApplyFilter()
	End With
	.EndUpdate()
End With

' CreateView event - A view has been created.
Private Sub AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	Dim k
	With AxCascadeTree1
		With .View
			k = .ParentView.Value()
			.BeginUpdate()
			.ColumnAutoResize = True
			.Columns.Add(k)
			With .Items
				.AddItem(AxCascadeTree1.FormatABC("A + `-> Sub-Item 1`",k))
				.AddItem(AxCascadeTree1.FormatABC("A + `-> Sub-Item 2`",k))
				.AddItem(AxCascadeTree1.FormatABC("A + `-> Sub-Item 3`",k))
			End With
			.EndUpdate()
		End With
	End With
End Sub

With AxCascadeTree1
	.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	Dim k
	With AxCascadeTree1
		With .View
			k = .ParentView.Value()
			.BeginUpdate()
			.ColumnAutoResize = True
			.Columns.Add(k)
			With .Items
				.AddItem(AxCascadeTree1.FormatABC("A + `-> Sub-Item 1`",k))
				.AddItem(AxCascadeTree1.FormatABC("A + `-> Sub-Item 2`",k))
				.AddItem(AxCascadeTree1.FormatABC("A + `-> Sub-Item 3`",k))
			End With
			.EndUpdate()
		End With
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.set_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 AxCascadeTree1
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSingleCascadeMode
	With .get_DefaultView()
		.BeginUpdate()
		.HeaderSingleLine = False
		.HeaderHeight = 36
		.DrawGridLines = EXCASCADETREELib.GridLinesEnum.exRowLines
		.ColumnAutoResize = False
		.ScrollBySingleLine = True
		With .Columns
			With .Add("Single-Line (exCaptionSingleLine)")
				.Width = 96
				.Def(EXCASCADETREELib.DefColumnEnum.exCellValueFormat) = 1
				.Def(EXCASCADETREELib.DefColumnEnum.exCellSingleLine) = -1
			End With
			With .Add("Word-Wrap (exCaptionWordWrap)")
				.Width = 96
				.Def(EXCASCADETREELib.DefColumnEnum.exCellValueFormat) = 1
				.Def(EXCASCADETREELib.DefColumnEnum.exCellSingleLine) = 0
				.FormatColumn = "%0"
			End With
			With .Add("Break-Wrap (exCaptionBreakWrap)")
				.Width = 96
				.Def(EXCASCADETREELib.DefColumnEnum.exCellValueFormat) = 1
				.Def(EXCASCADETREELib.DefColumnEnum.exCellSingleLine) = 1
				.FormatColumn = "%0"
			End With
		End With
		With .Items
			.AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
			.AddItem("This is the <b>first</b> line.\r\nThis is the <b>second</b> line.\r\nThis is the <b>third</b> line.")
		End With
		.EndUpdate()
	End With
End With

Dim h
With AxCascadeTree1
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSingleCascadeMode
	With .get_DefaultView()
		.BeginUpdate()
		.HeaderSingleLine = False
		.HeaderHeight = 36
		.DrawGridLines = EXCASCADETREELib.GridLinesEnum.exRowLines
		.ColumnAutoResize = False
		.ScrollBySingleLine = True
		.Columns.Add("Default").Width = 128
		With .Items
			h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
			h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
			.CellValueFormat(h,0) = EXCASCADETREELib.ValueFormatEnum.exHTML
			h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
			.CellSingleLine(h,0) = EXCASCADETREELib.CellSingleLineEnum.exCaptionWordWrap
			h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
			.CellValueFormat(h,0) = EXCASCADETREELib.ValueFormatEnum.exHTML
			.CellSingleLine(h,0) = EXCASCADETREELib.CellSingleLineEnum.exCaptionWordWrap
			h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
			.CellSingleLine(h,0) = EXCASCADETREELib.CellSingleLineEnum.exCaptionBreakWrap
			h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
			.CellValueFormat(h,0) = EXCASCADETREELib.ValueFormatEnum.exHTML
			.CellSingleLine(h,0) = EXCASCADETREELib.CellSingleLineEnum.exCaptionBreakWrap
		End With
		.EndUpdate()
	End With
End With

With AxCascadeTree1
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSingleCascadeMode
	With .get_DefaultView()
		.BeginUpdate()
		.DrawGridLines = EXCASCADETREELib.GridLinesEnum.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) = EXCASCADETREELib.CellSingleLineEnum.exCaptionBreakWrap
			.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
		End With
		.EndUpdate()
	End With
End With

With AxCascadeTree1
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSingleCascadeMode
	With .get_DefaultView()
		.BeginUpdate()
		.DrawGridLines = EXCASCADETREELib.GridLinesEnum.exRowLines
		.ColumnAutoResize = False
		.ScrollBySingleLine = True
		With .Columns.Add("Default")
			.Width = 128
			.Def(EXCASCADETREELib.DefColumnEnum.exCellSingleLine) = 1
		End With
		With .Items
			.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
			.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
		End With
		.EndUpdate()
	End With
End With

With AxCascadeTree1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV" & _
"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" & _
"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" & _
"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDI" & _
"BICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAok" & _
"GKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=")
		.Add(2,"CP:1 0 -36 0 0")
	End With
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exColumnsPositionSign,33554432)
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSingleCascadeMode
	With .get_DefaultView()
		.BeginUpdate()
		.HeaderAppearance = EXCASCADETREELib.AppearanceEnum.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	Dim bColumnAutoResize,bSingle
	With AxCascadeTree1
		bSingle = .FormatABC("value > 0 ?  0 : -1",.View.Index)
		bColumnAutoResize = .FormatABC("value = `City` ?  0 : -1",.View.Tag)
		With .View
			.ColumnAutoResize = False
			.SingleSel = False
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.CascadeModeEnum.exAutoFitOnResizeClient Or EXCASCADETREELib.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

Dim ado
With AxCascadeTree1
	.BeginUpdate()
	.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
	.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
	.DefColumnWidth = 336
	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 .get_DefaultView()
		.DataSource = ado
		.ColumnAutoResize = True
	End With
	.EndUpdate()
End With

' CreateView event - A view has been created.
Private Sub AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	Dim bColumnAutoResize,bSingle
	With AxCascadeTree1
		bSingle = .FormatABC("value > 0 ?  0 : -1",.View.Index)
		bColumnAutoResize = .FormatABC("value = `City` ?  0 : -1",.View.Tag)
		With .View
			.ColumnAutoResize = False
			.SingleSel = False
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.CascadeModeEnum.exAutoFitOnResizeClient Or EXCASCADETREELib.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	With AxCascadeTree1
		With .View
			.HeaderHeight = 20
			.HeaderAppearance = EXCASCADETREELib.AppearanceEnum.Etched
			.DrawGridLines = EXCASCADETREELib.GridLinesEnum.exAllLines
			.GridLineStyle = EXCASCADETREELib.GridLinesStyleEnum.exGridLinesDash
		End With
		With .get_DefaultView()
			With .View("Country")
				.BeginUpdate()
				.ColumnAutoResize = True
				.Columns.Item(0).Visible = False
				With .Columns.Item(1)
					.HTMLCaption = "Country"
					.DisplayFilterButton = True
					.FilterList = EXCASCADETREELib.FilterListEnum.exShowExclude Or EXCASCADETREELib.FilterListEnum.exShowFocusItem Or EXCASCADETREELib.FilterListEnum.exShowCheckBox Or EXCASCADETREELib.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 = EXCASCADETREELib.FilterListEnum.exShowExclude Or EXCASCADETREELib.FilterListEnum.exShowFocusItem Or EXCASCADETREELib.FilterListEnum.exShowCheckBox Or EXCASCADETREELib.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 = EXCASCADETREELib.FilterListEnum.exShowExclude Or EXCASCADETREELib.FilterListEnum.exShowFocusItem Or EXCASCADETREELib.FilterListEnum.exShowCheckBox Or EXCASCADETREELib.FilterListEnum.exSortItemsAsc
					.FilterBarDropDownWidth = 2
				End With
				.SearchColumnIndex = .Columns.Item("Name").Index
				With .Columns.Item("Status")
					.DisplayFilterButton = True
					.FilterList = EXCASCADETREELib.FilterListEnum.exShowExclude Or EXCASCADETREELib.FilterListEnum.exShowFocusItem Or EXCASCADETREELib.FilterListEnum.exShowCheckBox Or EXCASCADETREELib.FilterListEnum.exSortItemsAsc
					.FilterBarDropDownWidth = 2
				End With
				With .Columns.Item("Function")
					.Def(EXCASCADETREELib.DefColumnEnum.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(EXCASCADETREELib.DefColumnEnum.exCellBackColor) = 15790320
					.Position = 0
					.FormatColumn = "1 pos ``"
					.Alignment = EXCASCADETREELib.AlignmentEnum.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 = EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarVisible Or EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.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 .get_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
	.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exVScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exHScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
	.ScrollWidth = 4
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack,15790320)
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb,8421504)
	.ScrollHeight = 4
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSBack,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSThumb,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exCSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,4)
	.set_Background(&H0,16777216)
	.set_Background(&H1,33554432)
	.set_Background(&H20,-1)
	.EndUpdate()
End With

' CreateView event - A view has been created.
Private Sub AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	Dim bGroupBy,nSelected
	With AxCascadeTree1
		.View.HeaderHeight = 24
		With .get_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 = EXCASCADETREELib.SortOrderEnum.SortAscending
				End With
				.EndUpdate()
			End With
			With .View("City")
				nSelected = .ParentView.Items.SelectCount
				bGroupBy = AxCascadeTree1.FormatABC("value > 1 ? -1 : 0",nSelected)
				.BeginUpdate()
				.SingleSel = False
				.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
				.HasLines = EXCASCADETREELib.HierarchyLineEnum.exSolidLine
				.ColumnAutoResize = False
				.DrawGridLines = EXCASCADETREELib.GridLinesEnum.exVLines
				.GridLineStyle = EXCASCADETREELib.GridLinesStyleEnum.exGridLinesVSolid
				.Columns.Item("CountryCode").Visible = False
				With .Columns.Item("Name")
					.HTMLCaption = "City <off 4><fgcolor=808080>Name"
					.Width = 128
					.SortOrder = EXCASCADETREELib.SortOrderEnum.SortAscending
				End With
				.SearchColumnIndex = 2
				.TreeColumnIndex = .SearchColumnIndex
				.SingleSort = False
				.AllowGroupBy = False
				.SortBarVisible = False
				With .Columns.Item("StateCode")
					.Visible = False
					.SortOrder = EXCASCADETREELib.SortOrderEnum.SortAscending
				End With
				.Width = .WidthToFit
				.EndUpdate()
			End With
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.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 .get_DefaultView().View("Country")
		.BeginUpdate()
		.ColumnAutoResize = True
		.Columns.Item(0).Visible = False
		With .Columns.Item(1)
			.HTMLCaption = "Country <off 4><fgcolor=808080>Name"
			.SortOrder = EXCASCADETREELib.SortOrderEnum.SortAscending
		End With
		.EndUpdate()
	End With
	.GetOcx().SelBackColor = &H1000000
	.SelForeColor = RGB(255,255,255)
	.GetOcx().BackColorHeader = &H2000000
	.BackColorSortBar = .BackColor
	.BackColorSortBarCaption = .BackColor
	.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exVScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exHScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
	.ScrollWidth = 4
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack,15790320)
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb,8421504)
	.ScrollHeight = 4
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSBack,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSThumb,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exCSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,4)
	.BackColorSortBar = .BackColor
	.EndUpdate()
End With

' CreateView event - A view has been created.
Private Sub AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	Dim k
	With AxCascadeTree1
		With .View
			.BeginUpdate()
			k = .ParentView.Value()
			.HeaderVisible = False
			.ColumnAutoResize = True
			.ScrollBySingleLine = True
			.Columns.Add("Default").Def(EXCASCADETREELib.DefColumnEnum.exCellSingleLine) = False
			.Key = 0
			With .Items
				.AddItem(AxCascadeTree1.FormatABC("A + `.Child 1`",k))
				.AddItem(AxCascadeTree1.FormatABC("A + `.Child 2`",k))
				.AddItem(AxCascadeTree1.FormatABC("A + `.Child 3`",k))
			End With
			.EndUpdate()
		End With
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.GetOcx().BackColorAlternate = &H7ff0f0f0
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,15790320)
	With .get_DefaultView()
		.BeginUpdate()
		.HeaderVisible = False
		.ColumnAutoResize = True
		.ScrollBySingleLine = True
		.Columns.Add("Default").Def(EXCASCADETREELib.DefColumnEnum.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	Dim h
	With AxCascadeTree1
		.View.HeaderHeight = 24
		With .get_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 = EXCASCADETREELib.SortOrderEnum.SortAscending
				End With
				With .Items
					.LockedItemCount(EXCASCADETREELib.VAlignmentEnum.exTop) = 1
					h = .LockedItem(EXCASCADETREELib.VAlignmentEnum.exTop,0)
					.ItemDivider(h) = 0
					.CellValueFormat(h,0) = EXCASCADETREELib.ValueFormatEnum.exTotalField Or EXCASCADETREELib.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 = EXCASCADETREELib.GridLinesEnum.exVLines
				.GridLineStyle = EXCASCADETREELib.GridLinesStyleEnum.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(EXCASCADETREELib.DefColumnEnum.exCellHasCheckBox) = True
					.SortOrder = EXCASCADETREELib.SortOrderEnum.SortAscending
				End With
				.SearchColumnIndex = 2
				.ConditionalFormats.Add("%CS2 = 1").Bold = True
				With .Items
					.LockedItemCount(EXCASCADETREELib.VAlignmentEnum.exTop) = 1
					h = .LockedItem(EXCASCADETREELib.VAlignmentEnum.exTop,0)
					.ItemDivider(h) = 0
					.CellValueFormat(h,0) = EXCASCADETREELib.ValueFormatEnum.exTotalField Or EXCASCADETREELib.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

Dim h
With AxCascadeTree1
	.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 .get_DefaultView().View("Country")
		.BeginUpdate()
		.ColumnAutoResize = True
		.Columns.Item(0).Visible = False
		With .Columns.Item(1)
			.HTMLCaption = "Country <off 4><fgcolor=808080>Name"
			.SortOrder = EXCASCADETREELib.SortOrderEnum.SortAscending
		End With
		With .Items
			.LockedItemCount(EXCASCADETREELib.VAlignmentEnum.exTop) = 1
			h = .LockedItem(EXCASCADETREELib.VAlignmentEnum.exTop,0)
			.ItemDivider(h) = 0
			.CellValueFormat(h,0) = EXCASCADETREELib.ValueFormatEnum.exTotalField Or EXCASCADETREELib.ValueFormatEnum.exHTML
			.CellValue(h,0) = "count(all,all,1)"
			.FormatCell(h,0) = "`<r>Countries: <b>`+ (value format `0`)"
		End With
		.EndUpdate()
	End With
	.GetOcx().SelBackColor = &H1000000
	.SelForeColor = RGB(0,0,0)
	.GetOcx().BackColorHeader = &H2000000
	.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exVScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exHScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
	.ScrollWidth = 4
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack,15790320)
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb,8421504)
	.ScrollHeight = 4
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSBack,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSThumb,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exCSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,4)
	.BackColorSortBar = .BackColor
	.EndUpdate()
End With

' CreateView event - A view has been created.
Private Sub AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	Dim k
	With AxCascadeTree1
		With .View
			k = .ParentView.Value()
			.BeginUpdate()
			.ColumnAutoResize = True
			.Key = -1
			.Columns.Add(k)
			With .Items
				.AddItem(AxCascadeTree1.FormatABC("A + `-> Sub-Item 1`",k))
				.AddItem(AxCascadeTree1.FormatABC("A + `-> Sub-Item 2`",k))
				.AddItem(AxCascadeTree1.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 AxCascadeTree1_ViewItemStateEndChanging(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ViewItemStateEndChangingEvent) Handles AxCascadeTree1.ViewItemStateEndChanging
	With AxCascadeTree1
		Debug.Print( "End" )
		Debug.Print( e.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 AxCascadeTree1_ViewItemStateStartChanging(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ViewItemStateStartChangingEvent) Handles AxCascadeTree1.ViewItemStateStartChanging
	With AxCascadeTree1
		Debug.Print( "Start" )
		Debug.Print( e.operation )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	With .View
		.BeginUpdate()
		.ColumnAutoResize = True
		.Columns.Add("Default")
		.Key = 0
		.LinesAtRoot = EXCASCADETREELib.LinesAtRootEnum.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.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"
	.get_DefaultView().ConditionalFormats.Add("1").ForeColor = RGB(128,128,128)
	.EndUpdate()
End With

' CreateView event - A view has been created.
Private Sub AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	With AxCascadeTree1
		With .View
			.HeaderAppearance = EXCASCADETREELib.AppearanceEnum.Etched
			.HeaderHeight = 24
			.DrawGridLines = EXCASCADETREELib.GridLinesEnum.exAllLines
			.GridLineStyle = EXCASCADETREELib.GridLinesStyleEnum.exGridLinesDash
		End With
		With .get_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 = EXCASCADETREELib.FilterListEnum.exShowExclude Or EXCASCADETREELib.FilterListEnum.exShowFocusItem Or EXCASCADETREELib.FilterListEnum.exShowCheckBox Or EXCASCADETREELib.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 = EXCASCADETREELib.FilterListEnum.exShowExclude Or EXCASCADETREELib.FilterListEnum.exShowFocusItem Or EXCASCADETREELib.FilterListEnum.exShowCheckBox Or EXCASCADETREELib.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(EXCASCADETREELib.DefColumnEnum.exCellHasCheckBox) = True
					.DisplayFilterButton = True
					.FilterList = EXCASCADETREELib.FilterListEnum.exShowExclude Or EXCASCADETREELib.FilterListEnum.exShowFocusItem Or EXCASCADETREELib.FilterListEnum.exShowCheckBox Or EXCASCADETREELib.FilterListEnum.exSortItemsAsc
					.FilterBarDropDownWidth = 2
				End With
				With .Columns.Add("Pos")
					.AllowSizing = False
					.Width = 32
					.Def(EXCASCADETREELib.DefColumnEnum.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 = EXCASCADETREELib.FilterPromptEnum.exFilterPromptStartWith
			.FilterBarPromptVisible = EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarVisible Or EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exVScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exHScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
	.ScrollWidth = 4
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack,15790320)
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb,8421504)
	.ScrollHeight = 4
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSBack,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSThumb,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exCSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,2)
	.EndUpdate()
	.BeginUpdate()
	.MinColumnWidth = 348
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.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 .get_DefaultView().View("City")
		.FilterBarPromptPattern = "An"
	End With
	.EndUpdate()
End With

' CreateView event - A view has been created.
Private Sub AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	With AxCascadeTree1
		With .View
			.FilterBarPromptType = EXCASCADETREELib.FilterPromptEnum.exFilterPromptStartWith
			.FilterBarPromptVisible = EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.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 .get_DefaultView().View("City")
		.FilterBarPromptPattern = "An"
		With .Columns.Item("Name")
			.Width = 128
			.Def(EXCASCADETREELib.DefColumnEnum.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.BackColorAlternate = RGB(240,240,240)
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSingleCascadeMode
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.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 .get_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 = EXCASCADETREELib.FilterListEnum.exShowExclude Or EXCASCADETREELib.FilterListEnum.exShowFocusItem Or EXCASCADETREELib.FilterListEnum.exShowCheckBox Or EXCASCADETREELib.FilterListEnum.exSortItemsAsc
			.FilterBarDropDownWidth = 2
			.FilterType = EXCASCADETREELib.FilterTypeEnum.exFilter
			.Filter = "Italy|Romania|Germany"
		End With
		.FilterBarPromptPattern = "a"
		.ColumnAutoResize = True
		.SearchColumnIndex = .Columns.Item("CountryName").Index
		.FilterInclude = EXCASCADETREELib.FilterIncludeEnum.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 = EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarVisible Or EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
		.ApplyFilter()
	End With
	.EndUpdate()
End With

' CreateView event - A view has been created.
Private Sub AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	With AxCascadeTree1
		.View.FilterBarPromptVisible = EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.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 .get_DefaultView().View("Country")
		.ColumnAutoResize = True
		.Columns.Item("CountryCode").Visible = False
		With .Columns.Item("CountryName")
			.DisplayFilterButton = True
			.FilterList = EXCASCADETREELib.FilterListEnum.exShowExclude Or EXCASCADETREELib.FilterListEnum.exShowFocusItem Or EXCASCADETREELib.FilterListEnum.exShowCheckBox Or EXCASCADETREELib.FilterListEnum.exSortItemsAsc
			.FilterBarDropDownWidth = 2
			.FilterType = EXCASCADETREELib.FilterTypeEnum.exFilter
			.Filter = "Romania|Germany"
		End With
		.ApplyFilter()
	End With
	.EndUpdate()
End With

' CreateView event - A view has been created.
Private Sub AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	With AxCascadeTree1
		With .View
			.FilterBarPromptVisible = EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
			With .Columns.Item(0)
				.DisplayFilterButton = True
				.FilterList = EXCASCADETREELib.FilterListEnum.exShowExclude Or EXCASCADETREELib.FilterListEnum.exShowFocusItem Or EXCASCADETREELib.FilterListEnum.exShowCheckBox Or EXCASCADETREELib.FilterListEnum.exSortItemsAsc
				.FilterBarDropDownWidth = 2
			End With
		End With
		With .get_DefaultView().View("Country")
			With .Columns.Item(0)
				.FilterType = EXCASCADETREELib.FilterTypeEnum.exFilter
				.Filter = "US|RO|GE"
			End With
			.ApplyFilter()
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.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"
	.get_DefaultView().FilterBarPromptVisible = EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate()
End With

' CreateView event - A view has been created.
Private Sub AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	With AxCascadeTree1
		.View.FilterBarPromptVisible = EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

Dim h
With AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitEqualCascadeMode
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,4)
	.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 .get_DefaultView().View("Country")
		.BeginUpdate()
		.ColumnAutoResize = True
		.Columns.Item(0).Visible = False
		With .Items
			.LockedItemCount(EXCASCADETREELib.VAlignmentEnum.exTop) = 1
			h = .LockedItem(EXCASCADETREELib.VAlignmentEnum.exTop,0)
			.ItemDivider(h) = 0
			.CellValueFormat(h,0) = EXCASCADETREELib.ValueFormatEnum.exTotalField Or EXCASCADETREELib.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	Dim h
	With AxCascadeTree1
		.View.HeaderVisible = False
		With .get_DefaultView()
			With .View("Country")
				.BeginUpdate()
				.ColumnAutoResize = True
				.Columns.Item(0).Visible = False
				With .Items
					.LockedItemCount(EXCASCADETREELib.VAlignmentEnum.exTop) = 1
					h = .LockedItem(EXCASCADETREELib.VAlignmentEnum.exTop,0)
					.ItemDivider(h) = 0
					.CellValueFormat(h,0) = EXCASCADETREELib.ValueFormatEnum.exTotalField Or EXCASCADETREELib.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(EXCASCADETREELib.VAlignmentEnum.exTop) = 1
					h = .LockedItem(EXCASCADETREELib.VAlignmentEnum.exTop,0)
					.ItemDivider(h) = 0
					.CellValueFormat(h,0) = EXCASCADETREELib.ValueFormatEnum.exTotalField Or EXCASCADETREELib.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(EXCASCADETREELib.VAlignmentEnum.exTop) = 1
					h = .LockedItem(EXCASCADETREELib.VAlignmentEnum.exTop,0)
					.ItemDivider(h) = 0
					.CellValueFormat(h,0) = EXCASCADETREELib.ValueFormatEnum.exTotalField Or EXCASCADETREELib.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,4)
	.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
	.StatusBarLabel = "<c>Select multiple-items in the City view, and press <b>SPACE</b> key"
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exStatusBackColor,.BackColor)
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEhqGiUBihaQhRgyJI3RlJGaoD" & _
"iKIokShKEpDLKlCx3H6OKQjOZgAoySo4SbDMp0NAkRBlFqcJCCCLAUgmTpQUBOYyiLKNRxQGoYLIlayZIiSIpMRbWcB3BYEOSFFasAAleYZTg2Jp1TbPAAYFL1ISDKSi" & _
"IZqTA6PheT5yUzCNazbgEMTvRKqcSnO6bOgnEKQZKAGg4bg1RTVAYZLKtPR7aqyUJvZ5sMB6DiuLYRPKXZoucaNExSS5ebJtOzQJbEXBpXSpBwzSieBozIaQcJUOoaVx" & _
"PFkaJrGuIx3h2BZPgOUIQmUcIwDARAkiAaQxh0DonCMLAeBKZobBCCY+niWJaBIKJJH4MoBgiQpCmmUR/ooBgCgCYBIBYBoBmCBYAn+ApgkgNgOgOYQIEYBIEGESBWBS" & _
"BJhGgZgZgYIYoHYEIHCGaIGAuCAiCgegkgkYYoh4KIFiKKIuBeAJimiGgwgwYoYk4NILCCGJmDqDpjkidg+gGTo1jUAxAEAgI")
	.GetOcx().SelBackColor = &H1000000
	.SelForeColor = .ForeColor
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.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 .get_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(EXCASCADETREELib.DefColumnEnum.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	With AxCascadeTree1
		With .View
			.HeaderAppearance = EXCASCADETREELib.AppearanceEnum.Etched
			.HeaderHeight = 24
			.DrawGridLines = EXCASCADETREELib.GridLinesEnum.exVLines
			.GridLineStyle = EXCASCADETREELib.GridLinesStyleEnum.exGridLinesDash
		End With
		With .get_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(EXCASCADETREELib.DefColumnEnum.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
	.StatusBarLabel = "<c>Select multiple-items in the City view, and press <b>SPACE</b> key"
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exStatusBackColor,.BackColor)
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEhqGiUBihaQhRgyJI3RlJGaoD" & _
"iKIokShKEpDLKlCx3H6OKQjOZgAoySo4SbDMp0NAkRBlFqcJCCCLAUgmTpQUBOYyiLKNRxQGoYLIlayZIiSIpMRbWcB3BYEOSFFasAAleYZTg2Jp1TbPAAYFL1ISDKSi" & _
"IZqTA6PheT5yUzCNazbgEMTvRKqcSnO6bOgnEKQZKAGg4bg1RTVAYZLKtPR7aqyUJvZ5sMB6DiuLYRPKXZoucaNExSS5ebJtOzQJbEXBpXSpBwzSieBozIaQcJUOoaVx" & _
"PFkaJrGuIx3h2BZPgOUIQmUcIwDARAkiAaQxh0DonCMLAeBKZobBCCY+niWJaBIKJJH4MoBgiQpCmmUR/ooBgCgCYBIBYBoBmCBYAn+ApgkgNgOgOYQIEYBIEGESBWBS" & _
"BJhGgZgZgYIYoHYEIHCGaIGAuCAiCgegkgkYYoh4KIFiKKIuBeAJimiGgwgwYoYk4NILCCGJmDqDpjkidg+gGTo1jUAxAEAgI")
	.GetOcx().SelBackColor = &H1000000
	.SelForeColor = .ForeColor
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	With AxCascadeTree1
		With .View
			.HeaderAppearance = EXCASCADETREELib.AppearanceEnum.Etched
			.HeaderHeight = 24
			.DrawGridLines = EXCASCADETREELib.GridLinesEnum.exAllLines
			.GridLineStyle = EXCASCADETREELib.GridLinesStyleEnum.exGridLinesDash
		End With
		With .get_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(EXCASCADETREELib.DefColumnEnum.exCellBackColor) = 15790320
				End With
				.CountLockedColumns = 1
				.EndUpdate()
			End With
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	With AxCascadeTree1
		With .View
			With .ConditionalFormats.Add("%CS0 = 1")
				.Bold = True
			End With
			.Columns.Item(0).Def(EXCASCADETREELib.DefColumnEnum.exCellHasCheckBox) = True
			With .Items
				.CellState(.FocusItem,0) = 1
			End With
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.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 .get_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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	With AxCascadeTree1
		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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.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"
	.AllowSplitView = EXCASCADETREELib.AllowSplitViewEnum.exAllowOneSplitView
	.SplitViewHeight = 256
	With .get_DefaultView(1)
	End With
	.EndUpdate()
End With

' CreateView event - A view has been created.
Private Sub AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	With AxCascadeTree1
		.View.SingleSel = False
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.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
	.GetOcx().SelBackColor = &H1000000
	.SelForeColor = RGB(0,0,0)
	.GetOcx().BackColorHeader = &H2000000
	.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exVScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exHScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
	.ScrollWidth = 4
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack,15790320)
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb,8421504)
	.ScrollHeight = 4
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSBack,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSThumb,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exCSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,2)
	.BackColorSortBar = .BackColor
	.EndUpdate()
	.BeginUpdate()
	.Mode = EXCASCADETREELib.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 = "RO\CJ|BV|CS"
	With .get_DefaultView().View("City")
		.BeginUpdate()
		With .Columns
			.Item("CountryCode").Visible = False
			With .Item("Name")
				.SortOrder = EXCASCADETREELib.SortOrderEnum.SortAscending
				.Width = 128
			End With
		End With
		.SortBarVisible = True
		.AllowGroupBy = True
		.SingleSort = False
		.Columns.Item("StateCode").SortOrder = EXCASCADETREELib.SortOrderEnum.SortAscending
		.TreeColumnIndex = .Columns.Item("Name").Index
		.EndUpdate()
	End With
	.EndUpdate()
End With

' CreateView event - A view has been created.
Private Sub AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	' Columns("StateCode").Visible = False
	' Columns("StateName").SortOrder = 1
	' Columns("StateCode").SortOrder = nGroupByIfCity
	Dim bColumnAutoResize,nGroupByIfCity
	With AxCascadeTree1
		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 = EXCASCADETREELib.SortOrderEnum.SortAscending
			With .Columns.Item(2)
			End With
			.TreeColumnIndex = 2
			.AllowGroupBy = True
			.SingleSort = False
			.SortBarVisible = False
			.ColumnAutoResize = False
			.EndUpdate()
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.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
	.GetOcx().SelBackColor = &H1000000
	.SelForeColor = RGB(0,0,0)
	.GetOcx().BackColorHeader = &H2000000
	.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exVScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exHScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
	.ScrollWidth = 4
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack,15790320)
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb,8421504)
	.ScrollHeight = 4
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSBack,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSThumb,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exCSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,2)
	.BackColorSortBar = .BackColor
	.EndUpdate()
	.BeginUpdate()
	.Mode = EXCASCADETREELib.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 = "RO\CJ|BV|CS"
	.EndUpdate()
End With

' CreateView event - A view has been created.
Private Sub AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	' Columns("StateCode").Visible = False
	' Columns("StateName").SortOrder = 1
	With AxCascadeTree1
		With .View
			.BeginUpdate()
			.ColumnAutoResize = True
			.Columns.Item("CountryCode").Visible = False
			.Columns.Item("CountryName").SortOrder = EXCASCADETREELib.SortOrderEnum.SortAscending
			With .Columns.Item("Name")
			End With
			.EndUpdate()
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.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
	.GetOcx().SelBackColor = &H1000000
	.SelForeColor = RGB(0,0,0)
	.GetOcx().BackColorHeader = &H2000000
	.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exVScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exHScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
	.ScrollWidth = 4
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack,15790320)
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb,8421504)
	.ScrollHeight = 4
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSBack,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSThumb,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exCSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,2)
	.BackColorSortBar = .BackColor
	.EndUpdate()
	.BeginUpdate()
	.Mode = EXCASCADETREELib.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 = "RO\CJ"
	.EndUpdate()
End With

' CreateView event - A view has been created.
Private Sub AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	' Columns("StateCode").Visible = False
	With AxCascadeTree1
		With .View
			.BeginUpdate()
			.ContinueColumnScroll = False
			.ScrollBySingleLine = True
			.DrawGridLines = EXCASCADETREELib.GridLinesEnum.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.FitCascadeColumns = 7
	.Mode = EXCASCADETREELib.CascadeModeEnum.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	With AxCascadeTree1
		With .View
			With .Columns.Add("Pos")
				.Width = 32
				.AllowSizing = False
				.Position = 0
				.FormatColumn = "1 pos ``"
				.Def(EXCASCADETREELib.DefColumnEnum.exCellBackColor) = 15790320
				.Alignment = EXCASCADETREELib.AlignmentEnum.RightAlignment
				.HeaderAlignment = .Alignment
				.Def(EXCASCADETREELib.DefColumnEnum.exCellPaddingRight) = 2
				.Def(EXCASCADETREELib.DefColumnEnum.exCellPaddingLeft) = 2
				.Def(EXCASCADETREELib.DefColumnEnum.exHeaderPaddingLeft) = 2
				.Def(EXCASCADETREELib.DefColumnEnum.exHeaderPaddingRight) = 2
			End With
			.CountLockedColumns = 1
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.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\IA"
	.EndUpdate()
End With

' CreateView event - A view has been created.
Private Sub AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	With AxCascadeTree1
		With .View
			.EnsureVisibleColumn("Function")
			With .Columns.Item("Function")
			End With
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.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 = EXCASCADETREELib.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\MN"
	.EndUpdate()
End With

' CreateView event - A view has been created.
Private Sub AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	With AxCascadeTree1
		.StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name)
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub AxCascadeTree1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ViewEndChangingEvent) Handles AxCascadeTree1.ViewEndChanging
	With AxCascadeTree1
		.StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name)
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
	.StatusBarHeight = 24
	.Mode = EXCASCADETREELib.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"
	.Name = "Romania\Cluj\Baciu*"
	.EndUpdate()
End With

' CreateView event - A view has been created.
Private Sub AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	With AxCascadeTree1
		.View.AutoSearch = False
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.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

' CreateView event - A view has been created.
Private Sub AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	' Columns("StateCode").Visible = False
	With AxCascadeTree1
		With .View
			.ColumnAutoResize = True
			.Columns.Item("CountryCode").Visible = False
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exVScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exHScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
	.ScrollWidth = 4
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack,15790320)
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb,8421504)
	.ScrollHeight = 4
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSBack,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSThumb,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exCSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,2)
	.EndUpdate()
	.BeginUpdate()
	.Mode = EXCASCADETREELib.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"
	.get_DefaultView().Columns.Item("CountryName").SortOrder = EXCASCADETREELib.SortOrderEnum.SortAscending
	.get_DefaultView().NextView.Columns.Item("StateName").SortOrder = EXCASCADETREELib.SortOrderEnum.SortAscending
	With .get_DefaultView().NextView.NextView
		.ColumnAutoResize = False
		With .Columns.Item("Name")
			.SortOrder = EXCASCADETREELib.SortOrderEnum.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	' Columns("StateCode").Visible = False
	With AxCascadeTree1
		With .View
			.ColumnAutoResize = True
			.Columns.Item("CountryCode").Visible = False
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.CascadeModeEnum.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"
	.get_DefaultView().Columns.Item("CountryName").SortOrder = EXCASCADETREELib.SortOrderEnum.SortAscending
	.get_DefaultView().NextView.Columns.Item("StateName").SortOrder = EXCASCADETREELib.SortOrderEnum.SortAscending
	With .get_DefaultView().NextView.NextView
		.BeginUpdate()
		.ColumnAutoResize = False
		With .Columns.Item("Name")
			.Width = 128
			.SortOrder = EXCASCADETREELib.SortOrderEnum.SortAscending
		End With
		.SingleSort = False
		.AllowGroupBy = True
		.Columns.Item("Status").SortOrder = EXCASCADETREELib.SortOrderEnum.SortDescending
		.TreeColumnIndex = .Columns.Item("Name").Index
		.EndUpdate()
	End With
	.EndUpdate()
End With

' CreateView event - A view has been created.
Private Sub AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	' Columns("StateCode").Visible = False
	With AxCascadeTree1
		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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub AxCascadeTree1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ViewEndChangingEvent) Handles AxCascadeTree1.ViewEndChanging
	With AxCascadeTree1
		.StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name)
		.ExecuteContextMenu = 0
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.AllowSplitView = EXCASCADETREELib.AllowSplitViewEnum.exAllowOneSplitView
	.FitCascadeColumns = 3
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitEqualCascadeMode
	.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
	.StatusBarHeight = 24
	.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exVScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exHScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
	.ScrollWidth = 4
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack,15790320)
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb,8421504)
	.ScrollHeight = 4
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSBack,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSThumb,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exCSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,2)
	.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	' Columns("StateCode").Visible = False
	With AxCascadeTree1
		With .View
			.ColumnAutoResize = True
			.Columns.Item("CountryCode").Visible = False
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub AxCascadeTree1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ViewEndChangingEvent) Handles AxCascadeTree1.ViewEndChanging
	With AxCascadeTree1
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	' Columns("StateCode").Visible = False
	With AxCascadeTree1
		With .View
			.ColumnAutoResize = True
			.Columns.Item("CountryCode").Visible = False
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub AxCascadeTree1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ViewEndChangingEvent) Handles AxCascadeTree1.ViewEndChanging
	With AxCascadeTree1
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	' Columns("StateCode").Visible = False
	With AxCascadeTree1
		With .View
			.ColumnAutoResize = True
			.Columns.Item("CountryCode").Visible = False
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.CascadeModeEnum.exAutoFitOnResizeClient Or EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	' Columns("StateCode").Visible = False
	With AxCascadeTree1
		With .View
			.ColumnAutoResize = True
			.Columns.Item("CountryCode").Visible = False
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	With AxCascadeTree1
		.View.ColumnAutoResize = True
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.Mode = EXCASCADETREELib.CascadeModeEnum.exAutoFitOnResizeClient Or EXCASCADETREELib.CascadeModeEnum.exDisableResizeCascadeColumns Or EXCASCADETREELib.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.Mode = EXCASCADETREELib.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.DefColumnWidth = 96
	.Mode = EXCASCADETREELib.CascadeModeEnum.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.Mode = EXCASCADETREELib.CascadeModeEnum.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
	.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSingleCascadeMode
	With .get_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 = EXCASCADETREELib.SortOrderEnum.SortAscending
		.Name = "Name"
	End With
	.Name = "Isaccea"
	.EndUpdate()
End With

' CreateView event - A view has been created.
Private Sub AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	With AxCascadeTree1
		.StatusBarLabel = .Name
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub AxCascadeTree1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ViewEndChangingEvent) Handles AxCascadeTree1.ViewEndChanging
	With AxCascadeTree1
		.StatusBarLabel = .Name
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
	.Mode = EXCASCADETREELib.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.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

' CreateView event - A view has been created.
Private Sub AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	Dim label
	With AxCascadeTree1
		.View.ColumnAutoResize = False
		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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub AxCascadeTree1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ViewEndChangingEvent) Handles AxCascadeTree1.ViewEndChanging
	Dim label
	With AxCascadeTree1
		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

Dim dm1,dm2,dm3,ds
With AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitEqualCascadeMode
	.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarWordWrap Or EXCASCADETREELib.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	Dim bColumnAutoResize,label
	With AxCascadeTree1
		bColumnAutoResize = .FormatABC("not(A = `City`)",.View.Tag)
		With .View
			.SingleSel = False
			.ColumnAutoResize = False
		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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub AxCascadeTree1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ViewEndChangingEvent) Handles AxCascadeTree1.ViewEndChanging
	Dim label
	With AxCascadeTree1
		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

Dim dm1,dm2,dm3,ds
With AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitEqualCascadeMode
	.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarWordWrap Or EXCASCADETREELib.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	Dim bColumnAutoResize
	With AxCascadeTree1
		bColumnAutoResize = .FormatABC("not(A = `City`)",.View.Tag)
		.View.ColumnAutoResize = False
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub AxCascadeTree1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ViewEndChangingEvent) Handles AxCascadeTree1.ViewEndChanging
	With AxCascadeTree1
		.StatusBarLabel = AxCascadeTree1.Select
	End With
End Sub

Dim dm1,dm2,dm3,ds
With AxCascadeTree1
	.BeginUpdate()
	.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitEqualCascadeMode
	.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	Dim bColumnAutoResize,nWidth
	With AxCascadeTree1
		.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 = False
			.Width = nWidth
		End With
	End With
End Sub

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

Dim dm1,dm2,dm3,ds
With AxCascadeTree1
	.BeginUpdate()
	.StatusBarHeight = 58
	.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarWordWrap Or EXCASCADETREELib.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

Dim dm,ds
With AxCascadeTree1
	.BeginUpdate()
	.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.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 .get_DefaultView()
		.DataSource = AxCascadeTree1.FormatABC("A + `;` + B",ds,dm)
		.ColumnAutoResize = True
	End With
	.EndUpdate()
End With

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

Dim dm,ds
With AxCascadeTree1
	.BeginUpdate()
	.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.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 .get_DefaultView()
		.DataSource = AxCascadeTree1.FormatABC("A + `;` + B",ds,dm)
		.ColumnAutoResize = True
	End With
	.EndUpdate()
End With

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

Dim ado
With AxCascadeTree1
	.BeginUpdate()
	.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
	.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
	.DefColumnWidth = 336
	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 .get_DefaultView()
		.DataSource = ado
		.ColumnAutoResize = True
	End With
	.EndUpdate()
End With

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

Dim ado
With AxCascadeTree1
	.BeginUpdate()
	.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
	.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
	.DefColumnWidth = 336
	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 .get_DefaultView()
		.DataSource = ado
		.ColumnAutoResize = True
	End With
	.EndUpdate()
End With

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

Dim dm,ds
With AxCascadeTree1
	.BeginUpdate()
	.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

Dim dm,ds
With AxCascadeTree1
	.BeginUpdate()
	.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

Dim ado
With AxCascadeTree1
	.BeginUpdate()
	.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
	.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
	.DefColumnWidth = 336
	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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

Dim ado
With AxCascadeTree1
	.BeginUpdate()
	.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
	.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
	.DefColumnWidth = 336
	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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

Dim xml
With AxCascadeTree1
	.BeginUpdate()
	.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
	.StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument"
	.DefColumnWidth = 336
	With .get_DefaultView()
		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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

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

' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

Dim xml
With AxCascadeTree1
	.BeginUpdate()
	.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
	.StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument"
	.DefColumnWidth = 336
	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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
	With AxCascadeTree1
		Debug.Print( "Error" )
		Debug.Print( e.description )
	End With
End Sub

With AxCascadeTree1
	.BeginUpdate()
	.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	Dim k
	With AxCascadeTree1
		With .View
			k = .ParentView.Value()
			.BeginUpdate()
			.ColumnAutoResize = True
			.Key = -1
			.Columns.Add(k)
			With .Items
				.AddItem(AxCascadeTree1.FormatABC("A + `-> Sub-Item 1`",k))
				.AddItem(AxCascadeTree1.FormatABC("A + `-> Sub-Item 2`",k))
				.AddItem(AxCascadeTree1.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 AxCascadeTree1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ViewEndChangingEvent) Handles AxCascadeTree1.ViewEndChanging
	With AxCascadeTree1
		Debug.Print( "End" )
		Debug.Print( e.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 AxCascadeTree1_ViewStartChanging(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ViewStartChangingEvent) Handles AxCascadeTree1.ViewStartChanging
	With AxCascadeTree1
		Debug.Print( "Start" )
		Debug.Print( e.operation )
	End With
End Sub

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

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

' CreateView event - A view has been created.
Private Sub AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
	Dim k
	With AxCascadeTree1
		With .View
			k = .ParentView.Value()
			.BeginUpdate()
			.ColumnAutoResize = True
			.Columns.Add(k)
			With .Items
				.AddItem(AxCascadeTree1.FormatABC("A + `-> Sub-Item 1`",k))
				.AddItem(AxCascadeTree1.FormatABC("A + `-> Sub-Item 2`",k))
				.AddItem(AxCascadeTree1.FormatABC("A + `-> Sub-Item 3`",k))
			End With
			.EndUpdate()
		End With
	End With
End Sub

With AxCascadeTree1
	.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 AxCascadeTree1
	.BackColor = RGB(240,240,240)
End With