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

With Extreecube1
	.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_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,&H1000000)
	.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,&H2000000)
	.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState2,&H3000000)
	With .FrontFace.CreateTree()
		.ShowSelection = False
		.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 16
		With .Columns.Add("<c><b>Check")
			.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
			.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasCheckBox,True)
		End With
		.Items.ToString = "Check A<img>1</img>,Check B<img>2</img>,Check C<img>3</img>"
		.get_ItemByIndex(1).set_State(0,1)
	End With
	.EndUpdate()
End With
109
ImageSize property on 16 (default) (specifies the size of control' icons)

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

With Extreecube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.LinesAtRoot = exontrol.EXTREECUBELib.LinesAtRootEnum.exLinesAtRoot
		.Columns.Add(1).Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
		.Columns.Add(2).Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
		.Columns.Add(3).Alignment = exontrol.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 Extreecube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.LinesAtRoot = exontrol.EXTREECUBELib.LinesAtRootEnum.exLinesAtRoot
		.Columns.Add("").Alignment = exontrol.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 Extreecube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.Columns.Add("Pos").FormatColumn = "1 pos ``"
		.Items.Count = Extreecube1.FrontFace.FaceTree.VisibleItemsCount
	End With
End With
105
How can I split a cell

Dim s
With Extreecube1
	.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 = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
			With .Items
				With .Add("Choose your quick actions")
					.set_SingleLine(0,False)
					With .Items.Add("")
						.Height = 48
						s = 0
						.set_Value(s,"<c><img>P1</img>")
						.set_CellWidth(s,48)
						.set_HasButton(s,True)
						s = .get_SplitCell(s)
						.set_Value(s,"<c><img>P2</img>")
						.set_CellWidth(s,48)
						.set_HasButton(s,True)
						s = .get_SplitCell(s)
						.set_Value(s,"<c><img>P3</img>")
						.set_CellWidth(s,48)
						.set_HasButton(s,True)
						s = .get_SplitCell(s)
						.set_Value(s,"<c><img>P4</img>")
						.set_CellWidth(s,48)
						.set_HasButton(s,True)
						s = .get_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 Extreecube1
	.BeginUpdate()
	.TexturePicturePath = ""
	With .FrontFace
		With .CreateCalendar()
			.AutoSize = exontrol.EXTREECUBELib.AutoSizeEnum.exFitClient
			.MaxMonthX = .MinMonthX
			.MaxMonthY = .MinMonthY
			.ShowTodayButton = False
		End With
		.set_ExtraTitle("extra",exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceBackColor,15790320)
		.set_ExtraTitle("extra",exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceHeight,"height")
		.set_ExtraTitle("extra",exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceVisible,1)
	End With
	.EndUpdate()
End With
103
How can I change the +/- expanding/collapsing buttons

With Extreecube1
	.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_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exTreeGlyphCollapsed,&H1000000)
	.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exTreeGlyphExpanded,&H2000000)
	With .FrontFace.CreateTree()
		.ExpandOnDblClick = True
		.ItemPadding = 16
		.HeaderVisible = False
		.HasLines = exontrol.EXTREECUBELib.HierarchyLineEnum.exThinLine
		.LinesAtRoot = exontrol.EXTREECUBELib.LinesAtRootEnum.exGroupLinesInside
		.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
		.Columns.Add("Def").Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
		.Items.ToString = "Root 1(Child 1,Child 2),Root 2(Child 3,Child 4)"
		.get_ItemByIndex(3).Expanded = True
	End With
	.EndUpdate()
End With
102
How can I use the ToString property

With Extreecube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.DrawGridLines = exontrol.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 Extreecube1
	.BeginUpdate()
	.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn")
	.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateHeader,&H1000000)
	.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exWeeksHeader,Color.FromArgb(250,250,250))
	.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exDaysHeader,Color.FromArgb(250,250,250))
	.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateTodayUp,&H2000000)
	.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateTodayForeColor,Color.FromArgb(255,255,255))
	.TexturePicturePath = ""
	With .FrontFace.CreateCalendar()
		.Date = #1/1/2016#
		.AutoSize = exontrol.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 Extreecube1_FaceTreeStateChanged(ByVal sender As System.Object,ByVal Tree As exontrol.EXTREECUBELib.FaceTree,ByVal Item As Integer,ByVal Column As Integer) Handles Extreecube1.FaceTreeStateChanged
	With Extreecube1
		With .FrontFace.FaceTree.get_ItemByIndex(Item)
			Debug.Print( "State" )
			Debug.Print( .get_State(0) )
		End With
	End With
End Sub

With Extreecube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.HeaderVisible = False
		.ItemPadding = 16
		.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exNoLines
		.Columns.Add("Radio").Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
		With .Items
			With .Add("Group A")
				With .Items
					With .Add("Radio <b>1")
						.set_HasRadioButton(0,True)
						.set_RadioGroup(0,1234)
					End With
					With .Add("Radio <b>2")
						.set_HasRadioButton(0,True)
						.set_RadioGroup(0,1234)
						.set_State(0,1)
					End With
					With .Add("Radio <b>3")
						.set_HasRadioButton(0,True)
						.set_RadioGroup(0,1234)
					End With
				End With
				.Expanded = True
			End With
			With .Add("Group B")
				With .Items
					With .Add("Radio <b>1")
						.set_HasRadioButton(0,True)
						.set_RadioGroup(0,1235)
					End With
					With .Add("Radio <b>2")
						.set_HasRadioButton(0,True)
						.set_RadioGroup(0,1235)
					End With
					With .Add("Radio <b>3")
						.set_HasRadioButton(0,True)
						.set_RadioGroup(0,1235)
						.set_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 Extreecube1_FaceTreeStateChanged(ByVal sender As System.Object,ByVal Tree As exontrol.EXTREECUBELib.FaceTree,ByVal Item As Integer,ByVal Column As Integer) Handles Extreecube1.FaceTreeStateChanged
	With Extreecube1
		With .FrontFace.FaceTree.get_ItemByIndex(Item)
			Debug.Print( "State" )
			Debug.Print( .get_State(0) )
		End With
	End With
End Sub

With Extreecube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.HeaderVisible = False
		.ItemPadding = 16
		.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exNoLines
		.Columns.Add("Check").Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
		With .Items
			.Add("Check <b>1").set_HasCheckBox(0,True)
			.Add("Check <b>2").set_HasCheckBox(0,True)
			With .Add("Check <b>3")
				.set_HasCheckBox(0,True)
				.set_State(0,1)
			End With
			.Add("Check <b>4").set_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 Extreecube1_FaceTreeSelectionChanged(ByVal sender As System.Object,ByVal Tree As exontrol.EXTREECUBELib.FaceTree) Handles Extreecube1.FaceTreeSelectionChanged
	With Extreecube1
		Debug.Print( "Value" )
		Debug.Print( .FrontFace.FaceTree.Value )
		Debug.Print( "Caption" )
		Debug.Print( .FrontFace.FaceTree.Caption )
	End With
End Sub

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

With Extreecube1
	.TexturePicturePath = ""
	With .FrontFace
		With .CreateTree()
			.ItemPadding = 20
			.Columns.Count = 5
			.HeaderVisible = False
			.Items.Count = Extreecube1.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 Extreecube1_FaceTreeButtonClick(ByVal sender As System.Object,ByVal Tree As exontrol.EXTREECUBELib.FaceTree,ByVal Item As Integer,ByVal Column As Integer) Handles Extreecube1.FaceTreeButtonClick
	With Extreecube1
		Debug.Print( Item )
		Debug.Print( Column )
	End With
End Sub

With Extreecube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exNoLines
		.ItemPadding = 16
		With .Columns.Add("Buttons")
			.FormatColumn = "1 index `A-Z`"
			.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasButton,True)
		End With
		.Items.Count = 4
	End With
End With
95
How do I programmatically selects a date (method 2)
With Extreecube1
	With .FrontFace.CreateCalendar()
		.Value = "Jan 21"
	End With
End With
94
How do I programmatically selects a date (method 1)
With Extreecube1
	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 Extreecube1_AnchorClick(ByVal sender As System.Object,ByVal Face As exontrol.EXTREECUBELib.FaceEnum,ByVal AnchorID As String,ByVal Options As String) Handles Extreecube1.AnchorClick
	With Extreecube1
		Debug.Print( Face )
		Debug.Print( AnchorID )
		Debug.Print( Options )
	End With
End Sub

With Extreecube1
	With .FrontFace.CreateTree()
		.ShowSelection = False
		.HeaderVisible = False
		.DrawGridLines = exontrol.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 Extreecube1
	.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 = exontrol.EXTREECUBELib.HierarchyLineEnum.exNoLine
			.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exNoLines
			.ItemPadding = 24
			.HeaderVisible = False
			.ShowSelection = True
			.SelBackColor = Color.FromArgb(240,240,240)
			.Columns.Add("Default").Alignment = exontrol.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
					.set_SingleLine(0,False)
					With .Items.Add("<img>DriveC:64</img>")
						.Height = 68
						.set_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)]))")
						.set_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt2,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exTextExtWordWrap,True)
						.set_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt2,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exTextExt,"<fgcolor=000000>LROG (C:)<br>58.7 GB used out of 150 GB")
						.set_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt,"39%")
					End With
					With .Items.Add("<img>DriveD:64</img>")
						.Height = 68
						.set_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)]))")
						.set_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt2,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exTextExtWordWrap,True)
						.set_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt2,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exTextExt,"<fgcolor=000000>System (D:)<br>112 MB used out of 144 GB")
						.set_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt,"1%")
					End With
					With .Items.Add("<img>DriveD:64</img>")
						.Height = 68
						.set_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)]))")
						.set_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt2,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exTextExtWordWrap,True)
						.set_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt2,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exTextExt,"<fgcolor=000000>Work (E:)<br>53.0 GB used out of 635 GB")
						.set_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt,"8%")
					End With
					With .Items.Add("<img>DriveE:64</img>")
						.Height = 68
						.set_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)]))")
						.set_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt2,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exTextExtWordWrap,True)
						.set_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt2,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exTextExt,"<fgcolor=000000>DVD RW Drive (G:)<br>0.0 GB used out of 0.0 GB")
						.set_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.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
					.set_SingleLine(0,False)
					With .Items.Add("New apps will save to:")
						.Selectable = False
						With .Items.Add("Drive C")
							.Selectable = False
							.Height = 24
							.set_HasRadioButton(0,True)
							.set_RadioGroup(0,1234)
							.set_State(0,1)
							s = .get_SplitCell(0)
							.set_Value(s,"Drive D")
							.set_HasRadioButton(s,True)
							.set_RadioGroup(s,1234)
							s = .get_SplitCell(s)
							.set_Value(s,"Drive E")
							.set_HasRadioButton(s,True)
							.set_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
							.set_HasRadioButton(0,True)
							.set_RadioGroup(0,1235)
							s = .get_SplitCell(0)
							.set_Value(s,"Drive D")
							.set_HasRadioButton(s,True)
							.set_RadioGroup(s,1235)
							.set_State(s,1)
							s = .get_SplitCell(s)
							.set_Value(s,"Drive E")
							.set_HasRadioButton(s,True)
							.set_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
							.set_HasRadioButton(0,True)
							.set_RadioGroup(0,1236)
							s = .get_SplitCell(0)
							.set_Value(s,"Drive D")
							.set_HasRadioButton(s,True)
							.set_RadioGroup(s,1236)
							.set_State(s,1)
							s = .get_SplitCell(s)
							.set_Value(s,"Drive E")
							.set_HasRadioButton(s,True)
							.set_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
							.set_HasRadioButton(0,True)
							.set_RadioGroup(0,1237)
							s = .get_SplitCell(0)
							.set_Value(s,"Drive D")
							.set_HasRadioButton(s,True)
							.set_RadioGroup(s,1237)
							.set_State(s,1)
							s = .get_SplitCell(s)
							.set_Value(s,"Drive E")
							.set_HasRadioButton(s,True)
							.set_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
							.set_HasRadioButton(0,True)
							.set_RadioGroup(0,1238)
							s = .get_SplitCell(0)
							.set_Value(s,"Drive D")
							.set_HasRadioButton(s,True)
							.set_RadioGroup(s,1238)
							.set_State(s,1)
							s = .get_SplitCell(s)
							.set_Value(s,"Drive E")
							.set_HasRadioButton(s,True)
							.set_RadioGroup(s,1238)
						End With
						.Expanded = True
					End With
					.Expanded = True
				End With
			End With
			.EnsureVisibleItem(0)
		End With
	End With
	.EnsureVisibleFaceMargin = 0
	.EnsureVisibleFace(exontrol.EXTREECUBELib.FaceEnum.exTopFace)
	.AlwaysEnsureVisibleFace = exontrol.EXTREECUBELib.EnsureVisibleFaceEnum.exFitToEnsureFace
	.EndUpdate()
End With
91
How can I use the BackgroundExt/BackgroundExtValue properties

With Extreecube1
	.BeginUpdate()
	.TexturePicturePath = ""
	With .BottomFace
		.RelativeMargins = "0,32,0,0"
		.set_Title(exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceCaption,"<c><font ;18>Battery Saver")
		.set_Title(exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceBackgroundExt,"bottom[2],bottom[4,back=RGB(0,0,0)]")
		With .CreateTree()
			.HasLines = exontrol.EXTREECUBELib.HierarchyLineEnum.exNoLine
			.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exNoLines
			.ItemPadding = 24
			.HeaderVisible = False
			.ShowSelection = False
			.Columns.Add("Default").Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
			With .Items
				With .Add("Overview")
					.Divider = 0
					.Bold = True
				End With
				With .Add("Batter level (charging):")
					.set_SingleLine(0,False)
					With .Items.Add("")
						.set_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)]))")
						.set_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt,"65%")
						.set_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt2,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exTextExt,.get_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt))
					End With
					.Expanded = True
				End With
				With .Add("Estimated time to full charge:")
					With .Items.Add(0.15125)
						.set_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. ")
					.set_SingleLine(0,False)
				End With
				With .Add("Batter saver is currently:")
					.Enabled = False
					.set_SingleLine(0,False)
					With .Items.Add("")
						.Height = 24
						.set_HasCheckBox(0,True)
						.set_State(0,2)
						.set_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.").set_SingleLine(0,False)
				With .Add("<c>Battery Saver Settings")
					.set_SingleLine(0,False)
					.set_HasButton(0,True)
				End With
			End With
		End With
	End With
	.EnsureVisibleFaceMargin = 0
	.EnsureVisibleFace(exontrol.EXTREECUBELib.FaceEnum.exBottomFace)
	.AlwaysEnsureVisibleFace = exontrol.EXTREECUBELib.EnsureVisibleFaceEnum.exFitToEnsureFace
	.EndUpdate()
End With
90
How can I change the visual appearance for check and radio buttons

With Extreecube1
	.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_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,&H1000000)
	.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,&H2000000)
	.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState2,&H1f0f0f0)
	.RadioButtonWidth = 23
	.RadioButtonHeight = 23
	With .VisualAppearance
		.Add(3,"gBFLBCJwBAEHhEJAADhABNoCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSF" & _
"IADRfFoWmxTdAcYSCGSZZrGOiQADIM40R7UAABPBNKR1BKmHZDQRAApqXIjVDAYIQSSBUlkHScRijDICXSIIQmbajIZoJCiVZ3VaGETnRQlJQuEgOHZwDAsBwPBqBPzi" & _
"Lp4WzmGqhR5ichYHI8RYVTKXYy3DxZW7OO4PQjQM7hHL8fwlfTuagyGpZOxjP5cdrYHw2J7NUzJeDxbhrTb6Zh7ILVX7TNIwXAdD4PIKmNryORsC4XG5pZ7oOh6Lo3G4" & _
"rhWZI2nOL4eBON4LkeRJvHWDxvB6G5Lmac56D0OY3hMU5bm6bRoiAeA9DMX5riydJ+D8P4vEeO4xkEcQfCYBZrHKXgzlme4BmCB4eAUZRbAaAZeGsDg4EYCYEmERoaBE" & _
"OJaiMIY2EIXo2FYFYHmIBp1j8OoQhcYZNDiIgIiYE4Jl2BAlj0agOmiKgyH6Xo2jECYGE8WJmDODpehgFgZEIXI3DyfoQmQSQWEaEZkgkJhKhKZA2hmSxCEyGREnSFJk" & _
"kkVhWwCCAthFKRjiIXhpiXOhihGYwJESSRCFuIxqGoPomkmDhuhWT45kSXYcl8UxdAkbgPBaMhTD0JApj4foRBoaJ5iqAxdmadhzDcWxpgIf4bhsY4Gg6GYYDcegNGUY" & _
"g6VMIsBBmNg8CmRwuCOJBgBaAgXh6JQzl6JocE+OQQn+KpqkqNouivgQiiaLJPHaMZYHwQAHHIdRrA6ep2jMbYqx2RxzmqBpajOLxOnacYPHcHZnHGOlynmbo0jSbRLF" & _
"aJoJlyNpplyKArhcGZcgMWpGjCXo4liM4ukiHpngkeJojiTZphmLIDG2Nwak2N4vEaAJsj2bpLgWFxlGGExOn4dgvHOMpxGgbwkAyaxEFCFAEICA=")
		.Add(4,"gBFLBCJwBAEHhEJAADhABCEMACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSF" & _
"IADRfFoWmxTdAcYSCGSZZrGOiQADINI0R7UAABPBIMSjAamHZDQRAApqXIjVaAhySQKksg6TiMUYZAbaRBCEzbUZDNBIopUQLVU5ABbUEqBIipIrEQLHNwPBaEYZiOIY" & _
"W5re4cfzIMhyLI8Ob3CqHZhleTwTjWGYvSp1dBbTQ2QyVRanMDqOjsKxmW5Gbh5NhfHY8dxnDKcZ5jGSudrjEZ9VpmG74JzeEbjRj8chxT4PDxnBK/YDSWgdLo8VzXBp" & _
"cG2MY4maXxzFKQRxHgOQeC8H4TkuZhzHoNR9kaXpNnONZsGGMo9B4A5bmuFZ7n4Pw/i+XpFmSVB/mAB41hsQJfBYOJXgGXAHm4CoCmCtYAHqXRWBGWB/F2Z5UnaAxZFO" & _
"aJ2DuTpzHCOQ5gwcg8veDBjlCaA0mGBg6BYapcEONZiHYHADg4MoKE+U4QkEIINAISAig4Y44moPIPA4EpoHSBoOngNgyDiW5jCGShCF+VouA2EQNhKHBMg+Y5pFYPYV" & _
"mOQxYiAD4kEgNZRHSTokCWax4A4KA2DaDglGkUhYhoZRph4DYZB6NAllEbwOmgKhEhqJ4JjIa4ek8c48mGAoflcAQJhITxaBYCoHEuGZmHuIooioIgKgWJIUCWXh4hkN" & _
"hImkM4JloMh6iaJRzhySAkCkVhFhUd4QhMJomD0KtvBCCJMGocouh6KIKiifoKlodAmAAOgrgYVoVD7Y5AlMJhDAqPoLh6D4DkCYosicSoYkkQhcmMapOD6LQKkqHgkC" & _
"wKhwmILpHFqSJ7jaTZbHYBw1lCFwwnEcAqgOUoUGSa5DxkLQGHsVhWhQRJKkmFYkBuaI1lgdBtlMdZKi6LoKnSZQwggOp+kGJpjiufIDiyGQXCiYZCmyJxeAQYQi0YYI" & _
"+lieoqmmKwpHIdoskIGQGFWSg8DIBx6GCQ4AAYXhHjlo5fCqNpPjYRJ/kucwMkcMpM9GMwqk2Tx3AGa4AnIVpkm2N5cAgcJvk2XIsjGeYlF53hKk2dAnEGJR7nCdxlgY" & _
"c4ajmEplk4NYNGcWpKiYRx5k4dYhC0RxggsTpXAGQA3jaBoEmuUIuFuCo4DoNoDHqShwCKXYPCSXYzmOMx6lwOwZoawrgkE0HwBY1xegdE2MMWQhBOhoEUBIQAgCAgA=" & _
"=")
	End With
	.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exRadioButtonState0,&H3000000)
	.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exRadioButtonState1,&H4000000)
	With .RightFace
		.RelativeMargins = "0,32,0,0"
		.set_Title(exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceCaption,"<c><font ;18>Table mode")
		.set_Title(exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceBackgroundExt,"bottom[2],bottom[4,back=RGB(0,0,0)]")
		With .CreateTree()
			.HasLines = exontrol.EXTREECUBELib.HierarchyLineEnum.exNoLine
			.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exNoLines
			.ItemPadding = 24
			.HeaderVisible = False
			.ShowSelection = False
			.Columns.Add("Default").Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
			With .Items
				With .Add("Make windows more touch-friendly when using your device as a table")
					.set_SingleLine(0,False)
					With .Items.Add("")
						.Height = 24
						.set_HasCheckBox(0,True)
						.set_State(0,0)
						.set_FormatCell(0,"state = 0 ? `Off` : `On`")
					End With
					.Expanded = True
				End With
				With .Add("When I sign in")
					.set_SingleLine(0,False)
					With .Items.Add("Automatically swicth to table mode")
						.Height = 24
						.set_HasRadioButton(0,True)
						.set_RadioGroup(0,1234)
					End With
					With .Items.Add("Go to the desktop")
						.Height = 24
						.set_HasRadioButton(0,True)
						.set_RadioGroup(0,1234)
					End With
					With .Items.Add("Remember what I used last")
						.Height = 24
						.set_HasRadioButton(0,True)
						.set_RadioGroup(0,1234)
						.set_State(0,1)
					End With
					.Expanded = True
				End With
				With .Add("When this device automatically switches table mode on or off")
					.set_SingleLine(0,False)
					With .Items.Add("Don't ask me and dont' switch")
						.Height = 24
						.set_HasRadioButton(0,True)
						.set_RadioGroup(0,1235)
					End With
					With .Items.Add("Always ask me before switching")
						.Height = 24
						.set_HasRadioButton(0,True)
						.set_RadioGroup(0,1235)
						.set_State(0,1)
					End With
					With .Items.Add("Don't ask me and always' switch")
						.Height = 24
						.set_HasRadioButton(0,True)
						.set_RadioGroup(0,1235)
					End With
					.Expanded = True
				End With
				With .Add("Hide app icons on the taskbar in table mode")
					.set_SingleLine(0,False)
					With .Items.Add("")
						.Height = 24
						.set_HasCheckBox(0,True)
						.set_State(0,0)
						.set_FormatCell(0,"state = 0 ? `Off` : `On`")
					End With
					.Expanded = True
				End With
			End With
		End With
	End With
	.EnsureVisibleFaceMargin = 0
	.EnsureVisibleFace(exontrol.EXTREECUBELib.FaceEnum.exRightFace)
	.AlwaysEnsureVisibleFace = exontrol.EXTREECUBELib.EnsureVisibleFaceEnum.exFitToEnsureFace
	.EndUpdate()
End With
89
How can I display more group of radio-buttons

With Extreecube1
	.BeginUpdate()
	.TexturePicturePath = ""
	With .LeftFace
		.RelativeMargins = "0,32,0,0"
		.set_Title(exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceCaption,"<c><font ;18>Multitasking")
		.set_Title(exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceBackgroundExt,"bottom[2],bottom[4,back=RGB(0,0,0)]")
		With .CreateTree()
			.HasLines = exontrol.EXTREECUBELib.HierarchyLineEnum.exNoLine
			.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exNoLines
			.ItemPadding = 24
			.HeaderVisible = False
			.ShowSelection = False
			.Columns.Add("Default").Alignment = exontrol.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")
					.set_SingleLine(0,False)
					With .Items.Add("")
						.Height = 24
						.set_HasCheckBox(0,True)
						.set_State(0,1)
						.set_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")
					.set_SingleLine(0,False)
					With .Items.Add("")
						.Height = 24
						.set_HasCheckBox(0,True)
						.set_State(0,1)
						.set_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")
					.set_SingleLine(0,False)
					With .Items.Add("")
						.Height = 24
						.set_HasCheckBox(0,True)
						.set_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:")
					.set_SingleLine(0,False)
					With .Items.Add("Only the desktop I'm using")
						.Height = 24
						.set_HasRadioButton(0,True)
						.set_RadioGroup(0,1234)
						.set_State(0,1)
					End With
					With .Items.Add("All desktops")
						.Height = 24
						.set_HasRadioButton(0,True)
						.set_RadioGroup(0,1234)
					End With
					.Expanded = True
				End With
				With .Add("Pressing ALT+TAB, show windows that are open on:")
					.set_SingleLine(0,False)
					With .Items.Add("Only the desktop I'm using")
						.Height = 24
						.set_HasRadioButton(0,True)
						.set_RadioGroup(0,1235)
						.set_State(0,1)
					End With
					With .Items.Add("All desktops")
						.Height = 24
						.set_HasRadioButton(0,True)
						.set_RadioGroup(0,1235)
					End With
					.Expanded = True
				End With
			End With
		End With
	End With
	.EnsureVisibleFaceMargin = 0
	.EnsureVisibleFace(exontrol.EXTREECUBELib.FaceEnum.exLeftFace)
	.AlwaysEnsureVisibleFace = exontrol.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 Extreecube1_FaceTreeButtonClick(ByVal sender As System.Object,ByVal Tree As exontrol.EXTREECUBELib.FaceTree,ByVal Item As Integer,ByVal Column As Integer) Handles Extreecube1.FaceTreeButtonClick
	With Extreecube1
		Debug.Print( "FaceTreeButtonClick" )
	End With
End Sub

' FaceTreeStateChanged event - Notifies that a cell changes its state into a face of tree type.
Private Sub Extreecube1_FaceTreeStateChanged(ByVal sender As System.Object,ByVal Tree As exontrol.EXTREECUBELib.FaceTree,ByVal Item As Integer,ByVal Column As Integer) Handles Extreecube1.FaceTreeStateChanged
	With Extreecube1
		Debug.Print( "FaceTreeStateChanged" )
	End With
End Sub

Dim s
With Extreecube1
	.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"
		.set_Title(exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceCaption,"<c><font ;18>Notifications")
		.set_Title(exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceBackgroundExt,"bottom[2],bottom[4,back=RGB(0,0,0)]")
		With .CreateTree()
			.HasLines = exontrol.EXTREECUBELib.HierarchyLineEnum.exNoLine
			.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exNoLines
			.ItemPadding = 24
			.HeaderVisible = False
			.ShowSelection = False
			.Columns.Add("Default").Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
			With .Items
				With .Add("Choose your quick actions")
					.set_SingleLine(0,False)
					With .Items.Add("")
						.Height = 48
						s = 0
						.set_Value(s,"<c><img>P1</img>")
						.set_CellWidth(s,48)
						.set_HasButton(s,True)
						s = .get_SplitCell(s)
						.set_Value(s,"<c><img>P2</img>")
						.set_CellWidth(s,48)
						.set_HasButton(s,True)
						s = .get_SplitCell(s)
						.set_Value(s,"<c><img>P3</img>")
						.set_CellWidth(s,48)
						.set_HasButton(s,True)
						s = .get_SplitCell(s)
						.set_Value(s,"<c><img>P4</img>")
						.set_CellWidth(s,48)
						.set_HasButton(s,True)
						s = .get_SplitCell(s)
					End With
					.Expanded = True
				End With
				With .Add("Show me tips about Windows")
					.set_SingleLine(0,False)
					With .Items.Add("")
						.Height = 24
						.set_HasCheckBox(0,True)
						.set_State(0,1)
						.set_FormatCell(0,"state = 0 ? `Off` : `On`")
					End With
					.Expanded = True
				End With
				With .Add("Show app notifications	")
					.set_SingleLine(0,False)
					With .Items.Add("")
						.Height = 24
						.set_HasCheckBox(0,True)
						.set_State(0,1)
						.set_FormatCell(0,"state = 0 ? `Off` : `On`")
					End With
					.Expanded = True
				End With
				With .Add("Show notifications on lock screen")
					.set_SingleLine(0,False)
					With .Items.Add("")
						.Height = 24
						.set_HasCheckBox(0,True)
						.set_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")
					.set_SingleLine(0,False)
					With .Items.Add("")
						.Height = 24
						.set_HasCheckBox(0,True)
						.set_State(0,1)
						.set_FormatCell(0,"state = 0 ? `Off` : `On`")
					End With
					.Expanded = True
				End With
				With .Add("Hide notications while presentation")
					.set_SingleLine(0,False)
					With .Items.Add("")
						.Height = 24
						.set_HasCheckBox(0,True)
						.set_State(0,0)
						.set_FormatCell(0,"state = 0 ? `Off` : `On`")
					End With
					.Expanded = True
				End With
			End With
		End With
	End With
	.EnsureVisibleFaceMargin = 0
	.EnsureVisibleFace(exontrol.EXTREECUBELib.FaceEnum.exFrontFace)
	.AlwaysEnsureVisibleFace = exontrol.EXTREECUBELib.EnsureVisibleFaceEnum.exFitToEnsureFace
	.EndUpdate()
End With
87
How do I display a progress bar

With Extreecube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.ItemPadding = 16
		With .Columns.Add("Pos")
			.FormatColumn = "1 pos ``"
			.Width = 8
		End With
		.Columns.Add("Progress").Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
		With .Items
			With .Add("")
				.set_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)]))")
				.set_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt,"25%")
				.set_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt2,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exTextExt,.get_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt))
			End With
			With .Add("")
				.set_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)]))")
				.set_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt,"15%")
				.set_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt2,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exTextExt,.get_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt))
				.set_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exBackColorExt,65280)
			End With
			With .Add("")
				.set_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)]))")
				.set_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt,"75%")
				.set_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt2,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exTextExt,.get_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt))
			End With
			With .Add("")
				.set_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)]))")
				.set_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt,"85%")
				.set_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt2,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exTextExt,.get_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt))
			End With
			With .Add("")
				.set_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)]))")
				.set_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt,"5%")
				.set_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt2,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exTextExt,.get_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt))
				.set_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.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 Extreecube1
	.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_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,&H1000000)
	.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,&H2000000)
	.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState2,&H3000000)
	With .FrontFace.CreateTree()
		.HasLines = exontrol.EXTREECUBELib.HierarchyLineEnum.exThinLine
		.ShowSelection = False
		.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 16
		With .Columns.Add("<c><b>Partial Check")
			.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
			.set_Def(exontrol.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 = Extreecube1.FrontFace.FaceTree.VisibleItemsCount
		With .get_ItemByIndex(1)
			.Items.Count = 3
			.Expanded = True
			.set_State(0,1)
		End With
		With .get_ItemByIndex(2)
			.Items.Count = 3
			.Expanded = True
			.Items.Item(1).set_State(0,1)
		End With
	End With
	.EndUpdate()
End With
85
How do I print the control

With Extreecube1
	With .FrontFace.CreateCalendar()
		.AutoSize = exontrol.EXTREECUBELib.AutoSizeEnum.exFitClient
		.MaxMonthX = 1
		.MaxMonthY = 1
	End With
	' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
	With New exontrol.EXPRINTLib.exprint()
		.PrintExt = Extreecube1
		.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 Extreecube1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Extreecube1.MouseMoveEvent
	With Extreecube1
		Debug.Print( .FrontFace.FaceTree.get_CaptionFromPoint(-1,-1) )
	End With
End Sub

With Extreecube1
	.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Chapel"
	With .FrontFace.CreateTree()
		.ItemPadding = 16
		.HeaderVisible = False
		.ForeColor = Color.FromArgb(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 Extreecube1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Extreecube1.MouseMoveEvent
	With Extreecube1
		Debug.Print( .FrontFace.FaceTree.get_ValueFromPoint(-1,-1) )
	End With
End Sub

With Extreecube1
	.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Chapel"
	With .FrontFace.CreateTree()
		.ItemPadding = 16
		.HeaderVisible = False
		.ForeColor = Color.FromArgb(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 Extreecube1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Extreecube1.MouseMoveEvent
	With Extreecube1
		Debug.Print( .FrontFace.FaceTree.get_ColumnFromPoint(-1,-1) )
	End With
End Sub

With Extreecube1
	With .FrontFace.CreateTree()
		.FullRowSelect = True
		.DrawGridLines = exontrol.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 Extreecube1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Extreecube1.MouseMoveEvent
	With Extreecube1
		Debug.Print( .FrontFace.FaceTree.get_ItemFromPoint(-1,-1) )
	End With
End Sub

With Extreecube1
	With .FrontFace.CreateTree()
		.FullRowSelect = True
		.DrawGridLines = exontrol.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 Extreecube1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Extreecube1.MouseMoveEvent
	With Extreecube1
		Debug.Print( "Date:" )
		Debug.Print( .FrontFace.FaceCalendar.get_ValueFromPoint(-1,-1) )
	End With
End Sub

With Extreecube1
	With .FrontFace.CreateCalendar()
		.AutoSize = exontrol.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 Extreecube1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Extreecube1.MouseMoveEvent
	With Extreecube1
		Debug.Print( "Date:" )
		Debug.Print( .FrontFace.FaceCalendar.get_DateFromPoint(-1,-1) )
	End With
End Sub

With Extreecube1
	With .FrontFace.CreateCalendar()
		.AutoSize = exontrol.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 Extreecube1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Extreecube1.MouseMoveEvent
	With Extreecube1
		Debug.Print( "Face:" )
		Debug.Print( .get_FaceFromPoint(-1,-1) )
	End With
End Sub

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

With Extreecube1
	.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_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,&H1000000)
	.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,&H2000000)
	.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState2,&H3000000)
	With .FrontFace.CreateTree()
		.HasLines = exontrol.EXTREECUBELib.HierarchyLineEnum.exThinLine
		.ShowSelection = False
		.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 16
		With .Columns.Add("<c><b>Partial Check")
			.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
			.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasCheckBox,True)
			.FormatColumn = "`Check <b>` + 1 rpos ``"
			.PartialCheck = True
		End With
		.Items.Count = Extreecube1.FrontFace.FaceTree.VisibleItemsCount
		With .get_ItemByIndex(1)
			.Items.Count = 3
			.Expanded = True
			.set_State(0,1)
		End With
		With .get_ItemByIndex(2)
			.Items.Count = 3
			.Expanded = True
			.Items.Item(1).set_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 Extreecube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.DrawGridLines = exontrol.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 Extreecube1
	.BeginUpdate()
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 12
		With .Columns.Add("<c><b>Items")
			.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
			.set_Def(exontrol.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 Extreecube1
	.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_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exRadioButtonState0,&H1000000)
	.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exRadioButtonState1,&H2000000)
	With .FrontFace.CreateTree()
		.ShowSelection = False
		.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 12
		With .Columns.Add("<c><b>Radio")
			.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
			.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasRadioButton,True)
		End With
		.Items.ToString = "Radio 1,Radio 2,Radio 3,Radio 4"
		.get_ItemByIndex(1).set_State(0,1)
	End With
	.EndUpdate()
End With
73
How can I change the visual appearance for the control's check boxes (6)

With Extreecube1
	.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_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,&H1000000)
	.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,&H2000000)
	With .FrontFace.CreateTree()
		.ShowSelection = False
		.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 16
		With .Columns.Add("<c><b>Check")
			.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
			.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasCheckBox,True)
		End With
		.Items.ToString = "Check A,Check B,Check C,Check D"
		.get_ItemByIndex(1).set_State(0,1)
	End With
	.EndUpdate()
End With
72
How can I change the visual appearance for the control's check boxes (5)

With Extreecube1
	.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_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,&H1000000)
	.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,&H2000000)
	With .FrontFace.CreateTree()
		.ShowSelection = False
		.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 16
		With .Columns.Add("<c><b>Check")
			.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
			.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasCheckBox,True)
		End With
		.Items.ToString = "Check A,Check B,Check C,Check D"
		.get_ItemByIndex(1).set_State(0,1)
	End With
	.EndUpdate()
End With
71
How can I change the visual appearance for the control's check boxes (4)

With Extreecube1
	.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_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,&H1000000)
	.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,&H2000000)
	.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState2,&H3000000)
	With .FrontFace.CreateTree()
		.ShowSelection = False
		.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 16
		With .Columns.Add("<c><b>Check")
			.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
			.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasCheckBox,True)
		End With
		.Items.ToString = "Check A,Check B,Check C,Check D"
		.get_ItemByIndex(1).set_State(0,1)
	End With
	.EndUpdate()
End With
70
How can I change the visual appearance for the control's check boxes (3)

With Extreecube1
	.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_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,&H1000000)
	.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,&H2000000)
	.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState2,&H3000000)
	With .FrontFace.CreateTree()
		.ShowSelection = False
		.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 16
		With .Columns.Add("<c><b>Check")
			.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
			.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasCheckBox,True)
		End With
		.Items.ToString = "Check A,Check B,Check C,Check D"
		.get_ItemByIndex(1).set_State(0,1)
	End With
	.EndUpdate()
End With
69
How can I change the visual appearance for the control's check boxes (2)

With Extreecube1
	.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_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,&H1000000)
	.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,&H2000000)
	With .FrontFace.CreateTree()
		.ShowSelection = False
		.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 16
		With .Columns.Add("<c><b>Check")
			.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
			.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasCheckBox,True)
		End With
		.Items.ToString = "Check A,Check B,Check C,Check D"
		.get_ItemByIndex(1).set_State(0,1)
	End With
	.EndUpdate()
End With
68
How can I change the visual appearance for the control's check boxes (1)

With Extreecube1
	.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_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,&H1000000)
	.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,&H2000000)
	With .FrontFace.CreateTree()
		.ShowSelection = False
		.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 12
		With .Columns.Add("<c><b>Check")
			.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
			.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasCheckBox,True)
		End With
		.Items.ToString = "Check A,Check B,Check C,Check D"
		.get_ItemByIndex(1).set_State(0,1)
	End With
	.EndUpdate()
End With
67
How can I display an item to fit the control's width

With Extreecube1
	.BeginUpdate()
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.HasLines = exontrol.EXTREECUBELib.HierarchyLineEnum.exThinLine
		.ItemPadding = 10
		.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
		.Columns.Add("<c>Default").Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
		With .Columns.Add("Pos")
			.Position = 0
			.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
			.FormatColumn = "1 rpos ``"
			.Width = 24
		End With
		With .Columns.Add("Pos")
			.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
			.FormatColumn = "1 rpos ``"
			.Width = 24
		End With
		With .Items
			With .Add("<r>Root 1")
				.Bold = True
				.Divider = 0
				.BackColor = Color.FromArgb(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 = Color.FromArgb(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 Extreecube1
	.BeginUpdate()
	.CheckBoxWidth = 32
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.ShowSelection = False
		.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 10
		With .Columns.Add("<c><b>Check")
			.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
			.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasCheckBox,True)
		End With
		.Items.ToString = "Item A,Item B,Item C,Item D"
		.get_ItemByIndex(1).set_State(0,1)
	End With
	.EndUpdate()
End With
65
Is it possible to provide a few radio-buttons only, not for entire column

With Extreecube1
	.BeginUpdate()
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.ShowSelection = False
		.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 10
		With .Columns.Add("<c><b>Def")
			.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
			.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellPaddingLeft,4)
		End With
		With .Items
			.Add("Item 1")
			With .Add("Radio 1")
				.set_HasRadioButton(0,True)
				.set_RadioGroup(0,1234)
			End With
			With .Add("Radio 2")
				.set_HasRadioButton(0,True)
				.set_RadioGroup(0,1234)
				.set_State(0,True)
			End With
			With .Add("Radio 3")
				.set_HasRadioButton(0,True)
				.set_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 Extreecube1
	.BeginUpdate()
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.ShowSelection = False
		.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 10
		With .Columns.Add("<c><b>Def")
			.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
			.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellPaddingLeft,4)
		End With
		With .Items
			.Add("Item 1")
			.Add("Check 1").set_HasCheckBox(0,True)
			With .Add("Check 2")
				.set_HasCheckBox(0,True)
				.set_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 Extreecube1
	.BeginUpdate()
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.ShowSelection = False
		.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 10
		With .Columns.Add("<c><b>Radio")
			.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
			.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasRadioButton,True)
		End With
		.Items.ToString = "Item A,Item B,Item C,Item D"
		.get_ItemByIndex(1).set_State(0,1)
	End With
	.EndUpdate()
End With
62
How can I show check-boxes for the entire column

With Extreecube1
	.BeginUpdate()
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.ShowSelection = False
		.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
		.ItemPadding = 10
		With .Columns.Add("<c><b>Check")
			.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
			.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasCheckBox,True)
		End With
		.Items.ToString = "Item A,Item B,Item C,Item D"
		.get_ItemByIndex(1).set_State(0,1)
	End With
	.EndUpdate()
End With
61
How do I select programmatically a value in the calendar

With Extreecube1
	.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Chapel"
	.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateHeaderForeColor,Color.FromArgb(1,0,0))
	With .FrontFace.CreateCalendar()
		.ForeColor = Color.FromArgb(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 Extreecube1
	.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\JapanGarden"
	With .FrontFace.CreateTree()
		.ItemPadding = 40
		.HeaderVisible = False
		.ForeColor = Color.FromArgb(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 Extreecube1
	.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\JapanGarden"
	With .FrontFace.CreateTree()
		.ItemPadding = 40
		.HeaderVisible = False
		.ForeColor = Color.FromArgb(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 Extreecube1
	.BeginUpdate()
	.TexturePicturePath = ""
	.HasButtons = exontrol.EXTREECUBELib.ExpandButtonEnum.exArrow
	With .FrontFace.CreateTree()
		.ItemPadding = 10
		.HeaderVisible = False
		.HasLines = exontrol.EXTREECUBELib.HierarchyLineEnum.exSolidLine
		.LinesAtRoot = exontrol.EXTREECUBELib.LinesAtRootEnum.exGroupLines
		.GridLineStyle = exontrol.EXTREECUBELib.GridLinesStyleEnum.exGridLinesSolid
		.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exAllLines
		.Columns.Add("").Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
		With .Columns.Add("")
			.Alignment = exontrol.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 Extreecube1
	.BeginUpdate()
	With .FrontFace.CreateTree()
		.FullRowSelect = True
		.Columns.Count = 3
		With .Columns.Item(0)
			.Caption = "<b><c>Pos"
			.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
			.FormatColumn = "0 pos ``"
			.Width = 64
		End With
		.Items.Count = Extreecube1.FrontFace.FaceTree.VisibleItemsCount
		.SelectItem = 1
	End With
	.EnsureVisibleFace(exontrol.EXTREECUBELib.FaceEnum.exFrontFace)
	.EndUpdate()
End With
56
How can I change the visual appearance of the control's header bar

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

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

With Extreecube1
	.BeginUpdate()
	With .FrontFace.CreateTree()
		.ItemPadding = 10
		.LinesAtRoot = exontrol.EXTREECUBELib.LinesAtRootEnum.exGroupLines
		.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
		.Columns.Add("Default").Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
		With .Columns.Add("Pos")
			.Position = 0
			.Alignment = exontrol.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 Extreecube1_FaceTreeExpandItem(ByVal sender As System.Object,ByVal Tree As exontrol.EXTREECUBELib.FaceTree,ByVal Item As Integer) Handles Extreecube1.FaceTreeExpandItem
	With Extreecube1
		Debug.Print( Item )
	End With
End Sub

With Extreecube1
	.BeginUpdate()
	With .FrontFace.CreateTree()
		.ExpandOnDblClick = True
		.ItemPadding = 10
		.HeaderVisible = False
		.LinesAtRoot = exontrol.EXTREECUBELib.LinesAtRootEnum.exGroupLines
		.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
		.Columns.Add("").Alignment = exontrol.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 Extreecube1_FaceCalendarValueChanged(ByVal sender As System.Object,ByVal Calendar As exontrol.EXTREECUBELib.FaceCalendar) Handles Extreecube1.FaceCalendarValueChanged
	With Extreecube1
		Debug.Print( Calendar )
	End With
End Sub

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

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

With Extreecube1
	.IdentifyFace = exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceFrame Or exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceName Or exontrol.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 Extreecube1
	With .FrontFace.CreateTree()
		.ItemPadding = 20
		.HeaderVisible = False
		.DrawGridLines = exontrol.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 Extreecube1
	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 Extreecube1
	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 Extreecube1_FaceTreeValueChanged(ByVal sender As System.Object,ByVal Tree As exontrol.EXTREECUBELib.FaceTree) Handles Extreecube1.FaceTreeValueChanged
	' f.FaceCalendar.Year = Tree.Caption
	Dim f
	With Extreecube1
		f = .get_Face(.VisibleFace)
		f = .FrontFace
		With f.get_Neighbor(exontrol.EXTREECUBELib.RotateEnum.exRotateLeft).FaceCalendar
			.Date = f.FaceCalendar.Date
			.Move(exontrol.EXTREECUBELib.RotateEnum.exRotateLeft)
		End With
		With f.get_Neighbor(exontrol.EXTREECUBELib.RotateEnum.exRotateRight).FaceCalendar
			.Date = f.FaceCalendar.Date
			.Move(exontrol.EXTREECUBELib.RotateEnum.exRotateRight)
		End With
		With f.get_Neighbor(exontrol.EXTREECUBELib.RotateEnum.exRotateRight).get_Neighbor(exontrol.EXTREECUBELib.RotateEnum.exRotateRight).FaceCalendar
			.Date = f.FaceCalendar.Date
			.Move(exontrol.EXTREECUBELib.RotateEnum.exRotateRight)
			.Move(exontrol.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 Extreecube1_Move(ByVal sender As System.Object,ByVal RotateDir As exontrol.EXTREECUBELib.RotateEnum,ByVal FromFace As exontrol.EXTREECUBELib.FaceEnum,ByVal ToFace As exontrol.EXTREECUBELib.FaceEnum) Handles Extreecube1.Move
	Dim f
	With Extreecube1
		f = .get_Face(ToFace)
		f.FaceCalendar.SelDate = Extreecube1.get_Face(FromFace).FaceCalendar.SelDate
		.get_Face(FromFace).FaceCalendar.UnselectDate()
		With f.get_Neighbor(exontrol.EXTREECUBELib.RotateEnum.exRotateLeft).FaceCalendar
			.Date = f.FaceCalendar.Date
			.Move(exontrol.EXTREECUBELib.RotateEnum.exRotateLeft)
		End With
		With f.get_Neighbor(exontrol.EXTREECUBELib.RotateEnum.exRotateRight).FaceCalendar
			.Date = f.FaceCalendar.Date
			.Move(exontrol.EXTREECUBELib.RotateEnum.exRotateRight)
		End With
	End With
End Sub

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

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

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

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

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

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

With Extreecube1
	.DefaultFaceType = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
End With
35
How can I disable zoom when rolling the mouse wheel
With Extreecube1
	.OnMouseWheel = exontrol.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 Extreecube1_Move(ByVal sender As System.Object,ByVal RotateDir As exontrol.EXTREECUBELib.RotateEnum,ByVal FromFace As exontrol.EXTREECUBELib.FaceEnum,ByVal ToFace As exontrol.EXTREECUBELib.FaceEnum) Handles Extreecube1.Move
	With Extreecube1
		.FrontFace.FaceCalendar.Move(RotateDir)
		With .LeftFace.FaceCalendar
			.Date = Extreecube1.FrontFace.FaceCalendar.Date
			.PrevMonth()
		End With
		With .RightFace.FaceCalendar
			.Date = Extreecube1.FrontFace.FaceCalendar.Date
			.NextMonth()
		End With
	End With
End Sub

With Extreecube1
	.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_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateHeader,&H2000000)
	.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateHeaderForeColor,Color.FromArgb(255,255,255))
	.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exWeeksHeader,Color.FromArgb(240,240,240))
	.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exDaysHeader,Color.FromArgb(240,240,240))
	.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateTodayUp,&H2000000)
	.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateTodayForeColor,Color.FromArgb(255,255,255))
	.AllowRotate = exontrol.EXTREECUBELib.RotateEnum.exRotateRight Or exontrol.EXTREECUBELib.RotateEnum.exRotateLeft
	.EnsureVisibleFaceOnDblClick = False
	.DefaultFaceType = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
	.FrontFace.FaceCalendar.Date = #1/1/2016#
	.TopFace.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceNone
	.DownFace.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceNone
	.AlwaysEnsureVisibleFace = exontrol.EXTREECUBELib.EnsureVisibleFaceEnum.exAlwaysVisibleFrontFace Or exontrol.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 Extreecube1_FaceCalendarDateChanged(ByVal sender As System.Object,ByVal Calendar As exontrol.EXTREECUBELib.FaceCalendar) Handles Extreecube1.FaceCalendarDateChanged
	Dim currentDate
	With Extreecube1
		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 Extreecube1_InitFaceCalendar(ByVal sender As System.Object,ByVal Calendar As exontrol.EXTREECUBELib.FaceCalendar) Handles Extreecube1.InitFaceCalendar
	With Extreecube1
		With Calendar
		End With
	End With
End Sub

' Move event - Occurs once a new face became visible, by moving/rotating from a face to another, into the giving direction.
Private Sub Extreecube1_Move(ByVal sender As System.Object,ByVal RotateDir As exontrol.EXTREECUBELib.RotateEnum,ByVal FromFace As exontrol.EXTREECUBELib.FaceEnum,ByVal ToFace As exontrol.EXTREECUBELib.FaceEnum) Handles Extreecube1.Move
	With Extreecube1
		.FrontFace.FaceCalendar.Move(RotateDir)
	End With
End Sub

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

With Extreecube1
	With .FrontFace
		.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
		With .FaceCalendar
			.Date = #1/1/2001#
			.SelDate = .Date
			.MinDate = #1/1/2001#
			.MaxDate = #1/31/2001#
			.FirstWeekDay = exontrol.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 Extreecube1
	With .FrontFace
		.Type = exontrol.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 Extreecube1
	.EnsureVisibleFaceOnDblClick = False
End With
28
How can I put a picture into the center of the texture but behind the control's face

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

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

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

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

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

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

With Extreecube1
	.IdentifyFace = exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceFrame Or exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceName Or exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceCaption
	With .FrontFace
		.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFacePicture
		With .FacePicture
			.Picture = Extreecube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
			.PictureDisplay = exontrol.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 Extreecube1
	.IdentifyFace = exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceFrame Or exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceName Or exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceCaption
	With .FrontFace
		.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFacePicture
		With .FacePicture
			.Picture = Extreecube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
			.PictureDisplay = exontrol.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 Extreecube1
	.BeginUpdate()
	.TexturePicturePath = ""
	.get_Face(exontrol.EXTREECUBELib.FaceEnum.exFrontFace).Picture = Extreecube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.get_Face(exontrol.EXTREECUBELib.FaceEnum.exBottomFace).Picture = Extreecube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
	.get_Face(exontrol.EXTREECUBELib.FaceEnum.exRightFace).Picture = Extreecube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
	.get_Face(exontrol.EXTREECUBELib.FaceEnum.exLeftFace).Picture = Extreecube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
	.get_Face(exontrol.EXTREECUBELib.FaceEnum.exTopFace).Picture = Extreecube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
	.get_Face(exontrol.EXTREECUBELib.FaceEnum.exDownFace).Picture = Extreecube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.AlwaysEnsureVisibleFace = exontrol.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 Extreecube1
	.BeginUpdate()
	.Transparent = 80
	.TexturePicturePath = "C:\Program Files\Exontrol\ExTexture\Sample\Texture\VW"
	.AlwaysEnsureVisibleFace = exontrol.EXTREECUBELib.EnsureVisibleFaceEnum.exDisableEnsureVisibleFace
	.IdentifyFace = exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceFrame
	With .TopFace
		.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
		With .FaceCalendar
			.Date = #2/1/2016#
			.MaxMonthX = 1
			.MaxMonthY = 1
		End With
	End With
	With .LeftFace
		.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
		With .FaceCalendar
			.Date = #3/1/2016#
			.MaxMonthX = 1
			.MaxMonthY = 1
		End With
	End With
	With .FrontFace
		.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
		With .FaceCalendar
			.Date = #4/1/2016#
			.MaxMonthX = 1
			.MaxMonthY = 1
		End With
	End With
	With .RightFace
		.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
		With .FaceCalendar
			.Date = #5/1/2016#
			.MaxMonthX = 1
			.MaxMonthY = 1
		End With
	End With
	.ShowAs = exontrol.EXTREECUBELib.ShowAsEnum.exFishEye
	.AlwaysEnsureVisibleFace = exontrol.EXTREECUBELib.EnsureVisibleFaceEnum.exDisableEnsureVisibleFace
	.IdentifyFace = exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceFrame
	.EndUpdate()
End With
17
How can I load a different texture on the cube

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

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

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

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

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