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

With AxTreeCube1
	.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
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,16777216)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,33554432)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exCheckBoxState2,50331648)
	With .FrontFace.CreateTree()
		.ShowSelection = False
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 16
		With .Columns.Add("<c><b>Check")
			.Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
			.Def(EXTREECUBELib.DefColumnEnum.exCellHasCheckBox) = True
		End With
		.Items.ToString = "Check A<img>1</img>,Check B<img>2</img>,Check C<img>3</img>"
		.ItemByIndex(1).State(0) = 1
	End With
	.EndUpdate()
End With
109
ImageSize property on 16 (default) (specifies the size of control' icons)

With AxTreeCube1
	.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 = EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 16
		With .Columns.Add("<c><b>Check")
			.Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
			.Def(EXTREECUBELib.DefColumnEnum.exCellHasCheckBox) = True
		End With
		.Items.ToString = "Check A<img>1</img>,Check B<img>2</img>,Check C<img>3</img>"
		.ItemByIndex(1).State(0) = 1
	End With
	.EndUpdate()
End With
108
How can I add a hierarchy (multiple-columns), using the Item.ToString method

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

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

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

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

With AxTreeCube1
	.BeginUpdate()
	.TexturePicturePath = ""
	With .FrontFace
		With .CreateCalendar()
			.AutoSize = EXTREECUBELib.AutoSizeEnum.exFitClient
			.MaxMonthX = .MinMonthX
			.MaxMonthY = .MinMonthY
			.ShowTodayButton = False
		End With
		.ExtraTitle("extra",EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceBackColor) = 15790320
		.ExtraTitle("extra",EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceHeight) = "height"
		.ExtraTitle("extra",EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceVisible) = 1
	End With
	.EndUpdate()
End With
103
How can I change the +/- expanding/collapsing buttons

With AxTreeCube1
	.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
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exTreeGlyphCollapsed,16777216)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exTreeGlyphExpanded,33554432)
	With .FrontFace.CreateTree()
		.ExpandOnDblClick = True
		.ItemPadding = 16
		.HeaderVisible = False
		.HasLines = EXTREECUBELib.HierarchyLineEnum.exThinLine
		.LinesAtRoot = EXTREECUBELib.LinesAtRootEnum.exGroupLinesInside
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exRowLines
		.Columns.Add("Def").Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
		.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 AxTreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exRowLines
		.Columns.ToString = "Column 1,Column 2,Column 3,Column 4"
		.Items.ToString = "1;2;3;4,5;6;7;8,9;10;11;12,13;14;15;16,17;18;29;20,21;22;23;24,25;26;27;28,29;30;31;32"
	End With
End With
101
How can I use the Background property

With AxTreeCube1
	.BeginUpdate()
	.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn")
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exDateHeader,16777216)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exWeeksHeader,16448250)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exDaysHeader,16448250)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exDateTodayUp,33554432)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exDateTodayForeColor,16777215)
	.TexturePicturePath = ""
	With .FrontFace.CreateCalendar()
		.Date = #1/1/2016#
		.AutoSize = EXTREECUBELib.AutoSizeEnum.exFitClient
		.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 AxTreeCube1_FaceTreeStateChanged(ByVal sender As System.Object, ByVal e As AxEXTREECUBELib._ITreeCubeEvents_FaceTreeStateChangedEvent) Handles AxTreeCube1.FaceTreeStateChanged
	With AxTreeCube1
		With .FrontFace.FaceTree.ItemByIndex(e.item)
			Debug.Print( "State" )
			Debug.Print( .State(0) )
		End With
	End With
End Sub

With AxTreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.HeaderVisible = False
		.ItemPadding = 16
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exNoLines
		.Columns.Add("Radio").Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
		With .Items
			With .Add("Group A")
				With .Items
					With .Add("Radio <b>1")
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1234
					End With
					With .Add("Radio <b>2")
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1234
						.State(0) = 1
					End With
					With .Add("Radio <b>3")
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1234
					End With
				End With
				.Expanded = True
			End With
			With .Add("Group B")
				With .Items
					With .Add("Radio <b>1")
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1235
					End With
					With .Add("Radio <b>2")
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1235
					End With
					With .Add("Radio <b>3")
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1235
						.State(0) = 1
					End With
				End With
				.Expanded = True
			End With
		End With
	End With
End With
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 AxTreeCube1_FaceTreeStateChanged(ByVal sender As System.Object, ByVal e As AxEXTREECUBELib._ITreeCubeEvents_FaceTreeStateChangedEvent) Handles AxTreeCube1.FaceTreeStateChanged
	With AxTreeCube1
		With .FrontFace.FaceTree.ItemByIndex(e.item)
			Debug.Print( "State" )
			Debug.Print( .State(0) )
		End With
	End With
End Sub

With AxTreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.HeaderVisible = False
		.ItemPadding = 16
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exNoLines
		.Columns.Add("Check").Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
		With .Items
			.Add("Check <b>1").HasCheckBox(0) = True
			.Add("Check <b>2").HasCheckBox(0) = True
			With .Add("Check <b>3")
				.HasCheckBox(0) = True
				.State(0) = 1
			End With
			.Add("Check <b>4").HasCheckBox(0) = True
		End With
	End With
End With
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 AxTreeCube1_FaceTreeSelectionChanged(ByVal sender As System.Object, ByVal e As AxEXTREECUBELib._ITreeCubeEvents_FaceTreeSelectionChangedEvent) Handles AxTreeCube1.FaceTreeSelectionChanged
	With AxTreeCube1
		Debug.Print( "Value" )
		Debug.Print( .FrontFace.FaceTree.Value )
		Debug.Print( "Caption" )
		Debug.Print( .FrontFace.FaceTree.Caption )
	End With
End Sub

With AxTreeCube1
	.TexturePicturePath = ""
	With .FrontFace
		With .CreateTree()
			.ItemPadding = 20
			.Columns.Count = 5
			.HeaderVisible = False
			.Items.Count = AxTreeCube1.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 AxTreeCube1_FaceTreeSelectionChanged(ByVal sender As System.Object, ByVal e As AxEXTREECUBELib._ITreeCubeEvents_FaceTreeSelectionChangedEvent) Handles AxTreeCube1.FaceTreeSelectionChanged
	With AxTreeCube1
		Debug.Print( "Value" )
		Debug.Print( .FrontFace.FaceTree.Value )
		Debug.Print( "Caption" )
		Debug.Print( .FrontFace.FaceTree.Caption )
	End With
End Sub

With AxTreeCube1
	.TexturePicturePath = ""
	With .FrontFace
		With .CreateTree()
			.ItemPadding = 20
			.Columns.Count = 5
			.HeaderVisible = False
			.Items.Count = AxTreeCube1.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 AxTreeCube1_FaceTreeButtonClick(ByVal sender As System.Object, ByVal e As AxEXTREECUBELib._ITreeCubeEvents_FaceTreeButtonClickEvent) Handles AxTreeCube1.FaceTreeButtonClick
	With AxTreeCube1
		Debug.Print( e.item )
		Debug.Print( e.column )
	End With
End Sub

With AxTreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exNoLines
		.ItemPadding = 16
		With .Columns.Add("Buttons")
			.FormatColumn = "1 index `A-Z`"
			.Def(EXTREECUBELib.DefColumnEnum.exCellHasButton) = True
		End With
		.Items.Count = 4
	End With
End With
95
How do I programmatically selects a date (method 2)
With AxTreeCube1
	With .FrontFace.CreateCalendar()
		.Value = "Jan 21"
	End With
End With
94
How do I programmatically selects a date (method 1)
With AxTreeCube1
	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 AxTreeCube1_AnchorClick(ByVal sender As System.Object, ByVal e As AxEXTREECUBELib._ITreeCubeEvents_AnchorClickEvent) Handles AxTreeCube1.AnchorClick
	With AxTreeCube1
		Debug.Print( e.face )
		Debug.Print( e.anchorID )
		Debug.Print( e.options )
	End With
End Sub

With AxTreeCube1
	With .FrontFace.CreateTree()
		.ShowSelection = False
		.HeaderVisible = False
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exNoLines
		.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

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

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

With AxTreeCube1
	.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
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,16777216)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,33554432)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exCheckBoxState2,32567536)
	.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
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exRadioButtonState0,50331648)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exRadioButtonState1,67108864)
	With .RightFace
		.RelativeMargins = "0,32,0,0"
		.Title(EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceCaption) = "<c><font ;18>Table mode"
		.Title(EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceBackgroundExt) = "bottom[2],bottom[4,back=RGB(0,0,0)]"
		With .CreateTree()
			.HasLines = EXTREECUBELib.HierarchyLineEnum.exNoLine
			.DrawGridLines = EXTREECUBELib.GridLinesEnum.exNoLines
			.ItemPadding = 24
			.HeaderVisible = False
			.ShowSelection = False
			.Columns.Add("Default").Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
			With .Items
				With .Add("Make windows more touch-friendly when using your device as a table")
					.SingleLine(0) = False
					With .Items.Add("")
						.Height = 24
						.HasCheckBox(0) = True
						.State(0) = 0
						.FormatCell(0) = "state = 0 ? `Off` : `On`"
					End With
					.Expanded = True
				End With
				With .Add("When I sign in")
					.SingleLine(0) = False
					With .Items.Add("Automatically swicth to table mode")
						.Height = 24
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1234
					End With
					With .Items.Add("Go to the desktop")
						.Height = 24
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1234
					End With
					With .Items.Add("Remember what I used last")
						.Height = 24
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1234
						.State(0) = 1
					End With
					.Expanded = True
				End With
				With .Add("When this device automatically switches table mode on or off")
					.SingleLine(0) = False
					With .Items.Add("Don't ask me and dont' switch")
						.Height = 24
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1235
					End With
					With .Items.Add("Always ask me before switching")
						.Height = 24
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1235
						.State(0) = 1
					End With
					With .Items.Add("Don't ask me and always' switch")
						.Height = 24
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1235
					End With
					.Expanded = True
				End With
				With .Add("Hide app icons on the taskbar in table mode")
					.SingleLine(0) = False
					With .Items.Add("")
						.Height = 24
						.HasCheckBox(0) = True
						.State(0) = 0
						.FormatCell(0) = "state = 0 ? `Off` : `On`"
					End With
					.Expanded = True
				End With
			End With
		End With
	End With
	.EnsureVisibleFaceMargin = 0
	.EnsureVisibleFace(EXTREECUBELib.FaceEnum.exRightFace)
	.AlwaysEnsureVisibleFace = EXTREECUBELib.EnsureVisibleFaceEnum.exFitToEnsureFace
	.EndUpdate()
End With
89
How can I display more group of radio-buttons

With AxTreeCube1
	.BeginUpdate()
	.TexturePicturePath = ""
	With .LeftFace
		.RelativeMargins = "0,32,0,0"
		.Title(EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceCaption) = "<c><font ;18>Multitasking"
		.Title(EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceBackgroundExt) = "bottom[2],bottom[4,back=RGB(0,0,0)]"
		With .CreateTree()
			.HasLines = EXTREECUBELib.HierarchyLineEnum.exNoLine
			.DrawGridLines = EXTREECUBELib.GridLinesEnum.exNoLines
			.ItemPadding = 24
			.HeaderVisible = False
			.ShowSelection = False
			.Columns.Add("Default").Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
			With .Items
				With .Add("Snap")
					.Divider = 0
					.Bold = True
				End With
				With .Add("Arrange windows automatically by dragging them to the sides of corners of the scree")
					.SingleLine(0) = False
					With .Items.Add("")
						.Height = 24
						.HasCheckBox(0) = True
						.State(0) = 1
						.FormatCell(0) = "state = 0 ? `Off` : `On`"
					End With
					.Expanded = True
				End With
				With .Add("When I snap more than one window, automatically adjust the size of the windows")
					.SingleLine(0) = False
					With .Items.Add("")
						.Height = 24
						.HasCheckBox(0) = True
						.State(0) = 1
						.FormatCell(0) = "state = 0 ? `Off` : `On`"
					End With
					.Expanded = True
				End With
				With .Add("When I snap a window, show what I can snap next to it")
					.SingleLine(0) = False
					With .Items.Add("")
						.Height = 24
						.HasCheckBox(0) = True
						.FormatCell(0) = "state = 0 ? `Off` : `On`"
					End With
					.Expanded = True
				End With
				With .Add("Virtual desktops")
					.Divider = 0
					.Bold = True
				End With
				With .Add("On the taskbar, show windows that are open on:")
					.SingleLine(0) = False
					With .Items.Add("Only the desktop I'm using")
						.Height = 24
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1234
						.State(0) = 1
					End With
					With .Items.Add("All desktops")
						.Height = 24
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1234
					End With
					.Expanded = True
				End With
				With .Add("Pressing ALT+TAB, show windows that are open on:")
					.SingleLine(0) = False
					With .Items.Add("Only the desktop I'm using")
						.Height = 24
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1235
						.State(0) = 1
					End With
					With .Items.Add("All desktops")
						.Height = 24
						.HasRadioButton(0) = True
						.RadioGroup(0) = 1235
					End With
					.Expanded = True
				End With
			End With
		End With
	End With
	.EnsureVisibleFaceMargin = 0
	.EnsureVisibleFace(EXTREECUBELib.FaceEnum.exLeftFace)
	.AlwaysEnsureVisibleFace = EXTREECUBELib.EnsureVisibleFaceEnum.exFitToEnsureFace
	.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 AxTreeCube1_FaceTreeButtonClick(ByVal sender As System.Object, ByVal e As AxEXTREECUBELib._ITreeCubeEvents_FaceTreeButtonClickEvent) Handles AxTreeCube1.FaceTreeButtonClick
	With AxTreeCube1
		Debug.Print( "FaceTreeButtonClick" )
	End With
End Sub

' FaceTreeStateChanged event - Notifies that a cell changes its state into a face of tree type.
Private Sub AxTreeCube1_FaceTreeStateChanged(ByVal sender As System.Object, ByVal e As AxEXTREECUBELib._ITreeCubeEvents_FaceTreeStateChangedEvent) Handles AxTreeCube1.FaceTreeStateChanged
	With AxTreeCube1
		Debug.Print( "FaceTreeStateChanged" )
	End With
End Sub

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

With AxTreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.ItemPadding = 16
		With .Columns.Add("Pos")
			.FormatColumn = "1 pos ``"
			.Width = 8
		End With
		.Columns.Add("Progress").Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
		With .Items
			With .Add("")
				.BackgroundExt(1) = "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
				.BackgroundExtValue(1,EXTREECUBELib.IndexExtEnum.exIndexExt4,EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt) = "25%"
				.BackgroundExtValue(1,EXTREECUBELib.IndexExtEnum.exIndexExt2,EXTREECUBELib.BackgroundExtPropertyEnum.exTextExt) = .BackgroundExtValue(1,EXTREECUBELib.IndexExtEnum.exIndexExt4,EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt)
			End With
			With .Add("")
				.BackgroundExt(1) = "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
				.BackgroundExtValue(1,EXTREECUBELib.IndexExtEnum.exIndexExt4,EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt) = "15%"
				.BackgroundExtValue(1,EXTREECUBELib.IndexExtEnum.exIndexExt2,EXTREECUBELib.BackgroundExtPropertyEnum.exTextExt) = .BackgroundExtValue(1,EXTREECUBELib.IndexExtEnum.exIndexExt4,EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt)
				.BackgroundExtValue(1,EXTREECUBELib.IndexExtEnum.exIndexExt4,EXTREECUBELib.BackgroundExtPropertyEnum.exBackColorExt) = 65280
			End With
			With .Add("")
				.BackgroundExt(1) = "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
				.BackgroundExtValue(1,EXTREECUBELib.IndexExtEnum.exIndexExt4,EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt) = "75%"
				.BackgroundExtValue(1,EXTREECUBELib.IndexExtEnum.exIndexExt2,EXTREECUBELib.BackgroundExtPropertyEnum.exTextExt) = .BackgroundExtValue(1,EXTREECUBELib.IndexExtEnum.exIndexExt4,EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt)
			End With
			With .Add("")
				.BackgroundExt(1) = "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
				.BackgroundExtValue(1,EXTREECUBELib.IndexExtEnum.exIndexExt4,EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt) = "85%"
				.BackgroundExtValue(1,EXTREECUBELib.IndexExtEnum.exIndexExt2,EXTREECUBELib.BackgroundExtPropertyEnum.exTextExt) = .BackgroundExtValue(1,EXTREECUBELib.IndexExtEnum.exIndexExt4,EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt)
			End With
			With .Add("")
				.BackgroundExt(1) = "none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))"
				.BackgroundExtValue(1,EXTREECUBELib.IndexExtEnum.exIndexExt4,EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt) = "5%"
				.BackgroundExtValue(1,EXTREECUBELib.IndexExtEnum.exIndexExt2,EXTREECUBELib.BackgroundExtPropertyEnum.exTextExt) = .BackgroundExtValue(1,EXTREECUBELib.IndexExtEnum.exIndexExt4,EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt)
				.BackgroundExtValue(1,EXTREECUBELib.IndexExtEnum.exIndexExt4,EXTREECUBELib.BackgroundExtPropertyEnum.exBackColorExt) = 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 AxTreeCube1
	.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
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,16777216)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,33554432)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exCheckBoxState2,50331648)
	With .FrontFace.CreateTree()
		.HasLines = EXTREECUBELib.HierarchyLineEnum.exThinLine
		.ShowSelection = False
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 16
		With .Columns.Add("<c><b>Partial Check")
			.Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
			.Def(EXTREECUBELib.DefColumnEnum.exCellHasCheckBox) = True
			.FormatColumn = "`Check <b>` + 1 rpos `` + '</b> ' + (state=0 ? `<off 4>(off)` : (state=1 ? `<off 4>(on)` : ``))"
			.PartialCheck = True
		End With
		.Items.Count = AxTreeCube1.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 AxTreeCube1
	With .FrontFace.CreateCalendar()
		.AutoSize = EXTREECUBELib.AutoSizeEnum.exFitClient
		.MaxMonthX = 1
		.MaxMonthY = 1
	End With
	With CreateObject("Exontrol.Print")
		.PrintExt = AxTreeCube1.GetOcx()
		.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 AxTreeCube1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXTREECUBELib._ITreeCubeEvents_MouseMoveEvent) Handles AxTreeCube1.MouseMoveEvent
	With AxTreeCube1
		Debug.Print( .FrontFace.FaceTree.CaptionFromPoint(-1,-1) )
	End With
End Sub

With AxTreeCube1
	.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 AxTreeCube1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXTREECUBELib._ITreeCubeEvents_MouseMoveEvent) Handles AxTreeCube1.MouseMoveEvent
	With AxTreeCube1
		Debug.Print( .FrontFace.FaceTree.ValueFromPoint(-1,-1) )
	End With
End Sub

With AxTreeCube1
	.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 AxTreeCube1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXTREECUBELib._ITreeCubeEvents_MouseMoveEvent) Handles AxTreeCube1.MouseMoveEvent
	With AxTreeCube1
		Debug.Print( .FrontFace.FaceTree.ColumnFromPoint(-1,-1) )
	End With
End Sub

With AxTreeCube1
	With .FrontFace.CreateTree()
		.FullRowSelect = True
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exRowLines
		.Columns.Add("A").FormatColumn = "0 pos `A-Z`"
		.Columns.Add("B").FormatColumn = "0 pos `B-Z`"
		.Columns.Add("C").FormatColumn = "0 pos `C-Z`"
		.Columns.Add("D").FormatColumn = "0 pos `D-Z`"
		.Items.Count = 4
	End With
End With
81
How can I get the item from the point
' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxTreeCube1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXTREECUBELib._ITreeCubeEvents_MouseMoveEvent) Handles AxTreeCube1.MouseMoveEvent
	With AxTreeCube1
		Debug.Print( .FrontFace.FaceTree.ItemFromPoint(-1,-1) )
	End With
End Sub

With AxTreeCube1
	With .FrontFace.CreateTree()
		.FullRowSelect = True
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exRowLines
		.Columns.Add("A").FormatColumn = "0 pos `A-Z`"
		.Columns.Add("B").FormatColumn = "0 pos `B-Z`"
		.Columns.Add("C").FormatColumn = "0 pos `C-Z`"
		.Columns.Add("D").FormatColumn = "0 pos `D-Z`"
		.Items.Count = 4
	End With
End With
80
How can I get the value from the point (calendar's date)
' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxTreeCube1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXTREECUBELib._ITreeCubeEvents_MouseMoveEvent) Handles AxTreeCube1.MouseMoveEvent
	With AxTreeCube1
		Debug.Print( "Date:" )
		Debug.Print( .FrontFace.FaceCalendar.ValueFromPoint(-1,-1) )
	End With
End Sub

With AxTreeCube1
	With .FrontFace.CreateCalendar()
		.AutoSize = EXTREECUBELib.AutoSizeEnum.exFitClient
		.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 AxTreeCube1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXTREECUBELib._ITreeCubeEvents_MouseMoveEvent) Handles AxTreeCube1.MouseMoveEvent
	With AxTreeCube1
		Debug.Print( "Date:" )
		Debug.Print( .FrontFace.FaceCalendar.DateFromPoint(-1,-1) )
	End With
End Sub

With AxTreeCube1
	With .FrontFace.CreateCalendar()
		.AutoSize = EXTREECUBELib.AutoSizeEnum.exFitClient
		.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 AxTreeCube1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXTREECUBELib._ITreeCubeEvents_MouseMoveEvent) Handles AxTreeCube1.MouseMoveEvent
	With AxTreeCube1
		Debug.Print( "Face:" )
		Debug.Print( .get_FaceFromPoint(-1,-1) )
	End With
End Sub

With AxTreeCube1
	.IdentifyFace = EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceCaption
End With
77
Does your control support partial-check feature

With AxTreeCube1
	.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
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,16777216)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,33554432)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exCheckBoxState2,50331648)
	With .FrontFace.CreateTree()
		.HasLines = EXTREECUBELib.HierarchyLineEnum.exThinLine
		.ShowSelection = False
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 16
		With .Columns.Add("<c><b>Partial Check")
			.Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
			.Def(EXTREECUBELib.DefColumnEnum.exCellHasCheckBox) = True
			.FormatColumn = "`Check <b>` + 1 rpos ``"
			.PartialCheck = True
		End With
		.Items.Count = AxTreeCube1.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 AxTreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exNoLines
		.HeaderVisible = False
		.Columns.Count = 4
		.Items.ToString = "1;2;3;4,5;6;7;8,9;10;11;12,13;14;15;16,17;18;29;20,21;22;23;24,25;26;27;28,29;30;31;32"
	End With
End With
75
How can I show the item on multiple-lines

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

With AxTreeCube1
	.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
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exRadioButtonState0,16777216)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exRadioButtonState1,33554432)
	With .FrontFace.CreateTree()
		.ShowSelection = False
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 12
		With .Columns.Add("<c><b>Radio")
			.Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
			.Def(EXTREECUBELib.DefColumnEnum.exCellHasRadioButton) = 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 AxTreeCube1
	.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
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,16777216)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,33554432)
	With .FrontFace.CreateTree()
		.ShowSelection = False
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 16
		With .Columns.Add("<c><b>Check")
			.Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
			.Def(EXTREECUBELib.DefColumnEnum.exCellHasCheckBox) = 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 AxTreeCube1
	.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
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,16777216)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,33554432)
	With .FrontFace.CreateTree()
		.ShowSelection = False
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 16
		With .Columns.Add("<c><b>Check")
			.Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
			.Def(EXTREECUBELib.DefColumnEnum.exCellHasCheckBox) = 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 AxTreeCube1
	.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
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,16777216)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,33554432)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exCheckBoxState2,50331648)
	With .FrontFace.CreateTree()
		.ShowSelection = False
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 16
		With .Columns.Add("<c><b>Check")
			.Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
			.Def(EXTREECUBELib.DefColumnEnum.exCellHasCheckBox) = 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 AxTreeCube1
	.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
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,16777216)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,33554432)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exCheckBoxState2,50331648)
	With .FrontFace.CreateTree()
		.ShowSelection = False
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 16
		With .Columns.Add("<c><b>Check")
			.Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
			.Def(EXTREECUBELib.DefColumnEnum.exCellHasCheckBox) = 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 AxTreeCube1
	.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
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,16777216)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,33554432)
	With .FrontFace.CreateTree()
		.ShowSelection = False
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 16
		With .Columns.Add("<c><b>Check")
			.Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
			.Def(EXTREECUBELib.DefColumnEnum.exCellHasCheckBox) = 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 AxTreeCube1
	.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
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,16777216)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,33554432)
	With .FrontFace.CreateTree()
		.ShowSelection = False
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 12
		With .Columns.Add("<c><b>Check")
			.Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
			.Def(EXTREECUBELib.DefColumnEnum.exCellHasCheckBox) = 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 AxTreeCube1
	.BeginUpdate()
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.HasLines = EXTREECUBELib.HierarchyLineEnum.exThinLine
		.ItemPadding = 10
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exRowLines
		.Columns.Add("<c>Default").Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
		With .Columns.Add("Pos")
			.Position = 0
			.Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
			.FormatColumn = "1 rpos ``"
			.Width = 24
		End With
		With .Columns.Add("Pos")
			.Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
			.FormatColumn = "1 rpos ``"
			.Width = 24
		End With
		With .Items
			With .Add("<r>Root 1")
				.Bold = True
				.Divider = 0
				.BackColor = RGB(240,240,240)
				.Selectable = False
				With .Items
					.Add("Child 1")
					.Add("Child 2")
					.Add("Child 3")
				End With
			End With
			With .Add("<r>Root 2")
				.Bold = True
				.Divider = 0
				.BackColor = RGB(240,240,240)
				.Selectable = False
				With .Items
					.Add("Child 1")
					.Add("Child 2")
					.Add("Child 3")
				End With
			End With
			.ExpandAll()
		End With
	End With
	.EndUpdate()
End With
66
Is it possible to prevent showing the selecting item ( hide )
With AxTreeCube1
	.BeginUpdate()
	.CheckBoxWidth = 32
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.ShowSelection = False
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 10
		With .Columns.Add("<c><b>Check")
			.Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
			.Def(EXTREECUBELib.DefColumnEnum.exCellHasCheckBox) = 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 AxTreeCube1
	.BeginUpdate()
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.ShowSelection = False
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 10
		With .Columns.Add("<c><b>Def")
			.Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
			.Def(EXTREECUBELib.DefColumnEnum.exCellPaddingLeft) = 4
		End With
		With .Items
			.Add("Item 1")
			With .Add("Radio 1")
				.HasRadioButton(0) = True
				.RadioGroup(0) = 1234
			End With
			With .Add("Radio 2")
				.HasRadioButton(0) = True
				.RadioGroup(0) = 1234
				.State(0) = True
			End With
			With .Add("Radio 3")
				.HasRadioButton(0) = True
				.RadioGroup(0) = 1234
			End With
			.Add("Item 1")
		End With
	End With
	.EndUpdate()
End With
64
Is it possible to provide a few check box only, not for entire column

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

With AxTreeCube1
	.BeginUpdate()
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.ShowSelection = False
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 10
		With .Columns.Add("<c><b>Radio")
			.Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
			.Def(EXTREECUBELib.DefColumnEnum.exCellHasRadioButton) = 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 AxTreeCube1
	.BeginUpdate()
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.ShowSelection = False
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 10
		With .Columns.Add("<c><b>Check")
			.Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
			.Def(EXTREECUBELib.DefColumnEnum.exCellHasCheckBox) = 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 AxTreeCube1
	.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Chapel"
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exDateHeaderForeColor,1)
	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 AxTreeCube1
	.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 AxTreeCube1
	.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 AxTreeCube1
	.BeginUpdate()
	.TexturePicturePath = ""
	.HasButtons = EXTREECUBELib.ExpandButtonEnum.exArrow
	With .FrontFace.CreateTree()
		.ItemPadding = 10
		.HeaderVisible = False
		.HasLines = EXTREECUBELib.HierarchyLineEnum.exSolidLine
		.LinesAtRoot = EXTREECUBELib.LinesAtRootEnum.exGroupLines
		.GridLineStyle = EXTREECUBELib.GridLinesStyleEnum.exGridLinesSolid
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exAllLines
		.Columns.Add("").Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
		With .Columns.Add("")
			.Alignment = EXTREECUBELib.AlignmentEnum.RightAlignment
			.FormatColumn = "lower(%0) right 1"
		End With
		With .Items
			With .Add("Root <b>1")
				With .Items
					.Add("Child 1")
					.Add("Child 2")
					.Add("Child 3")
				End With
				.Expanded = True
			End With
			With .Add("Root <b>2").Items
				.Add("Child 1")
				.Add("Child 2")
				.Add("Child 3")
			End With
		End With
	End With
	.EndUpdate()
End With
57
How can I select the entire item rather than the column only

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

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

With AxTreeCube1
	.BeginUpdate()
	With .FrontFace.CreateTree()
		.ColumnAutoResize = False
		.Columns.Count = 20
	End With
	.EnsureVisibleFace(EXTREECUBELib.FaceEnum.exFrontFace)
	.EndUpdate()
End With
54
How can I add multiple-columns

With AxTreeCube1
	.BeginUpdate()
	With .FrontFace.CreateTree()
		.ItemPadding = 10
		.LinesAtRoot = EXTREECUBELib.LinesAtRootEnum.exGroupLines
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exRowLines
		.Columns.Add("Default").Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
		With .Columns.Add("Pos")
			.Position = 0
			.Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
			.FormatColumn = "1 rpos ``"
			.Width = 24
		End With
		With .Items
			With .Add("Root 1").Items
				.Add("Child 1")
				.Add("Child 2")
				.Add("Child 3")
			End With
			With .Add("Root 2").Items
				.Add("Child 1")
				.Add("Child 2")
				.Add("Child 3")
			End With
			.ExpandAll()
		End With
	End With
	.EndUpdate()
End With
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 AxTreeCube1_FaceTreeExpandItem(ByVal sender As System.Object, ByVal e As AxEXTREECUBELib._ITreeCubeEvents_FaceTreeExpandItemEvent) Handles AxTreeCube1.FaceTreeExpandItem
	With AxTreeCube1
		Debug.Print( e.item )
	End With
End Sub

With AxTreeCube1
	.BeginUpdate()
	With .FrontFace.CreateTree()
		.ExpandOnDblClick = True
		.ItemPadding = 10
		.HeaderVisible = False
		.LinesAtRoot = EXTREECUBELib.LinesAtRootEnum.exGroupLines
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exRowLines
		.Columns.Add("").Alignment = EXTREECUBELib.AlignmentEnum.LeftAlignment
		With .Items
			With .Add("Root 1").Items
				.Add("Child 1")
				.Add("Child 2")
				.Add("Child 3")
			End With
			With .Add("Root 2").Items
				.Add("Child 1")
				.Add("Child 2")
				.Add("Child 3")
			End With
			.ExpandAll()
		End With
	End With
	.EndUpdate()
End With
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 AxTreeCube1_FaceCalendarValueChanged(ByVal sender As System.Object, ByVal e As AxEXTREECUBELib._ITreeCubeEvents_FaceCalendarValueChangedEvent) Handles AxTreeCube1.FaceCalendarValueChanged
	With AxTreeCube1
		Debug.Print( e.calendar )
	End With
End Sub

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

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

With AxTreeCube1
	.IdentifyFace = EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceFrame Or EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceName Or EXTREECUBELib.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 AxTreeCube1
	With .FrontFace.CreateTree()
		.ItemPadding = 20
		.HeaderVisible = False
		.DrawGridLines = EXTREECUBELib.GridLinesEnum.exNoLines
		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 AxTreeCube1
	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 AxTreeCube1
	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 AxTreeCube1_FaceTreeValueChanged(ByVal sender As System.Object, ByVal e As AxEXTREECUBELib._ITreeCubeEvents_FaceTreeValueChangedEvent) Handles AxTreeCube1.FaceTreeValueChanged
	' f.FaceCalendar.Year = Tree.Caption
	Dim f
	With AxTreeCube1
		f = .get_Face(.VisibleFace)
		f = .FrontFace
		With f.Neighbor(EXTREECUBELib.RotateEnum.exRotateLeft).FaceCalendar
			.Date = f.FaceCalendar.Date
			.Move(EXTREECUBELib.RotateEnum.exRotateLeft)
		End With
		With f.Neighbor(EXTREECUBELib.RotateEnum.exRotateRight).FaceCalendar
			.Date = f.FaceCalendar.Date
			.Move(EXTREECUBELib.RotateEnum.exRotateRight)
		End With
		With f.Neighbor(EXTREECUBELib.RotateEnum.exRotateRight).Neighbor(EXTREECUBELib.RotateEnum.exRotateRight).FaceCalendar
			.Date = f.FaceCalendar.Date
			.Move(EXTREECUBELib.RotateEnum.exRotateRight)
			.Move(EXTREECUBELib.RotateEnum.exRotateRight)
		End With
	End With
End Sub

' Move event - Occurs once a new face became visible, by moving/rotating from a face to another, into the giving direction.
Private Sub AxTreeCube1_Move(ByVal sender As System.Object, ByVal e As AxEXTREECUBELib._ITreeCubeEvents_MoveEvent) Handles AxTreeCube1.Move
	Dim f
	With AxTreeCube1
		f = .get_Face(e.toFace)
		f.FaceCalendar.SelDate = AxTreeCube1.Face(e.fromFace).FaceCalendar.SelDate
		.get_Face(e.fromFace).FaceCalendar.UnselectDate()
		With f.Neighbor(EXTREECUBELib.RotateEnum.exRotateLeft).FaceCalendar
			.Date = f.FaceCalendar.Date
			.Move(EXTREECUBELib.RotateEnum.exRotateLeft)
		End With
		With f.Neighbor(EXTREECUBELib.RotateEnum.exRotateRight).FaceCalendar
			.Date = f.FaceCalendar.Date
			.Move(EXTREECUBELib.RotateEnum.exRotateRight)
		End With
	End With
End Sub

Dim d
With AxTreeCube1
	.BeginUpdate()
	.TexturePicturePath = ""
	.EnsureVisibleFaceMargin = 32
	.EnsureVisibleFaceOnDblClick = False
	.EnsureVisibleFaces = "0,2,1,3,4"
	With .FrontFace.CreateCalendar()
		.Date = #1/1/2016#
		.AutoSize = EXTREECUBELib.AutoSizeEnum.exFitClient
		.MaxMonthX = 1
		.MaxMonthY = 1
		.ShowTodayButton = False
		.FirstWeekDay = EXTREECUBELib.WeekDayEnum.exMonday
		.SelBackColor = &H2000000
		.SelForeColor = RGB(0,0,0)
		.ShowNonMonthDays = True
	End With
	d = AxTreeCube1.FrontFace.FaceCalendar.Date
	With .LeftFace.CreateCalendar()
		.Date = d
		.Move(EXTREECUBELib.RotateEnum.exRotateLeft)
		.AutoSize = EXTREECUBELib.AutoSizeEnum.exFitClient
		.MaxMonthX = 1
		.MaxMonthY = 1
		.ShowTodayButton = False
		.FirstWeekDay = EXTREECUBELib.WeekDayEnum.exMonday
		.SelBackColor = &H2000000
		.SelForeColor = RGB(0,0,0)
		.ShowNonMonthDays = True
	End With
	With .RightFace.CreateCalendar()
		.Date = d
		.Move(EXTREECUBELib.RotateEnum.exRotateRight)
		.AutoSize = EXTREECUBELib.AutoSizeEnum.exFitClient
		.MaxMonthX = 1
		.MaxMonthY = 1
		.ShowTodayButton = False
		.FirstWeekDay = EXTREECUBELib.WeekDayEnum.exMonday
		.SelBackColor = &H2000000
		.SelForeColor = RGB(0,0,0)
		.ShowNonMonthDays = True
	End With
	With .BottomFace.CreateCalendar()
		.Date = d
		.Move(EXTREECUBELib.RotateEnum.exRotateRight)
		.Move(EXTREECUBELib.RotateEnum.exRotateRight)
		.AutoSize = EXTREECUBELib.AutoSizeEnum.exFitClient
		.MaxMonthX = 1
		.MaxMonthY = 1
		.ShowTodayButton = False
		.FirstWeekDay = EXTREECUBELib.WeekDayEnum.exMonday
		.SelBackColor = &H2000000
		.SelForeColor = RGB(0,0,0)
		.ShowNonMonthDays = True
	End With
	With .TopFace
		With .CreateTree()
			.ItemPadding = 20
			.SelBackColor = &H2000000
			.SelForeColor = RGB(0,0,0)
			.Columns.Count = 5
			.HeaderVisible = False
			.Items.Count = AxTreeCube1.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 = AxTreeCube1.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==")
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exDateHeader,16777216)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exWeeksHeader,16448250)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exDaysHeader,16448250)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exDateTodayUp,33554432)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exDateTodayForeColor,16777215)
	.EnsureVisibleFace(EXTREECUBELib.FaceEnum.exFrontFace)
	.EndUpdate()
End With
45
How can I add a FaceTree object ( method 2 )

With AxTreeCube1
	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 AxTreeCube1
	With .FrontFace
		.Type = EXTREECUBELib.FaceTypeEnum.exFaceTree
		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 AxTreeCube1
	With .FrontFace
		With .CreateCalendar()
			.AutoSize = EXTREECUBELib.AutoSizeEnum.exFitClient
			.Value = #12/31/1971#
		End With
	End With
End With
42
How can I add a FaceCalendar object ( method 1 )

With AxTreeCube1
	With .FrontFace
		.Type = EXTREECUBELib.FaceTypeEnum.exFaceCalendar
		With .FaceCalendar
			.AutoSize = EXTREECUBELib.AutoSizeEnum.exFitClient
			.Value = #12/31/1971#
		End With
	End With
End With
41
How can I add a FacePicture object ( method 2 )

With AxTreeCube1
	.IdentifyFace = EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceFrame Or EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceName Or EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceCaption
	With .FrontFace
		With .CreatePicture()
			.Picture = AxTreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
			.PictureDisplay = EXTREECUBELib.PictureDisplayEnum.Tile
			.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 AxTreeCube1
	.IdentifyFace = EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceFrame Or EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceName Or EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceCaption
	With .FrontFace
		.Type = EXTREECUBELib.FaceTypeEnum.exFacePicture
		With .FacePicture
			.Picture = AxTreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
			.PictureDisplay = EXTREECUBELib.PictureDisplayEnum.Tile
			.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 AxTreeCube1
	.EnsureVisibleFaces = "0"
End With
38
Is it possible to show one face opaque, while other semi-transparent

With AxTreeCube1
	.BeginUpdate()
	.TexturePicturePath = ""
	.DefaultFaceType = EXTREECUBELib.FaceTypeEnum.exFaceCalendar
	.TransparentContent = 75
	.FrontFace.TransparentContent = 0
	.EndUpdate()
End With
37
How can I add a Calendar control

With AxTreeCube1
	.BeginUpdate()
	.Margins = "0,0,0,0"
	With .FrontFace
		.Type = EXTREECUBELib.FaceTypeEnum.exFaceCalendar
		With .FaceCalendar
			.ShowNonMonthDays = True
			.AutoSize = EXTREECUBELib.AutoSizeEnum.exFitClient
		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 AxTreeCube1_InitFaceContent(ByVal sender As System.Object, ByVal e As AxEXTREECUBELib._ITreeCubeEvents_InitFaceContentEvent) Handles AxTreeCube1.InitFaceContent
	' Face.FaceContent.ShowTodayButton = False
End Sub

With AxTreeCube1
	.DefaultFaceType = EXTREECUBELib.FaceTypeEnum.exFaceCalendar
End With
35
How can I disable zoom when rolling the mouse wheel
With AxTreeCube1
	.OnMouseWheel = EXTREECUBELib.OnMouseWheelEnum.exMouseWheelNothing
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 AxTreeCube1_Move(ByVal sender As System.Object, ByVal e As AxEXTREECUBELib._ITreeCubeEvents_MoveEvent) Handles AxTreeCube1.Move
	With AxTreeCube1
		.FrontFace.FaceCalendar.Move(e.rotateDir)
		With .LeftFace.FaceCalendar
			.Date = AxTreeCube1.FrontFace.FaceCalendar.Date
			.PrevMonth()
		End With
		With .RightFace.FaceCalendar
			.Date = AxTreeCube1.FrontFace.FaceCalendar.Date
			.NextMonth()
		End With
	End With
End Sub

With AxTreeCube1
	.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
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exDateHeader,33554432)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exDateHeaderForeColor,16777215)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exWeeksHeader,15790320)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exDaysHeader,15790320)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exDateTodayUp,33554432)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exDateTodayForeColor,16777215)
	.AllowRotate = EXTREECUBELib.RotateEnum.exRotateRight Or EXTREECUBELib.RotateEnum.exRotateLeft
	.EnsureVisibleFaceOnDblClick = False
	.DefaultFaceType = EXTREECUBELib.FaceTypeEnum.exFaceCalendar
	.FrontFace.FaceCalendar.Date = #1/1/2016#
	.TopFace.Type = EXTREECUBELib.FaceTypeEnum.exFaceNone
	.DownFace.Type = EXTREECUBELib.FaceTypeEnum.exFaceNone
	.AlwaysEnsureVisibleFace = EXTREECUBELib.EnsureVisibleFaceEnum.exAlwaysVisibleFrontFace Or EXTREECUBELib.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 AxTreeCube1_FaceCalendarDateChanged(ByVal sender As System.Object, ByVal e As AxEXTREECUBELib._ITreeCubeEvents_FaceCalendarDateChangedEvent) Handles AxTreeCube1.FaceCalendarDateChanged
	Dim currentDate
	With AxTreeCube1
		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 AxTreeCube1_InitFaceCalendar(ByVal sender As System.Object, ByVal e As AxEXTREECUBELib._ITreeCubeEvents_InitFaceCalendarEvent) Handles AxTreeCube1.InitFaceCalendar
	With AxTreeCube1
		With e.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 AxTreeCube1_Move(ByVal sender As System.Object, ByVal e As AxEXTREECUBELib._ITreeCubeEvents_MoveEvent) Handles AxTreeCube1.Move
	With AxTreeCube1
		.FrontFace.FaceCalendar.Move(e.rotateDir)
	End With
End Sub

With AxTreeCube1
	.BeginUpdate()
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAADhABXgCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDIAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZZmWCQCglf5HABRb7xPLoARTAaeJKoWboJAiGwLQjQUyABSdEyRJSLYhGIZRFqKZIRDSMFiwTZNVypAaIYqqaA6qzfJymabAAZJEradozTLIE7xVLEVYNKCm" & _
"ZCwMAAcgmEQgSTAda2BYELTzECoYDGCrcKpWCaNQLWEB5BQeJSNL6kIqsazgAqPLJtWhaVwxXIEI5AAC5QA0S7pOxeO6JbRGdZbNrlbz1PTMaazTgYDzmWqiYxxMraXx" & _
"SlmMprGsIpVl2LRnD0A5bnSN49mAARAlIYw6B0ThGFGDIBG0QghBMfZRiGNAkFECZoG6YQBgiOgCmuRRSg6GAElWAJMkgFgGgGYIIAyVQ7GCRhUAAOQhAMBgSDWIRDG4" & _
"Fg3CGCBmBmBYNjgUJWDIIgIECZBCEsKIUkqCZhiiJgqgaYRjB4LguiMBAkiqDLenYrBjgiZg6gGIwyioMoNCAWJqEKEJjkiTg/CqIxZA4SoNmQWJ5AODxMlkRJehSZRJ" & _
"FYVoVmUEw2D2EZlhkXhehfURuE+DJllkfhmhUJgZBoYwqiWEx+G6G5nAmRhyhoZJgAIUIUGcKZmHqHQlkmYh6h+Zp5nIawzigQ4CgaIZogoJoKiEDJpgodoMmiSgqhKJ" & _
"NxDoPQzmmA4GhqJppkodoeiYDJ6FpaQpmqFomigKgiiqJIpiqShuiiGoonqKoZisapaj4dYl3WCo6i6a5KnaPotiQeoCj6MJsEsAhrDQLIDg6SoymySw2k6MgNAqJpQj" & _
"OLRLFaUI0iyGxWlq/p6kIPY0m2Oxul2LZjDMRpmgiLoLiaaoIi4YxGinoY7kaauhnuGJlj2b4Lmaeo+m8Sx6mWOZhAubwCj2bpLhqKYJkyKTnECThYgoVJCCiYpPBIL5" & _
"xEMLwWjsTQsGcGpGi6XBYkuRQLvcIhCE8DIWDCSZLiKdwqC+MpMjcLZKguXIcjiTJyFOQYnD+TYMmSLZOkmHJ3D6T50AybItiGYJji2MwABAECAg=")
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exDateHeader,16777216)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exWeeksHeader,16448250)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exDaysHeader,16448250)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exDateTodayUp,33554432)
	.set_Background(EXTREECUBELib.BackgroundPartEnum.exDateTodayForeColor,16777215)
	.TexturePicturePath = ""
	.DefaultFaceType = EXTREECUBELib.FaceTypeEnum.exFaceCalendar
	.AlwaysEnsureVisibleFace = EXTREECUBELib.EnsureVisibleFaceEnum.exAlwaysVisibleFrontFace Or EXTREECUBELib.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 AxTreeCube1
	.EnsureVisibleFace(EXTREECUBELib.FaceEnum.exDownFace,False)
	.AlwaysEnsureVisibleFace = EXTREECUBELib.EnsureVisibleFaceEnum.exAlwaysVisibleFrontFace Or EXTREECUBELib.EnsureVisibleFaceEnum.exFitToEnsureFace
End With
31
How can I show a single month only

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

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

With AxTreeCube1
	.BeginUpdate()
	.set_HTMLPicture("logo","c:\exontrol\images\zipdisk.gif")
	With .FrontFace
		.Type = EXTREECUBELib.FaceTypeEnum.exFaceCalendar
		.FaceCalendar.ShowTodayButton = False
		.ExtraTitle("extra",EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceCaption) = "<img>logo</img>"
		.ExtraTitle("extra",EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceAnchor) = 0
		.ExtraTitle("extra",EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceHTMLRotate) = 0
		.ExtraTitle("extra",EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceHTMLRotate) = 0
		.ExtraTitle("extra",EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceLeft) = "(width-twidth)/2"
		.ExtraTitle("extra",EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceTop) = "(height-theight)/2"
		.ExtraTitle("extra",EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceWidth) = "twidth"
		.ExtraTitle("extra",EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceHeight) = "theight"
		.ExtraTitle("extra",EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceVisible) = 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 AxTreeCube1
	.BeginUpdate()
	.set_HTMLPicture("logo","c:\exontrol\images\zipdisk.gif")
	With .FrontFace
		.Type = EXTREECUBELib.FaceTypeEnum.exFaceCalendar
		.FaceCalendar.ShowTodayButton = False
		.ExtraTitle("extra",EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceCaption) = "<r><img>logo</img>"
		.ExtraTitle("extra",EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceAnchor) = 2
		.ExtraTitle("extra",EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceHTMLRotate) = 0
	End With
	.EndUpdate()
End With
26
Is it possible to show two or more titles/extra titles

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

With AxTreeCube1
	.BeginUpdate()
	With .FrontFace
		.Title(EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceCaption) = "<font ;18><c>This is the title"
		.Type = EXTREECUBELib.FaceTypeEnum.exFaceCalendar
		.FaceCalendar.ShowTodayButton = False
		.Title(EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceAnchor) = 4
	End With
	.EndUpdate()
End With
24
How can I display the title at the bottom side of the face

With AxTreeCube1
	.BeginUpdate()
	With .FrontFace
		.Title(EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceCaption) = "<font ;18><c>This is the title"
		.Type = EXTREECUBELib.FaceTypeEnum.exFaceCalendar
		.FaceCalendar.ShowTodayButton = False
		.Title(EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceAnchor) = 2
		.Title(EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceHTMLRotate) = 0
	End With
	.EndUpdate()
End With
23
Can I display the title to a different position

With AxTreeCube1
	.BeginUpdate()
	With .FrontFace
		.Title(EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceCaption) = "<font ;18><c><bgcolor=FFFFFF>This is the title"
		.Type = EXTREECUBELib.FaceTypeEnum.exFaceCalendar
		.Title(EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceVisible) = -1
		.Title(EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceTop) = "(height-theight)/2"
	End With
	.EndUpdate()
End With
22
How can I display a title for a face

With AxTreeCube1
	.BeginUpdate()
	With .FrontFace
		.Title(EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceCaption) = "<font ;18><c>This is the title"
		.Type = EXTREECUBELib.FaceTypeEnum.exFaceCalendar
	End With
	.EndUpdate()
End With
21
Can I put the picture at specified position

With AxTreeCube1
	.IdentifyFace = EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceFrame Or EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceName Or EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceCaption
	With .FrontFace
		.Type = EXTREECUBELib.FaceTypeEnum.exFacePicture
		With .FacePicture
			.Picture = AxTreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
			.PictureDisplay = EXTREECUBELib.PictureDisplayEnum.Tile
			.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 AxTreeCube1
	.IdentifyFace = EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceFrame Or EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceName Or EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceCaption
	With .FrontFace
		.Type = EXTREECUBELib.FaceTypeEnum.exFacePicture
		With .FacePicture
			.Picture = AxTreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
			.PictureDisplay = EXTREECUBELib.PictureDisplayEnum.LowerRight
			.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 AxTreeCube1
	.BeginUpdate()
	.TexturePicturePath = ""
	.get_Face(EXTREECUBELib.FaceEnum.exFrontFace).Picture = AxTreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.get_Face(EXTREECUBELib.FaceEnum.exBottomFace).Picture = AxTreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
	.get_Face(EXTREECUBELib.FaceEnum.exRightFace).Picture = AxTreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
	.get_Face(EXTREECUBELib.FaceEnum.exLeftFace).Picture = AxTreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
	.get_Face(EXTREECUBELib.FaceEnum.exTopFace).Picture = AxTreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
	.get_Face(EXTREECUBELib.FaceEnum.exDownFace).Picture = AxTreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.AlwaysEnsureVisibleFace = EXTREECUBELib.EnsureVisibleFaceEnum.exDisableEnsureVisibleFace
	.EndUpdate()
End With
18
Is it possible to show the cube's texture more transparent, so the faces are more visible

With AxTreeCube1
	.BeginUpdate()
	.Transparent = 80
	.TexturePicturePath = "C:\Program Files\Exontrol\ExTexture\Sample\Texture\VW"
	.AlwaysEnsureVisibleFace = EXTREECUBELib.EnsureVisibleFaceEnum.exDisableEnsureVisibleFace
	.IdentifyFace = EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceFrame
	With .TopFace
		.Type = EXTREECUBELib.FaceTypeEnum.exFaceCalendar
		With .FaceCalendar
			.Date = #2/1/2016#
			.MaxMonthX = 1
			.MaxMonthY = 1
		End With
	End With
	With .LeftFace
		.Type = EXTREECUBELib.FaceTypeEnum.exFaceCalendar
		With .FaceCalendar
			.Date = #3/1/2016#
			.MaxMonthX = 1
			.MaxMonthY = 1
		End With
	End With
	With .FrontFace
		.Type = EXTREECUBELib.FaceTypeEnum.exFaceCalendar
		With .FaceCalendar
			.Date = #4/1/2016#
			.MaxMonthX = 1
			.MaxMonthY = 1
		End With
	End With
	With .RightFace
		.Type = EXTREECUBELib.FaceTypeEnum.exFaceCalendar
		With .FaceCalendar
			.Date = #5/1/2016#
			.MaxMonthX = 1
			.MaxMonthY = 1
		End With
	End With
	.ShowAs = EXTREECUBELib.ShowAsEnum.exFishEye
	.AlwaysEnsureVisibleFace = EXTREECUBELib.EnsureVisibleFaceEnum.exDisableEnsureVisibleFace
	.IdentifyFace = EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceFrame
	.EndUpdate()
End With
17
How can I load a different texture on the cube

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

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

With AxTreeCube1
	.BeginUpdate()
	.ShowAs = EXTREECUBELib.ShowAsEnum.exFishEye
	.Internals = "zoommin=1;zoomdefault=1;zoommax=1;zoomdivsmall=256;zoomdivlarge=48;fisheyepersp=4"
	.IdentifyFace = EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceFrame
	.TopFace.Type = EXTREECUBELib.FaceTypeEnum.exFaceCalendar
	.LeftFace.Type = EXTREECUBELib.FaceTypeEnum.exFaceCalendar
	.FrontFace.Type = EXTREECUBELib.FaceTypeEnum.exFaceCalendar
	.RightFace.Type = EXTREECUBELib.FaceTypeEnum.exFaceCalendar
	.EndUpdate()
End With
14
Orthographic

With AxTreeCube1
	.BeginUpdate()
	.ShowAs = EXTREECUBELib.ShowAsEnum.exOrthographic
	.AlwaysEnsureVisibleFace = EXTREECUBELib.EnsureVisibleFaceEnum.exDisableEnsureVisibleFace
	.IdentifyFace = EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceFrame
	.TopFace.Type = EXTREECUBELib.FaceTypeEnum.exFaceCalendar
	.LeftFace.Type = EXTREECUBELib.FaceTypeEnum.exFaceCalendar
	.FrontFace.Type = EXTREECUBELib.FaceTypeEnum.exFaceCalendar
	.RightFace.Type = EXTREECUBELib.FaceTypeEnum.exFaceCalendar
	.RotX = 0.748933
	.RotY = 0.617099
	.Zoom = 1
	.EndUpdate()
End With
13
Fish-Eye Default

With AxTreeCube1
	.BeginUpdate()
	.ShowAs = EXTREECUBELib.ShowAsEnum.exFishEye
	.AlwaysEnsureVisibleFace = EXTREECUBELib.EnsureVisibleFaceEnum.exDisableEnsureVisibleFace
	.IdentifyFace = EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceFrame
	.TopFace.Type = EXTREECUBELib.FaceTypeEnum.exFaceCalendar
	.LeftFace.Type = EXTREECUBELib.FaceTypeEnum.exFaceCalendar
	.FrontFace.Type = EXTREECUBELib.FaceTypeEnum.exFaceCalendar
	.RightFace.Type = EXTREECUBELib.FaceTypeEnum.exFaceCalendar
	.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 AxTreeCube1
	.IdentifyFace = EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceFrame Or EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceName Or EXTREECUBELib.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 AxTreeCube1
	.Picture = AxTreeCube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
End With