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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 
			alert( .Items.Item(0).ToString )
		End With
	End With
End Function
</SCRIPT>
</BODY>

107:
How can I add a hierarchy (single column), using the Item.ToString method

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 
			alert( .Items.Item(0).ToString )
		End With
	End With
End Function
</SCRIPT>
</BODY>

106:
How can add items to a list

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.TexturePicturePath = ""
		With .FrontFace.CreateTree
			.Columns.Add("Pos").FormatColumn = "1 pos ``"
			.Items.Count = TreeCube1.FrontFace.FaceTree.VisibleItemsCount
		End With
	End With
End Function
</SCRIPT>
</BODY>

105:
How can I split a cell

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

104:
I've noticed that the Face has no background color. Still, can I change the face's background color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

103:
How can I change the +/- expanding/collapsing buttons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

102:
How can I use the ToString property

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

101:
How can I use the Background property

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

100:
How can I display two lists of radio-buttons

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function TreeCube1_FaceTreeStateChanged(Tree,Item,Column)
	With TreeCube1
		With .FrontFace.FaceTree.ItemByIndex(Item)
			alert( "State" )
			alert( .State(0) )
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

99:
How can I display a list of check-boxes

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function TreeCube1_FaceTreeStateChanged(Tree,Item,Column)
	With TreeCube1
		With .FrontFace.FaceTree.ItemByIndex(Item)
			alert( "State" )
			alert( .State(0) )
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

98:
How do I get the selected caption

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function TreeCube1_FaceTreeSelectionChanged(Tree)
	With TreeCube1
		alert( "Value" )
		alert( .FrontFace.FaceTree.Value )
		alert( "Caption" )
		alert( .FrontFace.FaceTree.Caption )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

97:
How do I get the selected value

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function TreeCube1_FaceTreeSelectionChanged(Tree)
	With TreeCube1
		alert( "Value" )
		alert( .FrontFace.FaceTree.Value )
		alert( "Caption" )
		alert( .FrontFace.FaceTree.Caption )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

96:
How can I add buttons on the face

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function TreeCube1_FaceTreeButtonClick(Tree,Item,Column)
	With TreeCube1
		alert( Item )
		alert( Column )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

95:
How do I programmatically selects a date (method 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		With .FrontFace.CreateCalendar
			.Value = "Jan 21"
		End With
	End With
End Function
</SCRIPT>
</BODY>

94:
How do I programmatically selects a date (method 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		With .FrontFace.CreateCalendar
			.Date = #1/1/2001#
			.SelDate = .Date
		End With
	End With
End Function
</SCRIPT>
</BODY>

93:
How can I display a hyperlink element
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function TreeCube1_AnchorClick(Face,AnchorID,Options)
	With TreeCube1
		alert( Face )
		alert( AnchorID )
		alert( Options )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

92:
Can I display image and multiple-lines items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

91:
How can I use the BackgroundExt/BackgroundExtValue properties

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

90:
How can I change the visual appearance for check and radio buttons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

89:
How can I display more group of radio-buttons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

88:
How can I use images with the control

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function TreeCube1_FaceTreeButtonClick(Tree,Item,Column)
	With TreeCube1
		alert( "FaceTreeButtonClick" )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function TreeCube1_FaceTreeStateChanged(Tree,Item,Column)
	With TreeCube1
		alert( "FaceTreeStateChanged" )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

87:
How do I display a progress bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

85:
How do I print the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

84:
How can I get the caption from the point

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function TreeCube1_MouseMove(Button,Shift,X,Y)
	With TreeCube1
		alert( .FrontFace.FaceTree.CaptionFromPoint(-1,-1) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

83:
How can I get the value from the point

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function TreeCube1_MouseMove(Button,Shift,X,Y)
	With TreeCube1
		alert( .FrontFace.FaceTree.ValueFromPoint(-1,-1) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

82:
How can I get the column from the point
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function TreeCube1_MouseMove(Button,Shift,X,Y)
	With TreeCube1
		alert( .FrontFace.FaceTree.ColumnFromPoint(-1,-1) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

81:
How can I get the item from the point
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function TreeCube1_MouseMove(Button,Shift,X,Y)
	With TreeCube1
		alert( .FrontFace.FaceTree.ItemFromPoint(-1,-1) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

80:
How can I get the value from the point (calendar's date)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function TreeCube1_MouseMove(Button,Shift,X,Y)
	With TreeCube1
		alert( "Date:" )
		alert( .FrontFace.FaceCalendar.ValueFromPoint(-1,-1) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		With .FrontFace.CreateCalendar
			.AutoSize = 1
			.MaxMonthX = 1
			.MaxMonthY = 1
		End With
	End With
End Function
</SCRIPT>
</BODY>

79:
How can I get the date from the point (calendar's date)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function TreeCube1_MouseMove(Button,Shift,X,Y)
	With TreeCube1
		alert( "Date:" )
		alert( .FrontFace.FaceCalendar.DateFromPoint(-1,-1) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		With .FrontFace.CreateCalendar
			.AutoSize = 1
			.MaxMonthX = 1
			.MaxMonthY = 1
		End With
	End With
End Function
</SCRIPT>
</BODY>

78:
How can I get the face from the point

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function TreeCube1_MouseMove(Button,Shift,X,Y)
	With TreeCube1
		alert( "Face:" )
		alert( .FaceFromPoint(-1,-1) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.IdentifyFace = 1
	End With
End Function
</SCRIPT>
</BODY>

77:
Does your control support partial-check feature

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

76:
I am using the Items.ToString, just wondering if I can use it for multiple columns

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

75:
How can I show the item on multiple-lines

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

74:
How can I change the visual appearance for the control's radio buttons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

73:
How can I change the visual appearance for the control's check boxes (6)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

72:
How can I change the visual appearance for the control's check boxes (5)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

71:
How can I change the visual appearance for the control's check boxes (4)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

70:
How can I change the visual appearance for the control's check boxes (3)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

69:
How can I change the visual appearance for the control's check boxes (2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

68:
How can I change the visual appearance for the control's check boxes (1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

67:
How can I display an item to fit the control's width

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

66:
Is it possible to prevent showing the selecting item ( hide )
<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

65:
Is it possible to provide a few radio-buttons only, not for entire column

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

64:
Is it possible to provide a few check box only, not for entire column

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

63:
How can I show radio-buttons for the entire column

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

62:
How can I show check-boxes for the entire column

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

61:
How do I select programmatically a value in the calendar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

60:
How do I select programmatically a caption in the list

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

59:
How do I select programmatically a value in the list

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

58:
How can I show solid lines instead

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

57:
How can I select the entire item rather than the column only

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

56:
How can I change the visual appearance of the control's header bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

55:
How can I add multiple-columns, so the horizontal scroll bar is displayed

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.BeginUpdate 
		With .FrontFace.CreateTree
			.ColumnAutoResize = False
			.Columns.Count = 20
		End With
		.EnsureVisibleFace 0
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

54:
How can I add multiple-columns

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

53:
How do I add a hierarchy

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function TreeCube1_FaceTreeExpandItem(Tree,Item)
	With TreeCube1
		alert( Item )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

52:
How can I display a calendar control

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function TreeCube1_FaceCalendarValueChanged(Calendar)
	With TreeCube1
		alert( Calendar )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		With .FrontFace.CreateCalendar
			.Value = #1/2/2001#
			.MonthNames = .LocMonthNames()
			.WeekDays = .LocWeekDays(2)
			.FirstWeekDay = .LocFirstWeekDay ' .LocFirstWeekDay
			.AutoSize = 1
		End With
	End With
End Function
</SCRIPT>
</BODY>

51:
How can I change the picture/texture on the faces

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Earth"
	End With
End Function
</SCRIPT>
</BODY>

50:
How can I get ride of the default texture

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.IdentifyFace = 7 ' IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
		.TexturePicturePath = ""
	End With
End Function
</SCRIPT>
</BODY>

49:
How do I get ride of grid lines, and the top border it shows on the tree face

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

48:
How can I add a list of items (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		With .FrontFace.CreateTree.Items
			.Add "Item A"
			.Add "Item B"
			.Add "Item C"
		End With
	End With
End Function
</SCRIPT>
</BODY>

47:
How can I add a list of items (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		With .FrontFace.CreateTree
			.Items.ToString = "Item A,Item B,Item C"
		End With
	End With
End Function
</SCRIPT>
</BODY>

46:
Fisheye Calendar View - Year

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function TreeCube1_FaceTreeValueChanged(Tree)
	' 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 Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function TreeCube1_Move(RotateDir,FromFace,ToFace)
	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 Function
</SCRIPT>

<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

45:
How can I add a FaceTree object ( method 2 )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

44:
How can I add a FaceTree object ( method 1 )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

43:
How can I add a FaceCalendar object ( method 2 )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		With .FrontFace
			With .CreateCalendar
				.AutoSize = 1
				.Value = #12/31/1971#
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>

42:
How can I add a FaceCalendar object ( method 1 )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		With .FrontFace
			.Type = 2
			With .FaceCalendar
				.AutoSize = 1
				.Value = #12/31/1971#
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>

41:
How can I add a FacePicture object ( method 2 )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

40:
How can I add a FacePicture object ( method 1 )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

39:
How can I prevent bringing a specified face into the front
<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.EnsureVisibleFaces = "0"
	End With
End Function
</SCRIPT>
</BODY>

38:
Is it possible to show one face opaque, while other semi-transparent

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.BeginUpdate 
		.TexturePicturePath = ""
		.DefaultFaceType = 2
		.TransparentContent = 75
		.FrontFace.TransparentContent = 0
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

37:
How can I add a Calendar control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

36:
Is it possible to init faces at once
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function TreeCube1_InitFaceContent(Face)
	' Face.FaceContent.ShowTodayButton = False
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.DefaultFaceType = 2
	End With
End Function
</SCRIPT>
</BODY>

35:
How can I disable zoom when rolling the mouse wheel
<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.OnMouseWheel = 0
	End With
End Function
</SCRIPT>
</BODY>

34:
Fisheye Calendar View - LR

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function TreeCube1_Move(RotateDir,FromFace,ToFace)
	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 Function
</SCRIPT>

<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

33:
Fisheye Calendar View - S

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function TreeCube1_FaceCalendarDateChanged(Calendar)
	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 Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function TreeCube1_InitFaceCalendar(Calendar)
	With TreeCube1
		With Calendar
		End With
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function TreeCube1_Move(RotateDir,FromFace,ToFace)
	With TreeCube1
		.FrontFace.FaceCalendar.Move RotateDir ' RotateDir
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

32:
While navigating the Down/Top faces, I am not able to rotate it. Is it possible (ensure always front face)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.EnsureVisibleFace 5,False
		.AlwaysEnsureVisibleFace = 17 ' EnsureVisibleFaceEnum.exAlwaysVisibleFrontFace Or EnsureVisibleFaceEnum.exFitToEnsureFace
	End With
End Function
</SCRIPT>
</BODY>

31:
How can I show a single month only

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

30:
How can I show date calendar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		With .FrontFace
			.Type = 2
			.FaceCalendar.ShowNonMonthDays = False
		End With
	End With
End Function
</SCRIPT>
</BODY>

29:
How can I prevent dbl click to ensure the clicked face is visible
<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.EnsureVisibleFaceOnDblClick = False
	End With
End Function
</SCRIPT>
</BODY>

28:
How can I put a picture into the center of the texture but behind the control's face

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

27:
How do I put my logo on the right-bottom side of the face (method 2), while I using the face

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

26:
Is it possible to show two or more titles/extra titles

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

25:
How can I display the title at the left side of the face

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

24:
How can I display the title at the bottom side of the face

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

23:
Can I display the title to a different position

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

22:
How can I display a title for a face

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.BeginUpdate 
		With .FrontFace
			.Title(0) = "<font ;18><c>This is the title"
			.Type = 2
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

21:
Can I put the picture at specified position

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

20:
How do I put my logo on the right-bottom side of the face (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

19:
Can I use any picture on the background's faces

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

18:
Is it possible to show the cube's texture more transparent, so the faces are more visible

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

17:
How can I load a different texture on the cube

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.TexturePicturePath = "C:\Program Files\Exontrol\ExTexture\Sample\Texture\VW"
	End With
End Function
</SCRIPT>
</BODY>

16:
How can I show no texture/picture on all faces

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.TexturePicturePath = ""
		.IdentifyFace = 7 ' IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
		.IdentifyFaceCaption = "<sha ;;0><fgcolor=000000>Face <%index%></font> <%name%>"
	End With
End Function
</SCRIPT>
</BODY>

15:
Fish-Eye Rectangular

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

14:
Orthographic

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

13:
Fish-Eye Default

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

12:
I know the user can drag the cube to any position. The question is how can I restore the layout

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.IdentifyFace = 7 ' IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
		.RotX = 0.25
		.RotY = 0.75
		.Zoom = 1
	End With
End Function
</SCRIPT>
</BODY>

11:
How do I put my logo on the right-bottom side of the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.Picture = TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	End With
End Function
</SCRIPT>
</BODY>

10:
How do I bring/ensure a specified face to the front

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.IdentifyFace = 7 ' IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
		.VisibleFace = 4
	End With
End Function
</SCRIPT>
</BODY>

9:
How do I bring/ensure a specified face to the front

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.IdentifyFace = 7 ' IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
		.EnsureVisibleFace 4
	End With
End Function
</SCRIPT>
</BODY>

8:
It sounds like the BackColor property does nothing

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.BackColor = RGB(255,0,0)
		.Transparent = 50
	End With
End Function
</SCRIPT>
</BODY>

7:
Is there any property to identify the faces I can fill in

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.IdentifyFace = 7 ' IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	End With
End Function
</SCRIPT>
</BODY>

6:
How can I prevent scrolling the control inside a face once the user rolls the mouse wheel
<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.OnMouseWheel = 0
	End With
End Function
</SCRIPT>
</BODY>

5:
Can I navigate through the faces 0 to 3 only, even with the keyboard
<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

4:
It sounds like the BackColor property does nothing

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.BackColor = RGB(255,0,0)
		.ShowAs = 1
		.AlwaysEnsureVisibleFace = 0
		.RotX = 0.328184
		.RotY = 0.967723
	End With
End Function
</SCRIPT>
</BODY>

3:
Is it possible to let the control shows/rotates just the left/right side
<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.AllowRotate = 3 ' RotateEnum.exRotateRight Or RotateEnum.exRotateLeft
	End With
End Function
</SCRIPT>
</BODY>

2:
How can I disable changing the view if the user presses SPACE or digit keys
<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.AllowEnsureVisibleFaceOnKey = 0
	End With
End Function
</SCRIPT>
</BODY>

1:
I've noticed that I can not show the part of the control as I drag, once I release the mouse button

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.IdentifyFace = 7 ' IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
		.AlwaysEnsureVisibleFace = 0
	End With
End Function
</SCRIPT>
</BODY>