110
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)

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(70) = &H1000000
	.Background(71) = &H2000000
	.Background(72) = &H3000000
	With .FrontFace.CreateTree
		.ShowSelection = False
		.DrawGridLines = -2
		.ItemPadding = 16
		With .Columns.Add("<c><b>Check")
			.Alignment = 0
			.Def(0) = True
		End With
		.Items.ToString = "Check A<img>1</img>,Check B<img>2</img>,Check C<img>3</img>"
		.ItemByIndex(1).State(0) = 1
	End With
	.EndUpdate 
End With
109
ImageSize property on 16 (default) (specifies the size of control' icons)

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 = -2
		.ItemPadding = 16
		With .Columns.Add("<c><b>Check")
			.Alignment = 0
			.Def(0) = 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
108
How can I add a hierarchy (multiple-columns), using the Item.ToString method

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

With TreeCube1
	.BeginUpdate 
	.TexturePicturePath = ""
	.CheckBoxWidth = 32
	.CheckBoxHeight = 32
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAADhABfICg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRijDIAbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" & _
"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" & _
"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" & _
"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" & _
"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" & _
"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" & _
"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" & _
"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ=="
		.Add 2,"gBFLBCJwBAEHhEJAADhABcoFg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRijDIAbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" & _
"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" & _
"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" & _
"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" & _
"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" & _
"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" & _
"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" & _
"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" & _
"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" & _
"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" & _
"HGFgLIwQrC2D0JoSQ+QvhrHoHERggR4A2GKMQH4FwBD0CgAgAAkAFhAEwEYAoYAiBeEUBEAYEBRI8EUCIcAVAEDQG0PcZYIBVgSHEAEGojB4j1AeFkHQ+wsBDBQGQTwy" & _
"BdDREMAwNAjQhh+BoMYZA1wNhjEIG8QwwROAmEGCgBQCBgBQHKBoUYDQqiNEGNgGgowQjZA0MMHAZwWBgGsD4I4QBqAfDGJAMgrhAiRBGKQQgPRJAyB8EkJIWQUglGOB" & _
"gZYFgGBYAIDsACmRgjgH0B4EYnQljIBiJwOwRh8DZA2CIGAOwDhRGEDQQwLAulGACJwZYOQ2gtDKMQWglwpDeC6AoUIJgPBiGAAACgggoBDAUPEHgJwShIGwDsEYtBnA" & _
"JHiBoEQxRgCqAoCkeAbBUAhE2C8EwxBcibBkO0TgjxQjIBkIMIATwDCuGAB0QQEAJAtEKDgUQHgBi0DsJ0SI9AygkAwM0KQ4wIBcAUOEfQPRDgSB8BoZIrg1jNFSP0G4" & _
"KACCzA4GMHgWqnjwHYAMDATgDhDHYMATokhpA9AaEAYoFwhDkHmAcHIogUBHAANsDIpR+B0EoEEbIRxUgAH+KMegihIDSB0E2X44BNgRFmAEZINhYhYBQIQYoDgUCFHs" & _
"IgG1hQZhmDgIwCIoRwA7CQGMdYTxniVCAD4OQGhOiHDAJ4BowQSAFAIIAGAcxHBBGGEwRYVB3gfBmDAOoURIi0BsAYQA0KlA0DMA0IImQrhqH6F4VgFRHCxCtLYKwxgy" & _
"hYYGFgNYjQQidCCICllpJUjVAUOwLwxQ2gwEwDUcwmBrh6H4F4BY6A02kAaNjMYYADBrH6IkF4FVPiDGgEgAYWwkUIGAGIYoWQpDuDkMUVARwCjgDMMMAIoRBAuAKIkN" & _
"gHQyBEEIJACBAQA=="
		.Add 3,"gBFLBCJwBAEHhEJAADhABQ4Fg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRijDIAbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" & _
"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" & _
"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" & _
"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" & _
"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" & _
"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" & _
"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" & _
"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" & _
"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" & _
"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" & _
"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" & _
"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" & _
"QuFFBaDOASPcAALgChUDyB4cYtgiiOEyCcEopRCCvEsFIKomQEjnB4L8YgQBfgWEEMgPADhojaDsEcaIlBFiDBqEcRgQQ4ArEOPAfYQhUjmCsMsHIYwShmDmAoDYsRqj" & _
"xAUAkHwPwDjYH2DsEopA9AaECIoFwhRkjmAcHIUAUBHABFsDMJY+B0goEGLIOozhoj/B2CcPg7hPATGdduAALgiiEBsBkd4Fg2iUCEPsG4RxKDDEoMIGARhDiAHaBcZ4" & _
"rbeBUBQPkYo+gFAdE+AwKAEQhjGEUE8aQ1QYBQFCJwTgww1BDEaAEVQMwjBgGoBkSghhIjSBUEkJI6QagpFIHQPgZgojaBsDgIw8BvBgHYAG3QeAUhFFSMQfonwxg2D6" & _
"E8ZQcwnjLG6DYCgjoAitB0IEKIyxigUA8DQZoq5tgiBICoIoUQXDjDgG4BouhFZdBQJEDYQw0BsEsMEawRAkBJACQEA=="
	End With
	.Background(70) = &H1000000
	.Background(71) = &H2000000
	.Background(72) = &H3000000
	With .FrontFace.CreateTree
		.ShowSelection = False
		.DrawGridLines = -2
		.ItemPadding = 16
		With .Columns.Add("<c><b>Check")
			.Alignment = 0
			.Def(0) = True
		End With
		.Items.ToString = "Check A,Check B,Check C,Check D"
		.ItemByIndex(1).State(0) = 1
	End With
	.EndUpdate 
End With
70
How can I change the visual appearance for the control's check boxes (3)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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