With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	.ImageSize = 32
	.Font.Size = 16
	.CheckBoxWidth = 32
	.CheckBoxHeight = 32
	.Images "gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq" & _
"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" & _
"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" & _
"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" & _
"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" & _
"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" & _
"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" & _
"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" & _
"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" & _
"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" & _
"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" & _
"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" & _
"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" & _
"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" & _
"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" & _
"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" & _
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA=="
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" & _
"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" & _
"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" & _
"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" & _
"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" & _
"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" & _
"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" & _
"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ=="
		.Add 2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" & _
"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" & _
"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" & _
"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" & _
"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" & _
"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" & _
"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" & _
"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" & _
"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" & _
"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" & _
"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" & _
"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" & _
"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" & _
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" & _
"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" & _
"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" & _
"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" & _
"gRBCCQAgQEA=="
		.Add 3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" & _
"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" & _
"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" & _
"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" & _
"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" & _
"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" & _
"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" & _
"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" & _
"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" & _
"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" & _
"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" & _
"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" & _
"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" & _
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" & _
"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" & _
"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI="
	End With
	.Background(exCheckBoxState0) = &H1000000
	.Background(exCheckBoxState1) = &H2000000
	.Background(exCheckBoxState2) = &H3000000
	With .FrontFace.CreateTree
		.ShowSelection = False
		.DrawGridLines = exRowLines
		.ItemPadding = 16
		With .Columns.Add("<c><b>Check")
			.Alignment = LeftAlignment
			.Def(exCellHasCheckBox) = True
		End With
		.Items.ToString = "Check A<img>1</img>,Check B<img>2</img>,Check C<img>3</img>"
		.ItemByIndex(1).State(0) = 1
	End With
	.EndUpdate 
End With

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	.ImageSize = 16
	.Images "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq" & _
"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" & _
"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" & _
"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" & _
"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" & _
"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="
	With .FrontFace.CreateTree
		.ShowSelection = False
		.DrawGridLines = exRowLines
		.ItemPadding = 16
		With .Columns.Add("<c><b>Check")
			.Alignment = LeftAlignment
			.Def(exCellHasCheckBox) = True
		End With
		.Items.ToString = "Check A<img>1</img>,Check B<img>2</img>,Check C<img>3</img>"
		.ItemByIndex(1).State(0) = 1
	End With
	.EndUpdate 
End With

With TreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.LinesAtRoot = exLinesAtRoot
		.Columns.Add(1).Alignment = LeftAlignment
		.Columns.Add(2).Alignment = LeftAlignment
		.Columns.Add(3).Alignment = LeftAlignment
		.Items.ToString = "Root 1;Root 2;Root 3(Child1.1;Child2.1;Child3.1(SubChild 1.1;SubChild 2.1;SubChild 3.1,SubChild 2.1;SubChild 2.2;SubChild 2.3)," & _
"Child 1.2;Child 2.2;Child 3.2)"
		.Items.ExpandAll 
		Debug.Print( .Items.Item(0).ToString )
	End With
End With

With TreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.LinesAtRoot = exLinesAtRoot
		.Columns.Add("").Alignment = LeftAlignment
		.Items.Count = 1
		.Items.Item(0).ToString = "Root(Child1(SubChild 1,SubChild 2),Child2)"
		.Items.ExpandAll 
		Debug.Print( .Items.Item(0).ToString )
	End With
End With

With TreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.Columns.Add("Pos").FormatColumn = "1 pos ``"
		.Items.Count = TreeCube1.FrontFace.FaceTree.VisibleItemsCount
	End With
End With

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 = LeftAlignment
			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

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	With .FrontFace
		With .CreateCalendar
			.AutoSize = exFitClient
			.MaxMonthX = .MinMonthX
			.MaxMonthY = .MinMonthY
			.ShowTodayButton = False
		End With
		.ExtraTitle("extra",exTitleFaceBackColor) = 15790320
		.ExtraTitle("extra",exTitleFaceHeight) = "height"
		.ExtraTitle("extra",exTitleFaceVisible) = 1
	End With
	.EndUpdate 
End With

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(exTreeGlyphCollapsed) = &H1000000
	.Background(exTreeGlyphExpanded) = &H2000000
	With .FrontFace.CreateTree
		.ExpandOnDblClick = True
		.ItemPadding = 16
		.HeaderVisible = False
		.HasLines = exThinLine
		.LinesAtRoot = exGroupLinesInside
		.DrawGridLines = exRowLines
		.Columns.Add("Def").Alignment = LeftAlignment
		.Items.ToString = "Root 1(Child 1,Child 2),Root 2(Child 3,Child 4)"
		.ItemByIndex(3).Expanded = True
	End With
	.EndUpdate 
End With

With TreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.DrawGridLines = exRowLines
		.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

With TreeCube1
	.BeginUpdate 
	.VisualAppearance.Add 1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn"
	.Background(exDateHeader) = &H1000000
	.Background(exWeeksHeader) = RGB(250,250,250)
	.Background(exDaysHeader) = RGB(250,250,250)
	.Background(exDateTodayUp) = &H2000000
	.Background(exDateTodayForeColor) = RGB(255,255,255)
	.TexturePicturePath = ""
	With .FrontFace.CreateCalendar
		.Date = #1/1/2016#
		.AutoSize = exFitClient
		.MaxMonthX = .MinMonthX
		.MaxMonthY = .MinMonthY
	End With
	.EndUpdate 
End With

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

With TreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.HeaderVisible = False
		.ItemPadding = 16
		.DrawGridLines = exNoLines
		.Columns.Add("Radio").Alignment = LeftAlignment
		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

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

With TreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.HeaderVisible = False
		.ItemPadding = 16
		.DrawGridLines = exNoLines
		.Columns.Add("Check").Alignment = LeftAlignment
		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

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

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

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

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

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

With TreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.DrawGridLines = exNoLines
		.ItemPadding = 16
		With .Columns.Add("Buttons")
			.FormatColumn = "1 index `A-Z`"
			.Def(exCellHasButton) = True
		End With
		.Items.Count = 4
	End With
End With

With TreeCube1
	With .FrontFace.CreateCalendar
		.Value = "Jan 21"
	End With
End With

With TreeCube1
	With .FrontFace.CreateCalendar
		.Date = #1/1/2001#
		.SelDate = .Date
	End With
End With

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub TreeCube1_AnchorClick(ByVal Face As EXTREECUBELibCtl.FaceEnum,ByVal AnchorID As String,ByVal Options As String)
	With TreeCube1
		Debug.Print( Face )
		Debug.Print( AnchorID )
		Debug.Print( Options )
	End With
End Sub

With TreeCube1
	With .FrontFace.CreateTree
		.ShowSelection = False
		.HeaderVisible = False
		.DrawGridLines = exNoLines
		.Items.ToString = "<a A1\;options1>Item 1</a>,<a A2\;options2>Item 2</a>"
	End With
End With

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 = exNoLine
			.DrawGridLines = exNoLines
			.ItemPadding = 24
			.HeaderVisible = False
			.ShowSelection = True
			.SelBackColor = RGB(240,240,240)
			.Columns.Add("Default").Alignment = LeftAlignment
			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,exIndexExt2,exTextExtWordWrap) = True
						.BackgroundExtValue(0,exIndexExt2,exTextExt) = "<fgcolor=000000>LROG (C:)<br>58.7 GB used out of 150 GB"
						.BackgroundExtValue(0,exIndexExt4,exClientExt) = "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,exIndexExt2,exTextExtWordWrap) = True
						.BackgroundExtValue(0,exIndexExt2,exTextExt) = "<fgcolor=000000>System (D:)<br>112 MB used out of 144 GB"
						.BackgroundExtValue(0,exIndexExt4,exClientExt) = "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,exIndexExt2,exTextExtWordWrap) = True
						.BackgroundExtValue(0,exIndexExt2,exTextExt) = "<fgcolor=000000>Work (E:)<br>53.0 GB used out of 635 GB"
						.BackgroundExtValue(0,exIndexExt4,exClientExt) = "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,exIndexExt2,exTextExtWordWrap) = True
						.BackgroundExtValue(0,exIndexExt2,exTextExt) = "<fgcolor=000000>DVD RW Drive (G:)<br>0.0 GB used out of 0.0 GB"
						.BackgroundExtValue(0,exIndexExt4,exClientExt) = "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 exTopFace
	.AlwaysEnsureVisibleFace = exFitToEnsureFace
	.EndUpdate 
End With

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	With .BottomFace
		.RelativeMargins = "0,32,0,0"
		.Title(exTitleFaceCaption) = "<c><font ;18>Battery Saver"
		.Title(exTitleFaceBackgroundExt) = "bottom[2],bottom[4,back=RGB(0,0,0)]"
		With .CreateTree
			.HasLines = exNoLine
			.DrawGridLines = exNoLines
			.ItemPadding = 24
			.HeaderVisible = False
			.ShowSelection = False
			.Columns.Add("Default").Alignment = LeftAlignment
			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,exIndexExt4,exClientExt) = "65%"
						.BackgroundExtValue(0,exIndexExt2,exTextExt) = .BackgroundExtValue(0,exIndexExt4,exClientExt)
					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 exBottomFace
	.AlwaysEnsureVisibleFace = exFitToEnsureFace
	.EndUpdate 
End With

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(exCheckBoxState0) = &H1000000
	.Background(exCheckBoxState1) = &H2000000
	.Background(exCheckBoxState2) = &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(exRadioButtonState0) = &H3000000
	.Background(exRadioButtonState1) = &H4000000
	With .RightFace
		.RelativeMargins = "0,32,0,0"
		.Title(exTitleFaceCaption) = "<c><font ;18>Table mode"
		.Title(exTitleFaceBackgroundExt) = "bottom[2],bottom[4,back=RGB(0,0,0)]"
		With .CreateTree
			.HasLines = exNoLine
			.DrawGridLines = exNoLines
			.ItemPadding = 24
			.HeaderVisible = False
			.ShowSelection = False
			.Columns.Add("Default").Alignment = LeftAlignment
			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 exRightFace
	.AlwaysEnsureVisibleFace = exFitToEnsureFace
	.EndUpdate 
End With

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	With .LeftFace
		.RelativeMargins = "0,32,0,0"
		.Title(exTitleFaceCaption) = "<c><font ;18>Multitasking"
		.Title(exTitleFaceBackgroundExt) = "bottom[2],bottom[4,back=RGB(0,0,0)]"
		With .CreateTree
			.HasLines = exNoLine
			.DrawGridLines = exNoLines
			.ItemPadding = 24
			.HeaderVisible = False
			.ShowSelection = False
			.Columns.Add("Default").Alignment = LeftAlignment
			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 exLeftFace
	.AlwaysEnsureVisibleFace = exFitToEnsureFace
	.EndUpdate 
End With

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

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

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	.HTMLPicture("P1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("P2") = "c:\exontrol\images\auction.gif"
	.HTMLPicture("P3") = "c:\exontrol\images\colorize.gif"
	.HTMLPicture("P4") = "c:\exontrol\images\auction.gif"
	With .FrontFace
		.RelativeMargins = "0,32,0,0"
		.Title(exTitleFaceCaption) = "<c><font ;18>Notifications"
		.Title(exTitleFaceBackgroundExt) = "bottom[2],bottom[4,back=RGB(0,0,0)]"
		With .CreateTree
			.HasLines = exNoLine
			.DrawGridLines = exNoLines
			.ItemPadding = 24
			.HeaderVisible = False
			.ShowSelection = False
			.Columns.Add("Default").Alignment = LeftAlignment
			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 exFrontFace
	.AlwaysEnsureVisibleFace = exFitToEnsureFace
	.EndUpdate 
End With

With TreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.ItemPadding = 16
		With .Columns.Add("Pos")
			.FormatColumn = "1 pos ``"
			.Width = 8
		End With
		.Columns.Add("Progress").Alignment = LeftAlignment
		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,exIndexExt4,exClientExt) = "25%"
				.BackgroundExtValue(1,exIndexExt2,exTextExt) = .BackgroundExtValue(1,exIndexExt4,exClientExt)
			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,exIndexExt4,exClientExt) = "15%"
				.BackgroundExtValue(1,exIndexExt2,exTextExt) = .BackgroundExtValue(1,exIndexExt4,exClientExt)
				.BackgroundExtValue(1,exIndexExt4,exBackColorExt) = 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,exIndexExt4,exClientExt) = "75%"
				.BackgroundExtValue(1,exIndexExt2,exTextExt) = .BackgroundExtValue(1,exIndexExt4,exClientExt)
			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,exIndexExt4,exClientExt) = "85%"
				.BackgroundExtValue(1,exIndexExt2,exTextExt) = .BackgroundExtValue(1,exIndexExt4,exClientExt)
			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,exIndexExt4,exClientExt) = "5%"
				.BackgroundExtValue(1,exIndexExt2,exTextExt) = .BackgroundExtValue(1,exIndexExt4,exClientExt)
				.BackgroundExtValue(1,exIndexExt4,exBackColorExt) = 255
			End With
		End With
	End With
End With

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(exCheckBoxState0) = &H1000000
	.Background(exCheckBoxState1) = &H2000000
	.Background(exCheckBoxState2) = &H3000000
	With .FrontFace.CreateTree
		.HasLines = exThinLine
		.ShowSelection = False
		.DrawGridLines = exRowLines
		.ItemPadding = 16
		With .Columns.Add("<c><b>Partial Check")
			.Alignment = LeftAlignment
			.Def(exCellHasCheckBox) = 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

With TreeCube1
	With .FrontFace.CreateCalendar
		.AutoSize = exFitClient
		.MaxMonthX = 1
		.MaxMonthY = 1
	End With
	With CreateObject("Exontrol.Print")
		.PrintExt = TreeCube1.Object
		.Preview 
	End With
End With

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

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

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

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

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

With TreeCube1
	With .FrontFace.CreateTree
		.FullRowSelect = True
		.DrawGridLines = exRowLines
		.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

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

With TreeCube1
	With .FrontFace.CreateTree
		.FullRowSelect = True
		.DrawGridLines = exRowLines
		.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

' MouseMove event - Occurs when the user moves the mouse.
Private Sub TreeCube1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With TreeCube1
		Debug.Print( "Date:" )
		Debug.Print( .FrontFace.FaceCalendar.ValueFromPoint(-1,-1) )
	End With
End Sub

With TreeCube1
	With .FrontFace.CreateCalendar
		.AutoSize = exFitClient
		.MaxMonthX = 1
		.MaxMonthY = 1
	End With
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub TreeCube1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With TreeCube1
		Debug.Print( "Date:" )
		Debug.Print( .FrontFace.FaceCalendar.DateFromPoint(-1,-1) )
	End With
End Sub

With TreeCube1
	With .FrontFace.CreateCalendar
		.AutoSize = exFitClient
		.MaxMonthX = 1
		.MaxMonthY = 1
	End With
End With

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

With TreeCube1
	.IdentifyFace = exIdentifyFaceCaption
End With

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(exCheckBoxState0) = &H1000000
	.Background(exCheckBoxState1) = &H2000000
	.Background(exCheckBoxState2) = &H3000000
	With .FrontFace.CreateTree
		.HasLines = exThinLine
		.ShowSelection = False
		.DrawGridLines = exRowLines
		.ItemPadding = 16
		With .Columns.Add("<c><b>Partial Check")
			.Alignment = LeftAlignment
			.Def(exCellHasCheckBox) = 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

With TreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.DrawGridLines = exNoLines
		.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

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.DrawGridLines = exRowLines
		.ItemPadding = 12
		With .Columns.Add("<c><b>Items")
			.Alignment = LeftAlignment
			.Def(exCellSingleLine) = 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

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(exRadioButtonState0) = &H1000000
	.Background(exRadioButtonState1) = &H2000000
	With .FrontFace.CreateTree
		.ShowSelection = False
		.DrawGridLines = exRowLines
		.ItemPadding = 12
		With .Columns.Add("<c><b>Radio")
			.Alignment = LeftAlignment
			.Def(exCellHasRadioButton) = True
		End With
		.Items.ToString = "Radio 1,Radio 2,Radio 3,Radio 4"
		.ItemByIndex(1).State(0) = 1
	End With
	.EndUpdate 
End With

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(exCheckBoxState0) = &H1000000
	.Background(exCheckBoxState1) = &H2000000
	With .FrontFace.CreateTree
		.ShowSelection = False
		.DrawGridLines = exRowLines
		.ItemPadding = 16
		With .Columns.Add("<c><b>Check")
			.Alignment = LeftAlignment
			.Def(exCellHasCheckBox) = True
		End With
		.Items.ToString = "Check A,Check B,Check C,Check D"
		.ItemByIndex(1).State(0) = 1
	End With
	.EndUpdate 
End With

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(exCheckBoxState0) = &H1000000
	.Background(exCheckBoxState1) = &H2000000
	With .FrontFace.CreateTree
		.ShowSelection = False
		.DrawGridLines = exRowLines
		.ItemPadding = 16
		With .Columns.Add("<c><b>Check")
			.Alignment = LeftAlignment
			.Def(exCellHasCheckBox) = True
		End With
		.Items.ToString = "Check A,Check B,Check C,Check D"
		.ItemByIndex(1).State(0) = 1
	End With
	.EndUpdate 
End With

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(exCheckBoxState0) = &H1000000
	.Background(exCheckBoxState1) = &H2000000
	.Background(exCheckBoxState2) = &H3000000
	With .FrontFace.CreateTree
		.ShowSelection = False
		.DrawGridLines = exRowLines
		.ItemPadding = 16
		With .Columns.Add("<c><b>Check")
			.Alignment = LeftAlignment
			.Def(exCellHasCheckBox) = True
		End With
		.Items.ToString = "Check A,Check B,Check C,Check D"
		.ItemByIndex(1).State(0) = 1
	End With
	.EndUpdate 
End With

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(exCheckBoxState0) = &H1000000
	.Background(exCheckBoxState1) = &H2000000
	.Background(exCheckBoxState2) = &H3000000
	With .FrontFace.CreateTree
		.ShowSelection = False
		.DrawGridLines = exRowLines
		.ItemPadding = 16
		With .Columns.Add("<c><b>Check")
			.Alignment = LeftAlignment
			.Def(exCellHasCheckBox) = True
		End With
		.Items.ToString = "Check A,Check B,Check C,Check D"
		.ItemByIndex(1).State(0) = 1
	End With
	.EndUpdate 
End With

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(exCheckBoxState0) = &H1000000
	.Background(exCheckBoxState1) = &H2000000
	With .FrontFace.CreateTree
		.ShowSelection = False
		.DrawGridLines = exRowLines
		.ItemPadding = 16
		With .Columns.Add("<c><b>Check")
			.Alignment = LeftAlignment
			.Def(exCellHasCheckBox) = True
		End With
		.Items.ToString = "Check A,Check B,Check C,Check D"
		.ItemByIndex(1).State(0) = 1
	End With
	.EndUpdate 
End With

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(exCheckBoxState0) = &H1000000
	.Background(exCheckBoxState1) = &H2000000
	With .FrontFace.CreateTree
		.ShowSelection = False
		.DrawGridLines = exRowLines
		.ItemPadding = 12
		With .Columns.Add("<c><b>Check")
			.Alignment = LeftAlignment
			.Def(exCellHasCheckBox) = True
		End With
		.Items.ToString = "Check A,Check B,Check C,Check D"
		.ItemByIndex(1).State(0) = 1
	End With
	.EndUpdate 
End With

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.HasLines = exThinLine
		.ItemPadding = 10
		.DrawGridLines = exRowLines
		.Columns.Add("<c>Default").Alignment = LeftAlignment
		With .Columns.Add("Pos")
			.Position = 0
			.Alignment = LeftAlignment
			.FormatColumn = "1 rpos ``"
			.Width = 24
		End With
		With .Columns.Add("Pos")
			.Alignment = LeftAlignment
			.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

With TreeCube1
	.BeginUpdate 
	.CheckBoxWidth = 32
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.ShowSelection = False
		.DrawGridLines = exRowLines
		.ItemPadding = 10
		With .Columns.Add("<c><b>Check")
			.Alignment = LeftAlignment
			.Def(exCellHasCheckBox) = True
		End With
		.Items.ToString = "Item A,Item B,Item C,Item D"
		.ItemByIndex(1).State(0) = 1
	End With
	.EndUpdate 
End With

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.ShowSelection = False
		.DrawGridLines = exRowLines
		.ItemPadding = 10
		With .Columns.Add("<c><b>Def")
			.Alignment = LeftAlignment
			.Def(exCellPaddingLeft) = 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

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.ShowSelection = False
		.DrawGridLines = exRowLines
		.ItemPadding = 10
		With .Columns.Add("<c><b>Def")
			.Alignment = LeftAlignment
			.Def(exCellPaddingLeft) = 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

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.ShowSelection = False
		.DrawGridLines = exRowLines
		.ItemPadding = 10
		With .Columns.Add("<c><b>Radio")
			.Alignment = LeftAlignment
			.Def(exCellHasRadioButton) = True
		End With
		.Items.ToString = "Item A,Item B,Item C,Item D"
		.ItemByIndex(1).State(0) = 1
	End With
	.EndUpdate 
End With

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.ShowSelection = False
		.DrawGridLines = exRowLines
		.ItemPadding = 10
		With .Columns.Add("<c><b>Check")
			.Alignment = LeftAlignment
			.Def(exCellHasCheckBox) = True
		End With
		.Items.ToString = "Item A,Item B,Item C,Item D"
		.ItemByIndex(1).State(0) = 1
	End With
	.EndUpdate 
End With

With TreeCube1
	.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Chapel"
	.Background(exDateHeaderForeColor) = RGB(1,0,0)
	With .FrontFace.CreateCalendar
		.ForeColor = RGB(255,255,255)
		.NonworkingDays = 0
		.Value = #12/31/2016#
	End With
End With

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

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

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	.HasButtons = exArrow
	With .FrontFace.CreateTree
		.ItemPadding = 10
		.HeaderVisible = False
		.HasLines = exSolidLine
		.LinesAtRoot = exGroupLines
		.GridLineStyle = exGridLinesSolid
		.DrawGridLines = exAllLines
		.Columns.Add("").Alignment = LeftAlignment
		With .Columns.Add("")
			.Alignment = RightAlignment
			.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

With TreeCube1
	.BeginUpdate 
	With .FrontFace.CreateTree
		.FullRowSelect = True
		.Columns.Count = 3
		With .Columns.Item(0)
			.Caption = "<b><c>Pos"
			.Alignment = LeftAlignment
			.FormatColumn = "0 pos ``"
			.Width = 64
		End With
		.Items.Count = TreeCube1.FrontFace.FaceTree.VisibleItemsCount
		.SelectItem = 1
	End With
	.EnsureVisibleFace exFrontFace
	.EndUpdate 
End With

With TreeCube1
	.BeginUpdate 
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	With .FrontFace.CreateTree
		.BackColorHeader = &H1000000
		.Columns.Count = 5
	End With
	.EnsureVisibleFace exFrontFace
	.EndUpdate 
End With

With TreeCube1
	.BeginUpdate 
	With .FrontFace.CreateTree
		.ColumnAutoResize = False
		.Columns.Count = 20
	End With
	.EnsureVisibleFace exFrontFace
	.EndUpdate 
End With

With TreeCube1
	.BeginUpdate 
	With .FrontFace.CreateTree
		.ItemPadding = 10
		.LinesAtRoot = exGroupLines
		.DrawGridLines = exRowLines
		.Columns.Add("Default").Alignment = LeftAlignment
		With .Columns.Add("Pos")
			.Position = 0
			.Alignment = LeftAlignment
			.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

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

With TreeCube1
	.BeginUpdate 
	With .FrontFace.CreateTree
		.ExpandOnDblClick = True
		.ItemPadding = 10
		.HeaderVisible = False
		.LinesAtRoot = exGroupLines
		.DrawGridLines = exRowLines
		.Columns.Add("").Alignment = LeftAlignment
		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

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

With TreeCube1
	With .FrontFace.CreateCalendar
		.Value = #1/2/2001#
		.MonthNames = .LocMonthNames()
		.WeekDays = .LocWeekDays(2)
		.FirstWeekDay = .LocFirstWeekDay
		.AutoSize = exFitClient
	End With
End With

With TreeCube1
	.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Earth"
End With

With TreeCube1
	.IdentifyFace = IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	.TexturePicturePath = ""
End With

With TreeCube1
	With .FrontFace.CreateTree
		.ItemPadding = 20
		.HeaderVisible = False
		.DrawGridLines = exNoLines
		With .Items
			.Add "Item A"
			.Add "Item B"
			.Add "Item C"
		End With
	End With
End With

With TreeCube1
	With .FrontFace.CreateTree.Items
		.Add "Item A"
		.Add "Item B"
		.Add "Item C"
	End With
End With

With TreeCube1
	With .FrontFace.CreateTree
		.Items.ToString = "Item A,Item B,Item C"
	End With
End With

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

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

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	.EnsureVisibleFaceMargin = 32
	.EnsureVisibleFaceOnDblClick = False
	.EnsureVisibleFaces = "0,2,1,3,4"
	With .FrontFace.CreateCalendar
		.Date = #1/1/2016#
		.AutoSize = exFitClient
		.MaxMonthX = 1
		.MaxMonthY = 1
		.ShowTodayButton = False
		.FirstWeekDay = exMonday
		.SelBackColor = &H2000000
		.SelForeColor = RGB(0,0,0)
		.ShowNonMonthDays = True
	End With
	d = TreeCube1.FrontFace.FaceCalendar.Date
	With .LeftFace.CreateCalendar
		.Date = d
		.Move exRotateLeft
		.AutoSize = exFitClient
		.MaxMonthX = 1
		.MaxMonthY = 1
		.ShowTodayButton = False
		.FirstWeekDay = exMonday
		.SelBackColor = &H2000000
		.SelForeColor = RGB(0,0,0)
		.ShowNonMonthDays = True
	End With
	With .RightFace.CreateCalendar
		.Date = d
		.Move exRotateRight
		.AutoSize = exFitClient
		.MaxMonthX = 1
		.MaxMonthY = 1
		.ShowTodayButton = False
		.FirstWeekDay = exMonday
		.SelBackColor = &H2000000
		.SelForeColor = RGB(0,0,0)
		.ShowNonMonthDays = True
	End With
	With .BottomFace.CreateCalendar
		.Date = d
		.Move exRotateRight
		.Move exRotateRight
		.AutoSize = exFitClient
		.MaxMonthX = 1
		.MaxMonthY = 1
		.ShowTodayButton = False
		.FirstWeekDay = exMonday
		.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(exDateHeader) = &H1000000
	.Background(exWeeksHeader) = RGB(250,250,250)
	.Background(exDaysHeader) = RGB(250,250,250)
	.Background(exDateTodayUp) = &H2000000
	.Background(exDateTodayForeColor) = RGB(255,255,255)
	.EnsureVisibleFace exFrontFace
	.EndUpdate 
End With

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

With TreeCube1
	With .FrontFace
		.Type = exFaceTree
		With .FaceTree
			.Items.ToString = "Item <b>1,Item <b>2,Item <b>3"
			.SelectItem = 1
		End With
	End With
End With

With TreeCube1
	With .FrontFace
		With .CreateCalendar
			.AutoSize = exFitClient
			.Value = #12/31/1971#
		End With
	End With
End With

With TreeCube1
	With .FrontFace
		.Type = exFaceCalendar
		With .FaceCalendar
			.AutoSize = exFitClient
			.Value = #12/31/1971#
		End With
	End With
End With

With TreeCube1
	.IdentifyFace = IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	With .FrontFace
		With .CreatePicture
			.Picture = TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
			.PictureDisplay = Tile
			.Width = "2 * pwidth"
			.Height = "2 * pheight"
			.Top = "122"
			.Left = "46"
		End With
	End With
End With

With TreeCube1
	.IdentifyFace = IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	With .FrontFace
		.Type = exFacePicture
		With .FacePicture
			.Picture = TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
			.PictureDisplay = Tile
			.Width = "2 * pwidth"
			.Height = "2 * pheight"
			.Top = "122"
			.Left = "46"
		End With
	End With
End With

With TreeCube1
	.EnsureVisibleFaces = "0"
End With

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	.DefaultFaceType = exFaceCalendar
	.TransparentContent = 75
	.FrontFace.TransparentContent = 0
	.EndUpdate 
End With

With TreeCube1
	.BeginUpdate 
	.Margins = "0,0,0,0"
	With .FrontFace
		.Type = exFaceCalendar
		With .FaceCalendar
			.ShowNonMonthDays = True
			.AutoSize = exFitClient
		End With
	End With
	.EndUpdate 
End With

' InitFaceContent event - Notifies your application that a face changes its type, so you can initialize its content.
Private Sub TreeCube1_InitFaceContent(ByVal Face As EXTREECUBELibCtl.IFace)
	' Face.FaceContent.ShowTodayButton = False
End Sub

With TreeCube1
	.DefaultFaceType = exFaceCalendar
End With

With TreeCube1
	.OnMouseWheel = exMouseWheelNothing
End With

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

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

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

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

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

With TreeCube1
	.BeginUpdate 
	.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAADhABXgCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDIAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZZmWCQCglf5HABRb7xPLoARTAaeJKoWboJAiGwLQjQUyABSdEyRJSLYhGIZRFqKZIRDSMFiwTZNVypAaIYqqaA6qzfJymabAAZJEradozTLIE7xVLEVYNKCm" & _
"ZCwMAAcgmEQgSTAda2BYELTzECoYDGCrcKpWCaNQLWEB5BQeJSNL6kIqsazgAqPLJtWhaVwxXIEI5AAC5QA0S7pOxeO6JbRGdZbNrlbz1PTMaazTgYDzmWqiYxxMraXx" & _
"SlmMprGsIpVl2LRnD0A5bnSN49mAARAlIYw6B0ThGFGDIBG0QghBMfZRiGNAkFECZoG6YQBgiOgCmuRRSg6GAElWAJMkgFgGgGYIIAyVQ7GCRhUAAOQhAMBgSDWIRDG4" & _
"Fg3CGCBmBmBYNjgUJWDIIgIECZBCEsKIUkqCZhiiJgqgaYRjB4LguiMBAkiqDLenYrBjgiZg6gGIwyioMoNCAWJqEKEJjkiTg/CqIxZA4SoNmQWJ5AODxMlkRJehSZRJ" & _
"FYVoVmUEw2D2EZlhkXhehfURuE+DJllkfhmhUJgZBoYwqiWEx+G6G5nAmRhyhoZJgAIUIUGcKZmHqHQlkmYh6h+Zp5nIawzigQ4CgaIZogoJoKiEDJpgodoMmiSgqhKJ" & _
"NxDoPQzmmA4GhqJppkodoeiYDJ6FpaQpmqFomigKgiiqJIpiqShuiiGoonqKoZisapaj4dYl3WCo6i6a5KnaPotiQeoCj6MJsEsAhrDQLIDg6SoymySw2k6MgNAqJpQj" & _
"OLRLFaUI0iyGxWlq/p6kIPY0m2Oxul2LZjDMRpmgiLoLiaaoIi4YxGinoY7kaauhnuGJlj2b4Lmaeo+m8Sx6mWOZhAubwCj2bpLhqKYJkyKTnECThYgoVJCCiYpPBIL5" & _
"xEMLwWjsTQsGcGpGi6XBYkuRQLvcIhCE8DIWDCSZLiKdwqC+MpMjcLZKguXIcjiTJyFOQYnD+TYMmSLZOkmHJ3D6T50AybItiGYJji2MwABAECAg="
	.Background(exDateHeader) = &H1000000
	.Background(exWeeksHeader) = RGB(250,250,250)
	.Background(exDaysHeader) = RGB(250,250,250)
	.Background(exDateTodayUp) = &H2000000
	.Background(exDateTodayForeColor) = RGB(255,255,255)
	.TexturePicturePath = ""
	.DefaultFaceType = exFaceCalendar
	.AlwaysEnsureVisibleFace = EnsureVisibleFaceEnum.exAlwaysVisibleFrontFace Or EnsureVisibleFaceEnum.exFitToEnsureFace
	.FrontFace.FaceCalendar.Date = #1/1/2016#
	.EndUpdate 
End With

With TreeCube1
	.EnsureVisibleFace exDownFace,False
	.AlwaysEnsureVisibleFace = EnsureVisibleFaceEnum.exAlwaysVisibleFrontFace Or EnsureVisibleFaceEnum.exFitToEnsureFace
End With

With TreeCube1
	With .FrontFace
		.Type = exFaceCalendar
		With .FaceCalendar
			.Date = #1/1/2001#
			.SelDate = .Date
			.MinDate = #1/1/2001#
			.MaxDate = #1/31/2001#
			.FirstWeekDay = exMonday
			.ShowWeeks = False
			.ShowNonMonthDays = False
			.ShowTodayButton = False
			.MaxMonthX = .MinMonthX
			.MaxMonthY = .MinMonthY
		End With
	End With
End With

With TreeCube1
	With .FrontFace
		.Type = exFaceCalendar
		.FaceCalendar.ShowNonMonthDays = False
	End With
End With

With TreeCube1
	.EnsureVisibleFaceOnDblClick = False
End With

With TreeCube1
	.BeginUpdate 
	.HTMLPicture("logo") = "c:\exontrol\images\zipdisk.gif"
	With .FrontFace
		.Type = exFaceCalendar
		.FaceCalendar.ShowTodayButton = False
		.ExtraTitle("extra",exTitleFaceCaption) = "<img>logo</img>"
		.ExtraTitle("extra",exTitleFaceAnchor) = 0
		.ExtraTitle("extra",exTitleFaceHTMLRotate) = 0
		.ExtraTitle("extra",exTitleFaceHTMLRotate) = 0
		.ExtraTitle("extra",exTitleFaceLeft) = "(width-twidth)/2"
		.ExtraTitle("extra",exTitleFaceTop) = "(height-theight)/2"
		.ExtraTitle("extra",exTitleFaceWidth) = "twidth"
		.ExtraTitle("extra",exTitleFaceHeight) = "theight"
		.ExtraTitle("extra",exTitleFaceVisible) = 1
	End With
	.FrontFace.FaceCalendar.ForeColor = RGB(255,0,0)
	.EndUpdate 
End With

With TreeCube1
	.BeginUpdate 
	.HTMLPicture("logo") = "c:\exontrol\images\zipdisk.gif"
	With .FrontFace
		.Type = exFaceCalendar
		.FaceCalendar.ShowTodayButton = False
		.ExtraTitle("extra",exTitleFaceCaption) = "<r><img>logo</img>"
		.ExtraTitle("extra",exTitleFaceAnchor) = 2
		.ExtraTitle("extra",exTitleFaceHTMLRotate) = 0
	End With
	.EndUpdate 
End With

With TreeCube1
	.BeginUpdate 
	With .FrontFace
		.Type = exFaceCalendar
		.FaceCalendar.ShowTodayButton = False
		.Title(exTitleFaceCaption) = "<font ;18><c><fgcolor=0000FF>This is the title"
		.ExtraTitle("extra",exTitleFaceCaption) = "<font ;18><c><fgcolor=FF0000>This is the extra title"
		.ExtraTitle("extra",exTitleFaceAnchor) = 2
	End With
	.EndUpdate 
End With

With TreeCube1
	.BeginUpdate 
	With .FrontFace
		.Title(exTitleFaceCaption) = "<font ;18><c>This is the title"
		.Type = exFaceCalendar
		.FaceCalendar.ShowTodayButton = False
		.Title(exTitleFaceAnchor) = 4
	End With
	.EndUpdate 
End With

With TreeCube1
	.BeginUpdate 
	With .FrontFace
		.Title(exTitleFaceCaption) = "<font ;18><c>This is the title"
		.Type = exFaceCalendar
		.FaceCalendar.ShowTodayButton = False
		.Title(exTitleFaceAnchor) = 2
		.Title(exTitleFaceHTMLRotate) = 0
	End With
	.EndUpdate 
End With

With TreeCube1
	.BeginUpdate 
	With .FrontFace
		.Title(exTitleFaceCaption) = "<font ;18><c><bgcolor=FFFFFF>This is the title"
		.Type = exFaceCalendar
		.Title(exTitleFaceVisible) = -1
		.Title(exTitleFaceTop) = "(height-theight)/2"
	End With
	.EndUpdate 
End With

With TreeCube1
	.BeginUpdate 
	With .FrontFace
		.Title(exTitleFaceCaption) = "<font ;18><c>This is the title"
		.Type = exFaceCalendar
	End With
	.EndUpdate 
End With

With TreeCube1
	.IdentifyFace = IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	With .FrontFace
		.Type = exFacePicture
		With .FacePicture
			.Picture = TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
			.PictureDisplay = Tile
			.Width = "2 * pwidth"
			.Height = "2 * pheight"
			.Top = "122"
			.Left = "46"
		End With
	End With
End With

With TreeCube1
	.IdentifyFace = IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	With .FrontFace
		.Type = exFacePicture
		With .FacePicture
			.Picture = TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
			.PictureDisplay = LowerRight
			.Width = "width"
			.Height = "height"
			.Top = "0"
			.Left = "0"
		End With
	End With
End With

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	.Face(exFrontFace).Picture = TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.Face(exBottomFace).Picture = TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
	.Face(exRightFace).Picture = TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
	.Face(exLeftFace).Picture = TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
	.Face(exTopFace).Picture = TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
	.Face(exDownFace).Picture = TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.AlwaysEnsureVisibleFace = exDisableEnsureVisibleFace
	.EndUpdate 
End With

With TreeCube1
	.BeginUpdate 
	.Transparent = 80
	.TexturePicturePath = "C:\Program Files\Exontrol\ExTexture\Sample\Texture\VW"
	.AlwaysEnsureVisibleFace = exDisableEnsureVisibleFace
	.IdentifyFace = exIdentifyFaceFrame
	With .TopFace
		.Type = exFaceCalendar
		With .FaceCalendar
			.Date = #2/1/2016#
			.MaxMonthX = 1
			.MaxMonthY = 1
		End With
	End With
	With .LeftFace
		.Type = exFaceCalendar
		With .FaceCalendar
			.Date = #3/1/2016#
			.MaxMonthX = 1
			.MaxMonthY = 1
		End With
	End With
	With .FrontFace
		.Type = exFaceCalendar
		With .FaceCalendar
			.Date = #4/1/2016#
			.MaxMonthX = 1
			.MaxMonthY = 1
		End With
	End With
	With .RightFace
		.Type = exFaceCalendar
		With .FaceCalendar
			.Date = #5/1/2016#
			.MaxMonthX = 1
			.MaxMonthY = 1
		End With
	End With
	.ShowAs = exFishEye
	.AlwaysEnsureVisibleFace = exDisableEnsureVisibleFace
	.IdentifyFace = exIdentifyFaceFrame
	.EndUpdate 
End With

With TreeCube1
	.TexturePicturePath = "C:\Program Files\Exontrol\ExTexture\Sample\Texture\VW"
End With

With TreeCube1
	.TexturePicturePath = ""
	.IdentifyFace = IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	.IdentifyFaceCaption = "<sha ;;0><fgcolor=000000>Face <%index%></font> <%name%>"
End With

With TreeCube1
	.BeginUpdate 
	.ShowAs = exFishEye
	.Internals = "zoommin=1;zoomdefault=1;zoommax=1;zoomdivsmall=256;zoomdivlarge=48;fisheyepersp=4"
	.IdentifyFace = exIdentifyFaceFrame
	.TopFace.Type = exFaceCalendar
	.LeftFace.Type = exFaceCalendar
	.FrontFace.Type = exFaceCalendar
	.RightFace.Type = exFaceCalendar
	.EndUpdate 
End With

With TreeCube1
	.BeginUpdate 
	.ShowAs = exOrthographic
	.AlwaysEnsureVisibleFace = exDisableEnsureVisibleFace
	.IdentifyFace = exIdentifyFaceFrame
	.TopFace.Type = exFaceCalendar
	.LeftFace.Type = exFaceCalendar
	.FrontFace.Type = exFaceCalendar
	.RightFace.Type = exFaceCalendar
	.RotX = 0.748933
	.RotY = 0.617099
	.Zoom = 1
	.EndUpdate 
End With

With TreeCube1
	.BeginUpdate 
	.ShowAs = exFishEye
	.AlwaysEnsureVisibleFace = exDisableEnsureVisibleFace
	.IdentifyFace = exIdentifyFaceFrame
	.TopFace.Type = exFaceCalendar
	.LeftFace.Type = exFaceCalendar
	.FrontFace.Type = exFaceCalendar
	.RightFace.Type = exFaceCalendar
	.RotX = 0
	.RotY = 0.8
	.Zoom = 1
	.EndUpdate 
End With

With TreeCube1
	.IdentifyFace = IdentifyFaceEnum.exIdentifyFaceFrame Or IdentifyFaceEnum.exIdentifyFaceName Or IdentifyFaceEnum.exIdentifyFaceCaption
	.RotX = 0.25
	.RotY = 0.75
	.Zoom = 1
End With

With TreeCube1
	.Picture = TreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
End With