108:
How can I add a hierarchy (multiple-columns), using the Item.ToString method

With TreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.LinesAtRoot = -1
		.Columns.Add(1).Alignment = 0
		.Columns.Add(2).Alignment = 0
		.Columns.Add(3).Alignment = 0
		.Items.ToString = "Root 1;Root 2;Root 3(Child1.1;Child2.1;Child3.1(SubChild 1.1;SubChild 2.1;SubChild 3.1,SubChild 2.1;SubChild 2.2;SubChild 2.3)," & _
"Child 1.2;Child 2.2;Child 3.2)"
		.Items.ExpandAll 
		Debug.Print( .Items.Item(0).ToString )
	End With
End With
107:
How can I add a hierarchy (single column), using the Item.ToString method

With TreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.LinesAtRoot = -1
		.Columns.Add("").Alignment = 0
		.Items.Count = 1
		.Items.Item(0).ToString = "Root(Child1(SubChild 1,SubChild 2),Child2)"
		.Items.ExpandAll 
		Debug.Print( .Items.Item(0).ToString )
	End With
End With
106:
How can add items to a list

With TreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.Columns.Add("Pos").FormatColumn = "1 pos ``"
		.Items.Count = TreeCube1.FrontFace.FaceTree.VisibleItemsCount
	End With
End With
105:
How can I split a cell

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	.HTMLPicture("P1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("P2") = "c:\exontrol\images\auction.gif"
	.HTMLPicture("P3") = "c:\exontrol\images\colorize.gif"
	.HTMLPicture("P4") = "c:\exontrol\images\auction.gif"
	With .FrontFace
		With .CreateTree
			.Columns.Add("Default").Alignment = 0
			With .Items
				With .Add("Choose your quick actions")
					.SingleLine(0) = False
					With .Items.Add("")
						.Height = 48
						s = 0
						.Value(s) = "<c><img>P1</img>"
						.CellWidth(s) = 48
						.HasButton(s) = True
						s = .SplitCell(s)
						.Value(s) = "<c><img>P2</img>"
						.CellWidth(s) = 48
						.HasButton(s) = True
						s = .SplitCell(s)
						.Value(s) = "<c><img>P3</img>"
						.CellWidth(s) = 48
						.HasButton(s) = True
						s = .SplitCell(s)
						.Value(s) = "<c><img>P4</img>"
						.CellWidth(s) = 48
						.HasButton(s) = True
						s = .SplitCell(s)
					End With
					.Expanded = True
				End With
			End With
		End With
	End With
	.EndUpdate 
End With
104:
I've noticed that the Face has no background color. Still, can I change the face's background color

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	With .FrontFace
		With .CreateCalendar
			.AutoSize = 1
			.MaxMonthX = .MinMonthX
			.MaxMonthY = .MinMonthY
			.ShowTodayButton = False
		End With
		.ExtraTitle("extra",1) = 15790320
		.ExtraTitle("extra",8) = "height"
		.ExtraTitle("extra",9) = 1
	End With
	.EndUpdate 
End With
103:
How can I change the +/- expanding/collapsing buttons

With TreeCube1
	.TexturePicturePath = ""
	.BeginUpdate 
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAADhABDgCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzX" & _
"IUBxAAqXZZFUaKAgOMJDTLBAzUSAAYhtHqeJBjID4JA6UJXRpIAIQSSBUjGOg6TiMUYZAguAxCEzZUT0fAYUQSCC3ZzDCKoRpiCT7Xg8V5OVbjUz9P7AMBwLA7erxap6" & _
"PJeD54QymGp/R5eMhyLI8UxXFqRY6veKtJhGDIrT5CEIQVA9EyXJqnahqOiaCguPorQy/dYYdg2BYBPS6MAvG4bVrOd59XrgN42fY2ByzAqlMQwS7rOqiY6YWTnehWTo" & _
"HE+JZUmoLB5CufQuAkBYkGO+ZrDWAo7keZZyHmH5+i8X4bluaJyHgGB9mQHx3JjBpViqJRHmueZ7H8Xo3i2fYAl+d5tncMRfDcdZeDMDIjCCJwokoEoQiEJ4KCIfIdgU" & _
"SZIAWaoGCEUh2BIJ4gnKBgMDICAnHoCggg0Aw4k0KAJkIagaguYwIj4LAmiKEw2CUIIiHMUJSDQSYyGCFYMGQCJCD0JRjiMRg3gmTYjGSVgmgkchSD4JJklIRIXCSSQY" & _
"j4U4UgkQhGE+EwJEkJJWhGpgGGIOBNmMdhPg8SRiHCGAlibNhohqJpJi4T4ZA2WYIgEYInGOGJlDkCQyECDoTEkKQ+E+C5oCIVhQCUCQpnSDoeg4SZZH8YdhjibQ7AiU" & _
"gkgcJFyiyEYmGmOhqhyJ5pmILoYCKaRSB6Eg7CcZgZggaRqHqNoTiuDpKkKMormsQ4xiUYgYiKEo6CCWgWiqPovloZoGjoKQYiOLR1ECUAQIC"
		.Add 2,"gBFLBCJwBAEHhEJAADhABDwCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzX" & _
"IUBxAAqXZZFUaKAgOMJDTLBAzUSAAYhtHqeJBjID4JA6UJXRpIAIQSSBUjGOg6TiMUYZAguAxCEzZUT0fAYUQSCC3ZzDCKoRpiCT7Xg8V5OVbjUz9P7AMBwLA7erxap6" & _
"PJeD54QymGp/R5eMhyLI8UxXFqRY6veKtJhGDIrT5CEIQVA9EyXJqnahqOiaCguPorQy/dYYdg2BYBPS6MAvG4bVrOd59XrgN42fY2ByzAqlMQwS7rOqiY6YWTnehWTo" & _
"HE+JZUmoLB5CufQuAkBYkGO+ZrDWAo7keZZyHmPQ+g8X4fluYBhneEB9l0Iwpg6RRWiqFQfg+V5nnefh/GAB5yAIfRMFeRZdHeDJDCiSApkoMoEiQKBJmKCIfCcYQiHI" & _
"FYFkmeBaBOA5JmgsICEyAgJl6AZICMQJODMSgCHCGg/mKSI2C6C5jAiNgpCaIhjDYIggiIQxQlINBJjIYIVgwZAJAYPQlGOIxGDeCQNiMZJWCaCRyFIPgkmSUhEhcJJl" & _
"CkUhThUZQiFCEYTmSQhSEkNYkHYBIBhiTgTHiXYTmOUhYhwJgJGmJhuhsJoZi4bYbCSeYUl2GJIBYCh4DmDhThCEwkAiaQ0hKE5oEIVITiEaB6BqAofkiaZwmSHgXnYG" & _
"h4DuDpTjCDQiEgchAg0IpJBobodicKZqgaIAimmIguhcIZpEOMh4GGGIGhaKYrmkWpAmyLIrEqRo2DsGhWCGCgpCuQgNiEaosAsBYmGga5ChGCg6lcVANAEgI"
	End With
	.Background(84) = &H1000000
	.Background(85) = &H2000000
	With .FrontFace.CreateTree
		.ExpandOnDblClick = True
		.ItemPadding = 16
		.HeaderVisible = False
		.HasLines = 2
		.LinesAtRoot = 3
		.DrawGridLines = -2
		.Columns.Add("Def").Alignment = 0
		.Items.ToString = "Root 1(Child 1,Child 2),Root 2(Child 3,Child 4)"
		.ItemByIndex(3).Expanded = True
	End With
	.EndUpdate 
End With
102:
How can I use the ToString property

With TreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.DrawGridLines = -2
		.Columns.ToString = "Column 1,Column 2,Column 3,Column 4"
		.Items.ToString = "1;2;3;4,5;6;7;8,9;10;11;12,13;14;15;16,17;18;29;20,21;22;23;24,25;26;27;28,29;30;31;32"
	End With
End With
101:
How can I use the Background property

With TreeCube1
	.BeginUpdate 
	.VisualAppearance.Add 1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn"
	.Background(8) = &H1000000
	.Background(7) = RGB(250,250,250)
	.Background(6) = RGB(250,250,250)
	.Background(9) = &H2000000
	.Background(31) = RGB(255,255,255)
	.TexturePicturePath = ""
	With .FrontFace.CreateCalendar
		.Date = #1/1/2016#
		.AutoSize = 1
		.MaxMonthX = .MinMonthX
		.MaxMonthY = .MinMonthY
	End With
	.EndUpdate 
End With
100:
How can I display two lists of radio-buttons

' FaceTreeStateChanged event - Notifies that a cell changes its state into a face of tree type.
Private Sub TreeCube1_FaceTreeStateChanged(ByVal Tree As Object,ByVal Item As Long,ByVal Column As Long)
	With TreeCube1
		With .FrontFace.FaceTree.ItemByIndex(Item)
			Debug.Print( "State" )
			Debug.Print( .State(0) )
		End With
	End With
End Sub

With TreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.HeaderVisible = False
		.ItemPadding = 16
		.DrawGridLines = 0
		.Columns.Add("Radio").Alignment = 0
		With .Items
			With .Add("Group A")
				With .Items
					With .Add("Radio <b>1")
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1234
					End With
					With .Add("Radio <b>2")
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1234
						.State(0) = 1
					End With
					With .Add("Radio <b>3")
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1234
					End With
				End With
				.Expanded = True
			End With
			With .Add("Group B")
				With .Items
					With .Add("Radio <b>1")
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1235
					End With
					With .Add("Radio <b>2")
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1235
					End With
					With .Add("Radio <b>3")
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1235
						.State(0) = 1
					End With
				End With
				.Expanded = True
			End With
		End With
	End With
End With
99:
How can I display a list of check-boxes

' FaceTreeStateChanged event - Notifies that a cell changes its state into a face of tree type.
Private Sub TreeCube1_FaceTreeStateChanged(ByVal Tree As Object,ByVal Item As Long,ByVal Column As Long)
	With TreeCube1
		With .FrontFace.FaceTree.ItemByIndex(Item)
			Debug.Print( "State" )
			Debug.Print( .State(0) )
		End With
	End With
End Sub

With TreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.HeaderVisible = False
		.ItemPadding = 16
		.DrawGridLines = 0
		.Columns.Add("Check").Alignment = 0
		With .Items
			.Add("Check <b>1").HasCheckBox(0) = True
			.Add("Check <b>2").HasCheckBox(0) = True
			With .Add("Check <b>3")
				.HasCheckBox(0) = True
				.State(0) = 1
			End With
			.Add("Check <b>4").HasCheckBox(0) = True
		End With
	End With
End With
98:
How do I get the selected caption

' FaceTreeSelectionChanged event - Notifies that the user selects a new item/column into a face of tree type.
Private Sub TreeCube1_FaceTreeSelectionChanged(ByVal Tree As Object)
	With TreeCube1
		Debug.Print( "Value" )
		Debug.Print( .FrontFace.FaceTree.Value )
		Debug.Print( "Caption" )
		Debug.Print( .FrontFace.FaceTree.Caption )
	End With
End Sub

With TreeCube1
	.TexturePicturePath = ""
	With .FrontFace
		With .CreateTree
			.ItemPadding = 20
			.Columns.Count = 5
			.HeaderVisible = False
			.Items.Count = TreeCube1.FrontFace.FaceTree.VisibleItemsCount
			.Columns.Item(0).FormatColumn = "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(1).FormatColumn = "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(2).FormatColumn = "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(3).FormatColumn = "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(4).FormatColumn = "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
		End With
	End With
End With
97:
How do I get the selected value

' FaceTreeSelectionChanged event - Notifies that the user selects a new item/column into a face of tree type.
Private Sub TreeCube1_FaceTreeSelectionChanged(ByVal Tree As Object)
	With TreeCube1
		Debug.Print( "Value" )
		Debug.Print( .FrontFace.FaceTree.Value )
		Debug.Print( "Caption" )
		Debug.Print( .FrontFace.FaceTree.Caption )
	End With
End Sub

With TreeCube1
	.TexturePicturePath = ""
	With .FrontFace
		With .CreateTree
			.ItemPadding = 20
			.Columns.Count = 5
			.HeaderVisible = False
			.Items.Count = TreeCube1.FrontFace.FaceTree.VisibleItemsCount
			.Columns.Item(0).FormatColumn = "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(1).FormatColumn = "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(2).FormatColumn = "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(3).FormatColumn = "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(4).FormatColumn = "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
		End With
	End With
End With
96:
How can I add buttons on the face

' FaceTreeButtonClick event - Notifies that a cell of button's type has been clicked.
Private Sub TreeCube1_FaceTreeButtonClick(ByVal Tree As Object,ByVal Item As Long,ByVal Column As Long)
	With TreeCube1
		Debug.Print( Item )
		Debug.Print( Column )
	End With
End Sub

With TreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.DrawGridLines = 0
		.ItemPadding = 16
		With .Columns.Add("Buttons")
			.FormatColumn = "1 index `A-Z`"
			.Def(2) = True
		End With
		.Items.Count = 4
	End With
End With
95:
How do I programmatically selects a date (method 2)
With TreeCube1
	With .FrontFace.CreateCalendar
		.Value = "Jan 21"
	End With
End With
94:
How do I programmatically selects a date (method 1)
With TreeCube1
	With .FrontFace.CreateCalendar
		.Date = #1/1/2001#
		.SelDate = .Date
	End With
End With
93:
How can I display a hyperlink element
' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub TreeCube1_AnchorClick(ByVal Face As Long,ByVal AnchorID As String,ByVal Options As String)
	With TreeCube1
		Debug.Print( Face )
		Debug.Print( AnchorID )
		Debug.Print( Options )
	End With
End Sub

With TreeCube1
	With .FrontFace.CreateTree
		.ShowSelection = False
		.HeaderVisible = False
		.DrawGridLines = 0
		.Items.ToString = "<a A1\;options1>Item 1</a>,<a A2\;options2>Item 2</a>"
	End With
End With
92:
Can I display image and multiple-lines items

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	.HTMLPicture("DriveC") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("DriveD") = "c:\exontrol\images\auction.gif"
	.HTMLPicture("DriveE") = "c:\exontrol\images\colorize.gif"
	With .TopFace
		.RelativeMargins = "0,32,0,0"
		With .CreateTree
			.HasLines = 0
			.DrawGridLines = 0
			.ItemPadding = 24
			.HeaderVisible = False
			.ShowSelection = True
			.SelBackColor = RGB(240,240,240)
			.Columns.Add("Default").Alignment = 0
			With .Items
				With .Add("Storage")
					.Divider = 0
					.Bold = True
					.Selectable = False
				End With
				With .Add("Choose a drive to see what's taking up space.")
					.Selectable = False
					.SingleLine(0) = False
					With .Items.Add("<img>DriveC:64</img>")
						.Height = 68
						.BackgroundExt(0) = "none[(76,4,100%-76,100%-8)](client[text=``],bottom[16,back=RGB(204,204,204)](left[0%,back=RGB(0,120,215)]))"
						.BackgroundExtValue(0,2,5) = True
						.BackgroundExtValue(0,2,4) = "<fgcolor=000000>LROG (C:)<br>58.7 GB used out of 150 GB"
						.BackgroundExtValue(0,4,2) = "39%"
					End With
					With .Items.Add("<img>DriveD:64</img>")
						.Height = 68
						.BackgroundExt(0) = "none[(76,4,100%-76,100%-8)](client[text=``],bottom[16,back=RGB(204,204,204)](left[0%,back=RGB(0,120,215)]))"
						.BackgroundExtValue(0,2,5) = True
						.BackgroundExtValue(0,2,4) = "<fgcolor=000000>System (D:)<br>112 MB used out of 144 GB"
						.BackgroundExtValue(0,4,2) = "1%"
					End With
					With .Items.Add("<img>DriveD:64</img>")
						.Height = 68
						.BackgroundExt(0) = "none[(76,4,100%-76,100%-8)](client[text=``],bottom[16,back=RGB(204,204,204)](left[0%,back=RGB(0,120,215)]))"
						.BackgroundExtValue(0,2,5) = True
						.BackgroundExtValue(0,2,4) = "<fgcolor=000000>Work (E:)<br>53.0 GB used out of 635 GB"
						.BackgroundExtValue(0,4,2) = "8%"
					End With
					With .Items.Add("<img>DriveE:64</img>")
						.Height = 68
						.BackgroundExt(0) = "none[(76,4,100%-76,100%-8)](client[text=``],bottom[16,back=RGB(204,204,204)](left[0%,back=RGB(0,120,215)]))"
						.BackgroundExtValue(0,2,5) = True
						.BackgroundExtValue(0,2,4) = "<fgcolor=000000>DVD RW Drive (G:)<br>0.0 GB used out of 0.0 GB"
						.BackgroundExtValue(0,4,2) = "0%"
					End With
					.Expanded = True
				End With
				With .Add("Save Locations")
					.Divider = 0
					.Bold = True
					.Selectable = False
				End With
				With .Add("Change where your apps, documents, music, pictures and videos are saved by default.")
					.Selectable = False
					.SingleLine(0) = False
					With .Items.Add("New apps will save to:")
						.Selectable = False
						With .Items.Add("Drive C")
							.Selectable = False
							.Height = 24
							.HasRadioButton(0) = True
							.RadioGroup(0) = 1234
							.State(0) = 1
							s = .SplitCell(0)
							.Value(s) = "Drive D"
							.HasRadioButton(s) = True
							.RadioGroup(s) = 1234
							s = .SplitCell(s)
							.Value(s) = "Drive E"
							.HasRadioButton(s) = True
							.RadioGroup(s) = 1234
						End With
						.Expanded = True
					End With
					With .Items.Add("New documents will save to:")
						.Selectable = False
						With .Items.Add("Drive C")
							.Selectable = False
							.Height = 24
							.HasRadioButton(0) = True
							.RadioGroup(0) = 1235
							s = .SplitCell(0)
							.Value(s) = "Drive D"
							.HasRadioButton(s) = True
							.RadioGroup(s) = 1235
							.State(s) = 1
							s = .SplitCell(s)
							.Value(s) = "Drive E"
							.HasRadioButton(s) = True
							.RadioGroup(s) = 1235
						End With
						.Expanded = True
					End With
					With .Items.Add("New music will save to:")
						.Selectable = False
						With .Items.Add("Drive C")
							.Selectable = False
							.Height = 24
							.HasRadioButton(0) = True
							.RadioGroup(0) = 1236
							s = .SplitCell(0)
							.Value(s) = "Drive D"
							.HasRadioButton(s) = True
							.RadioGroup(s) = 1236
							.State(s) = 1
							s = .SplitCell(s)
							.Value(s) = "Drive E"
							.HasRadioButton(s) = True
							.RadioGroup(s) = 1236
						End With
						.Expanded = True
					End With
					With .Items.Add("New pictures will save to:")
						.Selectable = False
						With .Items.Add("Drive C")
							.Selectable = False
							.Height = 24
							.HasRadioButton(0) = True
							.RadioGroup(0) = 1237
							s = .SplitCell(0)
							.Value(s) = "Drive D"
							.HasRadioButton(s) = True
							.RadioGroup(s) = 1237
							.State(s) = 1
							s = .SplitCell(s)
							.Value(s) = "Drive E"
							.HasRadioButton(s) = True
							.RadioGroup(s) = 1237
						End With
						.Expanded = True
					End With
					With .Items.Add("New videos will save to:")
						.Selectable = False
						With .Items.Add("Drive C")
							.Selectable = False
							.Height = 24
							.HasRadioButton(0) = True
							.RadioGroup(0) = 1238
							s = .SplitCell(0)
							.Value(s) = "Drive D"
							.HasRadioButton(s) = True
							.RadioGroup(s) = 1238
							.State(s) = 1
							s = .SplitCell(s)
							.Value(s) = "Drive E"
							.HasRadioButton(s) = True
							.RadioGroup(s) = 1238
						End With
						.Expanded = True
					End With
					.Expanded = True
				End With
			End With
			.EnsureVisibleItem 0
		End With
	End With
	.EnsureVisibleFaceMargin = 0
	.EnsureVisibleFace 4
	.AlwaysEnsureVisibleFace = 1
	.EndUpdate 
End With
91:
How can I use the BackgroundExt/BackgroundExtValue properties

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	With .BottomFace
		.RelativeMargins = "0,32,0,0"
		.Title(0) = "<c><font ;18>Battery Saver"
		.Title(11) = "bottom[2],bottom[4,back=RGB(0,0,0)]"
		With .CreateTree
			.HasLines = 0
			.DrawGridLines = 0
			.ItemPadding = 24
			.HeaderVisible = False
			.ShowSelection = False
			.Columns.Add("Default").Alignment = 0
			With .Items
				With .Add("Overview")
					.Divider = 0
					.Bold = True
				End With
				With .Add("Batter level (charging):")
					.SingleLine(0) = False
					With .Items.Add("")
						.BackgroundExt(0) = "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
						.BackgroundExtValue(0,4,2) = "65%"
						.BackgroundExtValue(0,2,4) = .BackgroundExtValue(0,4,2)
					End With
					.Expanded = True
				End With
				With .Add("Estimated time to full charge:")
					With .Items.Add(0.15125)
						.FormatCell(0) = "((1:=int(0:= (value))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 " & _
"? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
						.Height = 24
					End With
					.Expanded = True
				End With
				With .Add("Battery Saver")
					.Divider = 0
					.Bold = True
				End With
				With .Add("Extends battery life by limiting background activity and push notifications. ")
					.SingleLine(0) = False
				End With
				With .Add("Batter saver is currently:")
					.Enabled = False
					.SingleLine(0) = False
					With .Items.Add("")
						.Height = 24
						.HasCheckBox(0) = True
						.State(0) = 2
						.FormatCell(0) = "state = 1 ? `On` : `Off`"
						.Enabled = False
					End With
					.Expanded = True
				End With
				.Add("Battery Saver is off while charging.  Choose, when battery saver turns on automatically and how it affects your system.").SingleLine(0) = False
				With .Add("<c>Battery Saver Settings")
					.SingleLine(0) = False
					.HasButton(0) = True
				End With
			End With
		End With
	End With
	.EnsureVisibleFaceMargin = 0
	.EnsureVisibleFace 1
	.AlwaysEnsureVisibleFace = 1
	.EndUpdate 
End With
90:
How can I change the visual appearance for check and radio buttons

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	.CheckBoxWidth = 44
	.CheckBoxHeight = 20
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAADhABJACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIxDFIsBxPFKCQChEZBUjKAwyDBIUzSD" & _
"IUBhZBIKI7hGa3NBwJAAUTRch0j4iCRQGiYZyHKcxMYgIYCUBkERtMw0GyERQhGb4DoGA4IBhFZQVVLsRBIDh2bbuG4LSrWdJ3OyaN5EbbgZz9P7AMBwLA8EwXBqHYIU" & _
"GJGbhlbTnR7HMhvDIsPDnFqIZhmOZZXjlfh7T7KNByO6LcI3AiDagtWpNTpjf5dV7YNh2LY9UzXNq3bI1W5aUqyAZ9QQpeB0LILYDbRp/FzyO5NNrHG6dZ7oOh1doOUI" & _
"tlaP5lgcPA7hEJ47H8SD0l4LwfhOSJ9nOIh9DefBREMKYMDaX59nsVhvlKdBpCGfgIl+L43lGG5lH+YAGlWZw/EYOAVH8ZQXncdBJDwIJGkiGYDlmUh2BKABhEgVJpgW" & _
"X4BA4BxcAeWB1H8KJiAaSJJgiWZWAmVA0CEWIln8JYikWfZpCIXARE0fw3GMRpJnaCRYBGWg6gqI5HgoJxfkYCQFlkX5PhkFYyBAJIImGABpGOWQ1k8OxlAWfZ6BGJA1" & _
"noRQ+GQeQmEoX4kkkOheG2JQDjYUh+iMGJODUbBjHkbAzg6BxpH4bhsmOdZ6EEGAbmIAR/gSCZWkmfYShwYJYlOH5mnoBYvCSaBFnyDYhlcKAll2AwPAaSggCiWZaD6A" & _
"ogiEc4mBmBpYnePZxGMHw3lUeoGGUN5aH8NJpDoBgDgERg6GGFICh2d4GiWK5cngDgvHqWInG0cIfFyBwpjqLArkcTZVHWV5nGaNhxA6VoVicahajaNo9gUHI2nIdRwB" & _
"wJoOkSMJlFmKpWjWWY2HwPYwm2SxJHIe5sGsYpiGcXpHj6XYxA6NBFAkQBAIC"
		.Add 2,"gBFLBCJwBAEHhEJAADhABB4Cg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIxDFIsBxPFKCQChEZBUjKAwyDBIUzSD" & _
"IUBhZBIKI7hGa3NBwJAAUTRch0j4iCRQGiYZyHKcxMYgIYCUBkERtMw0GyERQhGb4DoGA4IBhFZQVVLsRBIDh2bbuG4LSrWdJ3Oy3KKiQy5cABPq/b6wDA8CwXAaHYRi" & _
"GDYThmF4dRQAG6RcTLWrPFqVZheGYua4CLBxRrINA0LD9DyHJKnaZkDgpUQGN5dTS4GwPQCN3xRWzUyBaQzJfAZV7Lbw3PadX4XRLHcLwfAXFqWaaNZLneh5DouDz3P5" & _
"YMuaRBicQ4nl6bpuBwKYRnuUY2jsfg9B0b43hOH5KjucQPnwOpMi+A4pnab5qB0a4znuf57n4f5gAeeJqC4R42mEcg5AoIRBnUfggkgLJiCaRA4AYEoEl+Y4AhcDpaFO" & _
"GIrBgDYyBwHICmIB5djge4hEilY8g0MotiUZICkMYB6AEIgYDYIh0g+Q5cm+CYjgOfJ6DuDZ2hSWggkESI6DCDJjCkFZDg0Yx4mYJYOmOVoiD8BQhlgfhEgwZRGBoJIS" & _
"y0IgqGoIpDhCJAVCUWQaFMY5fAkYgBD+D5TmyYAlENPBnCsRhFkoYYcmYMAAmkLRHDmGZ9h2Rw4BkeBnFmeZWHSGIYHeQZuHoHonjGboamaVwYmIJwEEYbZNiCaRKAmd" & _
"x1hyNZChWIQpjcKZYHAKQ6FqHIoh0Vp6hkcBqgoAodikKgmi2LYnmsCohkAXoXkqMojgMIpKh2Gw6lEFAlAEgIA=="
	End With
	.Background(70) = &H1000000
	.Background(71) = &H2000000
	.Background(72) = &H1f0f0f0
	.RadioButtonWidth = 23
	.RadioButtonHeight = 23
	With .VisualAppearance
		.Add 3,"gBFLBCJwBAEHhEJAADhABNoCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSF" & _
"IADRfFoWmxTdAcYSCGSZZrGOiQADIM40R7UAABPBNKR1BKmHZDQRAApqXIjVDAYIQSSBUlkHScRijDICXSIIQmbajIZoJCiVZ3VaGETnRQlJQuEgOHZwDAsBwPBqBPzi" & _
"Lp4WzmGqhR5ichYHI8RYVTKXYy3DxZW7OO4PQjQM7hHL8fwlfTuagyGpZOxjP5cdrYHw2J7NUzJeDxbhrTb6Zh7ILVX7TNIwXAdD4PIKmNryORsC4XG5pZ7oOh6Lo3G4" & _
"rhWZI2nOL4eBON4LkeRJvHWDxvB6G5Lmac56D0OY3hMU5bm6bRoiAeA9DMX5riydJ+D8P4vEeO4xkEcQfCYBZrHKXgzlme4BmCB4eAUZRbAaAZeGsDg4EYCYEmERoaBE" & _
"OJaiMIY2EIXo2FYFYHmIBp1j8OoQhcYZNDiIgIiYE4Jl2BAlj0agOmiKgyH6Xo2jECYGE8WJmDODpehgFgZEIXI3DyfoQmQSQWEaEZkgkJhKhKZA2hmSxCEyGREnSFJk" & _
"kkVhWwCCAthFKRjiIXhpiXOhihGYwJESSRCFuIxqGoPomkmDhuhWT45kSXYcl8UxdAkbgPBaMhTD0JApj4foRBoaJ5iqAxdmadhzDcWxpgIf4bhsY4Gg6GYYDcegNGUY" & _
"g6VMIsBBmNg8CmRwuCOJBgBaAgXh6JQzl6JocE+OQQn+KpqkqNouivgQiiaLJPHaMZYHwQAHHIdRrA6ep2jMbYqx2RxzmqBpajOLxOnacYPHcHZnHGOlynmbo0jSbRLF" & _
"aJoJlyNpplyKArhcGZcgMWpGjCXo4liM4ukiHpngkeJojiTZphmLIDG2Nwak2N4vEaAJsj2bpLgWFxlGGExOn4dgvHOMpxGgbwkAyaxEFCFAEICA="
		.Add 4,"gBFLBCJwBAEHhEJAADhABCEMACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSF" & _
"IADRfFoWmxTdAcYSCGSZZrGOiQADINI0R7UAABPBIMSjAamHZDQRAApqXIjVaAhySQKksg6TiMUYZAbaRBCEzbUZDNBIopUQLVU5ABbUEqBIipIrEQLHNwPBaEYZiOIY" & _
"W5re4cfzIMhyLI8Ob3CqHZhleTwTjWGYvSp1dBbTQ2QyVRanMDqOjsKxmW5Gbh5NhfHY8dxnDKcZ5jGSudrjEZ9VpmG74JzeEbjRj8chxT4PDxnBK/YDSWgdLo8VzXBp" & _
"cG2MY4maXxzFKQRxHgOQeC8H4TkuZhzHoNR9kaXpNnONZsGGMo9B4A5bmuFZ7n4Pw/i+XpFmSVB/mAB41hsQJfBYOJXgGXAHm4CoCmCtYAHqXRWBGWB/F2Z5UnaAxZFO" & _
"aJ2DuTpzHCOQ5gwcg8veDBjlCaA0mGBg6BYapcEONZiHYHADg4MoKE+U4QkEIINAISAig4Y44moPIPA4EpoHSBoOngNgyDiW5jCGShCF+VouA2EQNhKHBMg+Y5pFYPYV" & _
"mOQxYiAD4kEgNZRHSTokCWax4A4KA2DaDglGkUhYhoZRph4DYZB6NAllEbwOmgKhEhqJ4JjIa4ek8c48mGAoflcAQJhITxaBYCoHEuGZmHuIooioIgKgWJIUCWXh4hkN" & _
"hImkM4JloMh6iaJRzhySAkCkVhFhUd4QhMJomD0KtvBCCJMGocouh6KIKiifoKlodAmAAOgrgYVoVD7Y5AlMJhDAqPoLh6D4DkCYosicSoYkkQhcmMapOD6LQKkqHgkC" & _
"wKhwmILpHFqSJ7jaTZbHYBw1lCFwwnEcAqgOUoUGSa5DxkLQGHsVhWhQRJKkmFYkBuaI1lgdBtlMdZKi6LoKnSZQwggOp+kGJpjiufIDiyGQXCiYZCmyJxeAQYQi0YYI" & _
"+lieoqmmKwpHIdoskIGQGFWSg8DIBx6GCQ4AAYXhHjlo5fCqNpPjYRJ/kucwMkcMpM9GMwqk2Tx3AGa4AnIVpkm2N5cAgcJvk2XIsjGeYlF53hKk2dAnEGJR7nCdxlgY" & _
"c4ajmEplk4NYNGcWpKiYRx5k4dYhC0RxggsTpXAGQA3jaBoEmuUIuFuCo4DoNoDHqShwCKXYPCSXYzmOMx6lwOwZoawrgkE0HwBY1xegdE2MMWQhBOhoEUBIQAgCAgA=" & _
"="
	End With
	.Background(73) = &H3000000
	.Background(74) = &H4000000
	With .RightFace
		.RelativeMargins = "0,32,0,0"
		.Title(0) = "<c><font ;18>Table mode"
		.Title(11) = "bottom[2],bottom[4,back=RGB(0,0,0)]"
		With .CreateTree
			.HasLines = 0
			.DrawGridLines = 0
			.ItemPadding = 24
			.HeaderVisible = False
			.ShowSelection = False
			.Columns.Add("Default").Alignment = 0
			With .Items
				With .Add("Make windows more touch-friendly when using your device as a table")
					.SingleLine(0) = False
					With .Items.Add("")
						.Height = 24
						.HasCheckBox(0) = True
						.State(0) = 0
						.FormatCell(0) = "state = 0 ? `Off` : `On`"
					End With
					.Expanded = True
				End With
				With .Add("When I sign in")
					.SingleLine(0) = False
					With .Items.Add("Automatically swicth to table mode")
						.Height = 24
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1234
					End With
					With .Items.Add("Go to the desktop")
						.Height = 24
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1234
					End With
					With .Items.Add("Remember what I used last")
						.Height = 24
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1234
						.State(0) = 1
					End With
					.Expanded = True
				End With
				With .Add("When this device automatically switches table mode on or off")
					.SingleLine(0) = False
					With .Items.Add("Don't ask me and dont' switch")
						.Height = 24
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1235
					End With
					With .Items.Add("Always ask me before switching")
						.Height = 24
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1235
						.State(0) = 1
					End With
					With .Items.Add("Don't ask me and always' switch")
						.Height = 24
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1235
					End With
					.Expanded = True
				End With
				With .Add("Hide app icons on the taskbar in table mode")
					.SingleLine(0) = False
					With .Items.Add("")
						.Height = 24
						.HasCheckBox(0) = True
						.State(0) = 0
						.FormatCell(0) = "state = 0 ? `Off` : `On`"
					End With
					.Expanded = True
				End With
			End With
		End With
	End With
	.EnsureVisibleFaceMargin = 0
	.EnsureVisibleFace 2
	.AlwaysEnsureVisibleFace = 1
	.EndUpdate 
End With
89:
How can I display more group of radio-buttons

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	With .LeftFace
		.RelativeMargins = "0,32,0,0"
		.Title(0) = "<c><font ;18>Multitasking"
		.Title(11) = "bottom[2],bottom[4,back=RGB(0,0,0)]"
		With .CreateTree
			.HasLines = 0
			.DrawGridLines = 0
			.ItemPadding = 24
			.HeaderVisible = False
			.ShowSelection = False
			.Columns.Add("Default").Alignment = 0
			With .Items
				With .Add("Snap")
					.Divider = 0
					.Bold = True
				End With
				With .Add("Arrange windows automatically by dragging them to the sides of corners of the scree")
					.SingleLine(0) = False
					With .Items.Add("")
						.Height = 24
						.HasCheckBox(0) = True
						.State(0) = 1
						.FormatCell(0) = "state = 0 ? `Off` : `On`"
					End With
					.Expanded = True
				End With
				With .Add("When I snap more than one window, automatically adjust the size of the windows")
					.SingleLine(0) = False
					With .Items.Add("")
						.Height = 24
						.HasCheckBox(0) = True
						.State(0) = 1
						.FormatCell(0) = "state = 0 ? `Off` : `On`"
					End With
					.Expanded = True
				End With
				With .Add("When I snap a window, show what I can snap next to it")
					.SingleLine(0) = False
					With .Items.Add("")
						.Height = 24
						.HasCheckBox(0) = True
						.FormatCell(0) = "state = 0 ? `Off` : `On`"
					End With
					.Expanded = True
				End With
				With .Add("Virtual desktops")
					.Divider = 0
					.Bold = True
				End With
				With .Add("On the taskbar, show windows that are open on:")
					.SingleLine(0) = False
					With .Items.Add("Only the desktop I'm using")
						.Height = 24
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1234
						.State(0) = 1
					End With
					With .Items.Add("All desktops")
						.Height = 24
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1234
					End With
					.Expanded = True
				End With
				With .Add("Pressing ALT+TAB, show windows that are open on:")
					.SingleLine(0) = False
					With .Items.Add("Only the desktop I'm using")
						.Height = 24
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1235
						.State(0) = 1
					End With
					With .Items.Add("All desktops")
						.Height = 24
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1235
					End With
					.Expanded = True
				End With
			End With
		End With
	End With
	.EnsureVisibleFaceMargin = 0
	.EnsureVisibleFace 3
	.AlwaysEnsureVisibleFace = 1
	.EndUpdate 
End With
88:
How can I use images with the control

' FaceTreeButtonClick event - Notifies that a cell of button's type has been clicked.
Private Sub TreeCube1_FaceTreeButtonClick(ByVal Tree As Object,ByVal Item As Long,ByVal Column As Long)
	With TreeCube1
		Debug.Print( "FaceTreeButtonClick" )
	End With
End Sub

' FaceTreeStateChanged event - Notifies that a cell changes its state into a face of tree type.
Private Sub TreeCube1_FaceTreeStateChanged(ByVal Tree As Object,ByVal Item As Long,ByVal Column As Long)
	With TreeCube1
		Debug.Print( "FaceTreeStateChanged" )
	End With
End Sub

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	.HTMLPicture("P1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("P2") = "c:\exontrol\images\auction.gif"
	.HTMLPicture("P3") = "c:\exontrol\images\colorize.gif"
	.HTMLPicture("P4") = "c:\exontrol\images\auction.gif"
	With .FrontFace
		.RelativeMargins = "0,32,0,0"
		.Title(0) = "<c><font ;18>Notifications"
		.Title(11) = "bottom[2],bottom[4,back=RGB(0,0,0)]"
		With .CreateTree
			.HasLines = 0
			.DrawGridLines = 0
			.ItemPadding = 24
			.HeaderVisible = False
			.ShowSelection = False
			.Columns.Add("Default").Alignment = 0
			With .Items
				With .Add("Choose your quick actions")
					.SingleLine(0) = False
					With .Items.Add("")
						.Height = 48
						s = 0
						.Value(s) = "<c><img>P1</img>"
						.CellWidth(s) = 48
						.HasButton(s) = True
						s = .SplitCell(s)
						.Value(s) = "<c><img>P2</img>"
						.CellWidth(s) = 48
						.HasButton(s) = True
						s = .SplitCell(s)
						.Value(s) = "<c><img>P3</img>"
						.CellWidth(s) = 48
						.HasButton(s) = True
						s = .SplitCell(s)
						.Value(s) = "<c><img>P4</img>"
						.CellWidth(s) = 48
						.HasButton(s) = True
						s = .SplitCell(s)
					End With
					.Expanded = True
				End With
				With .Add("Show me tips about Windows")
					.SingleLine(0) = False
					With .Items.Add("")
						.Height = 24
						.HasCheckBox(0) = True
						.State(0) = 1
						.FormatCell(0) = "state = 0 ? `Off` : `On`"
					End With
					.Expanded = True
				End With
				With .Add("Show app notifications	")
					.SingleLine(0) = False
					With .Items.Add("")
						.Height = 24
						.HasCheckBox(0) = True
						.State(0) = 1
						.FormatCell(0) = "state = 0 ? `Off` : `On`"
					End With
					.Expanded = True
				End With
				With .Add("Show notifications on lock screen")
					.SingleLine(0) = False
					With .Items.Add("")
						.Height = 24
						.HasCheckBox(0) = True
						.FormatCell(0) = "state = 0 ? `Off` : `On`"
					End With
					.Expanded = True
				End With
				With .Add("Show alarms, reminders and incomming VOIP calls on the lock screen")
					.SingleLine(0) = False
					With .Items.Add("")
						.Height = 24
						.HasCheckBox(0) = True
						.State(0) = 1
						.FormatCell(0) = "state = 0 ? `Off` : `On`"
					End With
					.Expanded = True
				End With
				With .Add("Hide notications while presentation")
					.SingleLine(0) = False
					With .Items.Add("")
						.Height = 24
						.HasCheckBox(0) = True
						.State(0) = 0
						.FormatCell(0) = "state = 0 ? `Off` : `On`"
					End With
					.Expanded = True
				End With
			End With
		End With
	End With
	.EnsureVisibleFaceMargin = 0
	.EnsureVisibleFace 0
	.AlwaysEnsureVisibleFace = 1
	.EndUpdate 
End With
87:
How do I display a progress bar

With TreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.ItemPadding = 16
		With .Columns.Add("Pos")
			.FormatColumn = "1 pos ``"
			.Width = 8
		End With
		.Columns.Add("Progress").Alignment = 0
		With .Items
			With .Add("")
				.BackgroundExt(1) = "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
				.BackgroundExtValue(1,4,2) = "25%"
				.BackgroundExtValue(1,2,4) = .BackgroundExtValue(1,4,2)
			End With
			With .Add("")
				.BackgroundExt(1) = "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
				.BackgroundExtValue(1,4,2) = "15%"
				.BackgroundExtValue(1,2,4) = .BackgroundExtValue(1,4,2)
				.BackgroundExtValue(1,4,1) = 65280
			End With
			With .Add("")
				.BackgroundExt(1) = "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
				.BackgroundExtValue(1,4,2) = "75%"
				.BackgroundExtValue(1,2,4) = .BackgroundExtValue(1,4,2)
			End With
			With .Add("")
				.BackgroundExt(1) = "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
				.BackgroundExtValue(1,4,2) = "85%"
				.BackgroundExtValue(1,2,4) = .BackgroundExtValue(1,4,2)
			End With
			With .Add("")
				.BackgroundExt(1) = "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
				.BackgroundExtValue(1,4,2) = "5%"
				.BackgroundExtValue(1,2,4) = .BackgroundExtValue(1,4,2)
				.BackgroundExtValue(1,4,1) = 255
			End With
		End With
	End With
End With
86:
I have a column of check box type, the question if I can automatically display on/off when user changes the check's state

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	.CheckBoxWidth = 32
	.CheckBoxHeight = 29
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAADhABQACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5B" & _
"iKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpf" & _
"baKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZ" & _
"OkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonefApC2BQglWHIKAAPx/D4FoyHgTZsAIXwYAWYR8kMR5YAAP4PmOdZ7H8X54AoDhziASAaAiAoeAecZ+CQ" & _
"IAID4GhwGEF5eBOAphHgZgbgiWQYHYB4CGICA2CSCpPnMYIjgEYZoiIFYDCGCIyCsNgKCCRgSgyHZ4FoKoNiGOJgDKDphEidg0giJEnDiDojBkFZXg+IxZCYGoLgMOQS" & _
"CmFBlCgOJZCmA4jDiCYJmSZw6FCEglheRhbA4ZZpgIV4ZCYV4+GeGhhniTghhsYAps+HBkGmTh0hmChpiId4PCSeQeHuHwnmmKhyg+aA3gYdohh2cxUhwCJNBIRZuiIX" & _
"oDGiJwOkyWR9nkPwoiKFA2G2YBznaHIlB0cxGBiAYfAONJUCgIBmlAFg6k0AhaioJ5OkMTIdi0axzEyHmEBIYJpDMCJanyDowiwQwyq0LBbB6Sowg6KwYmoMxI26GwIB" & _
"wU4Mj0GpgCOCI6BmG4mmYX4mG2a4GmCOAmhuFhfjmAALiKao5m6S4ml8bpNmKQBQgkFpzjSbg1koc44lYKQviKFp9j+TRrnsAZADALAXASQZwDwJp8xQc4uiSQ5xAwRw" & _
"SkSYhDi0ERCFAECAg"
		.Add 2,"gBFLBCJwBAEHhEJAADhABZ8MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5B" & _
"iKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpf" & _
"baKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZ" & _
"OkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePwfA6fx7n2MIkBqM4REAB5vnOQpWCeAhnjACR9B4IoEC0OQMAGSZ0H2AxHmQAA/g+Y51n6AAgCgEZLDa" & _
"ChgmCUQkACAw8g4AJgjKEgNH6IQIEmYB/mAEhCAOBYZDMZIlA2TQSEQCheAGiwKDmTBiAWYYDCCaIWBOChijiMJ/DYXx4loNINBsQBdkWDpiCidgRg+YRYFoRANCMEAu" & _
"EcXhlHiVISAMTgSlwXh1mOSISE+CZhEiKgLCiQw5FYWYaleFpQBiA4PhOSJhHMJgYD4Yx3mKn5fDYCgwkiUQkiUaRigIYhoEkZZUASTRiHAIodCSWYKCaHgmFkBh0CiA" & _
"wZn6AYhGaUhcBiEhmkoEJQCOQBTiiTQjlwGZwDOE4oncXh5hmHIzGCIgMCkah0lMJYBFeMAHiyQRqmKMomiCY5wnoPUzFyuIMmIJh2ioXJqi6Ehkg0coEC6H7zHSUgkk" & _
"CaxA42ToDmydw7GCahygODQNCIVASgoGQ7GyWAyEeaA9n2GQkAsBgGjQKBqGmwxNiKHA7HATxjiSTgzGwaY6h2J5AGOiwfFkM4UkEHQPiWQhQisD5zFyHwKimcAWgZhp" & _
"rBQAA6AyAgVleHILlucAAj+KA5joDhjg0VhOBEPpwjkBgQD+H5wh2bACBmYBBlwAQPGOKJRH0DwTHiNpHjICgSjiLYkCUGrzk4ApUFoNRJjCBxBGQTwjgCOpPBsWRnDG" & _
"K4DAiMxDlKXp3ECRpFiuKgOh8AZODKcBqH0NR9GGdA+A6YxplMdRlHmPY4DsTRig2YXfECDg2lmJAjnCeQ8meOANwYwSBXEsDUeQZxdDxDgGwbY3QjjmHiKUcIwQnBfG" & _
"ADYZowR7B6E6E4MI2g1AUAsOkFwCwOhmECC0ZYkxzhhFME4egXQThHGkPUDoPwqtkE6E8LQaQJiHDiK4KYaBCiwFwOkaYVROhqXoIcdw9BzAcCKNAZg3Qbg2BsD0cY+B" & _
"vBPEWOUfIHgziVHMOMYwWQEAACGAEZYgg7gaGKCUXQ6hoD7F2JwW5txIhPHYBQTwwQljzD6AYW4zx6h9B+F8bo9h/AfDONUZwkhziJF8FwHALBaCTAwIEG4CASDfC4Fw" & _
"AIRRHuhBAOUUwAxoAQH6C0eACgDAeAMGoGgGREDPAiKAAIVwBgYA2AUZ4QgEAOEGMANwCwIjWCIEgJIASAg=="
		.Add 3,"gBFLBCJwBAEHhEJAADhABT0MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5B" & _
"iKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpf" & _
"baKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZ" & _
"OkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePR+D6d57GESA1GcIoAA+X5fgW2oJh6QAlnMdZHlgFIogGXw3lQNB+AAA54n4PxflefgBgCXIyBIFgZmG" & _
"AYOBqAhKEgLZ5gOIQHgGfoAAkCAKBQZJIDiJBogqRwYjYGAZksGJFmGAogkiAgRgkIhohyfwgiOSIsGiCxkAGRBwhCRgZBYM4HGMWA+DeBJhEIBhOg+JAZEYQAaGUQhy" & _
"FYdZjEgfhKgiIQohWc4TggGRCFKGJkCkDBehmTpJiWTIWGCWRtl+CJkkcfIAhyZgphIdoLEaWZkHeHpmjkIhaggZp5HYORzCcMgCHWFIkDGQBviKZx4jQZIjkuKhFkEN" & _
"gKDCThJiAHR5kIXhykeeh2geFBGmqBBmiiaI6hQb4diiGYcF4PgqkYTJXCgApDDiCYbGmBw6hqIJZCGeo6hUBoZlgaovmOY5CkIPQsEqKoJh2J4RjQeYylkM5cm0NgMh" & _
"GegNH8JZImGE4BEeWpygiEJhiGDIGjeXATgaYgXG4SweGQGRugKOpqGSThTAQdA+hcCQuhsP5HjuVoPBkJQqhaZAXEsO52hkNYNGEcwCjmJAaCaew5HCBhOA8PpvJQDg" & _
"/iyMZmiMGYGv4dw4jGB5MlKRpwCEcwEhAKhcE4OhRisdwEhmSZHGyJwjGQTRMjcHZHmKXBUGuJxHniHwlkqXpzG8Oo+moWRKmgGRKC0BZzk2c/FmiUZkFGBohBuJQhH8" & _
"TgxjUB4ElUJwCDMRIRHuNBYhyd5WmuTJKECQYuEuCJhHWTYShQNhtm0M5zFmSpvFGbgvkgKI9DgXw8jcRwwm0GoCgEAxhoAWB0MwgQWi7EmOcMIpgnDwC4CcA4wh4gcB" & _
"+BUYYcROBPA0GkCYhw4iuCmDgEg1wWAwDmBQJwlw9ifD4OsTAcQLhDBmHQbg1gzBvCWNMegnQnhNGqHUDoXwujWHqAYLICAAAbCKDAOQ4BMD9GaFUUo2QYjzFcLcTovB" & _
"IhODuBoYoJxEBSHwP4JIrRyB5D8FcTI5x8jeEeJsco7xSC5HEG8S4DgEjnHaNQWIfRJheDaH8BgTgoB8EqFYMoFxPg/CeMUeovAMDBGKJkBgXxGgLHsH4R4QQpj7EyP8" & _
"ZI1hEChBQAggI"
	End With
	.Background(70) = &H1000000
	.Background(71) = &H2000000
	.Background(72) = &H3000000
	With .FrontFace.CreateTree
		.HasLines = 2
		.ShowSelection = False
		.DrawGridLines = -2
		.ItemPadding = 16
		With .Columns.Add("<c><b>Partial Check")
			.Alignment = 0
			.Def(0) = True
			.FormatColumn = "`Check <b>` + 1 rpos `` + '</b> ' + (state=0 ? `<off 4>(off)` : (state=1 ? `<off 4>(on)` : ``))"
			.PartialCheck = True
		End With
		.Items.Count = TreeCube1.FrontFace.FaceTree.VisibleItemsCount
		With .ItemByIndex(1)
			.Items.Count = 3
			.Expanded = True
			.State(0) = 1
		End With
		With .ItemByIndex(2)
			.Items.Count = 3
			.Expanded = True
			.Items.Item(1).State(0) = 1
		End With
	End With
	.EndUpdate 
End With
85:
How do I print the control

With TreeCube1
	With .FrontFace.CreateCalendar
		.AutoSize = 1
		.MaxMonthX = 1
		.MaxMonthY = 1
	End With
	With CreateObject("Exontrol.Print")
		.PrintExt = TreeCube1.Object
		.Preview 
	End With
End With
84:
How can I get the caption from the point

' MouseMove event - Occurs when the user moves the mouse.
Private Sub TreeCube1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With TreeCube1
		Debug.Print( .FrontFace.FaceTree.CaptionFromPoint(-1,-1) )
	End With
End Sub

With TreeCube1
	.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Chapel"
	With .FrontFace.CreateTree
		.ItemPadding = 16
		.HeaderVisible = False
		.ForeColor = RGB(255,255,255)
		.Items.ToString = "<sha \;\;0><font \;18>Place <b>A,<sha \;\;0><font \;18>Place <b>B,<sha \;\;0><font \;18>Place <b>C,<sha \;\;0><font \;18>Place " & _
"<b>D,<sha \;\;0><font \;18>Place <b>E"
	End With
End With
83:
How can I get the value from the point

' MouseMove event - Occurs when the user moves the mouse.
Private Sub TreeCube1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With TreeCube1
		Debug.Print( .FrontFace.FaceTree.ValueFromPoint(-1,-1) )
	End With
End Sub

With TreeCube1
	.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Chapel"
	With .FrontFace.CreateTree
		.ItemPadding = 16
		.HeaderVisible = False
		.ForeColor = RGB(255,255,255)
		.Items.ToString = "<sha \;\;0><font \;18>Place <b>A,<sha \;\;0><font \;18>Place <b>B,<sha \;\;0><font \;18>Place <b>C,<sha \;\;0><font \;18>Place " & _
"<b>D,<sha \;\;0><font \;18>Place <b>E"
	End With
End With
82:
How can I get the column from the point
' MouseMove event - Occurs when the user moves the mouse.
Private Sub TreeCube1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With TreeCube1
		Debug.Print( .FrontFace.FaceTree.ColumnFromPoint(-1,-1) )
	End With
End Sub

With TreeCube1
	With .FrontFace.CreateTree
		.FullRowSelect = True
		.DrawGridLines = -2
		.Columns.Add("A").FormatColumn = "0 pos `A-Z`"
		.Columns.Add("B").FormatColumn = "0 pos `B-Z`"
		.Columns.Add("C").FormatColumn = "0 pos `C-Z`"
		.Columns.Add("D").FormatColumn = "0 pos `D-Z`"
		.Items.Count = 4
	End With
End With
81:
How can I get the item from the point
' MouseMove event - Occurs when the user moves the mouse.
Private Sub TreeCube1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With TreeCube1
		Debug.Print( .FrontFace.FaceTree.ItemFromPoint(-1,-1) )
	End With
End Sub

With TreeCube1
	With .FrontFace.CreateTree
		.FullRowSelect = True
		.DrawGridLines = -2
		.Columns.Add("A").FormatColumn = "0 pos `A-Z`"
		.Columns.Add("B").FormatColumn = "0 pos `B-Z`"
		.Columns.Add("C").FormatColumn = "0 pos `C-Z`"
		.Columns.Add("D").FormatColumn = "0 pos `D-Z`"
		.Items.Count = 4
	End With
End With
80:
How can I get the value from the point (calendar's date)
' MouseMove event - Occurs when the user moves the mouse.
Private Sub TreeCube1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With TreeCube1
		Debug.Print( "Date:" )
		Debug.Print( .FrontFace.FaceCalendar.ValueFromPoint(-1,-1) )
	End With
End Sub

With TreeCube1
	With .FrontFace.CreateCalendar
		.AutoSize = 1
		.MaxMonthX = 1
		.MaxMonthY = 1
	End With
End With
79:
How can I get the date from the point (calendar's date)
' MouseMove event - Occurs when the user moves the mouse.
Private Sub TreeCube1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With TreeCube1
		Debug.Print( "Date:" )
		Debug.Print( .FrontFace.FaceCalendar.DateFromPoint(-1,-1) )
	End With
End Sub

With TreeCube1
	With .FrontFace.CreateCalendar
		.AutoSize = 1
		.MaxMonthX = 1
		.MaxMonthY = 1
	End With
End With
78:
How can I get the face from the point

' MouseMove event - Occurs when the user moves the mouse.
Private Sub TreeCube1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With TreeCube1
		Debug.Print( "Face:" )
		Debug.Print( .FaceFromPoint(-1,-1) )
	End With
End Sub

With TreeCube1
	.IdentifyFace = 1
End With
77:
Does your control support partial-check feature

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	.CheckBoxWidth = 32
	.CheckBoxHeight = 29
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAADhABQACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5B" & _
"iKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpf" & _
"baKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZ" & _
"OkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonefApC2BQglWHIKAAPx/D4FoyHgTZsAIXwYAWYR8kMR5YAAP4PmOdZ7H8X54AoDhziASAaAiAoeAecZ+CQ" & _
"IAID4GhwGEF5eBOAphHgZgbgiWQYHYB4CGICA2CSCpPnMYIjgEYZoiIFYDCGCIyCsNgKCCRgSgyHZ4FoKoNiGOJgDKDphEidg0giJEnDiDojBkFZXg+IxZCYGoLgMOQS" & _
"CmFBlCgOJZCmA4jDiCYJmSZw6FCEglheRhbA4ZZpgIV4ZCYV4+GeGhhniTghhsYAps+HBkGmTh0hmChpiId4PCSeQeHuHwnmmKhyg+aA3gYdohh2cxUhwCJNBIRZuiIX" & _
"oDGiJwOkyWR9nkPwoiKFA2G2YBznaHIlB0cxGBiAYfAONJUCgIBmlAFg6k0AhaioJ5OkMTIdi0axzEyHmEBIYJpDMCJanyDowiwQwyq0LBbB6Sowg6KwYmoMxI26GwIB" & _
"wU4Mj0GpgCOCI6BmG4mmYX4mG2a4GmCOAmhuFhfjmAALiKao5m6S4ml8bpNmKQBQgkFpzjSbg1koc44lYKQviKFp9j+TRrnsAZADALAXASQZwDwJp8xQc4uiSQ5xAwRw" & _
"SkSYhDi0ERCFAECAg"
		.Add 2,"gBFLBCJwBAEHhEJAADhABZ8MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5B" & _
"iKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpf" & _
"baKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZ" & _
"OkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePwfA6fx7n2MIkBqM4REAB5vnOQpWCeAhnjACR9B4IoEC0OQMAGSZ0H2AxHmQAA/g+Y51n6AAgCgEZLDa" & _
"ChgmCUQkACAw8g4AJgjKEgNH6IQIEmYB/mAEhCAOBYZDMZIlA2TQSEQCheAGiwKDmTBiAWYYDCCaIWBOChijiMJ/DYXx4loNINBsQBdkWDpiCidgRg+YRYFoRANCMEAu" & _
"EcXhlHiVISAMTgSlwXh1mOSISE+CZhEiKgLCiQw5FYWYaleFpQBiA4PhOSJhHMJgYD4Yx3mKn5fDYCgwkiUQkiUaRigIYhoEkZZUASTRiHAIodCSWYKCaHgmFkBh0CiA" & _
"wZn6AYhGaUhcBiEhmkoEJQCOQBTiiTQjlwGZwDOE4oncXh5hmHIzGCIgMCkah0lMJYBFeMAHiyQRqmKMomiCY5wnoPUzFyuIMmIJh2ioXJqi6Ehkg0coEC6H7zHSUgkk" & _
"CaxA42ToDmydw7GCahygODQNCIVASgoGQ7GyWAyEeaA9n2GQkAsBgGjQKBqGmwxNiKHA7HATxjiSTgzGwaY6h2J5AGOiwfFkM4UkEHQPiWQhQisD5zFyHwKimcAWgZhp" & _
"rBQAA6AyAgVleHILlucAAj+KA5joDhjg0VhOBEPpwjkBgQD+H5wh2bACBmYBBlwAQPGOKJRH0DwTHiNpHjICgSjiLYkCUGrzk4ApUFoNRJjCBxBGQTwjgCOpPBsWRnDG" & _
"K4DAiMxDlKXp3ECRpFiuKgOh8AZODKcBqH0NR9GGdA+A6YxplMdRlHmPY4DsTRig2YXfECDg2lmJAjnCeQ8meOANwYwSBXEsDUeQZxdDxDgGwbY3QjjmHiKUcIwQnBfG" & _
"ADYZowR7B6E6E4MI2g1AUAsOkFwCwOhmECC0ZYkxzhhFME4egXQThHGkPUDoPwqtkE6E8LQaQJiHDiK4KYaBCiwFwOkaYVROhqXoIcdw9BzAcCKNAZg3Qbg2BsD0cY+B" & _
"vBPEWOUfIHgziVHMOMYwWQEAACGAEZYgg7gaGKCUXQ6hoD7F2JwW5txIhPHYBQTwwQljzD6AYW4zx6h9B+F8bo9h/AfDONUZwkhziJF8FwHALBaCTAwIEG4CASDfC4Fw" & _
"AIRRHuhBAOUUwAxoAQH6C0eACgDAeAMGoGgGREDPAiKAAIVwBgYA2AUZ4QgEAOEGMANwCwIjWCIEgJIASAg=="
		.Add 3,"gBFLBCJwBAEHhEJAADhABT0MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5B" & _
"iKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpf" & _
"baKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZ" & _
"OkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePR+D6d57GESA1GcIoAA+X5fgW2oJh6QAlnMdZHlgFIogGXw3lQNB+AAA54n4PxflefgBgCXIyBIFgZmG" & _
"AYOBqAhKEgLZ5gOIQHgGfoAAkCAKBQZJIDiJBogqRwYjYGAZksGJFmGAogkiAgRgkIhohyfwgiOSIsGiCxkAGRBwhCRgZBYM4HGMWA+DeBJhEIBhOg+JAZEYQAaGUQhy" & _
"FYdZjEgfhKgiIQohWc4TggGRCFKGJkCkDBehmTpJiWTIWGCWRtl+CJkkcfIAhyZgphIdoLEaWZkHeHpmjkIhaggZp5HYORzCcMgCHWFIkDGQBviKZx4jQZIjkuKhFkEN" & _
"gKDCThJiAHR5kIXhykeeh2geFBGmqBBmiiaI6hQb4diiGYcF4PgqkYTJXCgApDDiCYbGmBw6hqIJZCGeo6hUBoZlgaovmOY5CkIPQsEqKoJh2J4RjQeYylkM5cm0NgMh" & _
"GegNH8JZImGE4BEeWpygiEJhiGDIGjeXATgaYgXG4SweGQGRugKOpqGSThTAQdA+hcCQuhsP5HjuVoPBkJQqhaZAXEsO52hkNYNGEcwCjmJAaCaew5HCBhOA8PpvJQDg" & _
"/iyMZmiMGYGv4dw4jGB5MlKRpwCEcwEhAKhcE4OhRisdwEhmSZHGyJwjGQTRMjcHZHmKXBUGuJxHniHwlkqXpzG8Oo+moWRKmgGRKC0BZzk2c/FmiUZkFGBohBuJQhH8" & _
"TgxjUB4ElUJwCDMRIRHuNBYhyd5WmuTJKECQYuEuCJhHWTYShQNhtm0M5zFmSpvFGbgvkgKI9DgXw8jcRwwm0GoCgEAxhoAWB0MwgQWi7EmOcMIpgnDwC4CcA4wh4gcB" & _
"+BUYYcROBPA0GkCYhw4iuCmDgEg1wWAwDmBQJwlw9ifD4OsTAcQLhDBmHQbg1gzBvCWNMegnQnhNGqHUDoXwujWHqAYLICAAAbCKDAOQ4BMD9GaFUUo2QYjzFcLcTovB" & _
"IhODuBoYoJxEBSHwP4JIrRyB5D8FcTI5x8jeEeJsco7xSC5HEG8S4DgEjnHaNQWIfRJheDaH8BgTgoB8EqFYMoFxPg/CeMUeovAMDBGKJkBgXxGgLHsH4R4QQpj7EyP8" & _
"ZI1hEChBQAggI"
	End With
	.Background(70) = &H1000000
	.Background(71) = &H2000000
	.Background(72) = &H3000000
	With .FrontFace.CreateTree
		.HasLines = 2
		.ShowSelection = False
		.DrawGridLines = -2
		.ItemPadding = 16
		With .Columns.Add("<c><b>Partial Check")
			.Alignment = 0
			.Def(0) = True
			.FormatColumn = "`Check <b>` + 1 rpos ``"
			.PartialCheck = True
		End With
		.Items.Count = TreeCube1.FrontFace.FaceTree.VisibleItemsCount
		With .ItemByIndex(1)
			.Items.Count = 3
			.Expanded = True
			.State(0) = 1
		End With
		With .ItemByIndex(2)
			.Items.Count = 3
			.Expanded = True
			.Items.Item(1).State(0) = 1
		End With
	End With
	.EndUpdate 
End With
76:
I am using the Items.ToString, just wondering if I can use it for multiple columns

With TreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.DrawGridLines = 0
		.HeaderVisible = False
		.Columns.Count = 4
		.Items.ToString = "1;2;3;4,5;6;7;8,9;10;11;12,13;14;15;16,17;18;29;20,21;22;23;24,25;26;27;28,29;30;31;32"
	End With
End With
75:
How can I show the item on multiple-lines

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.DrawGridLines = -2
		.ItemPadding = 12
		With .Columns.Add("<c><b>Items")
			.Alignment = 0
			.Def(16) = False
		End With
		With .Items
			.Add "Short"
			.Add "The eXTreeCube library provides fish-eye representation / cube map texturing of different components such as calendar, multiple" & _
" - columns tree view and so on. Cube map texturing is a form of environment texture mapping that uses a viewing direction (3D ve" & _
"ctor) to map into a view plane the six 2D textures arranged like the faces of a cube. "
			.Add "Short"
		End With
	End With
	.EndUpdate 
End With
74:
How can I change the visual appearance for the control's radio buttons

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	.RadioButtonWidth = 23
	.RadioButtonHeight = 23
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAADhABNoCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSF" & _
"IADRfFoWmxTdAcYSCGSZZrGOiQADIM40R7UAABPBNKR1BKmHZDQRAApqXIjVDAYIQSSBUlkHScRijDICXSIIQmbajIZoJCiVZ3VaGETnRQlJQuEgOHZwDAsBwPBqBPzi" & _
"Lp4WzmGqhR5ichYHI8RYVTKXYy3DxZW7OO4PQjQM7hHL8fwlfTuagyGpZOxjP5cdrYHw2J7NUzJeDxbhrTb6Zh7ILVX7TNIwXAdD4PIKmNryORsC4XG5pZ7oOh6Lo3G4" & _
"rhWZI2nOL4eBON4LkeRJvHWDxvB6G5Lmac56D0OY3hMU5bm6bRoiAeA9DMX5riydJ+D8P4vEeO4xkEcQfCYBZrHKXgzlme4BmCB4eAUZRbAaAZeGsDg4EYCYEmERoaBE" & _
"OJaiMIY2EIXo2FYFYHmIBp1j8OoQhcYZNDiIgIiYE4Jl2BAlj0agOmiKgyH6Xo2jECYGE8WJmDODpehgFgZEIXI3DyfoQmQSQWEaEZkgkJhKhKZA2hmSxCEyGREnSFJk" & _
"kkVhWwCCAthFKRjiIXhpiXOhihGYwJESSRCFuIxqGoPomkmDhuhWT45kSXYcl8UxdAkbgPBaMhTD0JApj4foRBoaJ5iqAxdmadhzDcWxpgIf4bhsY4Gg6GYYDcegNGUY" & _
"g6VMIsBBmNg8CmRwuCOJBgBaAgXh6JQzl6JocE+OQQn+KpqkqNouivgQiiaLJPHaMZYHwQAHHIdRrA6ep2jMbYqx2RxzmqBpajOLxOnacYPHcHZnHGOlynmbo0jSbRLF" & _
"aJoJlyNpplyKArhcGZcgMWpGjCXo4liM4ukiHpngkeJojiTZphmLIDG2Nwak2N4vEaAJsj2bpLgWFxlGGExOn4dgvHOMpxGgbwkAyaxEFCFAEICA="
		.Add 2,"gBFLBCJwBAEHhEJAADhABCEMACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSF" & _
"IADRfFoWmxTdAcYSCGSZZrGOiQADINI0R7UAABPBIMSjAamHZDQRAApqXIjVaAhySQKksg6TiMUYZAbaRBCEzbUZDNBIopUQLVU5ABbUEqBIipIrEQLHNwPBaEYZiOIY" & _
"W5re4cfzIMhyLI8Ob3CqHZhleTwTjWGYvSp1dBbTQ2QyVRanMDqOjsKxmW5Gbh5NhfHY8dxnDKcZ5jGSudrjEZ9VpmG74JzeEbjRj8chxT4PDxnBK/YDSWgdLo8VzXBp" & _
"cG2MY4maXxzFKQRxHgOQeC8H4TkuZhzHoNR9kaXpNnONZsGGMo9B4A5bmuFZ7n4Pw/i+XpFmSVB/mAB41hsQJfBYOJXgGXAHm4CoCmCtYAHqXRWBGWB/F2Z5UnaAxZFO" & _
"aJ2DuTpzHCOQ5gwcg8veDBjlCaA0mGBg6BYapcEONZiHYHADg4MoKE+U4QkEIINAISAig4Y44moPIPA4EpoHSBoOngNgyDiW5jCGShCF+VouA2EQNhKHBMg+Y5pFYPYV" & _
"mOQxYiAD4kEgNZRHSTokCWax4A4KA2DaDglGkUhYhoZRph4DYZB6NAllEbwOmgKhEhqJ4JjIa4ek8c48mGAoflcAQJhITxaBYCoHEuGZmHuIooioIgKgWJIUCWXh4hkN" & _
"hImkM4JloMh6iaJRzhySAkCkVhFhUd4QhMJomD0KtvBCCJMGocouh6KIKiifoKlodAmAAOgrgYVoVD7Y5AlMJhDAqPoLh6D4DkCYosicSoYkkQhcmMapOD6LQKkqHgkC" & _
"wKhwmILpHFqSJ7jaTZbHYBw1lCFwwnEcAqgOUoUGSa5DxkLQGHsVhWhQRJKkmFYkBuaI1lgdBtlMdZKi6LoKnSZQwggOp+kGJpjiufIDiyGQXCiYZCmyJxeAQYQi0YYI" & _
"+lieoqmmKwpHIdoskIGQGFWSg8DIBx6GCQ4AAYXhHjlo5fCqNpPjYRJ/kucwMkcMpM9GMwqk2Tx3AGa4AnIVpkm2N5cAgcJvk2XIsjGeYlF53hKk2dAnEGJR7nCdxlgY" & _
"c4ajmEplk4NYNGcWpKiYRx5k4dYhC0RxggsTpXAGQA3jaBoEmuUIuFuCo4DoNoDHqShwCKXYPCSXYzmOMx6lwOwZoawrgkE0HwBY1xegdE2MMWQhBOhoEUBIQAgCAgA=" & _
"="
	End With
	.Background(73) = &H1000000
	.Background(74) = &H2000000
	With .FrontFace.CreateTree
		.ShowSelection = False
		.DrawGridLines = -2
		.ItemPadding = 12
		With .Columns.Add("<c><b>Radio")
			.Alignment = 0
			.Def(1) = True
		End With
		.Items.ToString = "Radio 1,Radio 2,Radio 3,Radio 4"
		.ItemByIndex(1).State(0) = 1
	End With
	.EndUpdate 
End With
73:
How can I change the visual appearance for the control's check boxes (6)

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	.CheckBoxWidth = 16
	.CheckBoxHeight = 16
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAADhABKMGACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSF" & _
"IACxfFoWRrnaA5QoGM4EDTRYADCKsaQ/J0LcI1FLUEyUf6sAArB74XiCIAIQiUBomGahajkMoYZAAaDCCI2a4aDZCIoVHalKgxC5oKSqCJqbptMZ/HrgJQYGRuC4NQ7C" & _
"cDKDATbr9MZ9ZBCNZoPimEYtS7MMLyRB8QpyAytaBhRaaGwmSr3U7Oc50d69FYTIxcYZoCq1XBOGYMZLcNR3La9YYnBqMbRAeJYNped6NSDVcKxLgaa4fTrOZZzHL9Hp" & _
"viMWYBnWOr+kwJ4zlqY53CAZQ/B4GZzmab5qHyT4cDeDInkwPp8DCTI/h+Iw7nMZZhj4B5eGKL57gYGAgAadZoG8soBgYfxKjcSRYCCYJGGYDoDmCQgNh0ZIZAaSB2gW" & _
"YJ2F4FwdhsJpuBQfRiAWdQJDqUQUCUASAgA=="
		.Add 2,"gBFLBCJwBAEHhEJAADhABV0GACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSF" & _
"IACxfFoWRrnaA5QoGM4EDTRYADCKsaQ/J0LcI1FLUEyUf6sAArB74XiCIAIQiUBomGahajkMoYZAAaDCCI2a4aDZCIoVHalKgxC5oKSqCJqbptMZ/HrgJQYGRuC4NQ7C" & _
"cDKDATbr9MZ9ZBCNZoPimEYtS7MMLQXK8QpyAytaBhRaaGwmSr3U7Oc50d69FYQXqvYZoCq1XBOGYMZLcNR3La9YYnBqMbRAeJYNpedy2YbkFC5LStHwbCrBVpxWotDx" & _
"QjWVgrHYGI9iybhbiGUo+jafA6DKZxjkoVgxHoHR+iqXx2jMA52l8XJ/CMJ5TkaCp7nmOwHk+XovmECR8BWMYyAIHAgEOBgGFaSo4CWeQVgoSA0lOA5fEGEZQBSYRGBi" & _
"eYFlWMhiBoPZhkabI3geYIzDYIoHA8dxAH2CZYGMLgqHeW4zAYLgWCMB4gGIeoOjcQgJCqWBhgIOhvGKRhAn2D5blcWBaB+JBGi2EhWAgOQlhmEpYgiHB9DwJQCloUgW" & _
"mUQoOFaEZXlaSB2haZJGF4WwdhsJRslmGJGDmFhYg8ZoHBiZYalCE4tBEQhQBAgI="
	End With
	.Background(70) = &H1000000
	.Background(71) = &H2000000
	With .FrontFace.CreateTree
		.ShowSelection = False
		.DrawGridLines = -2
		.ItemPadding = 16
		With .Columns.Add("<c><b>Check")
			.Alignment = 0
			.Def(0) = True
		End With
		.Items.ToString = "Check A,Check B,Check C,Check D"
		.ItemByIndex(1).State(0) = 1
	End With
	.EndUpdate 
End With
72:
How can I change the visual appearance for the control's check boxes (5)

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	.CheckBoxWidth = 24
	.CheckBoxHeight = 24
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAADhABO8GACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSF" & _
"IADRfFoWmxTdAcYSCGSZZrGOiQADIM40R7UAABPBNKR1DZ+KxAB76cheIIgAhCJQGSYZaDqOQyRhkBTqEIITZsRoNUIiRStayuDCLTwoSooXayfjHYAwOBYHgmC4NQ7E" & _
"MRxLAmOw1ZKPQjgDDvDilM4tS7MMxzLK8cx3FjqaAyWhQTgePZNU7UNLwPRMCb3LqvbBsOxbHqma5tWjVYDwPZ9cz3Pq9biAG57fwnC59YLheK5Li9Q4jLbMdByXLMDx" & _
"HiuRJpnWOw7k6RxrjuM5pj+PA+C8H4TkuZpznoPQ+H8B4rlubp3nsfYfA+H5Tl2cp6n4Pw+C+P5rnucx/B+aAFmqAAgCgFZlHSVZICYCoCmCSA2A6A5hAgPZTGWIQYFY" & _
"FoFmCVsjj2YZIHYHoHmICIGCKCJiEiCZBGMTJjiIKoJGKSI2C6CBOjiRYSEITp4lWIgyhiOJmDqDpYHiIYgDqEITi0ERCFAECAg=="
		.Add 2,"gBFLBCJwBAEHhEJAADhABA4Cg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSF" & _
"IADRfFoWmxTdAcYSCGSZZrGOiQADIM40R7UAABPBNKR1DZ+KxAB76cheIIgAhCJQGSYZaDqOQyRhkBTqEIITZsRoNUIiRStayuDCLTwoSooXayfjHYAwOBYHgmC4NQ7E" & _
"MRxLAmOw1ZKPQjgDDvDilM4tS7MMxzLK8cx3FjqaAyWhQTgePZNU7UNLwPRMCb3LqvbBsOxbHqma5tWjVYDwPZ9cz3Pq9biAG57fq7ZLEYziOR4Hg+JzFbDVKq0aYjA5" & _
"RlCU5mm8OR6l6Q53pqaAkgQXgBBMeRmGabhtjsTAeGuaZsm+aQMDwfwvAuJYch2dBsj0XJWkqHIZnMCIOEMBICHiXwHFWVx+A+V5pj4eRGGefJvDcC4WjyXArEWF4OAy" & _
"AgghYCYsDAT5oHYHoHmGU5sncPANGKAA+HiXJyi4IA/g8U4klQfAeDeVIdgqYxIlWaoNGMQ5gnAOIOHMIIQg4IZonSEIBB0OIInCEAjGgaY6GCJIJDYQIRiEOBVmEN5L" & _
"EGHhOggIx5F4WoKmKWI9lOCgdAkahZhaZhIH4QoRAMCQaE2GJmFmFhQgUJQZgoShwiSSY2HaBxllmFZqFcJ5JnYfofmgCgGgKIJoCeKYWiEKIKCaCogBqd4oneI5pAoR" & _
"oSiSaRKFaFolmkVwFg0M4OgodoYieagKgaFA6moRhJAkO5qgaCJKGKapKjaLhhmmNoAmoQhOjQRQJEAQCAg=="
	End With
	.Background(70) = &H1000000
	.Background(71) = &H2000000
	With .FrontFace.CreateTree
		.ShowSelection = False
		.DrawGridLines = -2
		.ItemPadding = 16
		With .Columns.Add("<c><b>Check")
			.Alignment = 0
			.Def(0) = True
		End With
		.Items.ToString = "Check A,Check B,Check C,Check D"
		.ItemByIndex(1).State(0) = 1
	End With
	.EndUpdate 
End With
71:
How can I change the visual appearance for the control's check boxes (4)

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	.CheckBoxWidth = 32
	.CheckBoxHeight = 32
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAADhABfICg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRijDIAbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" & _
"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" & _
"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" & _
"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" & _
"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" & _
"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" & _
"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" & _
"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ=="
		.Add 2,"gBFLBCJwBAEHhEJAADhABcoFg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRijDIAbAZAYhCZqaKhWgkKI/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+QvhrHoHERggR4A2GKMQH4FwBD0CgAgAAkAFhAEwEYAoYAiBeEUBEAYEBRI8EUCIcAVAEDQG0PcZYIBVgSHEAEGojB4j1AeFkHQ+wsBDBQGQTwy" & _
"BdDREMAwNAjQhh+BoMYZA1wNhjEIG8QwwROAmEGCgBQCBgBQHKBoUYDQqiNEGNgGgowQjZA0MMHAZwWBgGsD4I4QBqAfDGJAMgrhAiRBGKQQgPRJAyB8EkJIWQUglGOB" & _
"gZYFgGBYAIDsACmRgjgH0B4EYnQljIBiJwOwRh8DZA2CIGAOwDhRGEDQQwLAulGACJwZYOQ2gtDKMQWglwpDeC6AoUIJgPBiGAAACgggoBDAUPEHgJwShIGwDsEYtBnA" & _
"JHiBoEQxRgCqAoCkeAbBUAhE2C8EwxBcibBkO0TgjxQjIBkIMIATwDCuGAB0QQEAJAtEKDgUQHgBi0DsJ0SI9AygkAwM0KQ4wIBcAUOEfQPRDgSB8BoZIrg1jNFSP0G4" & _
"KACCzA4GMHgWqnjwHYAMDATgDhDHYMATokhpA9AaEAYoFwhDkHmAcHIogUBHAANsDIpR+B0EoEEbIRxUgAH+KMegihIDSB0E2X44BNgRFmAEZINhYhYBQIQYoDgUCFHs" & _
"IgG1hQZhmDgIwCIoRwA7CQGMdYTxniVCAD4OQGhOiHDAJ4BowQSAFAIIAGAcxHBBGGEwRYVB3gfBmDAOoURIi0BsAYQA0KlA0DMA0IImQrhqH6F4VgFRHCxCtLYKwxgy" & _
"hYYGFgNYjQQidCCICllpJUjVAUOwLwxQ2gwEwDUcwmBrh6H4F4BY6A02kAaNjMYYADBrH6IkF4FVPiDGgEgAYWwkUIGAGIYoWQpDuDkMUVARwCjgDMMMAIoRBAuAKIkN" & _
"gHQyBEEIJACBAQA=="
		.Add 3,"gBFLBCJwBAEHhEJAADhABQ4Fg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRijDIAbAZAYhCZqaKhWgkKI/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" & _
"QuFFBaDOASPcAALgChUDyB4cYtgiiOEyCcEopRCCvEsFIKomQEjnB4L8YgQBfgWEEMgPADhojaDsEcaIlBFiDBqEcRgQQ4ArEOPAfYQhUjmCsMsHIYwShmDmAoDYsRqj" & _
"xAUAkHwPwDjYH2DsEopA9AaECIoFwhRkjmAcHIUAUBHABFsDMJY+B0goEGLIOozhoj/B2CcPg7hPATGdduAALgiiEBsBkd4Fg2iUCEPsG4RxKDDEoMIGARhDiAHaBcZ4" & _
"rbeBUBQPkYo+gFAdE+AwKAEQhjGEUE8aQ1QYBQFCJwTgww1BDEaAEVQMwjBgGoBkSghhIjSBUEkJI6QagpFIHQPgZgojaBsDgIw8BvBgHYAG3QeAUhFFSMQfonwxg2D6" & _
"E8ZQcwnjLG6DYCgjoAitB0IEKIyxigUA8DQZoq5tgiBICoIoUQXDjDgG4BouhFZdBQJEDYQw0BsEsMEawRAkBJACQEA=="
	End With
	.Background(70) = &H1000000
	.Background(71) = &H2000000
	.Background(72) = &H3000000
	With .FrontFace.CreateTree
		.ShowSelection = False
		.DrawGridLines = -2
		.ItemPadding = 16
		With .Columns.Add("<c><b>Check")
			.Alignment = 0
			.Def(0) = True
		End With
		.Items.ToString = "Check A,Check B,Check C,Check D"
		.ItemByIndex(1).State(0) = 1
	End With
	.EndUpdate 
End With
70:
How can I change the visual appearance for the control's check boxes (3)

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	.CheckBoxWidth = 32
	.CheckBoxHeight = 29
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAADhABQACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5B" & _
"iKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpf" & _
"baKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZ" & _
"OkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonefApC2BQglWHIKAAPx/D4FoyHgTZsAIXwYAWYR8kMR5YAAP4PmOdZ7H8X54AoDhziASAaAiAoeAecZ+CQ" & _
"IAID4GhwGEF5eBOAphHgZgbgiWQYHYB4CGICA2CSCpPnMYIjgEYZoiIFYDCGCIyCsNgKCCRgSgyHZ4FoKoNiGOJgDKDphEidg0giJEnDiDojBkFZXg+IxZCYGoLgMOQS" & _
"CmFBlCgOJZCmA4jDiCYJmSZw6FCEglheRhbA4ZZpgIV4ZCYV4+GeGhhniTghhsYAps+HBkGmTh0hmChpiId4PCSeQeHuHwnmmKhyg+aA3gYdohh2cxUhwCJNBIRZuiIX" & _
"oDGiJwOkyWR9nkPwoiKFA2G2YBznaHIlB0cxGBiAYfAONJUCgIBmlAFg6k0AhaioJ5OkMTIdi0axzEyHmEBIYJpDMCJanyDowiwQwyq0LBbB6Sowg6KwYmoMxI26GwIB" & _
"wU4Mj0GpgCOCI6BmG4mmYX4mG2a4GmCOAmhuFhfjmAALiKao5m6S4ml8bpNmKQBQgkFpzjSbg1koc44lYKQviKFp9j+TRrnsAZADALAXASQZwDwJp8xQc4uiSQ5xAwRw" & _
"SkSYhDi0ERCFAECAg"
		.Add 2,"gBFLBCJwBAEHhEJAADhABZ8MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5B" & _
"iKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpf" & _
"baKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZ" & _
"OkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePwfA6fx7n2MIkBqM4REAB5vnOQpWCeAhnjACR9B4IoEC0OQMAGSZ0H2AxHmQAA/g+Y51n6AAgCgEZLDa" & _
"ChgmCUQkACAw8g4AJgjKEgNH6IQIEmYB/mAEhCAOBYZDMZIlA2TQSEQCheAGiwKDmTBiAWYYDCCaIWBOChijiMJ/DYXx4loNINBsQBdkWDpiCidgRg+YRYFoRANCMEAu" & _
"EcXhlHiVISAMTgSlwXh1mOSISE+CZhEiKgLCiQw5FYWYaleFpQBiA4PhOSJhHMJgYD4Yx3mKn5fDYCgwkiUQkiUaRigIYhoEkZZUASTRiHAIodCSWYKCaHgmFkBh0CiA" & _
"wZn6AYhGaUhcBiEhmkoEJQCOQBTiiTQjlwGZwDOE4oncXh5hmHIzGCIgMCkah0lMJYBFeMAHiyQRqmKMomiCY5wnoPUzFyuIMmIJh2ioXJqi6Ehkg0coEC6H7zHSUgkk" & _
"CaxA42ToDmydw7GCahygODQNCIVASgoGQ7GyWAyEeaA9n2GQkAsBgGjQKBqGmwxNiKHA7HATxjiSTgzGwaY6h2J5AGOiwfFkM4UkEHQPiWQhQisD5zFyHwKimcAWgZhp" & _
"rBQAA6AyAgVleHILlucAAj+KA5joDhjg0VhOBEPpwjkBgQD+H5wh2bACBmYBBlwAQPGOKJRH0DwTHiNpHjICgSjiLYkCUGrzk4ApUFoNRJjCBxBGQTwjgCOpPBsWRnDG" & _
"K4DAiMxDlKXp3ECRpFiuKgOh8AZODKcBqH0NR9GGdA+A6YxplMdRlHmPY4DsTRig2YXfECDg2lmJAjnCeQ8meOANwYwSBXEsDUeQZxdDxDgGwbY3QjjmHiKUcIwQnBfG" & _
"ADYZowR7B6E6E4MI2g1AUAsOkFwCwOhmECC0ZYkxzhhFME4egXQThHGkPUDoPwqtkE6E8LQaQJiHDiK4KYaBCiwFwOkaYVROhqXoIcdw9BzAcCKNAZg3Qbg2BsD0cY+B" & _
"vBPEWOUfIHgziVHMOMYwWQEAACGAEZYgg7gaGKCUXQ6hoD7F2JwW5txIhPHYBQTwwQljzD6AYW4zx6h9B+F8bo9h/AfDONUZwkhziJF8FwHALBaCTAwIEG4CASDfC4Fw" & _
"AIRRHuhBAOUUwAxoAQH6C0eACgDAeAMGoGgGREDPAiKAAIVwBgYA2AUZ4QgEAOEGMANwCwIjWCIEgJIASAg=="
		.Add 3,"gBFLBCJwBAEHhEJAADhABT0MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5B" & _
"iKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpf" & _
"baKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZ" & _
"OkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePR+D6d57GESA1GcIoAA+X5fgW2oJh6QAlnMdZHlgFIogGXw3lQNB+AAA54n4PxflefgBgCXIyBIFgZmG" & _
"AYOBqAhKEgLZ5gOIQHgGfoAAkCAKBQZJIDiJBogqRwYjYGAZksGJFmGAogkiAgRgkIhohyfwgiOSIsGiCxkAGRBwhCRgZBYM4HGMWA+DeBJhEIBhOg+JAZEYQAaGUQhy" & _
"FYdZjEgfhKgiIQohWc4TggGRCFKGJkCkDBehmTpJiWTIWGCWRtl+CJkkcfIAhyZgphIdoLEaWZkHeHpmjkIhaggZp5HYORzCcMgCHWFIkDGQBviKZx4jQZIjkuKhFkEN" & _
"gKDCThJiAHR5kIXhykeeh2geFBGmqBBmiiaI6hQb4diiGYcF4PgqkYTJXCgApDDiCYbGmBw6hqIJZCGeo6hUBoZlgaovmOY5CkIPQsEqKoJh2J4RjQeYylkM5cm0NgMh" & _
"GegNH8JZImGE4BEeWpygiEJhiGDIGjeXATgaYgXG4SweGQGRugKOpqGSThTAQdA+hcCQuhsP5HjuVoPBkJQqhaZAXEsO52hkNYNGEcwCjmJAaCaew5HCBhOA8PpvJQDg" & _
"/iyMZmiMGYGv4dw4jGB5MlKRpwCEcwEhAKhcE4OhRisdwEhmSZHGyJwjGQTRMjcHZHmKXBUGuJxHniHwlkqXpzG8Oo+moWRKmgGRKC0BZzk2c/FmiUZkFGBohBuJQhH8" & _
"TgxjUB4ElUJwCDMRIRHuNBYhyd5WmuTJKECQYuEuCJhHWTYShQNhtm0M5zFmSpvFGbgvkgKI9DgXw8jcRwwm0GoCgEAxhoAWB0MwgQWi7EmOcMIpgnDwC4CcA4wh4gcB" & _
"+BUYYcROBPA0GkCYhw4iuCmDgEg1wWAwDmBQJwlw9ifD4OsTAcQLhDBmHQbg1gzBvCWNMegnQnhNGqHUDoXwujWHqAYLICAAAbCKDAOQ4BMD9GaFUUo2QYjzFcLcTovB" & _
"IhODuBoYoJxEBSHwP4JIrRyB5D8FcTI5x8jeEeJsco7xSC5HEG8S4DgEjnHaNQWIfRJheDaH8BgTgoB8EqFYMoFxPg/CeMUeovAMDBGKJkBgXxGgLHsH4R4QQpj7EyP8" & _
"ZI1hEChBQAggI"
	End With
	.Background(70) = &H1000000
	.Background(71) = &H2000000
	.Background(72) = &H3000000
	With .FrontFace.CreateTree
		.ShowSelection = False
		.DrawGridLines = -2
		.ItemPadding = 16
		With .Columns.Add("<c><b>Check")
			.Alignment = 0
			.Def(0) = True
		End With
		.Items.ToString = "Check A,Check B,Check C,Check D"
		.ItemByIndex(1).State(0) = 1
	End With
	.EndUpdate 
End With
69:
How can I change the visual appearance for the control's check boxes (2)

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	.CheckBoxWidth = 44
	.CheckBoxHeight = 20
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAADhABJACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIxDFIsBxPFKCQChEZBUjKAwyDBIUzSD" & _
"IUBhZBIKI7hGa3NBwJAAUTRch0j4iCRQGiYZyHKcxMYgIYCUBkERtMw0GyERQhGb4DoGA4IBhFZQVVLsRBIDh2bbuG4LSrWdJ3OyaN5EbbgZz9P7AMBwLA8EwXBqHYIU" & _
"GJGbhlbTnR7HMhvDIsPDnFqIZhmOZZXjlfh7T7KNByO6LcI3AiDagtWpNTpjf5dV7YNh2LY9UzXNq3bI1W5aUqyAZ9QQpeB0LILYDbRp/FzyO5NNrHG6dZ7oOh1doOUI" & _
"tlaP5lgcPA7hEJ47H8SD0l4LwfhOSJ9nOIh9DefBREMKYMDaX59nsVhvlKdBpCGfgIl+L43lGG5lH+YAGlWZw/EYOAVH8ZQXncdBJDwIJGkiGYDlmUh2BKABhEgVJpgW" & _
"X4BA4BxcAeWB1H8KJiAaSJJgiWZWAmVA0CEWIln8JYikWfZpCIXARE0fw3GMRpJnaCRYBGWg6gqI5HgoJxfkYCQFlkX5PhkFYyBAJIImGABpGOWQ1k8OxlAWfZ6BGJA1" & _
"noRQ+GQeQmEoX4kkkOheG2JQDjYUh+iMGJODUbBjHkbAzg6BxpH4bhsmOdZ6EEGAbmIAR/gSCZWkmfYShwYJYlOH5mnoBYvCSaBFnyDYhlcKAll2AwPAaSggCiWZaD6A" & _
"ogiEc4mBmBpYnePZxGMHw3lUeoGGUN5aH8NJpDoBgDgERg6GGFICh2d4GiWK5cngDgvHqWInG0cIfFyBwpjqLArkcTZVHWV5nGaNhxA6VoVicahajaNo9gUHI2nIdRwB" & _
"wJoOkSMJlFmKpWjWWY2HwPYwm2SxJHIe5sGsYpiGcXpHj6XYxA6NBFAkQBAIC"
		.Add 2,"gBFLBCJwBAEHhEJAADhABB4Cg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIxDFIsBxPFKCQChEZBUjKAwyDBIUzSD" & _
"IUBhZBIKI7hGa3NBwJAAUTRch0j4iCRQGiYZyHKcxMYgIYCUBkERtMw0GyERQhGb4DoGA4IBhFZQVVLsRBIDh2bbuG4LSrWdJ3Oy3KKiQy5cABPq/b6wDA8CwXAaHYRi" & _
"GDYThmF4dRQAG6RcTLWrPFqVZheGYua4CLBxRrINA0LD9DyHJKnaZkDgpUQGN5dTS4GwPQCN3xRWzUyBaQzJfAZV7Lbw3PadX4XRLHcLwfAXFqWaaNZLneh5DouDz3P5" & _
"YMuaRBicQ4nl6bpuBwKYRnuUY2jsfg9B0b43hOH5KjucQPnwOpMi+A4pnab5qB0a4znuf57n4f5gAeeJqC4R42mEcg5AoIRBnUfggkgLJiCaRA4AYEoEl+Y4AhcDpaFO" & _
"GIrBgDYyBwHICmIB5djge4hEilY8g0MotiUZICkMYB6AEIgYDYIh0g+Q5cm+CYjgOfJ6DuDZ2hSWggkESI6DCDJjCkFZDg0Yx4mYJYOmOVoiD8BQhlgfhEgwZRGBoJIS" & _
"y0IgqGoIpDhCJAVCUWQaFMY5fAkYgBD+D5TmyYAlENPBnCsRhFkoYYcmYMAAmkLRHDmGZ9h2Rw4BkeBnFmeZWHSGIYHeQZuHoHonjGboamaVwYmIJwEEYbZNiCaRKAmd" & _
"x1hyNZChWIQpjcKZYHAKQ6FqHIoh0Vp6hkcBqgoAodikKgmi2LYnmsCohkAXoXkqMojgMIpKh2Gw6lEFAlAEgIA=="
	End With
	.Background(70) = &H1000000
	.Background(71) = &H2000000
	With .FrontFace.CreateTree
		.ShowSelection = False
		.DrawGridLines = -2
		.ItemPadding = 16
		With .Columns.Add("<c><b>Check")
			.Alignment = 0
			.Def(0) = True
		End With
		.Items.ToString = "Check A,Check B,Check C,Check D"
		.ItemByIndex(1).State(0) = 1
	End With
	.EndUpdate 
End With
68:
How can I change the visual appearance for the control's check boxes (1)

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	.CheckBoxWidth = 37
	.CheckBoxHeight = 15
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAADhABOkGACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjQAsTRQFocAChEYxXjKBA1SJNUgyj" & _
"6WCQPR7CM5OaDgSABIijJDoGAwIgkUBpGKdBynEYoYxAYySQAIIjaYhoNoJChCM7QHQEBwQDCLUgrGbIbCQHDtW5cFr3DaLEzsXi8FwvK67cr2fp/YBgOBYHbdcJ5Oxk" & _
"bouPC7Sa0AKKYywGRNFijV4se7MHzzLKHXxZa6UNJhGhaHomCYkYDILhxfDMGx7GqvbBsOxPXj2DZLW7cNIyDS3NyfLqzcBwOZZdrPC6NPzTdSuHQOC43Tqgcb0PDaVg" & _
"hmOVpnHYOAcE6FxzEuCAAGGOw+C2HhzjuZpRGGAAXj8H4zGWZ53mEPAXgyZ43kWZZ4H4L4ehwRp/muTh2l+F5ll8cpZEeeZYHQIEZEoW5MBgNZ9gGGpzioEoCF+GA0kG" & _
"ApYlYnY6iAaBtjaBQfAabYpgMIJWgIGx9BmNhiBsNBikiAZwgWIg2DoMRkAyKJWB+C4fAYGg1DKIw2DAAA6lEFAlAEgI="
		.Add 2,"gBFLBCJwBAEHhEJAADhABC4Cg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjQAsTRQFocAChEYxXjKBA1SJNUgyj" & _
"6WCQPR7CM5OaDgSABIijJDoGAwIgkUBpGKdBynEYoYxAYySQAIIjaYhoNoJChCM7QHQEBwQDCLUgrGbIbCQHDtW5cFr3DaLKI0J5kUBENhjaBafJ+XzfeBYDgmAYNQbD" & _
"cJxDC8KwWeQjXYTdyXHilZLaADJcqZVChSwzCafZ5oOK6Bodfq0VY2HabNgnYbNbT7bBrLq6UwWTjZTYZMxuHKMVyLJK/b5wOi3axKBBJWjYOR5Li+MbvNLFCRmO6Obp" & _
"jgWHxsCiS5vleW5dkCOBBHWPA4F4Rw3kuZpYG0NwbjuD4LAyWhUho9BnmueZ4nof5+BwS40E+Nx9jYeaKAWNhulkF41m8fBfDOVJoDWDJCCALw7g0cphngP5OEMBISH8" & _
"Wg3hI05ckaUYRAAGL8H4PpPgOVJnDUTIiBAKRfkwcZ0BuBAhCeYgVgWXA3AEfRsiGSJlkobIYnAAgYAWDJyEQPgyAgAIFh6CxBjOMJUCyrQckcJxjniahSHMF54gGRoP" & _
"l4EZsBgOpNAKMhNDGSZnjYOIUmGRo0mwdAAAgFg1hYGIpGiagzgqE5onMOoelgahkgAIZll2U4bCMaZ2AYagnHgbgDFuXQ2GwM4fCiCYtmMapoBgdJaDAaBni2PYiifS" & _
"R8HQDpqD6AYmEwFxBlIboWnoGoJiUahGHmNonCYZwmGaJwNiKKBriQWRaEmFooA6UxQhsFAdAqDo6iViJYFCLQdCOLQREIUAQICA="
	End With
	.Background(70) = &H1000000
	.Background(71) = &H2000000
	With .FrontFace.CreateTree
		.ShowSelection = False
		.DrawGridLines = -2
		.ItemPadding = 12
		With .Columns.Add("<c><b>Check")
			.Alignment = 0
			.Def(0) = True
		End With
		.Items.ToString = "Check A,Check B,Check C,Check D"
		.ItemByIndex(1).State(0) = 1
	End With
	.EndUpdate 
End With
67:
How can I display an item to fit the control's width

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.HasLines = 2
		.ItemPadding = 10
		.DrawGridLines = -2
		.Columns.Add("<c>Default").Alignment = 0
		With .Columns.Add("Pos")
			.Position = 0
			.Alignment = 0
			.FormatColumn = "1 rpos ``"
			.Width = 24
		End With
		With .Columns.Add("Pos")
			.Alignment = 0
			.FormatColumn = "1 rpos ``"
			.Width = 24
		End With
		With .Items
			With .Add("<r>Root 1")
				.Bold = True
				.Divider = 0
				.BackColor = RGB(240,240,240)
				.Selectable = False
				With .Items
					.Add "Child 1"
					.Add "Child 2"
					.Add "Child 3"
				End With
			End With
			With .Add("<r>Root 2")
				.Bold = True
				.Divider = 0
				.BackColor = RGB(240,240,240)
				.Selectable = False
				With .Items
					.Add "Child 1"
					.Add "Child 2"
					.Add "Child 3"
				End With
			End With
			.ExpandAll 
		End With
	End With
	.EndUpdate 
End With
66:
Is it possible to prevent showing the selecting item ( hide )
With TreeCube1
	.BeginUpdate 
	.CheckBoxWidth = 32
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.ShowSelection = False
		.DrawGridLines = -2
		.ItemPadding = 10
		With .Columns.Add("<c><b>Check")
			.Alignment = 0
			.Def(0) = True
		End With
		.Items.ToString = "Item A,Item B,Item C,Item D"
		.ItemByIndex(1).State(0) = 1
	End With
	.EndUpdate 
End With
65:
Is it possible to provide a few radio-buttons only, not for entire column

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.ShowSelection = False
		.DrawGridLines = -2
		.ItemPadding = 10
		With .Columns.Add("<c><b>Def")
			.Alignment = 0
			.Def(48) = 4
		End With
		With .Items
			.Add "Item 1"
			With .Add("Radio 1")
				.HasRadioButton(0) = True
				.RadioGroup(0) = 1234
			End With
			With .Add("Radio 2")
				.HasRadioButton(0) = True
				.RadioGroup(0) = 1234
				.State(0) = True
			End With
			With .Add("Radio 3")
				.HasRadioButton(0) = True
				.RadioGroup(0) = 1234
			End With
			.Add "Item 1"
		End With
	End With
	.EndUpdate 
End With
64:
Is it possible to provide a few check box only, not for entire column

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.ShowSelection = False
		.DrawGridLines = -2
		.ItemPadding = 10
		With .Columns.Add("<c><b>Def")
			.Alignment = 0
			.Def(48) = 4
		End With
		With .Items
			.Add "Item 1"
			.Add("Check 1").HasCheckBox(0) = True
			With .Add("Check 2")
				.HasCheckBox(0) = True
				.State(0) = 1
			End With
			.Add "Item 1"
		End With
	End With
	.EndUpdate 
End With
63:
How can I show radio-buttons for the entire column

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.ShowSelection = False
		.DrawGridLines = -2
		.ItemPadding = 10
		With .Columns.Add("<c><b>Radio")
			.Alignment = 0
			.Def(1) = True
		End With
		.Items.ToString = "Item A,Item B,Item C,Item D"
		.ItemByIndex(1).State(0) = 1
	End With
	.EndUpdate 
End With
62:
How can I show check-boxes for the entire column

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.ShowSelection = False
		.DrawGridLines = -2
		.ItemPadding = 10
		With .Columns.Add("<c><b>Check")
			.Alignment = 0
			.Def(0) = True
		End With
		.Items.ToString = "Item A,Item B,Item C,Item D"
		.ItemByIndex(1).State(0) = 1
	End With
	.EndUpdate 
End With
61:
How do I select programmatically a value in the calendar

With TreeCube1
	.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Chapel"
	.Background(21) = RGB(1,0,0)
	With .FrontFace.CreateCalendar
		.ForeColor = RGB(255,255,255)
		.NonworkingDays = 0
		.Value = #12/31/2016#
	End With
End With
60:
How do I select programmatically a caption in the list

With TreeCube1
	.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\JapanGarden"
	With .FrontFace.CreateTree
		.ItemPadding = 40
		.HeaderVisible = False
		.ForeColor = RGB(255,255,255)
		.Items.ToString = ",<sha \;\;0><font \;18>Garden <b>A,<sha \;\;0><font \;18>Garden <b>B,<sha \;\;0><font \;18>Garden <b>C,"
		.Caption = "Garden B"
	End With
End With
59:
How do I select programmatically a value in the list

With TreeCube1
	.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\JapanGarden"
	With .FrontFace.CreateTree
		.ItemPadding = 40
		.HeaderVisible = False
		.ForeColor = RGB(255,255,255)
		.Items.ToString = ",<sha \;\;0><font \;18>Garden <b>A,<sha \;\;0><font \;18>Garden <b>B,<sha \;\;0><font \;18>Garden <b>C,"
		.Value = "<sha ;;0><font ;18>Garden <b>B"
	End With
End With
58:
How can I show solid lines instead

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	.HasButtons = 1
	With .FrontFace.CreateTree
		.ItemPadding = 10
		.HeaderVisible = False
		.HasLines = 1
		.LinesAtRoot = 2
		.GridLineStyle = 48
		.DrawGridLines = -1
		.Columns.Add("").Alignment = 0
		With .Columns.Add("")
			.Alignment = 2
			.FormatColumn = "lower(%0) right 1"
		End With
		With .Items
			With .Add("Root <b>1")
				With .Items
					.Add "Child 1"
					.Add "Child 2"
					.Add "Child 3"
				End With
				.Expanded = True
			End With
			With .Add("Root <b>2").Items
				.Add "Child 1"
				.Add "Child 2"
				.Add "Child 3"
			End With
		End With
	End With
	.EndUpdate 
End With
57:
How can I select the entire item rather than the column only

With TreeCube1
	.BeginUpdate 
	With .FrontFace.CreateTree
		.FullRowSelect = True
		.Columns.Count = 3
		With .Columns.Item(0)
			.Caption = "<b><c>Pos"
			.Alignment = 0
			.FormatColumn = "0 pos ``"
			.Width = 64
		End With
		.Items.Count = TreeCube1.FrontFace.FaceTree.VisibleItemsCount
		.SelectItem = 1
	End With
	.EnsureVisibleFace 0
	.EndUpdate 
End With
56:
How can I change the visual appearance of the control's header bar

With TreeCube1
	.BeginUpdate 
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	With .FrontFace.CreateTree
		.BackColorHeader = &H1000000
		.Columns.Count = 5
	End With
	.EnsureVisibleFace 0
	.EndUpdate 
End With
55:
How can I add multiple-columns, so the horizontal scroll bar is displayed

With TreeCube1
	.BeginUpdate 
	With .FrontFace.CreateTree
		.ColumnAutoResize = False
		.Columns.Count = 20
	End With
	.EnsureVisibleFace 0
	.EndUpdate 
End With
54:
How can I add multiple-columns

With TreeCube1
	.BeginUpdate 
	With .FrontFace.CreateTree
		.ItemPadding = 10
		.LinesAtRoot = 2
		.DrawGridLines = -2
		.Columns.Add("Default").Alignment = 0
		With .Columns.Add("Pos")
			.Position = 0
			.Alignment = 0
			.FormatColumn = "1 rpos ``"
			.Width = 24
		End With
		With .Items
			With .Add("Root 1").Items
				.Add "Child 1"
				.Add "Child 2"
				.Add "Child 3"
			End With
			With .Add("Root 2").Items
				.Add "Child 1"
				.Add "Child 2"
				.Add "Child 3"
			End With
			.ExpandAll 
		End With
	End With
	.EndUpdate 
End With
53:
How do I add a hierarchy

' FaceTreeExpandItem event - Notifies that an item has been expanded/collapsed into a face of tree type.
Private Sub TreeCube1_FaceTreeExpandItem(ByVal Tree As Object,ByVal Item As Long)
	With TreeCube1
		Debug.Print( Item )
	End With
End Sub

With TreeCube1
	.BeginUpdate 
	With .FrontFace.CreateTree
		.ExpandOnDblClick = True
		.ItemPadding = 10
		.HeaderVisible = False
		.LinesAtRoot = 2
		.DrawGridLines = -2
		.Columns.Add("").Alignment = 0
		With .Items
			With .Add("Root 1").Items
				.Add "Child 1"
				.Add "Child 2"
				.Add "Child 3"
			End With
			With .Add("Root 2").Items
				.Add "Child 1"
				.Add "Child 2"
				.Add "Child 3"
			End With
			.ExpandAll 
		End With
	End With
	.EndUpdate 
End With
52:
How can I display a calendar control

' FaceCalendarValueChanged event - Notifies that the user selects a new date/value into a face of the calendar type.
Private Sub TreeCube1_FaceCalendarValueChanged(ByVal Calendar As Object)
	With TreeCube1
		Debug.Print( Calendar )
	End With
End Sub

With TreeCube1
	With .FrontFace.CreateCalendar
		.Value = #1/2/2001#
		.MonthNames = .LocMonthNames()
		.WeekDays = .LocWeekDays(2)
		.FirstWeekDay = .LocFirstWeekDay ' .LocFirstWeekDay
		.AutoSize = 1
	End With
End With
51:
How can I change the picture/texture on the faces

With TreeCube1
	.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Earth"
End With
50:
How can I get ride of the default texture

With TreeCube1
	.IdentifyFace = 7 ' IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	.TexturePicturePath = ""
End With
49:
How do I get ride of grid lines, and the top border it shows on the tree face

With TreeCube1
	With .FrontFace.CreateTree
		.ItemPadding = 20
		.HeaderVisible = False
		.DrawGridLines = 0
		With .Items
			.Add "Item A"
			.Add "Item B"
			.Add "Item C"
		End With
	End With
End With
48:
How can I add a list of items (method 2)

With TreeCube1
	With .FrontFace.CreateTree.Items
		.Add "Item A"
		.Add "Item B"
		.Add "Item C"
	End With
End With
47:
How can I add a list of items (method 1)

With TreeCube1
	With .FrontFace.CreateTree
		.Items.ToString = "Item A,Item B,Item C"
	End With
End With
46:
Fisheye Calendar View - Year

' FaceTreeValueChanged event - Notifies that the user selects a new item/column/value into a face of the tree type.
Private Sub TreeCube1_FaceTreeValueChanged(ByVal Tree As Object)
	' f.FaceCalendar.Year = Tree.Caption
	With TreeCube1
		Set f = .Face(.VisibleFace) ' .VisibleFace
		Set f = .FrontFace
		With f.Neighbor(1).FaceCalendar
			.Date = f.FaceCalendar.Date
			.Move 1
		End With
		With f.Neighbor(2).FaceCalendar
			.Date = f.FaceCalendar.Date
			.Move 2
		End With
		With f.Neighbor(2).Neighbor(2).FaceCalendar
			.Date = f.FaceCalendar.Date
			.Move 2
			.Move 2
		End With
	End With
End Sub

' Move event - Occurs once a new face became visible, by moving/rotating from a face to another, into the giving direction.
Private Sub TreeCube1_Move(ByVal RotateDir As Long,ByVal FromFace As Long,ByVal ToFace As Long)
	With TreeCube1
		Set f = .Face(ToFace) ' ToFace
		f.FaceCalendar.SelDate = TreeCube1.Face(FromFace).FaceCalendar.SelDate ' FromFace
		.Face(FromFace).FaceCalendar.UnselectDate  ' FromFace
		With f.Neighbor(1).FaceCalendar
			.Date = f.FaceCalendar.Date
			.Move 1
		End With
		With f.Neighbor(2).FaceCalendar
			.Date = f.FaceCalendar.Date
			.Move 2
		End With
	End With
End Sub

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	.EnsureVisibleFaceMargin = 32
	.EnsureVisibleFaceOnDblClick = False
	.EnsureVisibleFaces = "0,2,1,3,4"
	With .FrontFace.CreateCalendar
		.Date = #1/1/2016#
		.AutoSize = 1
		.MaxMonthX = 1
		.MaxMonthY = 1
		.ShowTodayButton = False
		.FirstWeekDay = 1
		.SelBackColor = &H2000000
		.SelForeColor = RGB(0,0,0)
		.ShowNonMonthDays = True
	End With
	d = TreeCube1.FrontFace.FaceCalendar.Date
	With .LeftFace.CreateCalendar
		.Date = d
		.Move 1
		.AutoSize = 1
		.MaxMonthX = 1
		.MaxMonthY = 1
		.ShowTodayButton = False
		.FirstWeekDay = 1
		.SelBackColor = &H2000000
		.SelForeColor = RGB(0,0,0)
		.ShowNonMonthDays = True
	End With
	With .RightFace.CreateCalendar
		.Date = d
		.Move 2
		.AutoSize = 1
		.MaxMonthX = 1
		.MaxMonthY = 1
		.ShowTodayButton = False
		.FirstWeekDay = 1
		.SelBackColor = &H2000000
		.SelForeColor = RGB(0,0,0)
		.ShowNonMonthDays = True
	End With
	With .BottomFace.CreateCalendar
		.Date = d
		.Move 2
		.Move 2
		.AutoSize = 1
		.MaxMonthX = 1
		.MaxMonthY = 1
		.ShowTodayButton = False
		.FirstWeekDay = 1
		.SelBackColor = &H2000000
		.SelForeColor = RGB(0,0,0)
		.ShowNonMonthDays = True
	End With
	With .TopFace
		With .CreateTree
			.ItemPadding = 20
			.SelBackColor = &H2000000
			.SelForeColor = RGB(0,0,0)
			.Columns.Count = 5
			.HeaderVisible = False
			.Items.Count = TreeCube1.TopFace.FaceTree.VisibleItemsCount
			.Columns.Item(0).FormatColumn = "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(1).FormatColumn = "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(2).FormatColumn = "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(3).FormatColumn = "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Columns.Item(4).FormatColumn = "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
			.Caption = TreeCube1.FrontFace.FaceCalendar.Year
		End With
	End With
	.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAADhABXgCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDIAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZZmWCQCglf5HABRb7xPLoARTAaeJKoWboJAiGwLQjQUyABSdEyRJSLYhGIZRFqKZIRDSMFiwTZNVypAaIYqqaA6qzfJymabAAZJEradozTLIE7xVLEVYNKCm" & _
"ZCwMAAcgmEQgSTAda2BYELTzECoYDGCrcKpWCaNQLWEB5BQeJSNL6kIqsazgAqPLJtWhaVwxXIEI5AAC5QA0S7pOxeO6JbRGdZbNrlbz1PTMaazTgYDzmWqiYxxMraXx" & _
"SlmMprGsIpVl2LRnD0A5bnSN49mAARAlIYw6B0ThGFGDIBG0QghBMfZRiGNAkFECZoG6YQBgiOgCmuRRSg6GAElWAJMkgFgGgGYIIAyVQ7GCRhUAAOQhAMBgSDWIRDG4" & _
"Fg3CGCBmBmBYNjgUJWDIIgIECZBCEsKIUkqCZhiiJgqgaYRjB4LguiMBAkiqDLenYrBjgiZg6gGIwyioMoNCAWJqEKEJjkiTg/CqIxZA4SoNmQWJ5AODxMlkRJehSZRJ" & _
"FYVoVmUEw2D2EZlhkXhehfURuE+DJllkfhmhUJgZBoYwqiWEx+G6G5nAmRhyhoZJgAIUIUGcKZmHqHQlkmYh6h+Zp5nIawzigQ4CgaIZogoJoKiEDJpgodoMmiSgqhKJ" & _
"NxDoPQzmmA4GhqJppkodoeiYDJ6FpaQpmqFomigKgiiqJIpiqShuiiGoonqKoZisapaj4dYl3WCo6i6a5KnaPotiQeoCj6MJsEsAhrDQLIDg6SoymySw2k6MgNAqJpQj" & _
"OLRLFaUI0iyGxWlq/p6kIPY0m2Oxul2LZjDMRpmgiLoLiaaoIi4YxGinoY7kaauhnuGJlj2b4Lmaeo+m8Sx6mWOZhAubwCj2bpLhqKYJkyKTnECThYgoVJCCiYpPBIL5" & _
"xEMLwWjsTQsGcGpGi6XBYkuRQLvcIhCE8DIWDCSZLiKdwqC+MpMjcLZKguXIcjiTJyFOQYnD+TYMmSLZOkmHJ3D6T50AybItiGYJji2MwABAECAg="
	.VisualAppearance.Add 2,"gBFLBCJwBAEHhEJAADhABOkGACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEYFDSAUIjKKkIhkGIYZBGQBJDjWGgyQjOEByD" & _
"IMRwjE4YBpkGYYJDSIYHTZIUzTJAdGSVJKNKAoKCaEg2R4qsZCCKwUgmTo9VBJU9CFi6ZIRDSMFiyXZUIxHEKnIqrOjbBjaUpYABLErTBKUSzrEadAAwGbKJj+VJBULM" & _
"VD2BDWGABOYAKarWa7fhaUqJUTVdI1VBOIYmADPcaqCxrLgMMpnWxpN42bjdPY7V6Bc7yXJsHimK5GUTQA4aFIENydJzINjsKBKBriLIybpeFr7BiME4/YLhAA0vZNUY" & _
"sg0XguBqaAeEOIYUjqYQgGCCBJECUhjDoHROEYWooAGTRMCEEx9lGIY0CQUZOnuZQDBEdYFkeI5+H+igGAKAJgEgFgGgGUAzn4CoCmCSA2A6A5hAgCgQgSYRIE4EoFGG" & _
"CBiBeBhhkgPgbgcYgICoH4IGGWIOCSBhiGiHgVgoYooFoAYLGIWI+DCCgjCiTgrgII4ImYOoOmOSJ1n4OpWmQDQBICA=="
	.Background(8) = &H1000000
	.Background(7) = RGB(250,250,250)
	.Background(6) = RGB(250,250,250)
	.Background(9) = &H2000000
	.Background(31) = RGB(255,255,255)
	.EnsureVisibleFace 0
	.EndUpdate 
End With
45:
How can I add a FaceTree object ( method 2 )

With TreeCube1
	With .FrontFace
		With .CreateTree
			.Items.ToString = "Item <b>1,Item <b>2,Item <b>3"
			.SelectItem = 1
		End With
	End With
End With
44:
How can I add a FaceTree object ( method 1 )

With TreeCube1
	With .FrontFace
		.Type = 1
		With .FaceTree
			.Items.ToString = "Item <b>1,Item <b>2,Item <b>3"
			.SelectItem = 1
		End With
	End With
End With
43:
How can I add a FaceCalendar object ( method 2 )

With TreeCube1
	With .FrontFace
		With .CreateCalendar
			.AutoSize = 1
			.Value = #12/31/1971#
		End With
	End With
End With
42:
How can I add a FaceCalendar object ( method 1 )

With TreeCube1
	With .FrontFace
		.Type = 2
		With .FaceCalendar
			.AutoSize = 1
			.Value = #12/31/1971#
		End With
	End With
End With
41:
How can I add a FacePicture object ( method 2 )

With TreeCube1
	.IdentifyFace = 7 ' IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	With .FrontFace
		With .CreatePicture
			.Picture = TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
			.PictureDisplay = 48
			.Width = "2 * pwidth"
			.Height = "2 * pheight"
			.Top = "122"
			.Left = "46"
		End With
	End With
End With
40:
How can I add a FacePicture object ( method 1 )

With TreeCube1
	.IdentifyFace = 7 ' IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	With .FrontFace
		.Type = 3
		With .FacePicture
			.Picture = TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
			.PictureDisplay = 48
			.Width = "2 * pwidth"
			.Height = "2 * pheight"
			.Top = "122"
			.Left = "46"
		End With
	End With
End With
39:
How can I prevent bringing a specified face into the front
With TreeCube1
	.EnsureVisibleFaces = "0"
End With
38:
Is it possible to show one face opaque, while other semi-transparent

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	.DefaultFaceType = 2
	.TransparentContent = 75
	.FrontFace.TransparentContent = 0
	.EndUpdate 
End With
37:
How can I add a Calendar control

With TreeCube1
	.BeginUpdate 
	.Margins = "0,0,0,0"
	With .FrontFace
		.Type = 2
		With .FaceCalendar
			.ShowNonMonthDays = True
			.AutoSize = 1
		End With
	End With
	.EndUpdate 
End With
36:
Is it possible to init faces at once
' InitFaceContent event - Notifies your application that a face changes its type, so you can initialize its content.
Private Sub TreeCube1_InitFaceContent(ByVal Face As Object)
	' Face.FaceContent.ShowTodayButton = False
End Sub

With TreeCube1
	.DefaultFaceType = 2
End With
35:
How can I disable zoom when rolling the mouse wheel
With TreeCube1
	.OnMouseWheel = 0
End With
34:
Fisheye Calendar View - LR

' Move event - Occurs once a new face became visible, by moving/rotating from a face to another, into the giving direction.
Private Sub TreeCube1_Move(ByVal RotateDir As Long,ByVal FromFace As Long,ByVal ToFace As Long)
	With TreeCube1
		.FrontFace.FaceCalendar.Move RotateDir ' RotateDir
		With .LeftFace.FaceCalendar
			.Date = TreeCube1.FrontFace.FaceCalendar.Date
			.PrevMonth 
		End With
		With .RightFace.FaceCalendar
			.Date = TreeCube1.FrontFace.FaceCalendar.Date
			.NextMonth 
		End With
	End With
End Sub

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAADhABdQFg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQ1DBJQwwXBIZhgGIBIRgUBJCjWGodQLOEgwH" & _
"IERQjEyUJAmCYhRiCB42TrNIJwSBUPwTGKBXZDQRAApKVIWUAMFBVg7GRYcVxIUgAdDYMyZJyBa4qapaTheEQyDSJNr3DCMUTlBK7IhsKCaLhqZIDUzGVpWbZdMRlFCV" & _
"JYgOTqDgQMIkUhSE5TVIEew3H7DaymKrKeobFoaZ6AAL3ZBNTR5J6EbTwWRcZpuRJGWDGdhwTocB5MADbZAwOpNLgOc53TjdF4DBwAATzJCQL50KCbfziG67WxVeqQJg" & _
"iggNpOAwbZjDGHoGC2IZAgAORbFiPxDHoAIsmIewdiGHpHEGTIzm2Nocn0TgSluBpgnEbgcF4PAPnkSQAA+c58AAVwcheiRzF4NIJiofYWgUJAIEIRQBiQYwdAcUZIGU" & _
"V5QDKCAHECRAhDYGhGgMZAkCgaRiEaHAYEWRpIG2ERFkIQBwm2CxiniOgwgyYpjmoNg3g2YxwkwwYzCiSwyCOaQCD8MxjkibJLDMDJDCoPgyEyMwskkNpNjMaJ1hSYxI" & _
"kYVoVEACRWFqC4OBOCJgCkShSgiCQiEgQZ8gAHpIAIBB8hoZo5iobIbmaaYqGZWByCCAwnkoAhwlQNQNCkbhXguJYYkqAoVguQpwjsIxIlIJNHksE4kmoOhgSsEokmkS" & _
"hUnCJZLzYOwigiIgYjULYLDmegwiAZ5zjSNwuAsYg8g8IplAMZoRhST1UCMJ5IGIqoiEiIgUgoIpIGqbo9i8JgyBaNQggmUh4hoOBOAOAoRDoLJCFSFQkgsQpQjGH4qE" & _
"iQJJDITB6CCCQ7G2ShEjsLwLhGIBpBiBIhCwRAQEQIJsEIEJDkuLptjsLphAwRI7kOMQkEoEJFnGABaiyCZ6ESeI/kkAhAg2IRLikYgwDoToTiCEQkgiUxElEM5pBIbI" & _
"cCYBQhEwTASASGB0E4EZEmEPBIkccZ8HsIJInILB4E2RpvasSwTAQUgIgMH5pVGYg4GuYx8l8NxqDiQoFC4SYSGiFokEyYw4kwFhF8GSQSkQPITCGUp0i0NwllKcoxBc" & _
"JwRkqEooiaJBLCKSIvCp54aDYPoAAORJyDwSWUhENANAwQgBB6R4xlqcgPDSbQzE+XB3EweBGBGRABigawZE6GcLoHxCAQFICkAIvhOhgACM4OYnBhjQHsDoT4Zxsj0D" & _
"YJsEwwBhJgMIOsXIcwOC+CCJMRA2BgCFFYJUegiBzA6AaMcDLuAAAdBiMUBQDWyhuC2JYTQiBMAmEQNwaw5xtjzB6MAPAHhDDEHyD4JwUgRiAHEDUTgNggABHEJwAYkB" & _
"zA2GkDMAIRAQAIBCM8No3ERC4D4B8Q4FxygiBwI4IYbxIjjGyB4c4mQACUXaD8dYhh/CfGqNwNIXhfizCyPsPw7xfjkD4FQRo+R7h9D8K8bI3A+jeGoAIfAnxNjhD3JY" & _
"LIvxDj2H8KAIYcQ/ivGCP8X4JxGD9AGIgNgUgRCECgIkaAegHiBFmPkQYTx4jsB+OEf4AAPAzBkBwEI1AdCHAqCIFYBQwCoAQIECgHwag4BuAIMA4AbgUBEIgJ4KQIDl" & _
"AGIcg4HBRkyAOHAdwHBqCIGKBgUYCAVAFCgJwagYQ+AvD0YAKYCgwhGH4F4eYxg3ijFQEEWQ8RqDfEOGgdhUBYA2AMHYdwEARBMAOGkJgpAWiFGAKoGgRhIDQCkCEcAP" & _
"QDhBGYDkQ4KAABrHaHAKYCwAhgBWKAEAnw5jOGaNoYwKB+DmA0JwFYBxhAsCMAgOoIgYjGBwMUCYAgyBKAeDEdAPBqggGsBoYYVAihICiOgHoRxRCRl6PQHgLhAB3A+C" & _
"MBYmAuhgHZRgaAzhbgHDUJECQYgoBIAYFERgMQMjKEGBUUQtAqgKBiEoFAWREDjA4CsBktw4B/AUMEdARwEgBAMFAHYhhTDnFMAMdADwwjwB2IweIngZhUEUNECwSwKB" & _
"NFePEeILApCyG4B0QQOAkAIGCHIFwxRdCRA+LMRwOwFDQH8B+B4aQ3huGYCIQYoA7AMHALgGwBwwDwA0EwEAggMhDBgGACAAgAA+BMUgHoqABCRCSKMEgRRECxAcLIIw" & _
"+7RhoGCNMBwMQUgrAINATYEh5hZCQI8PQAQHDHBIM4DM9wwiMACIkCA6BwDACOGMFQEQHh6BYKQLQ/B/ARFEDgIoJRojAFqBUCQLgpDjF6J0U4MQnT5BGJADQ8w1BxEe" & _
"OVTgRx6hBE2EMOAbhGihCyC0E42A+AWAEMQK4DhkCzCYEcNQ1RQhqAcKAR44RnA6AODgWoFhRDMCGAgMg1QZgDDQG4BoIRMAzEMBAZwGgBgVDIAwEIqAagGCAPIDwQxM" & _
"CECYLUFgVhdChHyF0dQghRgdDIDAAgmhBAGAkAIPATgRBAoqB4mYYAWAQBmLAiQmgrj7AHXgFABhYD2B8MULAVAqAABYxMAACAfDHCwJsC4Xw2DtE0DwCwZhlCeA2CcM" & _
"ArBkgBICA"
		.Add 2,"CP:1 -6 0 6 0"
	End With
	.Background(8) = &H2000000
	.Background(21) = RGB(255,255,255)
	.Background(7) = RGB(240,240,240)
	.Background(6) = RGB(240,240,240)
	.Background(9) = &H2000000
	.Background(31) = RGB(255,255,255)
	.AllowRotate = 3 ' RotateEnum.exRotateRight Or RotateEnum.exRotateLeft
	.EnsureVisibleFaceOnDblClick = False
	.DefaultFaceType = 2
	.FrontFace.FaceCalendar.Date = #1/1/2016#
	.TopFace.Type = 0
	.DownFace.Type = 0
	.AlwaysEnsureVisibleFace = 17 ' EnsureVisibleFaceEnum.exAlwaysVisibleFrontFace Or EnsureVisibleFaceEnum.exFitToEnsureFace
	.EndUpdate 
End With
33:
Fisheye Calendar View - S

' FaceCalendarDateChanged event - Notifies that the user browses for a new date into a face of calendar type.
Private Sub TreeCube1_FaceCalendarDateChanged(ByVal Calendar As Object)
	With TreeCube1
		currentDate = .FrontFace.FaceCalendar.Date
		With .LeftFace.FaceCalendar
			.Date = currentDate
			.PrevMonth 
		End With
		With .RightFace.FaceCalendar
			.Date = currentDate
			.NextMonth 
		End With
		With .TopFace.FaceCalendar
			.Date = currentDate
			.PrevYear 
		End With
		With .DownFace.FaceCalendar
			.Date = currentDate
			.NextYear 
		End With
	End With
End Sub

' InitFaceCalendar event - Notifies your application that a face changes its type to exFaceCalendar.
Private Sub TreeCube1_InitFaceCalendar(ByVal Calendar As Object)
	With TreeCube1
		With Calendar
		End With
	End With
End Sub

' Move event - Occurs once a new face became visible, by moving/rotating from a face to another, into the giving direction.
Private Sub TreeCube1_Move(ByVal RotateDir As Long,ByVal FromFace As Long,ByVal ToFace As Long)
	With TreeCube1
		.FrontFace.FaceCalendar.Move RotateDir ' RotateDir
	End With
End Sub

With TreeCube1
	.BeginUpdate 
	.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAADhABXgCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDIAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZZmWCQCglf5HABRb7xPLoARTAaeJKoWboJAiGwLQjQUyABSdEyRJSLYhGIZRFqKZIRDSMFiwTZNVypAaIYqqaA6qzfJymabAAZJEradozTLIE7xVLEVYNKCm" & _
"ZCwMAAcgmEQgSTAda2BYELTzECoYDGCrcKpWCaNQLWEB5BQeJSNL6kIqsazgAqPLJtWhaVwxXIEI5AAC5QA0S7pOxeO6JbRGdZbNrlbz1PTMaazTgYDzmWqiYxxMraXx" & _
"SlmMprGsIpVl2LRnD0A5bnSN49mAARAlIYw6B0ThGFGDIBG0QghBMfZRiGNAkFECZoG6YQBgiOgCmuRRSg6GAElWAJMkgFgGgGYIIAyVQ7GCRhUAAOQhAMBgSDWIRDG4" & _
"Fg3CGCBmBmBYNjgUJWDIIgIECZBCEsKIUkqCZhiiJgqgaYRjB4LguiMBAkiqDLenYrBjgiZg6gGIwyioMoNCAWJqEKEJjkiTg/CqIxZA4SoNmQWJ5AODxMlkRJehSZRJ" & _
"FYVoVmUEw2D2EZlhkXhehfURuE+DJllkfhmhUJgZBoYwqiWEx+G6G5nAmRhyhoZJgAIUIUGcKZmHqHQlkmYh6h+Zp5nIawzigQ4CgaIZogoJoKiEDJpgodoMmiSgqhKJ" & _
"NxDoPQzmmA4GhqJppkodoeiYDJ6FpaQpmqFomigKgiiqJIpiqShuiiGoonqKoZisapaj4dYl3WCo6i6a5KnaPotiQeoCj6MJsEsAhrDQLIDg6SoymySw2k6MgNAqJpQj" & _
"OLRLFaUI0iyGxWlq/p6kIPY0m2Oxul2LZjDMRpmgiLoLiaaoIi4YxGinoY7kaauhnuGJlj2b4Lmaeo+m8Sx6mWOZhAubwCj2bpLhqKYJkyKTnECThYgoVJCCiYpPBIL5" & _
"xEMLwWjsTQsGcGpGi6XBYkuRQLvcIhCE8DIWDCSZLiKdwqC+MpMjcLZKguXIcjiTJyFOQYnD+TYMmSLZOkmHJ3D6T50AybItiGYJji2MwABAECAg="
	.Background(8) = &H1000000
	.Background(7) = RGB(250,250,250)
	.Background(6) = RGB(250,250,250)
	.Background(9) = &H2000000
	.Background(31) = RGB(255,255,255)
	.TexturePicturePath = ""
	.DefaultFaceType = 2
	.AlwaysEnsureVisibleFace = 17 ' EnsureVisibleFaceEnum.exAlwaysVisibleFrontFace Or EnsureVisibleFaceEnum.exFitToEnsureFace
	.FrontFace.FaceCalendar.Date = #1/1/2016#
	.EndUpdate 
End With
32:
While navigating the Down/Top faces, I am not able to rotate it. Is it possible (ensure always front face)
With TreeCube1
	.EnsureVisibleFace 5,False
	.AlwaysEnsureVisibleFace = 17 ' EnsureVisibleFaceEnum.exAlwaysVisibleFrontFace Or EnsureVisibleFaceEnum.exFitToEnsureFace
End With
31:
How can I show a single month only

With TreeCube1
	With .FrontFace
		.Type = 2
		With .FaceCalendar
			.Date = #1/1/2001#
			.SelDate = .Date
			.MinDate = #1/1/2001#
			.MaxDate = #1/31/2001#
			.FirstWeekDay = 1
			.ShowWeeks = False
			.ShowNonMonthDays = False
			.ShowTodayButton = False
			.MaxMonthX = .MinMonthX
			.MaxMonthY = .MinMonthY
		End With
	End With
End With
30:
How can I show date calendar

With TreeCube1
	With .FrontFace
		.Type = 2
		.FaceCalendar.ShowNonMonthDays = False
	End With
End With
29:
How can I prevent dbl click to ensure the clicked face is visible
With TreeCube1
	.EnsureVisibleFaceOnDblClick = False
End With
28:
How can I put a picture into the center of the texture but behind the control's face

With TreeCube1
	.BeginUpdate 
	.HTMLPicture("logo") = "c:\exontrol\images\zipdisk.gif"
	With .FrontFace
		.Type = 2
		.FaceCalendar.ShowTodayButton = False
		.ExtraTitle("extra",0) = "<img>logo</img>"
		.ExtraTitle("extra",3) = 0
		.ExtraTitle("extra",4) = 0
		.ExtraTitle("extra",4) = 0
		.ExtraTitle("extra",5) = "(width-twidth)/2"
		.ExtraTitle("extra",6) = "(height-theight)/2"
		.ExtraTitle("extra",7) = "twidth"
		.ExtraTitle("extra",8) = "theight"
		.ExtraTitle("extra",9) = 1
	End With
	.FrontFace.FaceCalendar.ForeColor = RGB(255,0,0)
	.EndUpdate 
End With
27:
How do I put my logo on the right-bottom side of the face (method 2), while I using the face

With TreeCube1
	.BeginUpdate 
	.HTMLPicture("logo") = "c:\exontrol\images\zipdisk.gif"
	With .FrontFace
		.Type = 2
		.FaceCalendar.ShowTodayButton = False
		.ExtraTitle("extra",0) = "<r><img>logo</img>"
		.ExtraTitle("extra",3) = 2
		.ExtraTitle("extra",4) = 0
	End With
	.EndUpdate 
End With
26:
Is it possible to show two or more titles/extra titles

With TreeCube1
	.BeginUpdate 
	With .FrontFace
		.Type = 2
		.FaceCalendar.ShowTodayButton = False
		.Title(0) = "<font ;18><c><fgcolor=0000FF>This is the title"
		.ExtraTitle("extra",0) = "<font ;18><c><fgcolor=FF0000>This is the extra title"
		.ExtraTitle("extra",3) = 2
	End With
	.EndUpdate 
End With
25:
How can I display the title at the left side of the face

With TreeCube1
	.BeginUpdate 
	With .FrontFace
		.Title(0) = "<font ;18><c>This is the title"
		.Type = 2
		.FaceCalendar.ShowTodayButton = False
		.Title(3) = 4
	End With
	.EndUpdate 
End With
24:
How can I display the title at the bottom side of the face

With TreeCube1
	.BeginUpdate 
	With .FrontFace
		.Title(0) = "<font ;18><c>This is the title"
		.Type = 2
		.FaceCalendar.ShowTodayButton = False
		.Title(3) = 2
		.Title(4) = 0
	End With
	.EndUpdate 
End With
23:
Can I display the title to a different position

With TreeCube1
	.BeginUpdate 
	With .FrontFace
		.Title(0) = "<font ;18><c><bgcolor=FFFFFF>This is the title"
		.Type = 2
		.Title(9) = -1
		.Title(6) = "(height-theight)/2"
	End With
	.EndUpdate 
End With
22:
How can I display a title for a face

With TreeCube1
	.BeginUpdate 
	With .FrontFace
		.Title(0) = "<font ;18><c>This is the title"
		.Type = 2
	End With
	.EndUpdate 
End With
21:
Can I put the picture at specified position

With TreeCube1
	.IdentifyFace = 7 ' IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	With .FrontFace
		.Type = 3
		With .FacePicture
			.Picture = TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
			.PictureDisplay = 48
			.Width = "2 * pwidth"
			.Height = "2 * pheight"
			.Top = "122"
			.Left = "46"
		End With
	End With
End With
20:
How do I put my logo on the right-bottom side of the face (method 1)

With TreeCube1
	.IdentifyFace = 7 ' IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	With .FrontFace
		.Type = 3
		With .FacePicture
			.Picture = TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
			.PictureDisplay = 34
			.Width = "width"
			.Height = "height"
			.Top = "0"
			.Left = "0"
		End With
	End With
End With
19:
Can I use any picture on the background's faces

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	.Face(0).Picture = TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.Face(1).Picture = TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
	.Face(2).Picture = TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
	.Face(3).Picture = TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
	.Face(4).Picture = TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
	.Face(5).Picture = TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.AlwaysEnsureVisibleFace = 0
	.EndUpdate 
End With
18:
Is it possible to show the cube's texture more transparent, so the faces are more visible

With TreeCube1
	.BeginUpdate 
	.Transparent = 80
	.TexturePicturePath = "C:\Program Files\Exontrol\ExTexture\Sample\Texture\VW"
	.AlwaysEnsureVisibleFace = 0
	.IdentifyFace = 4
	With .TopFace
		.Type = 2
		With .FaceCalendar
			.Date = #2/1/2016#
			.MaxMonthX = 1
			.MaxMonthY = 1
		End With
	End With
	With .LeftFace
		.Type = 2
		With .FaceCalendar
			.Date = #3/1/2016#
			.MaxMonthX = 1
			.MaxMonthY = 1
		End With
	End With
	With .FrontFace
		.Type = 2
		With .FaceCalendar
			.Date = #4/1/2016#
			.MaxMonthX = 1
			.MaxMonthY = 1
		End With
	End With
	With .RightFace
		.Type = 2
		With .FaceCalendar
			.Date = #5/1/2016#
			.MaxMonthX = 1
			.MaxMonthY = 1
		End With
	End With
	.ShowAs = 0
	.AlwaysEnsureVisibleFace = 0
	.IdentifyFace = 4
	.EndUpdate 
End With
17:
How can I load a different texture on the cube

With TreeCube1
	.TexturePicturePath = "C:\Program Files\Exontrol\ExTexture\Sample\Texture\VW"
End With
16:
How can I show no texture/picture on all faces

With TreeCube1
	.TexturePicturePath = ""
	.IdentifyFace = 7 ' IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	.IdentifyFaceCaption = "<sha ;;0><fgcolor=000000>Face <%index%></font> <%name%>"
End With
15:
Fish-Eye Rectangular

With TreeCube1
	.BeginUpdate 
	.ShowAs = 0
	.Internals = "zoommin=1;zoomdefault=1;zoommax=1;zoomdivsmall=256;zoomdivlarge=48;fisheyepersp=4"
	.IdentifyFace = 4
	.TopFace.Type = 2
	.LeftFace.Type = 2
	.FrontFace.Type = 2
	.RightFace.Type = 2
	.EndUpdate 
End With
14:
Orthographic

With TreeCube1
	.BeginUpdate 
	.ShowAs = 1
	.AlwaysEnsureVisibleFace = 0
	.IdentifyFace = 4
	.TopFace.Type = 2
	.LeftFace.Type = 2
	.FrontFace.Type = 2
	.RightFace.Type = 2
	.RotX = 0.748933
	.RotY = 0.617099
	.Zoom = 1
	.EndUpdate 
End With
13:
Fish-Eye Default

With TreeCube1
	.BeginUpdate 
	.ShowAs = 0
	.AlwaysEnsureVisibleFace = 0
	.IdentifyFace = 4
	.TopFace.Type = 2
	.LeftFace.Type = 2
	.FrontFace.Type = 2
	.RightFace.Type = 2
	.RotX = 0
	.RotY = 0.8
	.Zoom = 1
	.EndUpdate 
End With
12:
I know the user can drag the cube to any position. The question is how can I restore the layout

With TreeCube1
	.IdentifyFace = 7 ' IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	.RotX = 0.25
	.RotY = 0.75
	.Zoom = 1
End With
11:
How do I put my logo on the right-bottom side of the control

With TreeCube1
	.Picture = TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
End With
10:
How do I bring/ensure a specified face to the front

With TreeCube1
	.IdentifyFace = 7 ' IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	.VisibleFace = 4
End With
9:
How do I bring/ensure a specified face to the front

With TreeCube1
	.IdentifyFace = 7 ' IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	.EnsureVisibleFace 4
End With
8:
It sounds like the BackColor property does nothing

With TreeCube1
	.BackColor = RGB(255,0,0)
	.Transparent = 50
End With
7:
Is there any property to identify the faces I can fill in

With TreeCube1
	.IdentifyFace = 7 ' IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
End With
6:
How can I prevent scrolling the control inside a face once the user rolls the mouse wheel
With TreeCube1
	.OnMouseWheel = 0
End With
5:
Can I navigate through the faces 0 to 3 only, even with the keyboard
With TreeCube1
	.EnsureVisibleFaces = "0,1,2,3"
	.AllowRotate = 3 ' RotateEnum.exRotateRight Or RotateEnum.exRotateLeft
	.IdentifyFace = 7 ' IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	.EnsureVisibleFaceOnDblClick = False
End With
4:
It sounds like the BackColor property does nothing

With TreeCube1
	.BackColor = RGB(255,0,0)
	.ShowAs = 1
	.AlwaysEnsureVisibleFace = 0
	.RotX = 0.328184
	.RotY = 0.967723
End With
3:
Is it possible to let the control shows/rotates just the left/right side
With TreeCube1
	.AllowRotate = 3 ' RotateEnum.exRotateRight Or RotateEnum.exRotateLeft
End With
2:
How can I disable changing the view if the user presses SPACE or digit keys
With TreeCube1
	.AllowEnsureVisibleFaceOnKey = 0
End With
1:
I've noticed that I can not show the part of the control as I drag, once I release the mouse button

With TreeCube1
	.IdentifyFace = 7 ' IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	.AlwaysEnsureVisibleFace = 0
End With