244
ImageSize property on 32 (specifies the size of the control' icons)

Procedure OnCreate
	Forward Send OnCreate
	Set ComImageSize to 32
	Variant voStdFont
	Get ComFont to voStdFont
	Handle hoStdFont
	Get Create (RefClass(cComStdFont)) to hoStdFont
	Set pvComObject of hoStdFont to voStdFont
		Set ComSize of hoStdFont to 16
	Send Destroy to hoStdFont
	Set ComPopupFlatImageWidth to 32
	Set ComPopupAppearance to OLEFlatBorder
	Send ComImages ("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/XioW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" + ;
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxRDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYFoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4UkmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==" to Nothing
		Get ComAdd of hoAppearance 2 ("gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnScg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpAoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDRDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lGNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBgk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuXpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2CyA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8RpBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeHGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuhoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMsCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" + ;
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgswOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtYQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBhYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0MgRBCCQAgQEA==") to Nothing
		Get ComAdd of hoAppearance 3 ("gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSeQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjnOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGSUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkXI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRAjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEBwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQHoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRhcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" + ;
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=") to Nothing
		Get ComAdd of hoAppearance 4 "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==" to Nothing
	Send Destroy to hoAppearance
	Set ComSelBackColor to |CI$4000000
	Set ComSelForeColor to (RGB(0,0,1))
	Set ComBackground OLEexCheckBoxState0 to |CI$1000000
	Set ComBackground OLEexCheckBoxState1 to |CI$2000000
	Set ComBackground OLEexCheckBoxState2 to |CI$3000000
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComImage of hoItem to 1
			Set ComCheck of hoItem to True
		Send Destroy to hoItem
		Get ComAdd of hoItems "" 1 Nothing to Nothing
		Get ComAdd of hoItems "Item <img>2</img>" Nothing Nothing to Nothing
		Get ComAdd of hoItems "" 1 Nothing to Nothing
		Variant voItem1
		Get ComAdd of hoItems "Item <img>1</img>" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComImage of hoItem1 to 1
		Send Destroy to hoItem1
		Variant voItem2
		Get ComAdd of hoItems "" Nothing Nothing to voItem2
		Handle hoItem2
		Get Create (RefClass(cComItem)) to hoItem2
		Set pvComObject of hoItem2 to voItem2
			Set ComToString of hoItem2 to "Popup[img=1](2[img=2],3[img=3])"
		Send Destroy to hoItem2
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
243
ImageSize property on 16 (default) (specifies the size of the control' icons)

Procedure OnCreate
	Forward Send OnCreate
	Set ComImageSize to 16
	Set ComPopupAppearance to OLEFlatBorder
	Send ComImages "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTGsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==" to Nothing
	Send Destroy to hoAppearance
	Set ComSelBackColor to |CI$4000000
	Set ComSelForeColor to (RGB(0,0,1))
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComImage of hoItem to 1
			Set ComCheck of hoItem to True
		Send Destroy to hoItem
		Get ComAdd of hoItems "" 1 Nothing to Nothing
		Get ComAdd of hoItems "Item <img>2</img>" Nothing Nothing to Nothing
		Get ComAdd of hoItems "" 1 Nothing to Nothing
		Variant voItem1
		Get ComAdd of hoItems "Item <img>1</img>" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComImage of hoItem1 to 1
		Send Destroy to hoItem1
		Variant voItem2
		Get ComAdd of hoItems "" Nothing Nothing to voItem2
		Handle hoItem2
		Get Create (RefClass(cComItem)) to hoItem2
		Set pvComObject of hoItem2 to voItem2
			Set ComToString of hoItem2 to "Popup[img=1](2[img=2],3[img=3])"
		Send Destroy to hoItem2
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
242
How do I get the item's value without the place holders (exclude mask-characters)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComToString to "Mask[edit=98][editwidth=-128][edittype=2][mask=00000],Mask[edit=98][editwidth=-128][edittype=2][mask=00000;1]"
End_Procedure
241
How can I generate/create a progress/step bar for installation

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAAEhABfQCg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGIaRWgmFgAQhFcZQSKUOQTDKMIziYBYJhEMgxDREIwjEKEIhoGQcJAGQBJCjWGodQLOEgwHIERQjEyUpIgFBIYhzEAZJ5jOioaBOCY0TxCNCQG5oOBIACqariagBUoKUwADCNdIVfIUQBFDYZabjeooJpmWJWRbJQyiLaVaQSGoYLqgO6LajWIJORpZcB1BK2Cy5FSWJamCYpEwXBY6TpIFKXDIsOSDIqvaKpDI4WxMH4JYELOy4aYPJgAaYweSTTi8CYzMSOLIpOCcCADH4DWjAeh1DAdPzdNytY4uO5YRrzRZ5RDZOgQTq4AZrXbHJpwehZMwyDmEwMmieBch4ExDk2Cxvi4HAMi6MhTlQGBrnsA4dhQapNGqXBzCMfgaj+DgHkSYRfHiVx+EeSxIAAaBYEaVZfHQXpXngCBCEUAYkGMHQHFGSBlEGUISCgFRAkQIQ2BIRoRFQDAoEIW4WgkawGBEcRSBOAQQhaJgmgmYoIiYKoKmKSI2C6C5jAiLAkAcDpYk4NYNCMaJmDiDpjHidg6g+IxIhYMYQmQSQWEaEZiHifhKg8JI5AIToNiQKQiFKFJlEkGhNhWZJJGYT4QFAORWF6F5mAkJhahYJY5hYUBAmOeI4n+GpmkmNhuhuZwJkYcocmcSZWG+C4mEmZhjg8EIZDYaodigCgGgKIJnBmYh7hmKB5hwAIZCeegSg6I5pAmNoGiIKRIn4fYiGMSg2hGJppkmVoTh6KRKF6FYmGKWh2iaKZnHiNoghkKgqi6JILTKRonieaYJDqLYtGaGoWjKLppBqUojDsax6n6OYsCuSwWgSL4qkmIo4i0aYrBqTodCyCRqkGK4mFsNpPjWaoYjLlRsjsCovgqbYLgYcI0GxhZejmbRrgqWIvi0Ox2lSOhuisPoTjsbh7j6Oo8G4KI6nSNQvGsEp4jgb4rhqfI7i2eIqn+Phqikcpcj0bZbkMB4um6TALASJQwmwPoxjkL48E4NpFHEapPAmGRxhuIp3kcbBbhKFpEjCQ43BySQpkzjZKC+W4DCySRxnsUwhh+Mg8k8F5NHEPJeDySpzioPwui+c5sisOZQGobQPDaTAzn0HxIksc5MicJ5CmwPJLE+R4tiwao1jAdANF6AZSjWKJ2iKGB2E2FhFkCcoZEcZpanaSM7FucItjccpbDcDRLAoHUXIKANACICA" to Nothing
		Get ComAdd of hoAppearance 1 "CP:2 -8 0 12 0" to Nothing
		Get ComAdd of hoAppearance 4 "gBFLBCJwBAEHhEJAAEhABNoDg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGIaRWgmFgAQhFcZQSKUOQTDKMIziYBYJhEMgxDREIwjEKEIhoGQcJAGQBJCjWGodQLOEgwHIERQjEyUpIgFBIYhzEAZJ5jOioaBOCY0TxCNCQG5oOBIACqariagBUoKUwADCNdIVfIUQBFDYZabjeooJpmWJWRbJQyiLaVaQSGoYLqgO6LajWIJORpZcB1BK2Cy5FSWJamCYpEwXBY6TpIFKXDIsOSDIqvaKpDI4WxMH4JYELOy4aYPJgAaYweSTTi8CYzMSOLIpOCcCADH4DWjAeh1DAdPzdNytY4uO5YRrzRZ5RDZOgQTq4AZrXbHJpwehZMwyDmEwMmieBch4ExDk2Cxvi4HAMi6MhTlQGBrnsA4dhQapNGqXBzCMfgaj+DgHkSYRfHiVx+EeSxIAAaBYEaVZfHQXpXngCBCEUAYkGMHQHFGSBlEGUISCgFRAkQIQ2BIRoRFQDAoEIW4WgkawGBEcRSBOAQQhMbIkA6IhoiIJ4KGKSIuC6CojAiNgxguYwolYNINmMOJmDaDojgiJAkAcDpYn4QYQCQKQWESEZkDkJhGhKJAIhYPYTmOSRGDuFJlAkUhShUY4JC4WoSCWOQyF6EIkmkXhihWJhJGIY4ZiYWJCF2GplkmNhfhMUA5iYcoaCcSYeHaHJDimMhvh6Z4kCYSxqGgCgEngO4NioDoFiEKBqCaCIimgeg2gqI4okoPtHGkShChaIBpgMDh6iaZppC4fobimGgKhXVBqhKJoomqCoWimIYqBoAoch8KZZkAAIeiqVomieKorgqXo6iqa5KDaNRpiqewGjKK5rnMDo7i4a5bB6SovGwWwKjAOxpnsPhCjEbI7CKVo1G2Cgyk2LBtCsDpchcbRLCaYo1m4OxklqNptlkepRjOLQ6n6Zo7m4W5Gj6L5ukseppjgLprkqcI5C+SoSmiK5ujsfwCDsbgbnaepBnAa5OjWQAQDuVpPkEb48EcCI/i8SxzAGPZwDwQwTkacIal6f4SDEfA6jSPhxw6EouDGexDA2QJyCkIwakkcwMh8FJCm8bI3BiQQyEzo5HCwXIHCyT5lmyPw6kwc5Kn8PpNmwTJnDuUQ0kqMwVkqKw9AMDpQjSPQOlWSh0HyWpti0dRtFcCJKGYDIvEiNw1E0NxekIdgMgMYpWiQDYXF2WYvk2JpqlqdQsjsJUXAbR9C+E+IYNQOwPBxFcGwfYzRji5CeLsUo0xbhwB4E0F4vR3C6EKJ0YgbwOBWDOFYdonA7AzF2PALgjRWjCDiLoZw2xmByC6A4Coyg4i8BcPsH49AODXBmMkagPBWC7EWPIDoXwKjODeNQewxQxD3A6M8Oo3R7idHWFMa4YA0BPD6OEfAngXiNG+PQXwThQjjHyJ4N4nRyB2F8FICQdRcgoA0AIgI" to Nothing
		Get ComAdd of hoAppearance 3 "CP:4 -8 0 12 0" to Nothing
		Get ComAdd of hoAppearance 6 "gBFLBCJwBAEHhEJAAEhABFIDg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGIaRWgmFgAQhFcZQSKUOQTDKMIziYBYJhEMgxDREIwjEKEIhoGQcJAGQBJCjWGodQLOEgwHIERQjEyUpIgFBIYhzEAZJ5jOioaBOCY0TxCNCQG5oOBIACqariagBUoKUwADCNdIVfIUQBFDYZabjeooJpmWJWRbJQyiLaVaQSGoYLqgO6LajWIJORpZcB1BK2Cy5FSWJamCYpEwXBY6TpIFKXDIsOSDIqvaKpDI4WxMH4JYELOy4aYPJgAaYweSTTi8CYzMSOLIpOCcCADH4DWjAeh1DAdPzdNytY4uO5YRrzRZ5RDZOgQTq4AZrXbHJpwehZMwyDmEwMmieBch4ExDk2Cxvi4HAMi6MhTlQGBrnsA4dhQapNGqXBzCMfgaj+DgHkSYRfHiVx+EeSxIAAaBYEaVZfHQXpXngCBCEUAYkGMHQHFGSBlEGUISCgFRAkQIQ2BIRoRFQDAoEIW4WgkawGBEcRSBOAQQhAVJCCWIhoiIJ4KGKSIuC6CojAiNgxguYwolYNINmMOJmDaDojgiJAkAcDpYn4QYQCQKQWESEZkDkJhGhKJAIhYPYTmOSRGDuFJlAkUhShUY4JC4WoSCWOQyF6EIkmkXhihWJhJGIY4ZiYWJCF2GplkmNhfhMUA5iYcoaCcSYeHaHJJGmMhvh6Z4kCYSxqGgCgEn+IJoEoFoGiGaIKCaCoimiSg2geIBpAMDh6iSZppC4fobikGgKg6JppkodoeiIaYaAKFIfCkWZAACHoqBaJofiqapKjaD4qGkKoWiSHppHqTowDCapqmaOonCses9C0ag6l6O4wmwSo+imL4rCsAoyh+awLBaToxCuWwukkQJsgkepCjObYKjqUYsmkaxSlKLYslsZpiiebY6n6Xo3C2exemOOpomuFpTimbZ7Faao7C8SoCjCHxua4QY4G8W52gaO4khsKpokCZArk6fo/jADAKnqPBkAwGwHj0bY8CsDJBCSDA7A+OwrHwSwUkacRsamRhvhwTwLDscZcHqWZEHIHBunuKhyGudwJkocg5HcJZLGybACGCTAyCoYp8k0MZ7l6b5MHO/w8jqcxpjsGo8jOPVAFEaxMmMA5MnSKvlD4LwMHMSZUGwXROl+UZ0BqBxYkmc5sioSJXCSHRDF+Kw1iwbxklmNh7hMYZQCWbBrGyWxpl2JxwkCG4PYpQbi7DODsRozwtjwRGAUYI8BOArCmLgLQqAngNGKPETgbwOjDHeLsXQBxjjyE4K8FoyA2BcGcG4AAHQ3BKKUIAgI" to Nothing
		Get ComAdd of hoAppearance 5 "CP:6 -8 0 12 0" to Nothing
		Get ComAdd of hoAppearance 8 "gBFLBCJwBAEHhEJAAEhABSoCg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGIaRWgmFgAQhFcZQSIEEhHBKMYwjOJgFgmEQyDCNAEwXDSEQ0DIOEgjGAkRxtDQZIRnGA5BiGI4RSbKMgwPBIZxCGSfIzpGKqAiCN42UCNFByXAgbyPKibJBBeK4dgOEYhVg7IaCIAFRTJCyTRpEWybLgkNQwWzAdr3DTMTQ3LavKbvKoaYi2L4xSCNEi3VK8dwlJyeKbpWA5IpKCZEQLRU5UXC+KA/OyBY7xHBIXpGU6PVZOVYSHTUE4vAauQAzKQoDqGY5la7aE5WVZkIznWy4Ih0TMcTgBPDVM4qCapJr3DqRRDKMxUfimF57J5hehADoWDw7kSFRLDsFReEiUBxiOJRCHgEQdE6egti6MhZjqWJNiaTppjeNxuGMdYJP+AZlmERb8hARAkiAaQYkcQZUHIGRZIOVgDFAMQIE2AZRiQVQDAoEZEHkTgGBEcICAgfiDlSQgliGKByBuBxiSSIoHiISIGCWCJiGgdAkAcDpYi4LYLCKaJGDCDJiniVgyg2IpIiYKIOmIeJ2DqD4iDiXhCg0JA4mIRoLiOeQmDyEokAidhFhOZBJEYR4OGSORWE2EwkkkQhThaZYnFIXh0E+eYGGKGJmEmFhmhmZZ5iSQ4WiaSRKDeGomAmHhyhyZxJkIXobGWSY6CyHYnEmdh+hkZxnFIeIgmeOZCH+IZogoBZRiEJ4TjYfIiCkCZ+gqGpnioNguiOaQaGYfYkmiSY+gaJoqAoboKicaBZiqIYpmoKgGgyJgqgqNhoiiaRaF6H4risSo+iqJRqkqVo6hkKZJEqOYumwCYKj2DRrnsBpGD+bA7BaR4xmkOwqkuMBslqTpPjGLIbEqU4tGwOpKiaNZrEsZg0jOLZKB6XoRi4C4GHOOJkFuFpmi8KwKFqJYaG6OomHaKQomsWpxjCLpblK9F6kaPo9i2S52m6OQwAsLwCj0LYrkKV5Bm+ag2nuKZwkwDhdjQcRMFYcJCDCWh7BaRptBwYwSjecZMgcF5GHITAMmsboQDQBCAg=" to Nothing
		Get ComAdd of hoAppearance 7 "CP:8 0 0 12 0" to Nothing
		Set ComRenderType of hoAppearance to -2130772226
	Send Destroy to hoAppearance
	Set ComLocked to True
	Send ComImages "gBJJgBAIEAAFAEGCgAhb/hz/EIAh8Tf5CJo2AEZjQAjEZFEaKEaj8ZAIAEEbjIylErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx2PyGRyWTymVy2XzGZzWbzmdz2f0Gh0Wj0ml02n1Gp1WOh8Sh1q1ux1+yf9m2mu2tx1tp2+81+638w3ds4dn3vE2fBu/FrW353J3Nk49z5lt6tc68r7Ni6dy7e+6Nf78a8fi6F68u25Ve7fprPP8Pq+Mt91U9P1q/w2Hn63n/Dmv89b+vm1cCwNA8EQTBUFwYtyLB8lkII8kCRI0kqSo2cEMJy/8Grsf5+Aef5gRBERgIyf5/REcEUxXFEVH/FkYHBFB/xEeCHRujJ8A8R5AnRHkfHQjJgACdgAA9Isjg8jJAACfAAA/J0oA/JsnyjKcoytKksyqjR4AAB6MzBMUvzDMczzNMsyI3NgATdNE1zTOM6ABLsuy3LEry9O89yIAZ+AAH5gUBQUdg+f5An+fFEUUjKAgA=="
	Send ComImages ("gBJJgBggAAQAAgACkKAD/hz/EMNh8TIRNGwAjEZAEXjAojJQjMLjABAAgjUYDMnlUrlkZQcZZ8ZVkymkYVMZOUtjB1moAmcYn8+mEZQk6lsvjExoE9oM3jE5nU8pdToVUpQAotGldIAFXoNfjNOAFQltSqtnsFJolardDqlpAFiskss1wuFXrNsjRojJ/jIkv+BjBpnFGsxrwQAwEYxYAQEZwl6vd9xONxuRseGjOIxmVjOPweSycYv2d02KyGFqObz2n0AAzGivmk1uo0NPzUYzm23mN1+xyRhjJqyRY1VljJayRsjJj0UZ4UY4l64241cY5V65kY53PAHRAHTtnVzPXAHZtnbAHd5/g8Va8lzldm9Fa9Xs0Xu4vHunJ5bmu877hv26zkOw/7uQC/TqP4+b/O1ADvQW8cGpU+kEPXBUBr0LjPoyDUPpcjIvQw/Dgw2tkOow18QIxFoAK5EkIQTCUUK1FTHRDF0RIxGT0wi9sbKNHEWR1GERxLDTpMkOiMmUjJPSgjJloyO0kxrJa9SajEnoxKMvSnKsryDLK2S2AEugBL81TCjErRnDMsPDJknSlMCMSpN0xvzISdA+jKOAAFaM0GjFAz/OETL1CatUQjdCUhQyM0c+0gT5MtG0BSNBU0jFKKM+8lTmvVHUDQtOUlT09xPTEA1cljZgAL9RPfV9bNHWVaVvXdcVnOVa15V9Y18locIyCaMicjIo2DXgioyIljoyG6M2MjFkIxZSMWZZtb2ejFo2vadq2lbNl27b1oXKAFqIxawAWwAFtABbl0Vdb4AXDeFxowUSMiOjIWoyDl7Veg6MAujIkIyT6M38jGAIxgSMYJgsA4OAGEoxhaMYbft/4DgeLYujONABjgAY8AGHgBiIAYmAGK5G0WMZNlGVBUjJGozHAMZm54LIyLedIyE6M5yjGdoxnuftFoKMaHpOi6Pomlozn2mr1p4AaiAGlABoyMaRr2eavrOtaFquwIyBCMh2jI2ugjKUpHn6SJQjIxbgjIdIyA+2bdvaMPBugAbvkfD8LvSMbijG+oxv6MbajG38ZuW8brmfE7zwQAceAHIgByYAcqAHGwFzHDbtufOctx2/JX0YgxRYgNoyA1m9xiiM2IzAgcAnXZdojPbIx3VeePmXeoz3/JKN4Uy9r2/c5EjHlox5vReejPZ+j4np2D5PeNT7HgLZ0PPteKqMpNyEA9D9oACujJIIyJqMgl9++Q8jH1ow/F0Jon4EZfmRh+pGH7kYfyd59D/AAP+JK7CBj7ICP0fs/h/Tr0VkZghACDMESMQFABAcAECQAQLVeQkjAJWGIPAAo5jBLGMKOa6ywMq5yMAsVvCoAELGOwuhgUaGbaWPkYhutsjMOlbQ8h8ymIBGYYkriG1BhxGYjr0iTDsjMTWVHoiCTqKbXIqxGhwACJSvHQgiIyHqK0WyjRNiuHmNxGAnkZCoRkF6zY0xrjbCuN8fQARyj9HSO0eI9EZjURiNkZJBktjgRmQUPSMx1IxHcjEeVgx7kVICJpLJHkYkjE2SgAJLAAkwugAZGQZJADMyEjALiMhngcHwjIbyMiVIyG4jIMGCypIxKtGgAJWsSIzLAjEsoNkYloRiWxGJcEYl0RiXi9pfAAmAnGYUrgATGABMhHMypay3lzLuXsqpWTam5N418ywATNABM8AE0QATTZGxgGsgHTuniuSAjARnLztYU99mc9p8Odn2Rmfzg5wsboFPUjM95GOmoMR+hE/53MoeLQ4jFEAARXnzICfgAKEuooBQwjFGWmuHBSRkP1LCM0rcy2dANKqXEYpaRimDqqZUzpfTUAFNwAU5cPTs0VNKbU+qFURYLGIo1KW7UypzFqoVRXtVNmZFQfErqyR2ihGCROqqGAAeCtyHgAGAGAPgBgD1nrS5EZwbw+DmHvW+uI9yMV0rlXiuwAK9V6rvXCvNgK9jOAeHwcFc7C2HKSP8Pg/x7jPsZY6xdjbH2Rr3ZCylmLJAAAeP8QA/x8Wds+PgjFnSGjwtMP+sYABDj+AwH8cNrbXjhIxbK2FtraA" + ;
"AGGPwPgPxj27t6McjA8R4B/A+Ae4lxnIj4DAH8QwB7mXOciPwAAfxgAHupda6d1br3ZuuRgf1nRwD/vCP+8ZGB/ifH+Pkh16r2EYICA==")
	Send ComImages "gBJJgBggAAQAAgACkKAD/hz/EMNh8TIRNGwAjEZAEXjAojJQjMLjABAAgjUYDMnlUrlktl0akQAGMZI80jMzjExl87nk9n0/oFBoVDolFo1HpE9B0ZJcZSkZYEZaUZa9UqVQp1MjNLpNdr1fsFhsVjsAFjItjJ5jK4jK2jKejKDjJxudxt9ttdps8Zs1kv1/wGBwWCtEYPcZY15jB3jI/jIajIHyOPxsZxkYtkYxOGveDz2f0Gh0NcAFqjDHjKyjI9rdd0msjGq096jGk0W33G53U8JkZXOKAGwAAGv3EjHCzIA5NN3fN53P0NPjC3y2tnsHjAJo2ky4A6kY6XQ8Xj8lGCsZX93jBAnwkjJbjKBjI6jIPoXsjFwjHpjAT8r/wBAKThkjJprsjDIJclKMDUjJeIybaMkwjL8AA+yewSAC5IwqaMBhAUQRC6AkIybCMjkjIEJeJqMlbAqMlQjJ0IySyMh8yaXRUjEUIwqqMCNEUgyE0USIxE0dxSl4ZoyKaMyAjCTIwQ6MmgjJRIyHaXx0AEeABHwASfIcxTGskCIxAyMQ2AEMpZC4AAsjIIIyhKMBNA4AFKjI6JfDM1Q6AEPzJQVBqS879vUAEKq9QIACojIkpfCr9AA/iGUJS9MKI8LvgA7oGtA7iM048NM1LUyet6jDfumjIeIy4yx1g4VOOXU9bVuljSNMADNgA2TguspDXtSxDaAA21cWTZLCgAPiMtQzDqowx0ERwADJWradpOVYrOIxZllXDZS+gAFyMj031RURNS6IxdsNURTlVtKzoAXJcV8Xy0lUgASqsQ4q0equjCooxfyMX5ZF84Xhid0MmSbIwmqMJwAGH4bjFTorG6VY4ACPIwkCcoykiSI0eCjIeAB/AflCWZRlyV5glqojglpBn5OSWEOf2dJWR5f58lWgaEk4HA+lwGTclYGCGlwHnHp+opaR5/6KjWeauuOc5oAGbJZmqW5mlmWZilSAgA=="
	Send ComImages "gBJJgBggAAQAAgACkKAD/hz/EMNh8TIRNGwAjEZAEXjAojJQjMLjABAAgjUYDMnlUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpE5g8YCcZBMZpc1qNPjASqFJrFZrVbrlYBUZH8ZKcZHcZC0vC8ZHtitVOrtvuFxuVzjARjJsjLHjKpjJZjIfjMmjBbjKtvMZM8ZCF0xmNx2PnALjJFjLMjL4jLjjK8jLAjLky8ZZcZIEZr+Q1Gp1WOAsZD0ZYcZf0ZfMZd8ZeG02UZYUZDcZhOr4XD4lIqIOjK6jL63cY2fO5oA2sYW8ZBkZknF7Xb7k0qN2jGUjF6jHTAHP8/R9GYjDEjJCjIPq/d+n14nZAHgABEjLIjJ4vVALoQGADcva0jFOw+0FwYujFowLSMmajJ6oyfkBPTAj0PRC6MQqjBlIyK74wbEsTK0iKMDIjJZNEjJtoydyMn3DDmIwdiMm0jMQowWKMjCv8TyFIahgqjIarYjAvoyNaMkyjJpQwaCMksjI1IyLyMikjIZpDIkvzArgaIyScZzMjBHoyGMwzZNrHtOAAsP/GKMiqjIDzdPM9Le/EkIwUyMlCjMxpHPdDUOrMjIw/iMCDL1EUhSKigG6yMskjFKUlTVN05TtPU/UFQqwiofJXUqOo/R4AJI/CMQMnKHolV6VIdWaT1qlp8njWyNHwANeMvX6W19YCMWJYdhJY3NigAzw4JbZ1oABZ6WH8B9mWtZh/k/bVuJbbdtH/cNmICA="
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexGroupPopupEqualHeight + OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 " <img>5</img> Home" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComBackColor of hoItem1 to |CI$7000000
					Set ComItemHeight of hoItem1 to 36
					Set ComAlignment of hoItem1 to OLEexRight
					Set ComForeColor of hoItem1 to (RGB(128,128,128))
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "   <img>6</img> Gebaude" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComBackColor of hoItem2 to |CI$5000000
					Set ComAlignment of hoItem2 to OLEexRight
					Set ComForeColor of hoItem2 to (RGB(128,128,128))
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "   <img>6</img> Aussttung" Nothing Nothing to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComBackColor of hoItem3 to |CI$5000000
					Set ComAlignment of hoItem3 to OLEexRight
					Set ComForeColor of hoItem3 to (RGB(128,128,128))
				Send Destroy to hoItem3
				Variant voItem4
				Get ComAdd of hoItems1 "   <img>3</img> Produkt" Nothing Nothing to voItem4
				Handle hoItem4
				Get Create (RefClass(cComItem)) to hoItem4
				Set pvComObject of hoItem4 to voItem4
					Set ComBackColor of hoItem4 to |CI$3000000
					Set ComAlignment of hoItem4 to OLEexRight
				Send Destroy to hoItem4
				Variant voItem5
				Get ComAdd of hoItems1 "   <img>4</img> Rabate" Nothing Nothing to voItem5
				Handle hoItem5
				Get Create (RefClass(cComItem)) to hoItem5
				Set pvComObject of hoItem5 to voItem5
					Set ComAlignment of hoItem5 to OLEexRight
					Set ComBackColor of hoItem5 to |CI$1000000
					Set ComEnabled of hoItem5 to False
				Send Destroy to hoItem5
				Variant voItem6
				Get ComAdd of hoItems1 "   <img>7</img> Ergebnis" Nothing Nothing to voItem6
				Handle hoItem6
				Get Create (RefClass(cComItem)) to hoItem6
				Set pvComObject of hoItem6 to voItem6
					Set ComAlignment of hoItem6 to OLEexRight
					Set ComBackColor of hoItem6 to |CI$1000000
					Set ComEnabled of hoItem6 to False
				Send Destroy to hoItem6
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
240
Is there any function to retrieve all available shortcut keys

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexShortcutKeyBackColor to (RGB(0,0,1))
	Set ComBackground OLEexShortcutKeyForeColor to (RGB(255,255,255))
	Set ComShortcutKeyVisible to (OLEexDisplayShortcutKeysAllAvailable + OLEexShowShortcutKeysToggleDelayed)
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPopupAppearance of hoItems to OLEShadowBorder
		Variant voItem
		Get ComAdd of hoItems "" 2 10 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" 0 20 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
					Set ComShortcut of hoItem1 to "ALT+1"
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
					Set ComChecked of hoItem2 to True
					Set ComShortcut of hoItem2 to "ALT+2"
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComShortcut of hoItem3 to "ALT+3"
					Variant voItems2
					Get ComItems of hoItem3 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem4
						Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComRadio of hoItem4 to True
							Set ComChecked of hoItem4 to True
							Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
							Set ComShortcut of hoItem4 to "1"
						Send Destroy to hoItem4
						Variant voItem5
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
						Handle hoItem5
						Get Create (RefClass(cComItem)) to hoItem5
						Set pvComObject of hoItem5 to voItem5
							Set ComRadio of hoItem5 to True
							Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
							Set ComShortcut of hoItem5 to "2"
						Send Destroy to hoItem5
						Variant voItem6
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
						Handle hoItem6
						Get Create (RefClass(cComItem)) to hoItem6
						Set pvComObject of hoItem6 to voItem6
							Set ComRadio of hoItem6 to True
							Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
							Set ComShortcut of hoItem6 to "3"
						Send Destroy to hoItem6
					Send Destroy to hoItems2
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
	Showln (ComShortcutKeysInfo(Self))
End_Procedure
239
How can I display shortcut keys with a different size

Procedure OnCreate
	Forward Send OnCreate
	Set ComShortcutKeyFormat to "`<font ;14>` + caption"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPopupAppearance of hoItems to OLEShadowBorder
		Variant voItem
		Get ComAdd of hoItems "" 2 10 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" 0 20 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
					Set ComShortcut of hoItem1 to "ALT+1"
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
					Set ComChecked of hoItem2 to True
					Set ComShortcut of hoItem2 to "ALT+SHIFT+2"
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComShortcut of hoItem3 to "ALT+3"
					Variant voItems2
					Get ComItems of hoItem3 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem4
						Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComRadio of hoItem4 to True
							Set ComChecked of hoItem4 to True
							Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
							Set ComShortcut of hoItem4 to "1"
						Send Destroy to hoItem4
						Variant voItem5
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
						Handle hoItem5
						Get Create (RefClass(cComItem)) to hoItem5
						Set pvComObject of hoItem5 to voItem5
							Set ComRadio of hoItem5 to True
							Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
							Set ComShortcut of hoItem5 to "2"
						Send Destroy to hoItem5
						Variant voItem6
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
						Handle hoItem6
						Get Create (RefClass(cComItem)) to hoItem6
						Set pvComObject of hoItem6 to voItem6
							Set ComRadio of hoItem6 to True
							Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
							Set ComShortcut of hoItem6 to "33+3"
						Send Destroy to hoItem6
					Send Destroy to hoItems2
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
End_Procedure
238
How can I display shortcut keys with a different font

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexShortcutKeyBackColor to (RGB(0,0,1))
	Set ComBackground OLEexShortcutKeyForeColor to (RGB(255,255,255))
	Set ComShortcutKeyFormat to "`<font Stencil>` + caption"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPopupAppearance of hoItems to OLEShadowBorder
		Variant voItem
		Get ComAdd of hoItems "" 2 10 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" 0 20 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
					Set ComShortcut of hoItem1 to "ALT+1"
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
					Set ComChecked of hoItem2 to True
					Set ComShortcut of hoItem2 to "ALT+SHIFT+2"
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComShortcut of hoItem3 to "ALT+3"
					Variant voItems2
					Get ComItems of hoItem3 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem4
						Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComRadio of hoItem4 to True
							Set ComChecked of hoItem4 to True
							Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
							Set ComShortcut of hoItem4 to "1"
						Send Destroy to hoItem4
						Variant voItem5
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
						Handle hoItem5
						Get Create (RefClass(cComItem)) to hoItem5
						Set pvComObject of hoItem5 to voItem5
							Set ComRadio of hoItem5 to True
							Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
							Set ComShortcut of hoItem5 to "2"
						Send Destroy to hoItem5
						Variant voItem6
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
						Handle hoItem6
						Get Create (RefClass(cComItem)) to hoItem6
						Set pvComObject of hoItem6 to voItem6
							Set ComRadio of hoItem6 to True
							Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
							Set ComShortcut of hoItem6 to "33+3"
						Send Destroy to hoItem6
					Send Destroy to hoItems2
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
End_Procedure
237
How can I change the visual appearance of the shortcut keys (sample 3, theme)

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "XP: Button 1 1" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexShortcutKeyAppearance to |CI$1000000
	Set ComBackground OLEexShortcutKeyBackColor to (RGB(0,0,0))
	Set ComBackground OLEexShortcutKeyForeColor to (RGB(0,0,0))
	Set ComShortcutKeyVisible to (OLEexDisplayShortcutKeysAllAvailable + OLEexShowShortcutKeysToggleDelayed)
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPopupAppearance of hoItems to OLEShadowBorder
		Variant voItem
		Get ComAdd of hoItems "" 2 10 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" 0 20 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
					Set ComShortcut of hoItem1 to "ALT+1"
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
					Set ComChecked of hoItem2 to True
					Set ComShortcut of hoItem2 to "ALT+2"
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComShortcut of hoItem3 to "ALT+3"
					Variant voItems2
					Get ComItems of hoItem3 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem4
						Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComRadio of hoItem4 to True
							Set ComChecked of hoItem4 to True
							Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
							Set ComShortcut of hoItem4 to "1"
						Send Destroy to hoItem4
						Variant voItem5
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
						Handle hoItem5
						Get Create (RefClass(cComItem)) to hoItem5
						Set pvComObject of hoItem5 to voItem5
							Set ComRadio of hoItem5 to True
							Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
							Set ComShortcut of hoItem5 to "2"
						Send Destroy to hoItem5
						Variant voItem6
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
						Handle hoItem6
						Get Create (RefClass(cComItem)) to hoItem6
						Set pvComObject of hoItem6 to voItem6
							Set ComRadio of hoItem6 to True
							Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
							Set ComShortcut of hoItem6 to "33+3"
						Send Destroy to hoItem6
					Send Destroy to hoItems2
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
End_Procedure
236
It is possible somehow to show all available shortcut keys (sample 2)

// Occurs when the user selects the item.
Procedure OnComSelectItem Variant   llItm
	Forward Send OnComSelectItem llItm
	Set ComShortcutKeyVisible to (OLEexDisplayShortcutKeysAllAvailable + OLEexShowShortcutKeysToggleDelayed)
	Set ComShortcutKeyFormat to "`<c><font ;6><fgcolor 808080>` + sca + `</fgcolor></font><br><c>Key:` + keys"
	Set ComShortcutKeyPressedModifers to OLEexModifierAny
	Set ComShortcutKeyFormat to ""
	Set ComShortcutKeyVisible to OLEexShowShortcutKeysToggleDelayed
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPopupAppearance of hoItems to OLEShadowBorder
		Variant voItem
		Get ComAdd of hoItems "" 2 10 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" 0 20 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
					Set ComShortcut of hoItem1 to "ALT+CTRL+1"
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
					Set ComChecked of hoItem2 to True
					Set ComShortcut of hoItem2 to "ALT+SHIFT+2"
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComShortcut of hoItem3 to "ALT+3"
					Variant voItems2
					Get ComItems of hoItem3 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem4
						Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComRadio of hoItem4 to True
							Set ComChecked of hoItem4 to True
							Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
							Set ComShortcut of hoItem4 to "1"
						Send Destroy to hoItem4
						Variant voItem5
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
						Handle hoItem5
						Get Create (RefClass(cComItem)) to hoItem5
						Set pvComObject of hoItem5 to voItem5
							Set ComRadio of hoItem5 to True
							Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
							Set ComShortcut of hoItem5 to "2"
						Send Destroy to hoItem5
						Variant voItem6
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
						Handle hoItem6
						Get Create (RefClass(cComItem)) to hoItem6
						Set pvComObject of hoItem6 to voItem6
							Set ComRadio of hoItem6 to True
							Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
							Set ComShortcut of hoItem6 to "33+3"
						Send Destroy to hoItem6
					Send Destroy to hoItems2
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
End_Procedure
235
It is possible somehow to show all available shortcut keys (sample 1)

// Occurs when the user selects the item.
Procedure OnComSelectItem Variant   llItm
	Forward Send OnComSelectItem llItm
	Set ComShortcutKeyPressedModifers to OLEexModifierAny
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPopupAppearance of hoItems to OLEShadowBorder
		Variant voItem
		Get ComAdd of hoItems "" 2 10 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" 0 20 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
					Set ComShortcut of hoItem1 to "ALT+1"
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
					Set ComChecked of hoItem2 to True
					Set ComShortcut of hoItem2 to "ALT+2"
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComShortcut of hoItem3 to "ALT+3"
					Variant voItems2
					Get ComItems of hoItem3 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem4
						Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComRadio of hoItem4 to True
							Set ComChecked of hoItem4 to True
							Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
							Set ComShortcut of hoItem4 to "1"
						Send Destroy to hoItem4
						Variant voItem5
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
						Handle hoItem5
						Get Create (RefClass(cComItem)) to hoItem5
						Set pvComObject of hoItem5 to voItem5
							Set ComRadio of hoItem5 to True
							Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
							Set ComShortcut of hoItem5 to "2"
						Send Destroy to hoItem5
						Variant voItem6
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
						Handle hoItem6
						Get Create (RefClass(cComItem)) to hoItem6
						Set pvComObject of hoItem6 to voItem6
							Set ComRadio of hoItem6 to True
							Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
							Set ComShortcut of hoItem6 to "33+3"
						Send Destroy to hoItem6
					Send Destroy to hoItems2
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
End_Procedure
234
How can I show the shortcut keys semi-transparent

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexShortcutKeyAppearance to (RGB(0,0,0))
	Set ComBackground OLEexShortcutKeyBackColor to (RGB(0,0,1))
	Set ComBackground OLEexShortcutKeyForeColor to (RGB(255,255,255))
	Set ComShortcutKeyVisible to (OLEexDisplayShortcutKeysAllAvailable + OLEexShowShortcutKeysToggleDelayed)
	Set ComShortcutKeyTransparent to 50
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPopupAppearance of hoItems to OLEShadowBorder
		Variant voItem
		Get ComAdd of hoItems "" 2 10 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" 0 20 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
					Set ComShortcut of hoItem1 to "ALT+1"
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
					Set ComChecked of hoItem2 to True
					Set ComShortcut of hoItem2 to "ALT+2"
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComShortcut of hoItem3 to "ALT+3"
					Variant voItems2
					Get ComItems of hoItem3 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem4
						Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComRadio of hoItem4 to True
							Set ComChecked of hoItem4 to True
							Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
							Set ComShortcut of hoItem4 to "1"
						Send Destroy to hoItem4
						Variant voItem5
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
						Handle hoItem5
						Get Create (RefClass(cComItem)) to hoItem5
						Set pvComObject of hoItem5 to voItem5
							Set ComRadio of hoItem5 to True
							Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
							Set ComShortcut of hoItem5 to "2"
						Send Destroy to hoItem5
						Variant voItem6
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
						Handle hoItem6
						Get Create (RefClass(cComItem)) to hoItem6
						Set pvComObject of hoItem6 to voItem6
							Set ComRadio of hoItem6 to True
							Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
							Set ComShortcut of hoItem6 to "33+3"
						Send Destroy to hoItem6
					Send Destroy to hoItems2
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
End_Procedure
233
Is it possible somehow to display ID of each item

Procedure OnCreate
	Forward Send OnCreate
	Set ComDebug to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPopupAppearance of hoItems to OLEShadowBorder
		Variant voItem
		Get ComAdd of hoItems "" 2 10 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" 0 20 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
					Set ComShortcut of hoItem1 to "ALT+1"
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
					Set ComChecked of hoItem2 to True
					Set ComShortcut of hoItem2 to "ALT+2"
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComShortcut of hoItem3 to "ALT+3"
					Variant voItems2
					Get ComItems of hoItem3 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem4
						Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComRadio of hoItem4 to True
							Set ComChecked of hoItem4 to True
							Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
							Set ComShortcut of hoItem4 to "1"
						Send Destroy to hoItem4
						Variant voItem5
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
						Handle hoItem5
						Get Create (RefClass(cComItem)) to hoItem5
						Set pvComObject of hoItem5 to voItem5
							Set ComRadio of hoItem5 to True
							Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
							Set ComShortcut of hoItem5 to "2"
						Send Destroy to hoItem5
						Variant voItem6
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
						Handle hoItem6
						Get Create (RefClass(cComItem)) to hoItem6
						Set pvComObject of hoItem6 to voItem6
							Set ComRadio of hoItem6 to True
							Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
							Set ComShortcut of hoItem6 to "33+3"
						Send Destroy to hoItem6
					Send Destroy to hoItems2
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
End_Procedure
232
How can I change the visual appearance of the shortcut keys (sample 2, EBN)

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexShortcutKeyAppearance to |CI$1000000
	Set ComBackground OLEexShortcutKeyBackColor to (RGB(0,0,0))
	Set ComBackground OLEexShortcutKeyForeColor to (RGB(0,0,0))
	Set ComShortcutKeyVisible to (OLEexDisplayShortcutKeysAllAvailable + OLEexShowShortcutKeysToggleDelayed)
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPopupAppearance of hoItems to OLEShadowBorder
		Variant voItem
		Get ComAdd of hoItems "" 2 10 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" 0 20 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
					Set ComShortcut of hoItem1 to "ALT+1"
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
					Set ComChecked of hoItem2 to True
					Set ComShortcut of hoItem2 to "ALT+2"
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComShortcut of hoItem3 to "ALT+3"
					Variant voItems2
					Get ComItems of hoItem3 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem4
						Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComRadio of hoItem4 to True
							Set ComChecked of hoItem4 to True
							Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
							Set ComShortcut of hoItem4 to "1"
						Send Destroy to hoItem4
						Variant voItem5
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
						Handle hoItem5
						Get Create (RefClass(cComItem)) to hoItem5
						Set pvComObject of hoItem5 to voItem5
							Set ComRadio of hoItem5 to True
							Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
							Set ComShortcut of hoItem5 to "2"
						Send Destroy to hoItem5
						Variant voItem6
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
						Handle hoItem6
						Get Create (RefClass(cComItem)) to hoItem6
						Set pvComObject of hoItem6 to voItem6
							Set ComRadio of hoItem6 to True
							Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
							Set ComShortcut of hoItem6 to "33+3"
						Send Destroy to hoItem6
					Send Destroy to hoItems2
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
End_Procedure
231
How can I change the visual appearance of the shortcut keys (sample 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexShortcutKeyAppearance to (RGB(0,0,0))
	Set ComBackground OLEexShortcutKeyBackColor to (RGB(0,0,1))
	Set ComBackground OLEexShortcutKeyForeColor to (RGB(255,255,255))
	Set ComShortcutKeyVisible to (OLEexDisplayShortcutKeysAllAvailable + OLEexShowShortcutKeysToggleDelayed)
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPopupAppearance of hoItems to OLEShadowBorder
		Variant voItem
		Get ComAdd of hoItems "" 2 10 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" 0 20 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
					Set ComShortcut of hoItem1 to "ALT+1"
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
					Set ComChecked of hoItem2 to True
					Set ComShortcut of hoItem2 to "ALT+2"
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComShortcut of hoItem3 to "ALT+3"
					Variant voItems2
					Get ComItems of hoItem3 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem4
						Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComRadio of hoItem4 to True
							Set ComChecked of hoItem4 to True
							Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
							Set ComShortcut of hoItem4 to "1"
						Send Destroy to hoItem4
						Variant voItem5
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
						Handle hoItem5
						Get Create (RefClass(cComItem)) to hoItem5
						Set pvComObject of hoItem5 to voItem5
							Set ComRadio of hoItem5 to True
							Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
							Set ComShortcut of hoItem5 to "2"
						Send Destroy to hoItem5
						Variant voItem6
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
						Handle hoItem6
						Get Create (RefClass(cComItem)) to hoItem6
						Set pvComObject of hoItem6 to voItem6
							Set ComRadio of hoItem6 to True
							Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
							Set ComShortcut of hoItem6 to "33+3"
						Send Destroy to hoItem6
					Send Destroy to hoItems2
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
End_Procedure
230
Can I show the shortcut key right after the item so it won't overlap it (sample 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComShortcutKeyExtPaddingH to "16 + width/2, 16 + height/2 ,16 + width/2,16 + height/2"
	Set ComShortcutKeyExtPaddingV to "16 + width/2, 16 + height/2 ,16 + width/2,16 + height/2"
	Set ComShortcutKeyVisible to (OLEexDisplayShortcutKeysAllAvailable + OLEexShowShortcutKeysToggleDelayed)
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPopupAppearance of hoItems to OLEShadowBorder
		Variant voItem
		Get ComAdd of hoItems "" 2 10 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" 0 20 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
					Set ComShortcut of hoItem1 to "ALT+1"
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
					Set ComChecked of hoItem2 to True
					Set ComShortcut of hoItem2 to "ALT+2"
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComShortcut of hoItem3 to "ALT+3"
					Variant voItems2
					Get ComItems of hoItem3 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem4
						Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComRadio of hoItem4 to True
							Set ComChecked of hoItem4 to True
							Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
							Set ComShortcut of hoItem4 to "1"
						Send Destroy to hoItem4
						Variant voItem5
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
						Handle hoItem5
						Get Create (RefClass(cComItem)) to hoItem5
						Set pvComObject of hoItem5 to voItem5
							Set ComRadio of hoItem5 to True
							Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
							Set ComShortcut of hoItem5 to "2"
						Send Destroy to hoItem5
						Variant voItem6
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
						Handle hoItem6
						Get Create (RefClass(cComItem)) to hoItem6
						Set pvComObject of hoItem6 to voItem6
							Set ComRadio of hoItem6 to True
							Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
							Set ComShortcut of hoItem6 to "33+3"
						Send Destroy to hoItem6
					Send Destroy to hoItems2
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
End_Procedure
229
Can I show the shortcut key right after the item so it won't overlap it (sample 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComShortcutKeyExtPaddingH to "width/2, height/2 ,width/2,height/2"
	Set ComShortcutKeyExtPaddingV to "width/2, height/2 ,width/2,height/2"
	Set ComShortcutKeyVisible to (OLEexDisplayShortcutKeysAllAvailable + OLEexShowShortcutKeysToggleDelayed)
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPopupAppearance of hoItems to OLEShadowBorder
		Variant voItem
		Get ComAdd of hoItems "" 2 10 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" 0 20 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
					Set ComShortcut of hoItem1 to "ALT+1"
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
					Set ComChecked of hoItem2 to True
					Set ComShortcut of hoItem2 to "ALT+2"
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComShortcut of hoItem3 to "ALT+3"
					Variant voItems2
					Get ComItems of hoItem3 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem4
						Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComRadio of hoItem4 to True
							Set ComChecked of hoItem4 to True
							Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
							Set ComShortcut of hoItem4 to "1"
						Send Destroy to hoItem4
						Variant voItem5
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
						Handle hoItem5
						Get Create (RefClass(cComItem)) to hoItem5
						Set pvComObject of hoItem5 to voItem5
							Set ComRadio of hoItem5 to True
							Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
							Set ComShortcut of hoItem5 to "2"
						Send Destroy to hoItem5
						Variant voItem6
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
						Handle hoItem6
						Get Create (RefClass(cComItem)) to hoItem6
						Set pvComObject of hoItem6 to voItem6
							Set ComRadio of hoItem6 to True
							Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
							Set ComShortcut of hoItem6 to "33+3"
						Send Destroy to hoItem6
					Send Destroy to hoItems2
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
End_Procedure
228
Can I specify padding for shortcut keys (sample 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComShortcutKeyPadding to "8,8,8,8"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPopupAppearance of hoItems to OLEShadowBorder
		Variant voItem
		Get ComAdd of hoItems "" 2 10 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" 0 20 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
					Set ComShortcut of hoItem1 to "ALT+1"
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
					Set ComChecked of hoItem2 to True
					Set ComShortcut of hoItem2 to "ALT+2"
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComShortcut of hoItem3 to "ALT+3"
					Variant voItems2
					Get ComItems of hoItem3 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem4
						Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComRadio of hoItem4 to True
							Set ComChecked of hoItem4 to True
							Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
							Set ComShortcut of hoItem4 to "1"
						Send Destroy to hoItem4
						Variant voItem5
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
						Handle hoItem5
						Get Create (RefClass(cComItem)) to hoItem5
						Set pvComObject of hoItem5 to voItem5
							Set ComRadio of hoItem5 to True
							Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
							Set ComShortcut of hoItem5 to "2"
						Send Destroy to hoItem5
						Variant voItem6
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
						Handle hoItem6
						Get Create (RefClass(cComItem)) to hoItem6
						Set pvComObject of hoItem6 to voItem6
							Set ComRadio of hoItem6 to True
							Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
							Set ComShortcut of hoItem6 to "33+3"
						Send Destroy to hoItem6
					Send Destroy to hoItems2
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
End_Procedure
227
Can I specify padding for shortcut keys (sample 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComShortcutKeyPadding to "0,0,0,0"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPopupAppearance of hoItems to OLEShadowBorder
		Variant voItem
		Get ComAdd of hoItems "" 2 10 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" 0 20 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
					Set ComShortcut of hoItem1 to "ALT+1"
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
					Set ComChecked of hoItem2 to True
					Set ComShortcut of hoItem2 to "ALT+2"
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComShortcut of hoItem3 to "ALT+3"
					Variant voItems2
					Get ComItems of hoItem3 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem4
						Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComRadio of hoItem4 to True
							Set ComChecked of hoItem4 to True
							Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
							Set ComShortcut of hoItem4 to "1"
						Send Destroy to hoItem4
						Variant voItem5
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
						Handle hoItem5
						Get Create (RefClass(cComItem)) to hoItem5
						Set pvComObject of hoItem5 to voItem5
							Set ComRadio of hoItem5 to True
							Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
							Set ComShortcut of hoItem5 to "2"
						Send Destroy to hoItem5
						Variant voItem6
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
						Handle hoItem6
						Get Create (RefClass(cComItem)) to hoItem6
						Set pvComObject of hoItem6 to voItem6
							Set ComRadio of hoItem6 to True
							Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
							Set ComShortcut of hoItem6 to "33+3"
						Send Destroy to hoItem6
					Send Destroy to hoItems2
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
End_Procedure
226
Is it possible to specify where the shortcut keys should be shown

Procedure OnCreate
	Forward Send OnCreate
	Set ComShortcutKeyAlignH to OLEexShortcutKeyUpperLeft
	Set ComShortcutKeyAlignV to OLEexShortcutKeyLowerRight
	Set ComShortcutKeyVisible to (OLEexCloseShortcutKeysOnClick + OLEexDisplayShortcutKeysAllAvailable + OLEexShowShortcutKeysToggleDelayed)
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPopupAppearance of hoItems to OLEShadowBorder
		Variant voItem
		Get ComAdd of hoItems "" 2 10 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" 0 20 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
					Set ComShortcut of hoItem1 to "ALT+1"
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
					Set ComChecked of hoItem2 to True
					Set ComShortcut of hoItem2 to "ALT+2"
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComShortcut of hoItem3 to "ALT+3"
					Variant voItems2
					Get ComItems of hoItem3 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem4
						Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComRadio of hoItem4 to True
							Set ComChecked of hoItem4 to True
							Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
							Set ComShortcut of hoItem4 to "1"
						Send Destroy to hoItem4
						Variant voItem5
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
						Handle hoItem5
						Get Create (RefClass(cComItem)) to hoItem5
						Set pvComObject of hoItem5 to voItem5
							Set ComRadio of hoItem5 to True
							Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
							Set ComShortcut of hoItem5 to "2"
						Send Destroy to hoItem5
						Variant voItem6
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
						Handle hoItem6
						Get Create (RefClass(cComItem)) to hoItem6
						Set pvComObject of hoItem6 to voItem6
							Set ComRadio of hoItem6 to True
							Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
							Set ComShortcut of hoItem6 to "33+3"
						Send Destroy to hoItem6
					Send Destroy to hoItems2
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
End_Procedure
225
Can I use different shortcut modifier keys for items

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPopupAppearance of hoItems to OLEShadowBorder
		Variant voItem
		Get ComAdd of hoItems "" 2 10 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" 0 20 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
					Set ComShortcut of hoItem1 to "ALT + CTRL + 1"
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
					Set ComChecked of hoItem2 to True
					Set ComShortcut of hoItem2 to "ALT+2"
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComShortcut of hoItem3 to "CTRL + SHIFT + ALT+3"
					Variant voItems2
					Get ComItems of hoItem3 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem4
						Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComRadio of hoItem4 to True
							Set ComChecked of hoItem4 to True
							Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
							Set ComShortcut of hoItem4 to "1"
						Send Destroy to hoItem4
						Variant voItem5
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
						Handle hoItem5
						Get Create (RefClass(cComItem)) to hoItem5
						Set pvComObject of hoItem5 to voItem5
							Set ComRadio of hoItem5 to True
							Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
							Set ComShortcut of hoItem5 to "2"
						Send Destroy to hoItem5
						Variant voItem6
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
						Handle hoItem6
						Get Create (RefClass(cComItem)) to hoItem6
						Set pvComObject of hoItem6 to voItem6
							Set ComRadio of hoItem6 to True
							Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
							Set ComShortcut of hoItem6 to "3 + 33"
						Send Destroy to hoItem6
					Send Destroy to hoItems2
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Get ComAdd of hoItems "" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Press <b>CTRL or ALT" Nothing Nothing to Nothing
	Send Destroy to hoItems
End_Procedure
224
How can I disable a shortcut key

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPopupAppearance of hoItems to OLEShadowBorder
		Variant voItem
		Get ComAdd of hoItems "" 2 10 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" 0 20 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
					Set ComShortcut of hoItem1 to "ALT+1"
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComEnabled of hoItem2 to False
					Set ComCheck of hoItem2 to True
					Set ComChecked of hoItem2 to True
					Set ComShortcut of hoItem2 to "ALT+2"
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComShortcut of hoItem3 to "ALT+3"
					Variant voItems2
					Get ComItems of hoItem3 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem4
						Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComRadio of hoItem4 to True
							Set ComChecked of hoItem4 to True
							Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
							Set ComShortcut of hoItem4 to "1"
						Send Destroy to hoItem4
						Variant voItem5
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
						Handle hoItem5
						Get Create (RefClass(cComItem)) to hoItem5
						Set pvComObject of hoItem5 to voItem5
							Set ComRadio of hoItem5 to True
							Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
							Set ComShortcut of hoItem5 to "2"
						Send Destroy to hoItem5
						Variant voItem6
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
						Handle hoItem6
						Get Create (RefClass(cComItem)) to hoItem6
						Set pvComObject of hoItem6 to voItem6
							Set ComRadio of hoItem6 to True
							Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
							Set ComShortcut of hoItem6 to "3 + 33"
						Send Destroy to hoItem6
					Send Destroy to hoItems2
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
End_Procedure
223
I have noticed that the shortcut keys are still visible while I clicking the control. Is it possible to hide them as soon as user clicks anywhere
Procedure OnCreate
	Forward Send OnCreate
	Set ComShortcutKeyVisible to (OLEexCloseShortcutKeysOnClick + OLEexShowShortcutKeysToggleDelayed)
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPopupAppearance of hoItems to OLEShadowBorder
		Variant voItem
		Get ComAdd of hoItems "" 2 10 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" 0 20 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
					Set ComShortcut of hoItem1 to "ALT+1"
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
					Set ComChecked of hoItem2 to True
					Set ComShortcut of hoItem2 to "ALT+2"
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComShortcut of hoItem3 to "ALT+3"
					Variant voItems2
					Get ComItems of hoItem3 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem4
						Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComRadio of hoItem4 to True
							Set ComChecked of hoItem4 to True
							Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
							Set ComShortcut of hoItem4 to "1"
						Send Destroy to hoItem4
						Variant voItem5
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
						Handle hoItem5
						Get Create (RefClass(cComItem)) to hoItem5
						Set pvComObject of hoItem5 to voItem5
							Set ComRadio of hoItem5 to True
							Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
							Set ComShortcut of hoItem5 to "2"
						Send Destroy to hoItem5
						Variant voItem6
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
						Handle hoItem6
						Get Create (RefClass(cComItem)) to hoItem6
						Set pvComObject of hoItem6 to voItem6
							Set ComRadio of hoItem6 to True
							Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
							Set ComShortcut of hoItem6 to "3 + 33"
						Send Destroy to hoItem6
					Send Destroy to hoItems2
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
End_Procedure
222
I have a shortcut that's not currently visible, the question is if I can invoke somehow
// Occurs when the user checks the item.
Procedure OnComCheckItem Variant   llItm
	Forward Send OnComCheckItem llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComShortcutKeyVisible to (OLEexAllowShortcutKeysIfNotShown + OLEexShowShortcutKeysToggleDelayed)
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPopupAppearance of hoItems to OLEShadowBorder
		Variant voItem
		Get ComAdd of hoItems "" 2 10 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" 0 20 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
					Set ComShortcut of hoItem1 to "ALT+1"
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
					Set ComChecked of hoItem2 to True
					Set ComShortcut of hoItem2 to "ALT+2"
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComShortcut of hoItem3 to "ALT+3"
					Variant voItems2
					Get ComItems of hoItem3 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem4
						Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComRadio of hoItem4 to True
							Set ComChecked of hoItem4 to True
							Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
							Set ComShortcut of hoItem4 to "1"
						Send Destroy to hoItem4
						Variant voItem5
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
						Handle hoItem5
						Get Create (RefClass(cComItem)) to hoItem5
						Set pvComObject of hoItem5 to voItem5
							Set ComRadio of hoItem5 to True
							Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
							Set ComShortcut of hoItem5 to "2"
						Send Destroy to hoItem5
						Variant voItem6
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
						Handle hoItem6
						Get Create (RefClass(cComItem)) to hoItem6
						Set pvComObject of hoItem6 to voItem6
							Set ComRadio of hoItem6 to True
							Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
							Set ComShortcut of hoItem6 to "ALT + 4"
						Send Destroy to hoItem6
					Send Destroy to hoItems2
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Get ComAdd of hoItems "press ALT + 4" Nothing Nothing to Nothing
	Send Destroy to hoItems
End_Procedure
221
Can I specify a longer delay to display shortcut once the user presses any modifer keys
Procedure OnCreate
	Forward Send OnCreate
	Set ComShortcutKeyVisible to (OLEexLongerDelayShortcutKeys + OLEexShowShortcutKeysToggleDelayed)
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPopupAppearance of hoItems to OLEShadowBorder
		Variant voItem
		Get ComAdd of hoItems "" 2 10 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" 0 20 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
					Set ComShortcut of hoItem1 to "ALT+1"
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
					Set ComChecked of hoItem2 to True
					Set ComShortcut of hoItem2 to "ALT+2"
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComShortcut of hoItem3 to "ALT+3"
					Variant voItems2
					Get ComItems of hoItem3 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem4
						Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComRadio of hoItem4 to True
							Set ComChecked of hoItem4 to True
							Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
							Set ComShortcut of hoItem4 to "1"
						Send Destroy to hoItem4
						Variant voItem5
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
						Handle hoItem5
						Get Create (RefClass(cComItem)) to hoItem5
						Set pvComObject of hoItem5 to voItem5
							Set ComRadio of hoItem5 to True
							Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
							Set ComShortcut of hoItem5 to "2"
						Send Destroy to hoItem5
						Variant voItem6
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
						Handle hoItem6
						Get Create (RefClass(cComItem)) to hoItem6
						Set pvComObject of hoItem6 to voItem6
							Set ComRadio of hoItem6 to True
							Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
							Set ComShortcut of hoItem6 to "3+33"
						Send Destroy to hoItem6
					Send Destroy to hoItems2
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
End_Procedure
220
How can I display extended shortcut keys

Procedure OnCreate
	Forward Send OnCreate
	Set ComShortcutKeyVisible to (OLEexDisplayShortcutKeysAllAvailable + OLEexShowShortcutKeysToggleDelayed)
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPopupAppearance of hoItems to OLEShadowBorder
		Variant voItem
		Get ComAdd of hoItems "" 2 10 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" 0 20 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
					Set ComShortcut of hoItem1 to "ALT+1"
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
					Set ComChecked of hoItem2 to True
					Set ComShortcut of hoItem2 to "ALT+2"
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComShortcut of hoItem3 to "ALT+3"
					Variant voItems2
					Get ComItems of hoItem3 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem4
						Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComRadio of hoItem4 to True
							Set ComChecked of hoItem4 to True
							Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
							Set ComShortcut of hoItem4 to "1"
						Send Destroy to hoItem4
						Variant voItem5
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
						Handle hoItem5
						Get Create (RefClass(cComItem)) to hoItem5
						Set pvComObject of hoItem5 to voItem5
							Set ComRadio of hoItem5 to True
							Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
							Set ComShortcut of hoItem5 to "2"
						Send Destroy to hoItem5
						Variant voItem6
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
						Handle hoItem6
						Get Create (RefClass(cComItem)) to hoItem6
						Set pvComObject of hoItem6 to voItem6
							Set ComRadio of hoItem6 to True
							Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
							Set ComShortcut of hoItem6 to "333"
						Send Destroy to hoItem6
					Send Destroy to hoItems2
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
End_Procedure
219
Is it possible to disable the shortcut keys, whithout changing the Shortcut property

Procedure OnCreate
	Forward Send OnCreate
	Set ComShortcutKeyVisible to (OLEexDisplayShortcutKeysAllAvailable + OLEexDisableShortcutKeys + OLEexShowShortcutKeysToggleDelayed)
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPopupAppearance of hoItems to OLEShadowBorder
		Variant voItem
		Get ComAdd of hoItems "" 2 10 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" 0 20 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
					Set ComShortcut of hoItem1 to "ALT+1"
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
					Set ComChecked of hoItem2 to True
					Set ComShortcut of hoItem2 to "ALT+2"
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComShortcut of hoItem3 to "ALT+3"
					Variant voItems2
					Get ComItems of hoItem3 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem4
						Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComRadio of hoItem4 to True
							Set ComChecked of hoItem4 to True
							Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
							Set ComShortcut of hoItem4 to "1"
						Send Destroy to hoItem4
						Variant voItem5
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
						Handle hoItem5
						Get Create (RefClass(cComItem)) to hoItem5
						Set pvComObject of hoItem5 to voItem5
							Set ComRadio of hoItem5 to True
							Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
							Set ComShortcut of hoItem5 to "2"
						Send Destroy to hoItem5
						Variant voItem6
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
						Handle hoItem6
						Get Create (RefClass(cComItem)) to hoItem6
						Set pvComObject of hoItem6 to voItem6
							Set ComRadio of hoItem6 to True
							Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
							Set ComShortcut of hoItem6 to "33+3"
						Send Destroy to hoItem6
					Send Destroy to hoItems2
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
End_Procedure
218
How can display the shortcut keys only when modifier keys are pressed

Procedure OnCreate
	Forward Send OnCreate
	Set ComShortcutKeyVisible to OLEexShowShortcutKeysPressOnly
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPopupAppearance of hoItems to OLEShadowBorder
		Variant voItem
		Get ComAdd of hoItems "" 2 10 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" 0 20 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
					Set ComShortcut of hoItem1 to "ALT+1"
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
					Set ComChecked of hoItem2 to True
					Set ComShortcut of hoItem2 to "ALT+2"
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComShortcut of hoItem3 to "ALT+3"
					Variant voItems2
					Get ComItems of hoItem3 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem4
						Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComRadio of hoItem4 to True
							Set ComChecked of hoItem4 to True
							Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
							Set ComShortcut of hoItem4 to "1"
						Send Destroy to hoItem4
						Variant voItem5
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
						Handle hoItem5
						Get Create (RefClass(cComItem)) to hoItem5
						Set pvComObject of hoItem5 to voItem5
							Set ComRadio of hoItem5 to True
							Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
							Set ComShortcut of hoItem5 to "2"
						Send Destroy to hoItem5
						Variant voItem6
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
						Handle hoItem6
						Get Create (RefClass(cComItem)) to hoItem6
						Set pvComObject of hoItem6 to voItem6
							Set ComRadio of hoItem6 to True
							Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
							Set ComShortcut of hoItem6 to "3+33"
						Send Destroy to hoItem6
					Send Destroy to hoItems2
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
End_Procedure
217
How can I assign a shortcut key to an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPopupAppearance of hoItems to OLEShadowBorder
		Variant voItem
		Get ComAdd of hoItems "" 2 10 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" 0 20 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
					Set ComShortcut of hoItem1 to "ALT+1"
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" 0 30 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
					Set ComChecked of hoItem2 to True
					Set ComShortcut of hoItem2 to "ALT+2"
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" 2 40 to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComShortcut of hoItem3 to "ALT+3"
					Variant voItems2
					Get ComItems of hoItem3 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem4
						Get ComAdd of hoItems2 "Sub-Item 3.1" 0 50 to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Set ComRadio of hoItem4 to True
							Set ComChecked of hoItem4 to True
							Set ComCloseOnClick of hoItem4 to OLEexCloseOnClick
							Set ComShortcut of hoItem4 to "1"
						Send Destroy to hoItem4
						Variant voItem5
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 60 to voItem5
						Handle hoItem5
						Get Create (RefClass(cComItem)) to hoItem5
						Set pvComObject of hoItem5 to voItem5
							Set ComRadio of hoItem5 to True
							Set ComCloseOnClick of hoItem5 to OLEexCloseOnClick
							Set ComShortcut of hoItem5 to "2"
						Send Destroy to hoItem5
						Variant voItem6
						Get ComAdd of hoItems2 "Sub-Item 3.2" 0 70 to voItem6
						Handle hoItem6
						Get Create (RefClass(cComItem)) to hoItem6
						Set pvComObject of hoItem6 to voItem6
							Set ComRadio of hoItem6 to True
							Set ComCloseOnClick of hoItem6 to OLEexCloseOnClick
							Set ComShortcut of hoItem6 to "33+3"
						Send Destroy to hoItem6
					Send Destroy to hoItems2
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
End_Procedure
216
Is it possible to insert items at a specified position during runtime, without rebuilding the entire item which hosts the items

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Item A" 0 1000 to Nothing
		Get ComAdd of hoItems "Item B" 0 1001 to Nothing
		Variant voItem
		Get ComAdd of hoItems "Item C" 0 1002 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComPosition of hoItem to 0
		Send Destroy to hoItem
	Send Destroy to hoItems
End_Procedure
215
Is it possible to have a popup on a radio button when it is checked

Procedure OnCreate
	Forward Send OnCreate
	Set ComToString to "[group=0x03][id=0](Link[id=10][typ=2][grp=100][chk=1],Move To[id=20][typ=2][grp=100][spchk][arrow=0]())"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComItem of hoItems 20 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item A" 0 1000 to Nothing
			Send Destroy to hoItems1
			Variant voItems2
			Get ComItems of hoItem to voItems2
			Handle hoItems2
			Get Create (RefClass(cComItems)) to hoItems2
			Set pvComObject of hoItems2 to voItems2
				Get ComAdd of hoItems2 "Item B" 0 1001 to Nothing
			Send Destroy to hoItems2
			Variant voItems3
			Get ComItems of hoItem to voItems3
			Handle hoItems3
			Get Create (RefClass(cComItems)) to hoItems3
			Set pvComObject of hoItems3 to voItems3
				Get ComAdd of hoItems3 "Item C" 0 1002 to Nothing
			Send Destroy to hoItems3
		Send Destroy to hoItem
	Send Destroy to hoItems
End_Procedure
214
Is it possible to minimize the control, once the user clicks a button

// Occurs when the user checks the item.
Procedure OnComCheckItem Variant   llItm
	Forward Send OnComCheckItem llItm
		Variant voItems
		Get ComItems to voItems
		Handle hoItems
		Get Create (RefClass(cComItems)) to hoItems
		Set pvComObject of hoItems to voItems
			Variant voItem
			Get ComItem of hoItems -99 to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Variant voItem1
				Get ComItem of hoItem -99 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Variant v
						Variant voItems1
						Get ComItems to voItems1
						Handle hoItems1
						Get Create (RefClass(cComItems)) to hoItems1
						Set pvComObject of hoItems1 to voItems1
							Variant voItem2
							Get ComItem of hoItems1 -999 to voItem2
							Handle hoItem2
							Get Create (RefClass(cComItem)) to hoItem2
							Set pvComObject of hoItem2 to voItem2
								Variant voItem3
								Get ComItem of hoItem2 -999 to voItem3
								Handle hoItem3
								Get Create (RefClass(cComItem)) to hoItem3
								Set pvComObject of hoItem3 to voItem3
									Get ComChecked of hoItem3 to v
								Send Destroy to hoItem3
							Send Destroy to hoItem2
						Send Destroy to hoItems1
					Set ComVisible of hoItem1 to v
				Send Destroy to hoItem1
			Send Destroy to hoItem
		Send Destroy to hoItems
	Showln "RequiredHeight" (ComRequiredHeight(Self))
End_Procedure

// Occurs when the user unchecks the item.
Procedure OnComUncheckItem Variant   llItm
	Forward Send OnComUncheckItem llItm
		Variant voItems2
		Get ComItems to voItems2
		Handle hoItems2
		Get Create (RefClass(cComItems)) to hoItems2
		Set pvComObject of hoItems2 to voItems2
			Variant voItem4
			Get ComItem of hoItems2 -99 to voItem4
			Handle hoItem4
			Get Create (RefClass(cComItem)) to hoItem4
			Set pvComObject of hoItem4 to voItem4
				Variant voItem5
				Get ComItem of hoItem4 -99 to voItem5
				Handle hoItem5
				Get Create (RefClass(cComItem)) to hoItem5
				Set pvComObject of hoItem5 to voItem5
					Variant v1
						Variant voItems3
						Get ComItems to voItems3
						Handle hoItems3
						Get Create (RefClass(cComItems)) to hoItems3
						Set pvComObject of hoItems3 to voItems3
							Variant voItem6
							Get ComItem of hoItems3 -999 to voItem6
							Handle hoItem6
							Get Create (RefClass(cComItem)) to hoItem6
							Set pvComObject of hoItem6 to voItem6
								Variant voItem7
								Get ComItem of hoItem6 -999 to voItem7
								Handle hoItem7
								Get Create (RefClass(cComItem)) to hoItem7
								Set pvComObject of hoItem7 to voItem7
									Get ComChecked of hoItem7 to v1
								Send Destroy to hoItem7
							Send Destroy to hoItem6
						Send Destroy to hoItems3
					Set ComVisible of hoItem5 to v1
				Send Destroy to hoItem5
			Send Destroy to hoItem4
		Send Destroy to hoItems2
	Showln "RequiredHeight" (ComRequiredHeight(Self))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems4
	Get ComItems to voItems4
	Handle hoItems4
	Get Create (RefClass(cComItems)) to hoItems4
	Set pvComObject of hoItems4 to voItems4
		Set ComToString of hoItems4 to "[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		Variant voItem8
		Get ComAdd of hoItems4 "Normal" 0 -999 to voItem8
		Handle hoItem8
		Get Create (RefClass(cComItem)) to hoItem8
		Set pvComObject of hoItem8 to voItem8
			Set ComCheck of hoItem8 to True
			Variant v2
				Variant voItem9
				Get ComItem -99 to voItem9
				Handle hoItem9
				Get Create (RefClass(cComItem)) to hoItem9
				Set pvComObject of hoItem9 to voItem9
					Get ComVisible of hoItem9 to v2
				Send Destroy to hoItem9
			Set ComChecked of hoItem8 to v2
			Set ComX of hoItem8 to "width - iwidth"
		Send Destroy to hoItem8
		Variant voItem10
		Get ComItem of hoItems4 0 to voItem10
		Handle hoItem10
		Get Create (RefClass(cComItem)) to hoItem10
		Set pvComObject of hoItem10 to voItem10
			Variant voItems5
			Get ComItems of hoItem10 to voItems5
			Handle hoItems5
			Get Create (RefClass(cComItems)) to hoItems5
			Set pvComObject of hoItems5 to voItems5
				Variant voItem11
				Get ComAdd of hoItems5 "" 0 0 to voItem11
				Handle hoItem11
				Get Create (RefClass(cComItem)) to hoItem11
				Set pvComObject of hoItem11 to voItem11
					Set ComPadding of hoItem11 to "8,0,0,0"
				Send Destroy to hoItem11
				Variant var_Item3
				Get ComAdd of hoItems5 "New Page" Nothing Nothing to var_Item3
					Set ComToString of hoItems5 to "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
					Set ComID of hoItems5 to 200
					Set ComCaption of hoItems5 to "Page1"
					Set ComShowPopupAlign of hoItems5 to OLEexShowPopupAlignDown
					Variant voItems6
					Get ComItems of hoItems5 to voItems6
					Handle hoItems6
					Get Create (RefClass(cComItems)) to hoItems6
					Set pvComObject of hoItems6 to voItems6
						Variant voItem12
						Get ComItem of hoItems6 0 to voItem12
						Handle hoItem12
						Get Create (RefClass(cComItem)) to hoItem12
						Set pvComObject of hoItem12 to voItem12
							Variant v3
							Variant voItems7
							Get ComItems of hoItem12 to voItems7
							Handle hoItems7
							Get Create (RefClass(cComItems)) to hoItems7
							Set pvComObject of hoItems7 to voItems7
								Get ComAdd of hoItems7 "New Group" Nothing Nothing to v3
							Send Destroy to hoItems7
							Move v3 to var_Item
								Set ComToString of hoItem12 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
								Set ComCaption of hoItem12 to "<b><font ;14>A"
								Variant voItems8
								Get ComItems of hoItem12 to voItems8
								Handle hoItems8
								Get Create (RefClass(cComItems)) to hoItems8
								Set pvComObject of hoItems8 to voItems8
									Set ComBackgroundExt of hoItems8 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
									Variant voItem13
									Get ComAdd of hoItems8 "" 2 Nothing to voItem13
									Handle hoItem13
									Get Create (RefClass(cComItem)) to hoItem13
									Set pvComObject of hoItem13 to voItem13
										Set ComGroupPopup of hoItem13 to (OLEexGroupPopupEqualWidth + OLEexGroupPopup)
										Set ComCaption of hoItem13 to ""
										Variant voItems9
										Get ComItems of hoItem13 to voItems9
										Handle hoItems9
										Get Create (RefClass(cComItems)) to hoItems9
										Set pvComObject of hoItems9 to voItems9
											Variant voItem14
											Get ComAdd of hoItems9 "R1" Nothing Nothing to voItem14
											Handle hoItem14
											Get Create (RefClass(cComItem)) to hoItem14
											Set pvComObject of hoItem14 to voItem14
												Set ComRadioGroup of hoItem14 to 100
												Set ComRadio of hoItem14 to True
												Set ComShowCheckedAsSelected of hoItem14 to OLEexDisplayItemHighlight
												Set ComChecked of hoItem14 to False
											Send Destroy to hoItem14
											Variant voItem15
											Get ComAdd of hoItems9 "R2" Nothing Nothing to voItem15
											Handle hoItem15
											Get Create (RefClass(cComItem)) to hoItem15
											Set pvComObject of hoItem15 to voItem15
												Set ComRadioGroup of hoItem15 to 100
												Set ComRadio of hoItem15 to True
												Set ComShowCheckedAsSelected of hoItem15 to OLEexDisplayItemHighlight
												Set ComChecked of hoItem15 to True
											Send Destroy to hoItem15
											Variant voItem16
											Get ComAdd of hoItems9 "R3" Nothing Nothing to voItem16
											Handle hoItem16
											Get Create (RefClass(cComItem)) to hoItem16
											Set pvComObject of hoItem16 to voItem16
												Set ComRadioGroup of hoItem16 to 100
												Set ComRadio of hoItem16 to True
												Set ComShowCheckedAsSelected of hoItem16 to OLEexDisplayItemHighlight
												Set ComChecked of hoItem16 to False
											Send Destroy to hoItem16
										Send Destroy to hoItems9
									Send Destroy to hoItem13
								Send Destroy to hoItems8
							Send Destroy to hoItem12
							Variant v4
							Variant voItems10
							Get ComItems of hoItems6 to voItems10
							Handle hoItems10
							Get Create (RefClass(cComItems)) to hoItems10
							Set pvComObject of hoItems10 to voItems10
								Get ComAdd of hoItems10 "New Group" Nothing Nothing to v4
							Send Destroy to hoItems10
							Move v4 to var_Item1
								Set ComToString of hoItems6 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
								Set ComCaption of hoItems6 to "<b><font ;14>B"
								Variant voItems11
								Get ComItems of hoItems6 to voItems11
								Handle hoItems11
								Get Create (RefClass(cComItems)) to hoItems11
								Set pvComObject of hoItems11 to voItems11
									Set ComBackgroundExt of hoItems11 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
									Variant voItem17
									Get ComAdd of hoItems11 "" 2 Nothing to voItem17
									Handle hoItem17
									Get Create (RefClass(cComItem)) to hoItem17
									Set pvComObject of hoItem17 to voItem17
										Set ComGroupPopup of hoItem17 to (OLEexGroupPopupVertical + OLEexGroupPopupEqualHeight + OLEexGroupPopup)
										Set ComCaption of hoItem17 to ""
										Variant voItems12
										Get ComItems of hoItem17 to voItems12
										Handle hoItems12
										Get Create (RefClass(cComItems)) to hoItems12
										Set pvComObject of hoItems12 to voItems12
											Variant voItem18
											Get ComAdd of hoItems12 "C1" Nothing Nothing to voItem18
											Handle hoItem18
											Get Create (RefClass(cComItem)) to hoItem18
											Set pvComObject of hoItem18 to voItem18
												Set ComCheck of hoItem18 to True
												Set ComChecked of hoItem18 to True
											Send Destroy to hoItem18
											Variant voItem19
											Get ComAdd of hoItems12 "C2" Nothing Nothing to voItem19
											Handle hoItem19
											Get Create (RefClass(cComItem)) to hoItem19
											Set pvComObject of hoItem19 to voItem19
												Set ComCheck of hoItem19 to True
												Set ComChecked of hoItem19 to False
											Send Destroy to hoItem19
											Variant voItem20
											Get ComAdd of hoItems12 "C3" Nothing Nothing to voItem20
											Handle hoItem20
											Get Create (RefClass(cComItem)) to hoItem20
											Set pvComObject of hoItem20 to voItem20
												Set ComCheck of hoItem20 to True
												Set ComChecked of hoItem20 to True
											Send Destroy to hoItem20
										Send Destroy to hoItems12
									Send Destroy to hoItem17
								Send Destroy to hoItems11
							Send Destroy to hoItems6
							Variant voItems13
							Get ComItems of hoItems5 to voItems13
							Handle hoItems13
							Get Create (RefClass(cComItems)) to hoItems13
							Set pvComObject of hoItems13 to voItems13
								Variant voItem21
								Get ComAdd of hoItems13 "" 0 0 to voItem21
								Handle hoItem21
								Get Create (RefClass(cComItem)) to hoItem21
								Set pvComObject of hoItem21 to voItem21
									Set ComPadding of hoItem21 to "4,0,0,0"
								Send Destroy to hoItem21
							Send Destroy to hoItems13
							Variant v5
							Variant voItems14
							Get ComItems of hoItems5 to voItems14
							Handle hoItems14
							Get Create (RefClass(cComItems)) to hoItems14
							Set pvComObject of hoItems14 to voItems14
								Get ComAdd of hoItems14 "New Group" Nothing Nothing to v5
							Send Destroy to hoItems14
							Move v5 to var_Item2
								Set ComToString of hoItems5 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
								Set ComCaption of hoItems5 to ""
								Variant voItems15
								Get ComItems of hoItems5 to voItems15
								Handle hoItems15
								Get Create (RefClass(cComItems)) to hoItems15
								Set pvComObject of hoItems15 to voItems15
									Set ComBackgroundExt of hoItems15 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
									Variant voItem22
									Get ComAdd of hoItems15 "" 0 Nothing to voItem22
									Handle hoItem22
									Get Create (RefClass(cComItem)) to hoItem22
									Set pvComObject of hoItem22 to voItem22
										Set ComAllowEdit of hoItem22 to (OLEexItemEditVertical + OLEexItemEditSlider)
										Set ComItemHeight of hoItem22 to 76
										Set ComEditBorder of hoItem22 to OLEexEditBorderNone
										Set ComEditValue of hoItem22 to 25
									Send Destroy to hoItem22
									Variant voItem23
									Get ComAdd of hoItems15 "" 2 Nothing to voItem23
									Handle hoItem23
									Get Create (RefClass(cComItem)) to hoItem23
									Set pvComObject of hoItem23 to voItem23
										Set ComGroupPopup of hoItem23 to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
										Set ComCaption of hoItem23 to ""
										Variant voItems16
										Get ComItems of hoItem23 to voItems16
										Handle hoItems16
										Get Create (RefClass(cComItems)) to hoItems16
										Set pvComObject of hoItems16 to voItems16
											Variant voItem24
											Get ComAdd of hoItems16 "" 2 Nothing to voItem24
											Handle hoItem24
											Get Create (RefClass(cComItem)) to hoItem24
											Set pvComObject of hoItem24 to voItem24
												Set ComGroupPopup of hoItem24 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
												Variant voItems17
												Get ComItems of hoItem24 to voItems17
												Handle hoItems17
												Get Create (RefClass(cComItems)) to hoItems17
												Set pvComObject of hoItems17 to voItems17
													Variant voItem25
													Get ComAdd of hoItems17 "Button1" 2 Nothing to voItem25
													Handle hoItem25
													Get Create (RefClass(cComItem)) to hoItem25
													Set pvComObject of hoItem25 to voItem25
														Set ComShowAsButton of hoItem25 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
														Variant voItems18
														Get ComItems of hoItem25 to voItems18
														Handle hoItems18
														Get Create (RefClass(cComItems)) to hoItems18
														Set pvComObject of hoItems18 to voItems18
															Get ComAdd of hoItems18 "Item 1" Nothing Nothing to Nothing
															Get ComAdd of hoItems18 "Item 2" Nothing Nothing to Nothing
															Get ComAdd of hoItems18 "Item 3" Nothing Nothing to Nothing
														Send Destroy to hoItems18
													Send Destroy to hoItem25
													Variant voItem26
													Get ComAdd of hoItems17 "" 0 0 to voItem26
													Handle hoItem26
													Get Create (RefClass(cComItem)) to hoItem26
													Set pvComObject of hoItem26 to voItem26
														Set ComPadding of hoItem26 to "4,0,0,0"
													Send Destroy to hoItem26
													Variant voItem27
													Get ComAdd of hoItems17 "Button2" 2 Nothing to voItem27
													Handle hoItem27
													Get Create (RefClass(cComItem)) to hoItem27
													Set pvComObject of hoItem27 to voItem27
														Set ComShowAsButton of hoItem27 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
														Variant voItems19
														Get ComItems of hoItem27 to voItems19
														Handle hoItems19
														Get Create (RefClass(cComItems)) to hoItems19
														Set pvComObject of hoItems19 to voItems19
															Get ComAdd of hoItems19 "Item 4" Nothing Nothing to Nothing
															Get ComAdd of hoItems19 "Item 5" Nothing Nothing to Nothing
															Get ComAdd of hoItems19 "Item 6" Nothing Nothing to Nothing
														Send Destroy to hoItems19
													Send Destroy to hoItem27
												Send Destroy to hoItems17
											Send Destroy to hoItem24
											Variant voItem28
											Get ComAdd of hoItems16 "Popup" 2 Nothing to voItem28
											Handle hoItem28
											Get Create (RefClass(cComItem)) to hoItem28
											Set pvComObject of hoItem28 to voItem28
												Set ComAlignment of hoItem28 to OLEexCenter
												Variant voItems20
												Get ComItems of hoItem28 to voItems20
												Handle hoItems20
												Get Create (RefClass(cComItems)) to hoItems20
												Set pvComObject of hoItems20 to voItems20
													Variant voItem29
													Get ComAdd of hoItems20 "Item 7" Nothing Nothing to voItem29
													Handle hoItem29
													Get Create (RefClass(cComItem)) to hoItem29
													Set pvComObject of hoItem29 to voItem29
														Set ComCheck of hoItem29 to True
													Send Destroy to hoItem29
													Get ComAdd of hoItems20 "Item 8" Nothing Nothing to Nothing
													Variant voItem30
													Get ComAdd of hoItems20 "Item 9" 2 Nothing to voItem30
													Handle hoItem30
													Get Create (RefClass(cComItem)) to hoItem30
													Set pvComObject of hoItem30 to voItem30
														Variant voItems21
														Get ComItems of hoItem30 to voItems21
														Handle hoItems21
														Get Create (RefClass(cComItems)) to hoItems21
														Set pvComObject of hoItems21 to voItems21
															Get ComAdd of hoItems21 "Item 10" Nothing Nothing to Nothing
															Get ComAdd of hoItems21 "Item 11" Nothing Nothing to Nothing
															Get ComAdd of hoItems21 "Item 12" Nothing Nothing to Nothing
														Send Destroy to hoItems21
													Send Destroy to hoItem30
												Send Destroy to hoItems20
											Send Destroy to hoItem28
										Send Destroy to hoItems16
									Send Destroy to hoItem23
								Send Destroy to hoItems15
							Send Destroy to hoItems5
						Send Destroy to hoItem10
					Send Destroy to hoItems4
				Variant var_Item4
				Get ComAdd "New Page" Nothing Nothing to var_Item4
					Set ComToString to "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
					Set ComID to 300
					Set ComCaption to "Page2"
					Set ComShowPopupAlign to OLEexShowPopupAlignDown
					Variant voItems22
					Get ComItems to voItems22
					Handle hoItems22
					Get Create (RefClass(cComItems)) to hoItems22
					Set pvComObject of hoItems22 to voItems22
						Variant voItem31
						Get ComItem of hoItems22 0 to voItem31
						Handle hoItem31
						Get Create (RefClass(cComItem)) to hoItem31
						Set pvComObject of hoItem31 to voItem31
							Variant voItems23
							Get ComItems of hoItem31 to voItems23
							Handle hoItems23
							Get Create (RefClass(cComItems)) to hoItems23
							Set pvComObject of hoItems23 to voItems23
								Variant voItem32
								Get ComAdd of hoItems23 "S1" Nothing Nothing to voItem32
								Handle hoItem32
								Get Create (RefClass(cComItem)) to hoItem32
								Set pvComObject of hoItem32 to voItem32
									Set ComItemHeight of hoItem32 to 88
									Set ComAllowEdit of hoItem32 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
									Set ComEditValue of hoItem32 to 25
								Send Destroy to hoItem32
								Variant voItem33
								Get ComAdd of hoItems23 "S2" Nothing Nothing to voItem33
								Handle hoItem33
								Get Create (RefClass(cComItem)) to hoItem33
								Set pvComObject of hoItem33 to voItem33
									Set ComItemHeight of hoItem33 to 88
									Set ComAllowEdit of hoItem33 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
									Set ComEditValue of hoItem33 to 50
								Send Destroy to hoItem33
								Variant voItem34
								Get ComAdd of hoItems23 "S3" Nothing Nothing to voItem34
								Handle hoItem34
								Get Create (RefClass(cComItem)) to hoItem34
								Set pvComObject of hoItem34 to voItem34
									Set ComItemHeight of hoItem34 to 88
									Set ComAllowEdit of hoItem34 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
									Set ComEditValue of hoItem34 to 75
								Send Destroy to hoItem34
							Send Destroy to hoItems23
						Send Destroy to hoItem31
					Send Destroy to hoItems22
				Variant voItem35
				Get ComAdd "" 0 0 to voItem35
				Handle hoItem35
				Get Create (RefClass(cComItem)) to hoItem35
				Set pvComObject of hoItem35 to voItem35
					Set ComPadding of hoItem35 to "8,0,0,0"
				Send Destroy to hoItem35
	Set ComPopupFlatAppearance to False
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_background.ebn" to Nothing
		Get ComAdd of hoAppearance 2 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_groupt.ebn" to Nothing
		Get ComAdd of hoAppearance 3 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_groupo.ebn" to Nothing
		Get ComAdd of hoAppearance 4 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_grouphot.ebn" to Nothing
		Get ComAdd of hoAppearance 5 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_frameh.ebn" to Nothing
		Get ComAdd of hoAppearance 6 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehs.ebn" to Nothing
		Get ComAdd of hoAppearance 7 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehi.ebn" to Nothing
		Get ComAdd of hoAppearance 8 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehe.ebn" to Nothing
		Get ComAdd of hoAppearance 9 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framevs.ebn" to Nothing
		Get ComAdd of hoAppearance 10 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framevi.ebn" to Nothing
		Get ComAdd of hoAppearance 11 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_frameve.ebn" to Nothing
		Get ComAdd of hoAppearance 12 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_select.ebn" to Nothing
		Get ComAdd of hoAppearance 13 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_bordert.ebn" to Nothing
		Get ComAdd of hoAppearance 14 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_buttond.ebn" to Nothing
		Get ComAdd of hoAppearance 15 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_buttonu.ebn" to Nothing
		Get ComAdd of hoAppearance 16 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tab.ebn" to Nothing
		Get ComAdd of hoAppearance 17 "CP:16 0 0 0 1" to Nothing
		Get ComAdd of hoAppearance 18 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tabhot.ebn" to Nothing
		Get ComAdd of hoAppearance 19 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tabselhot.ebn" to Nothing
		Get ComAdd of hoAppearance 20 "CP:19 0 0 0 1" to Nothing
	Send Destroy to hoAppearance
	Set ComForeColor to (RGB(21,66,139))
	Set ComSelBackColor to |CI$e000000
	Set ComLocalAppearance to OLEShadowBorder
	Set ComAppearance to |CI$1000000
	Set ComBackground OLEexToolTipAppearance to (ComAppearance(Self))
	Set ComBackground |CI$2 to |CI$d000000
	Set ComBackground OLEexGroupPopupFrameSingle to |CI$5000000
	Set ComBackground OLEexGroupPopupFrameHStart to |CI$6000000
	Set ComBackground OLEexGroupPopupFrameHIntermediate to |CI$7000000
	Set ComBackground OLEexGroupPopupFrameHEnd to |CI$8000000
	Set ComBackground OLEexGroupPopupFrameVStart to |CI$9000000
	Set ComBackground OLEexGroupPopupFrameVIntermediate to |CI$a000000
	Set ComBackground OLEexGroupPopupFrameVEnd to |CI$b000000
	Set ComBackground OLEexMenuHotBackColor to |CI$c000000
	Set ComBackground OLEexMenuSelHotBackColor to |CI$f000000
	Send ComRefresh
End_Procedure
213
Is there any debug option, so I can see the IDs of the items I have in the control

Procedure OnCreate
	Forward Send OnCreate
	Set ComArrangeItemsAs to OLEexArrangeItemsHorizontal
	Set ComDebug to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Expand" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Set ComCheck of hoItem to True
			Set ComShowPopupOnChecked of hoItem to True
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComPadding of hoItems1 to "22,0,0,0"
				Variant voItem1
				Get ComAdd of hoItems1 "Radio 1" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComRadio of hoItem1 to True
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Radio 2" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComRadio of hoItem2 to True
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Radio 3" Nothing Nothing to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComRadio of hoItem3 to True
					Set ComChecked of hoItem3 to True
				Send Destroy to hoItem3
			Send Destroy to hoItems1
			Set ComChecked of hoItem to True
		Send Destroy to hoItem
		Variant voItem4
		Get ComAdd of hoItems "" Nothing Nothing to voItem4
		Handle hoItem4
		Get Create (RefClass(cComItem)) to hoItem4
		Set pvComObject of hoItem4 to voItem4
			Set ComToString of hoItem4 to "Expand[typ=1][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Radio 1[id=20][typ=2],Radio 2[id=30][typ=2],Radio 3[id=40][typ=2][chk=1])"
		Send Destroy to hoItem4
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
212
Microsoft Office - Ribbon Like - Minimized

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		Variant voItem
		Get ComItem of hoItems -99 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComVisible of hoItem to False
		Send Destroy to hoItem
		Variant voItem1
		Get ComItem of hoItems 0 to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Variant voItems1
			Get ComItems of hoItem1 to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem2
				Get ComAdd of hoItems1 "" 0 0 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComPadding of hoItem2 to "8,0,0,0"
				Send Destroy to hoItem2
				Variant var_Item3
				Get ComAdd of hoItems1 "New Page" Nothing Nothing to var_Item3
					Set ComToString of hoItems1 to "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
					Set ComID of hoItems1 to 200
					Set ComCaption of hoItems1 to "Page1"
					Set ComShowPopupAlign of hoItems1 to OLEexShowPopupAlignDown
					Variant voItems2
					Get ComItems of hoItems1 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem3
						Get ComItem of hoItems2 0 to voItem3
						Handle hoItem3
						Get Create (RefClass(cComItem)) to hoItem3
						Set pvComObject of hoItem3 to voItem3
							Variant v
							Variant voItems3
							Get ComItems of hoItem3 to voItems3
							Handle hoItems3
							Get Create (RefClass(cComItems)) to hoItems3
							Set pvComObject of hoItems3 to voItems3
								Get ComAdd of hoItems3 "New Group" Nothing Nothing to v
							Send Destroy to hoItems3
							Move v to var_Item
								Set ComToString of hoItem3 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
								Set ComCaption of hoItem3 to "<b><font ;14>A"
								Variant voItems4
								Get ComItems of hoItem3 to voItems4
								Handle hoItems4
								Get Create (RefClass(cComItems)) to hoItems4
								Set pvComObject of hoItems4 to voItems4
									Set ComBackgroundExt of hoItems4 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
									Variant voItem4
									Get ComAdd of hoItems4 "" 2 Nothing to voItem4
									Handle hoItem4
									Get Create (RefClass(cComItem)) to hoItem4
									Set pvComObject of hoItem4 to voItem4
										Set ComGroupPopup of hoItem4 to (OLEexGroupPopupEqualWidth + OLEexGroupPopup)
										Set ComCaption of hoItem4 to ""
										Variant voItems5
										Get ComItems of hoItem4 to voItems5
										Handle hoItems5
										Get Create (RefClass(cComItems)) to hoItems5
										Set pvComObject of hoItems5 to voItems5
											Variant voItem5
											Get ComAdd of hoItems5 "R1" Nothing Nothing to voItem5
											Handle hoItem5
											Get Create (RefClass(cComItem)) to hoItem5
											Set pvComObject of hoItem5 to voItem5
												Set ComRadioGroup of hoItem5 to 100
												Set ComRadio of hoItem5 to True
												Set ComShowCheckedAsSelected of hoItem5 to OLEexDisplayItemHighlight
												Set ComChecked of hoItem5 to False
											Send Destroy to hoItem5
											Variant voItem6
											Get ComAdd of hoItems5 "R2" Nothing Nothing to voItem6
											Handle hoItem6
											Get Create (RefClass(cComItem)) to hoItem6
											Set pvComObject of hoItem6 to voItem6
												Set ComRadioGroup of hoItem6 to 100
												Set ComRadio of hoItem6 to True
												Set ComShowCheckedAsSelected of hoItem6 to OLEexDisplayItemHighlight
												Set ComChecked of hoItem6 to True
											Send Destroy to hoItem6
											Variant voItem7
											Get ComAdd of hoItems5 "R3" Nothing Nothing to voItem7
											Handle hoItem7
											Get Create (RefClass(cComItem)) to hoItem7
											Set pvComObject of hoItem7 to voItem7
												Set ComRadioGroup of hoItem7 to 100
												Set ComRadio of hoItem7 to True
												Set ComShowCheckedAsSelected of hoItem7 to OLEexDisplayItemHighlight
												Set ComChecked of hoItem7 to False
											Send Destroy to hoItem7
										Send Destroy to hoItems5
									Send Destroy to hoItem4
								Send Destroy to hoItems4
							Send Destroy to hoItem3
							Variant v1
							Variant voItems6
							Get ComItems of hoItems2 to voItems6
							Handle hoItems6
							Get Create (RefClass(cComItems)) to hoItems6
							Set pvComObject of hoItems6 to voItems6
								Get ComAdd of hoItems6 "New Group" Nothing Nothing to v1
							Send Destroy to hoItems6
							Move v1 to var_Item1
								Set ComToString of hoItems2 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
								Set ComCaption of hoItems2 to "<b><font ;14>B"
								Variant voItems7
								Get ComItems of hoItems2 to voItems7
								Handle hoItems7
								Get Create (RefClass(cComItems)) to hoItems7
								Set pvComObject of hoItems7 to voItems7
									Set ComBackgroundExt of hoItems7 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
									Variant voItem8
									Get ComAdd of hoItems7 "" 2 Nothing to voItem8
									Handle hoItem8
									Get Create (RefClass(cComItem)) to hoItem8
									Set pvComObject of hoItem8 to voItem8
										Set ComGroupPopup of hoItem8 to (OLEexGroupPopupVertical + OLEexGroupPopupEqualHeight + OLEexGroupPopup)
										Set ComCaption of hoItem8 to ""
										Variant voItems8
										Get ComItems of hoItem8 to voItems8
										Handle hoItems8
										Get Create (RefClass(cComItems)) to hoItems8
										Set pvComObject of hoItems8 to voItems8
											Variant voItem9
											Get ComAdd of hoItems8 "C1" Nothing Nothing to voItem9
											Handle hoItem9
											Get Create (RefClass(cComItem)) to hoItem9
											Set pvComObject of hoItem9 to voItem9
												Set ComCheck of hoItem9 to True
												Set ComChecked of hoItem9 to True
											Send Destroy to hoItem9
											Variant voItem10
											Get ComAdd of hoItems8 "C2" Nothing Nothing to voItem10
											Handle hoItem10
											Get Create (RefClass(cComItem)) to hoItem10
											Set pvComObject of hoItem10 to voItem10
												Set ComCheck of hoItem10 to True
												Set ComChecked of hoItem10 to False
											Send Destroy to hoItem10
											Variant voItem11
											Get ComAdd of hoItems8 "C3" Nothing Nothing to voItem11
											Handle hoItem11
											Get Create (RefClass(cComItem)) to hoItem11
											Set pvComObject of hoItem11 to voItem11
												Set ComCheck of hoItem11 to True
												Set ComChecked of hoItem11 to True
											Send Destroy to hoItem11
										Send Destroy to hoItems8
									Send Destroy to hoItem8
								Send Destroy to hoItems7
							Send Destroy to hoItems2
							Variant voItems9
							Get ComItems of hoItems1 to voItems9
							Handle hoItems9
							Get Create (RefClass(cComItems)) to hoItems9
							Set pvComObject of hoItems9 to voItems9
								Variant voItem12
								Get ComAdd of hoItems9 "" 0 0 to voItem12
								Handle hoItem12
								Get Create (RefClass(cComItem)) to hoItem12
								Set pvComObject of hoItem12 to voItem12
									Set ComPadding of hoItem12 to "4,0,0,0"
								Send Destroy to hoItem12
							Send Destroy to hoItems9
							Variant v2
							Variant voItems10
							Get ComItems of hoItems1 to voItems10
							Handle hoItems10
							Get Create (RefClass(cComItems)) to hoItems10
							Set pvComObject of hoItems10 to voItems10
								Get ComAdd of hoItems10 "New Group" Nothing Nothing to v2
							Send Destroy to hoItems10
							Move v2 to var_Item2
								Set ComToString of hoItems1 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
								Set ComCaption of hoItems1 to ""
								Variant voItems11
								Get ComItems of hoItems1 to voItems11
								Handle hoItems11
								Get Create (RefClass(cComItems)) to hoItems11
								Set pvComObject of hoItems11 to voItems11
									Set ComBackgroundExt of hoItems11 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
									Variant voItem13
									Get ComAdd of hoItems11 "" 0 Nothing to voItem13
									Handle hoItem13
									Get Create (RefClass(cComItem)) to hoItem13
									Set pvComObject of hoItem13 to voItem13
										Set ComAllowEdit of hoItem13 to (OLEexItemEditVertical + OLEexItemEditSlider)
										Set ComItemHeight of hoItem13 to 76
										Set ComEditBorder of hoItem13 to OLEexEditBorderNone
										Set ComEditValue of hoItem13 to 25
									Send Destroy to hoItem13
									Variant voItem14
									Get ComAdd of hoItems11 "" 2 Nothing to voItem14
									Handle hoItem14
									Get Create (RefClass(cComItem)) to hoItem14
									Set pvComObject of hoItem14 to voItem14
										Set ComGroupPopup of hoItem14 to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
										Set ComCaption of hoItem14 to ""
										Variant voItems12
										Get ComItems of hoItem14 to voItems12
										Handle hoItems12
										Get Create (RefClass(cComItems)) to hoItems12
										Set pvComObject of hoItems12 to voItems12
											Variant voItem15
											Get ComAdd of hoItems12 "" 2 Nothing to voItem15
											Handle hoItem15
											Get Create (RefClass(cComItem)) to hoItem15
											Set pvComObject of hoItem15 to voItem15
												Set ComGroupPopup of hoItem15 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
												Variant voItems13
												Get ComItems of hoItem15 to voItems13
												Handle hoItems13
												Get Create (RefClass(cComItems)) to hoItems13
												Set pvComObject of hoItems13 to voItems13
													Variant voItem16
													Get ComAdd of hoItems13 "Button1" 2 Nothing to voItem16
													Handle hoItem16
													Get Create (RefClass(cComItem)) to hoItem16
													Set pvComObject of hoItem16 to voItem16
														Set ComShowAsButton of hoItem16 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
														Variant voItems14
														Get ComItems of hoItem16 to voItems14
														Handle hoItems14
														Get Create (RefClass(cComItems)) to hoItems14
														Set pvComObject of hoItems14 to voItems14
															Get ComAdd of hoItems14 "Item 1" Nothing Nothing to Nothing
															Get ComAdd of hoItems14 "Item 2" Nothing Nothing to Nothing
															Get ComAdd of hoItems14 "Item 3" Nothing Nothing to Nothing
														Send Destroy to hoItems14
													Send Destroy to hoItem16
													Variant voItem17
													Get ComAdd of hoItems13 "" 0 0 to voItem17
													Handle hoItem17
													Get Create (RefClass(cComItem)) to hoItem17
													Set pvComObject of hoItem17 to voItem17
														Set ComPadding of hoItem17 to "4,0,0,0"
													Send Destroy to hoItem17
													Variant voItem18
													Get ComAdd of hoItems13 "Button2" 2 Nothing to voItem18
													Handle hoItem18
													Get Create (RefClass(cComItem)) to hoItem18
													Set pvComObject of hoItem18 to voItem18
														Set ComShowAsButton of hoItem18 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
														Variant voItems15
														Get ComItems of hoItem18 to voItems15
														Handle hoItems15
														Get Create (RefClass(cComItems)) to hoItems15
														Set pvComObject of hoItems15 to voItems15
															Get ComAdd of hoItems15 "Item 4" Nothing Nothing to Nothing
															Get ComAdd of hoItems15 "Item 5" Nothing Nothing to Nothing
															Get ComAdd of hoItems15 "Item 6" Nothing Nothing to Nothing
														Send Destroy to hoItems15
													Send Destroy to hoItem18
												Send Destroy to hoItems13
											Send Destroy to hoItem15
											Variant voItem19
											Get ComAdd of hoItems12 "Popup" 2 Nothing to voItem19
											Handle hoItem19
											Get Create (RefClass(cComItem)) to hoItem19
											Set pvComObject of hoItem19 to voItem19
												Set ComAlignment of hoItem19 to OLEexCenter
												Variant voItems16
												Get ComItems of hoItem19 to voItems16
												Handle hoItems16
												Get Create (RefClass(cComItems)) to hoItems16
												Set pvComObject of hoItems16 to voItems16
													Variant voItem20
													Get ComAdd of hoItems16 "Item 7" Nothing Nothing to voItem20
													Handle hoItem20
													Get Create (RefClass(cComItem)) to hoItem20
													Set pvComObject of hoItem20 to voItem20
														Set ComCheck of hoItem20 to True
													Send Destroy to hoItem20
													Get ComAdd of hoItems16 "Item 8" Nothing Nothing to Nothing
													Variant voItem21
													Get ComAdd of hoItems16 "Item 9" 2 Nothing to voItem21
													Handle hoItem21
													Get Create (RefClass(cComItem)) to hoItem21
													Set pvComObject of hoItem21 to voItem21
														Variant voItems17
														Get ComItems of hoItem21 to voItems17
														Handle hoItems17
														Get Create (RefClass(cComItems)) to hoItems17
														Set pvComObject of hoItems17 to voItems17
															Get ComAdd of hoItems17 "Item 10" Nothing Nothing to Nothing
															Get ComAdd of hoItems17 "Item 11" Nothing Nothing to Nothing
															Get ComAdd of hoItems17 "Item 12" Nothing Nothing to Nothing
														Send Destroy to hoItems17
													Send Destroy to hoItem21
												Send Destroy to hoItems16
											Send Destroy to hoItem19
										Send Destroy to hoItems12
									Send Destroy to hoItem14
								Send Destroy to hoItems11
							Send Destroy to hoItems1
						Send Destroy to hoItem1
					Send Destroy to hoItems
				Variant var_Item4
				Get ComAdd "New Page" Nothing Nothing to var_Item4
					Set ComToString to "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
					Set ComID to 300
					Set ComCaption to "Page2"
					Set ComShowPopupAlign to OLEexShowPopupAlignDown
					Variant voItems18
					Get ComItems to voItems18
					Handle hoItems18
					Get Create (RefClass(cComItems)) to hoItems18
					Set pvComObject of hoItems18 to voItems18
						Variant voItem22
						Get ComItem of hoItems18 0 to voItem22
						Handle hoItem22
						Get Create (RefClass(cComItem)) to hoItem22
						Set pvComObject of hoItem22 to voItem22
							Variant voItems19
							Get ComItems of hoItem22 to voItems19
							Handle hoItems19
							Get Create (RefClass(cComItems)) to hoItems19
							Set pvComObject of hoItems19 to voItems19
								Variant voItem23
								Get ComAdd of hoItems19 "S1" Nothing Nothing to voItem23
								Handle hoItem23
								Get Create (RefClass(cComItem)) to hoItem23
								Set pvComObject of hoItem23 to voItem23
									Set ComItemHeight of hoItem23 to 88
									Set ComAllowEdit of hoItem23 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
									Set ComEditValue of hoItem23 to 25
								Send Destroy to hoItem23
								Variant voItem24
								Get ComAdd of hoItems19 "S2" Nothing Nothing to voItem24
								Handle hoItem24
								Get Create (RefClass(cComItem)) to hoItem24
								Set pvComObject of hoItem24 to voItem24
									Set ComItemHeight of hoItem24 to 88
									Set ComAllowEdit of hoItem24 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
									Set ComEditValue of hoItem24 to 50
								Send Destroy to hoItem24
								Variant voItem25
								Get ComAdd of hoItems19 "S3" Nothing Nothing to voItem25
								Handle hoItem25
								Get Create (RefClass(cComItem)) to hoItem25
								Set pvComObject of hoItem25 to voItem25
									Set ComItemHeight of hoItem25 to 88
									Set ComAllowEdit of hoItem25 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
									Set ComEditValue of hoItem25 to 75
								Send Destroy to hoItem25
							Send Destroy to hoItems19
						Send Destroy to hoItem22
					Send Destroy to hoItems18
				Variant voItem26
				Get ComAdd "" 0 0 to voItem26
				Handle hoItem26
				Get Create (RefClass(cComItem)) to hoItem26
				Set pvComObject of hoItem26 to voItem26
					Set ComPadding of hoItem26 to "8,0,0,0"
				Send Destroy to hoItem26
	Set ComPopupFlatAppearance to False
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_background.ebn" to Nothing
		Get ComAdd of hoAppearance 2 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_groupt.ebn" to Nothing
		Get ComAdd of hoAppearance 3 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_groupo.ebn" to Nothing
		Get ComAdd of hoAppearance 4 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_grouphot.ebn" to Nothing
		Get ComAdd of hoAppearance 5 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_frameh.ebn" to Nothing
		Get ComAdd of hoAppearance 6 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehs.ebn" to Nothing
		Get ComAdd of hoAppearance 7 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehi.ebn" to Nothing
		Get ComAdd of hoAppearance 8 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehe.ebn" to Nothing
		Get ComAdd of hoAppearance 9 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framevs.ebn" to Nothing
		Get ComAdd of hoAppearance 10 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framevi.ebn" to Nothing
		Get ComAdd of hoAppearance 11 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_frameve.ebn" to Nothing
		Get ComAdd of hoAppearance 12 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_select.ebn" to Nothing
		Get ComAdd of hoAppearance 13 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_bordert.ebn" to Nothing
		Get ComAdd of hoAppearance 14 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_buttond.ebn" to Nothing
		Get ComAdd of hoAppearance 15 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_buttonu.ebn" to Nothing
		Get ComAdd of hoAppearance 16 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tab.ebn" to Nothing
		Get ComAdd of hoAppearance 17 "CP:16 0 0 0 1" to Nothing
		Get ComAdd of hoAppearance 18 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tabhot.ebn" to Nothing
		Get ComAdd of hoAppearance 19 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tabselhot.ebn" to Nothing
		Get ComAdd of hoAppearance 20 "CP:19 0 0 0 1" to Nothing
	Send Destroy to hoAppearance
	Set ComForeColor to (RGB(21,66,139))
	Set ComSelBackColor to |CI$e000000
	Set ComLocalAppearance to OLEShadowBorder
	Set ComAppearance to |CI$1000000
	Set ComBackground OLEexToolTipAppearance to (ComAppearance(Self))
	Set ComBackground |CI$2 to |CI$d000000
	Set ComBackground OLEexGroupPopupFrameSingle to |CI$5000000
	Set ComBackground OLEexGroupPopupFrameHStart to |CI$6000000
	Set ComBackground OLEexGroupPopupFrameHIntermediate to |CI$7000000
	Set ComBackground OLEexGroupPopupFrameHEnd to |CI$8000000
	Set ComBackground OLEexGroupPopupFrameVStart to |CI$9000000
	Set ComBackground OLEexGroupPopupFrameVIntermediate to |CI$a000000
	Set ComBackground OLEexGroupPopupFrameVEnd to |CI$b000000
	Set ComBackground OLEexMenuHotBackColor to |CI$c000000
	Set ComBackground OLEexMenuSelHotBackColor to |CI$f000000
	Send ComRefresh
End_Procedure
211
Microsoft Paint - Ribbon Like - Minimized

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		Variant voItem
		Get ComItem of hoItems -99 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComVisible of hoItem to False
		Send Destroy to hoItem
		Variant voItem1
		Get ComItem of hoItems 0 to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Variant voItems1
			Get ComItems of hoItem1 to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem2
				Get ComAdd of hoItems1 "" 0 0 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComPadding of hoItem2 to "8,0,0,0"
				Send Destroy to hoItem2
				Variant var_Item3
				Get ComAdd of hoItems1 "New Page" Nothing Nothing to var_Item3
					Set ComToString of hoItems1 to "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
					Set ComID of hoItems1 to 200
					Set ComCaption of hoItems1 to "Page1"
					Set ComShowPopupAlign of hoItems1 to OLEexShowPopupAlignDown
					Variant voItems2
					Get ComItems of hoItems1 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem3
						Get ComItem of hoItems2 0 to voItem3
						Handle hoItem3
						Get Create (RefClass(cComItem)) to hoItem3
						Set pvComObject of hoItem3 to voItem3
							Variant v
							Variant voItems3
							Get ComItems of hoItem3 to voItems3
							Handle hoItems3
							Get Create (RefClass(cComItems)) to hoItems3
							Set pvComObject of hoItems3 to voItems3
								Get ComAdd of hoItems3 "New Group" Nothing Nothing to v
							Send Destroy to hoItems3
							Move v to var_Item
								Set ComToString of hoItem3 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
								Set ComCaption of hoItem3 to "<b><font ;14>A"
								Variant voItems4
								Get ComItems of hoItem3 to voItems4
								Handle hoItems4
								Get Create (RefClass(cComItems)) to hoItems4
								Set pvComObject of hoItems4 to voItems4
									Set ComBackgroundExt of hoItems4 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
									Variant voItem4
									Get ComAdd of hoItems4 "" 2 Nothing to voItem4
									Handle hoItem4
									Get Create (RefClass(cComItem)) to hoItem4
									Set pvComObject of hoItem4 to voItem4
										Set ComGroupPopup of hoItem4 to (OLEexGroupPopupEqualWidth + OLEexGroupPopup)
										Set ComCaption of hoItem4 to ""
										Variant voItems5
										Get ComItems of hoItem4 to voItems5
										Handle hoItems5
										Get Create (RefClass(cComItems)) to hoItems5
										Set pvComObject of hoItems5 to voItems5
											Variant voItem5
											Get ComAdd of hoItems5 "R1" Nothing Nothing to voItem5
											Handle hoItem5
											Get Create (RefClass(cComItem)) to hoItem5
											Set pvComObject of hoItem5 to voItem5
												Set ComRadioGroup of hoItem5 to 100
												Set ComRadio of hoItem5 to True
												Set ComShowCheckedAsSelected of hoItem5 to OLEexDisplayItemHighlight
												Set ComChecked of hoItem5 to False
											Send Destroy to hoItem5
											Variant voItem6
											Get ComAdd of hoItems5 "R2" Nothing Nothing to voItem6
											Handle hoItem6
											Get Create (RefClass(cComItem)) to hoItem6
											Set pvComObject of hoItem6 to voItem6
												Set ComRadioGroup of hoItem6 to 100
												Set ComRadio of hoItem6 to True
												Set ComShowCheckedAsSelected of hoItem6 to OLEexDisplayItemHighlight
												Set ComChecked of hoItem6 to True
											Send Destroy to hoItem6
											Variant voItem7
											Get ComAdd of hoItems5 "R3" Nothing Nothing to voItem7
											Handle hoItem7
											Get Create (RefClass(cComItem)) to hoItem7
											Set pvComObject of hoItem7 to voItem7
												Set ComRadioGroup of hoItem7 to 100
												Set ComRadio of hoItem7 to True
												Set ComShowCheckedAsSelected of hoItem7 to OLEexDisplayItemHighlight
												Set ComChecked of hoItem7 to False
											Send Destroy to hoItem7
										Send Destroy to hoItems5
									Send Destroy to hoItem4
								Send Destroy to hoItems4
							Send Destroy to hoItem3
							Variant v1
							Variant voItems6
							Get ComItems of hoItems2 to voItems6
							Handle hoItems6
							Get Create (RefClass(cComItems)) to hoItems6
							Set pvComObject of hoItems6 to voItems6
								Get ComAdd of hoItems6 "New Group" Nothing Nothing to v1
							Send Destroy to hoItems6
							Move v1 to var_Item1
								Set ComToString of hoItems2 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
								Set ComCaption of hoItems2 to "<b><font ;14>B"
								Variant voItems7
								Get ComItems of hoItems2 to voItems7
								Handle hoItems7
								Get Create (RefClass(cComItems)) to hoItems7
								Set pvComObject of hoItems7 to voItems7
									Set ComBackgroundExt of hoItems7 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
									Variant voItem8
									Get ComAdd of hoItems7 "" 2 Nothing to voItem8
									Handle hoItem8
									Get Create (RefClass(cComItem)) to hoItem8
									Set pvComObject of hoItem8 to voItem8
										Set ComGroupPopup of hoItem8 to (OLEexGroupPopupVertical + OLEexGroupPopupEqualHeight + OLEexGroupPopup)
										Set ComCaption of hoItem8 to ""
										Variant voItems8
										Get ComItems of hoItem8 to voItems8
										Handle hoItems8
										Get Create (RefClass(cComItems)) to hoItems8
										Set pvComObject of hoItems8 to voItems8
											Variant voItem9
											Get ComAdd of hoItems8 "C1" Nothing Nothing to voItem9
											Handle hoItem9
											Get Create (RefClass(cComItem)) to hoItem9
											Set pvComObject of hoItem9 to voItem9
												Set ComCheck of hoItem9 to True
												Set ComChecked of hoItem9 to True
											Send Destroy to hoItem9
											Variant voItem10
											Get ComAdd of hoItems8 "C2" Nothing Nothing to voItem10
											Handle hoItem10
											Get Create (RefClass(cComItem)) to hoItem10
											Set pvComObject of hoItem10 to voItem10
												Set ComCheck of hoItem10 to True
												Set ComChecked of hoItem10 to False
											Send Destroy to hoItem10
											Variant voItem11
											Get ComAdd of hoItems8 "C3" Nothing Nothing to voItem11
											Handle hoItem11
											Get Create (RefClass(cComItem)) to hoItem11
											Set pvComObject of hoItem11 to voItem11
												Set ComCheck of hoItem11 to True
												Set ComChecked of hoItem11 to True
											Send Destroy to hoItem11
										Send Destroy to hoItems8
									Send Destroy to hoItem8
								Send Destroy to hoItems7
							Send Destroy to hoItems2
							Variant voItems9
							Get ComItems of hoItems1 to voItems9
							Handle hoItems9
							Get Create (RefClass(cComItems)) to hoItems9
							Set pvComObject of hoItems9 to voItems9
								Variant voItem12
								Get ComAdd of hoItems9 "" 0 0 to voItem12
								Handle hoItem12
								Get Create (RefClass(cComItem)) to hoItem12
								Set pvComObject of hoItem12 to voItem12
									Set ComPadding of hoItem12 to "4,0,0,0"
								Send Destroy to hoItem12
							Send Destroy to hoItems9
							Variant v2
							Variant voItems10
							Get ComItems of hoItems1 to voItems10
							Handle hoItems10
							Get Create (RefClass(cComItems)) to hoItems10
							Set pvComObject of hoItems10 to voItems10
								Get ComAdd of hoItems10 "New Group" Nothing Nothing to v2
							Send Destroy to hoItems10
							Move v2 to var_Item2
								Set ComToString of hoItems1 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
								Set ComCaption of hoItems1 to ""
								Variant voItems11
								Get ComItems of hoItems1 to voItems11
								Handle hoItems11
								Get Create (RefClass(cComItems)) to hoItems11
								Set pvComObject of hoItems11 to voItems11
									Set ComBackgroundExt of hoItems11 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
									Variant voItem13
									Get ComAdd of hoItems11 "" 0 Nothing to voItem13
									Handle hoItem13
									Get Create (RefClass(cComItem)) to hoItem13
									Set pvComObject of hoItem13 to voItem13
										Set ComAllowEdit of hoItem13 to (OLEexItemEditVertical + OLEexItemEditSlider)
										Set ComItemHeight of hoItem13 to 76
										Set ComEditBorder of hoItem13 to OLEexEditBorderNone
										Set ComEditValue of hoItem13 to 25
									Send Destroy to hoItem13
									Variant voItem14
									Get ComAdd of hoItems11 "" 2 Nothing to voItem14
									Handle hoItem14
									Get Create (RefClass(cComItem)) to hoItem14
									Set pvComObject of hoItem14 to voItem14
										Set ComGroupPopup of hoItem14 to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
										Set ComCaption of hoItem14 to ""
										Variant voItems12
										Get ComItems of hoItem14 to voItems12
										Handle hoItems12
										Get Create (RefClass(cComItems)) to hoItems12
										Set pvComObject of hoItems12 to voItems12
											Variant voItem15
											Get ComAdd of hoItems12 "" 2 Nothing to voItem15
											Handle hoItem15
											Get Create (RefClass(cComItem)) to hoItem15
											Set pvComObject of hoItem15 to voItem15
												Set ComGroupPopup of hoItem15 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
												Variant voItems13
												Get ComItems of hoItem15 to voItems13
												Handle hoItems13
												Get Create (RefClass(cComItems)) to hoItems13
												Set pvComObject of hoItems13 to voItems13
													Variant voItem16
													Get ComAdd of hoItems13 "Button1" 2 Nothing to voItem16
													Handle hoItem16
													Get Create (RefClass(cComItem)) to hoItem16
													Set pvComObject of hoItem16 to voItem16
														Set ComShowAsButton of hoItem16 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
														Variant voItems14
														Get ComItems of hoItem16 to voItems14
														Handle hoItems14
														Get Create (RefClass(cComItems)) to hoItems14
														Set pvComObject of hoItems14 to voItems14
															Get ComAdd of hoItems14 "Item 1" Nothing Nothing to Nothing
															Get ComAdd of hoItems14 "Item 2" Nothing Nothing to Nothing
															Get ComAdd of hoItems14 "Item 3" Nothing Nothing to Nothing
														Send Destroy to hoItems14
													Send Destroy to hoItem16
													Variant voItem17
													Get ComAdd of hoItems13 "" 0 0 to voItem17
													Handle hoItem17
													Get Create (RefClass(cComItem)) to hoItem17
													Set pvComObject of hoItem17 to voItem17
														Set ComPadding of hoItem17 to "4,0,0,0"
													Send Destroy to hoItem17
													Variant voItem18
													Get ComAdd of hoItems13 "Button2" 2 Nothing to voItem18
													Handle hoItem18
													Get Create (RefClass(cComItem)) to hoItem18
													Set pvComObject of hoItem18 to voItem18
														Set ComShowAsButton of hoItem18 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
														Variant voItems15
														Get ComItems of hoItem18 to voItems15
														Handle hoItems15
														Get Create (RefClass(cComItems)) to hoItems15
														Set pvComObject of hoItems15 to voItems15
															Get ComAdd of hoItems15 "Item 4" Nothing Nothing to Nothing
															Get ComAdd of hoItems15 "Item 5" Nothing Nothing to Nothing
															Get ComAdd of hoItems15 "Item 6" Nothing Nothing to Nothing
														Send Destroy to hoItems15
													Send Destroy to hoItem18
												Send Destroy to hoItems13
											Send Destroy to hoItem15
											Variant voItem19
											Get ComAdd of hoItems12 "Popup" 2 Nothing to voItem19
											Handle hoItem19
											Get Create (RefClass(cComItem)) to hoItem19
											Set pvComObject of hoItem19 to voItem19
												Set ComAlignment of hoItem19 to OLEexCenter
												Variant voItems16
												Get ComItems of hoItem19 to voItems16
												Handle hoItems16
												Get Create (RefClass(cComItems)) to hoItems16
												Set pvComObject of hoItems16 to voItems16
													Variant voItem20
													Get ComAdd of hoItems16 "Item 7" Nothing Nothing to voItem20
													Handle hoItem20
													Get Create (RefClass(cComItem)) to hoItem20
													Set pvComObject of hoItem20 to voItem20
														Set ComCheck of hoItem20 to True
													Send Destroy to hoItem20
													Get ComAdd of hoItems16 "Item 8" Nothing Nothing to Nothing
													Variant voItem21
													Get ComAdd of hoItems16 "Item 9" 2 Nothing to voItem21
													Handle hoItem21
													Get Create (RefClass(cComItem)) to hoItem21
													Set pvComObject of hoItem21 to voItem21
														Variant voItems17
														Get ComItems of hoItem21 to voItems17
														Handle hoItems17
														Get Create (RefClass(cComItems)) to hoItems17
														Set pvComObject of hoItems17 to voItems17
															Get ComAdd of hoItems17 "Item 10" Nothing Nothing to Nothing
															Get ComAdd of hoItems17 "Item 11" Nothing Nothing to Nothing
															Get ComAdd of hoItems17 "Item 12" Nothing Nothing to Nothing
														Send Destroy to hoItems17
													Send Destroy to hoItem21
												Send Destroy to hoItems16
											Send Destroy to hoItem19
										Send Destroy to hoItems12
									Send Destroy to hoItem14
								Send Destroy to hoItems11
							Send Destroy to hoItems1
						Send Destroy to hoItem1
					Send Destroy to hoItems
				Variant var_Item4
				Get ComAdd "New Page" Nothing Nothing to var_Item4
					Set ComToString to "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
					Set ComID to 300
					Set ComCaption to "Page2"
					Set ComShowPopupAlign to OLEexShowPopupAlignDown
					Variant voItems18
					Get ComItems to voItems18
					Handle hoItems18
					Get Create (RefClass(cComItems)) to hoItems18
					Set pvComObject of hoItems18 to voItems18
						Variant voItem22
						Get ComItem of hoItems18 0 to voItem22
						Handle hoItem22
						Get Create (RefClass(cComItem)) to hoItem22
						Set pvComObject of hoItem22 to voItem22
							Variant voItems19
							Get ComItems of hoItem22 to voItems19
							Handle hoItems19
							Get Create (RefClass(cComItems)) to hoItems19
							Set pvComObject of hoItems19 to voItems19
								Variant voItem23
								Get ComAdd of hoItems19 "S1" Nothing Nothing to voItem23
								Handle hoItem23
								Get Create (RefClass(cComItem)) to hoItem23
								Set pvComObject of hoItem23 to voItem23
									Set ComItemHeight of hoItem23 to 88
									Set ComAllowEdit of hoItem23 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
									Set ComEditValue of hoItem23 to 25
								Send Destroy to hoItem23
								Variant voItem24
								Get ComAdd of hoItems19 "S2" Nothing Nothing to voItem24
								Handle hoItem24
								Get Create (RefClass(cComItem)) to hoItem24
								Set pvComObject of hoItem24 to voItem24
									Set ComItemHeight of hoItem24 to 88
									Set ComAllowEdit of hoItem24 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
									Set ComEditValue of hoItem24 to 50
								Send Destroy to hoItem24
								Variant voItem25
								Get ComAdd of hoItems19 "S3" Nothing Nothing to voItem25
								Handle hoItem25
								Get Create (RefClass(cComItem)) to hoItem25
								Set pvComObject of hoItem25 to voItem25
									Set ComItemHeight of hoItem25 to 88
									Set ComAllowEdit of hoItem25 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
									Set ComEditValue of hoItem25 to 75
								Send Destroy to hoItem25
							Send Destroy to hoItems19
						Send Destroy to hoItem22
					Send Destroy to hoItems18
				Variant voItem26
				Get ComAdd "" 0 0 to voItem26
				Handle hoItem26
				Get Create (RefClass(cComItem)) to hoItem26
				Set pvComObject of hoItem26 to voItem26
					Set ComPadding of hoItem26 to "8,0,0,0"
				Send Destroy to hoItem26
	Set ComPopupFlatAppearance to False
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn" to Nothing
		Get ComAdd of hoAppearance 2 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn" to Nothing
		Get ComAdd of hoAppearance 3 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn" to Nothing
		Get ComAdd of hoAppearance 4 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn" to Nothing
		Get ComAdd of hoAppearance 5 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn" to Nothing
		Get ComAdd of hoAppearance 6 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn" to Nothing
		Get ComAdd of hoAppearance 7 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn" to Nothing
		Get ComAdd of hoAppearance 8 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn" to Nothing
		Get ComAdd of hoAppearance 9 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn" to Nothing
		Get ComAdd of hoAppearance 10 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn" to Nothing
		Get ComAdd of hoAppearance 11 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn" to Nothing
		Get ComAdd of hoAppearance 12 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn" to Nothing
		Get ComAdd of hoAppearance 13 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn" to Nothing
		Get ComAdd of hoAppearance 14 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn" to Nothing
		Get ComAdd of hoAppearance 15 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn" to Nothing
		Get ComAdd of hoAppearance 16 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn" to Nothing
		Get ComAdd of hoAppearance 17 "CP:16 0 0 0 1" to Nothing
		Get ComAdd of hoAppearance 18 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn" to Nothing
		Get ComAdd of hoAppearance 19 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn" to Nothing
		Get ComAdd of hoAppearance 20 "CP:19 0 0 0 1" to Nothing
	Send Destroy to hoAppearance
	Set ComLocalAppearance to OLEShadowBorder
	Set ComAppearance to |CI$1000000
	Set ComForeColor to (RGB(21,66,139))
	Set ComSelBackColor to |CI$e000000
	Set ComBackground OLEexToolTipAppearance to (ComAppearance(Self))
	Set ComBackground |CI$2 to |CI$d000000
	Set ComBackground OLEexGroupPopupFrameSingle to |CI$5000000
	Set ComBackground OLEexGroupPopupFrameHStart to |CI$6000000
	Set ComBackground OLEexGroupPopupFrameHIntermediate to |CI$7000000
	Set ComBackground OLEexGroupPopupFrameHEnd to |CI$8000000
	Set ComBackground OLEexGroupPopupFrameVStart to |CI$9000000
	Set ComBackground OLEexGroupPopupFrameVIntermediate to |CI$a000000
	Set ComBackground OLEexGroupPopupFrameVEnd to |CI$b000000
	Set ComBackground OLEexMenuHotBackColor to |CI$c000000
	Set ComBackground OLEexMenuSelHotBackColor to |CI$f000000
	Send ComRefresh
End_Procedure
210
Microsoft Windows 8.1 - Ribbon Like - Minimized

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		Variant voItem
		Get ComItem of hoItems -99 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComVisible of hoItem to False
		Send Destroy to hoItem
		Variant voItem1
		Get ComItem of hoItems 0 to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Variant voItems1
			Get ComItems of hoItem1 to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem2
				Get ComAdd of hoItems1 "" 0 0 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComPadding of hoItem2 to "8,0,0,0"
				Send Destroy to hoItem2
				Variant var_Item3
				Get ComAdd of hoItems1 "New Page" Nothing Nothing to var_Item3
					Set ComToString of hoItems1 to "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
					Set ComID of hoItems1 to 200
					Set ComCaption of hoItems1 to "Page1"
					Set ComShowPopupAlign of hoItems1 to OLEexShowPopupAlignDown
					Variant voItems2
					Get ComItems of hoItems1 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem3
						Get ComItem of hoItems2 0 to voItem3
						Handle hoItem3
						Get Create (RefClass(cComItem)) to hoItem3
						Set pvComObject of hoItem3 to voItem3
							Variant v
							Variant voItems3
							Get ComItems of hoItem3 to voItems3
							Handle hoItems3
							Get Create (RefClass(cComItems)) to hoItems3
							Set pvComObject of hoItems3 to voItems3
								Get ComAdd of hoItems3 "New Group" Nothing Nothing to v
							Send Destroy to hoItems3
							Move v to var_Item
								Set ComToString of hoItem3 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
								Set ComCaption of hoItem3 to "<b><font ;14>A"
								Variant voItems4
								Get ComItems of hoItem3 to voItems4
								Handle hoItems4
								Get Create (RefClass(cComItems)) to hoItems4
								Set pvComObject of hoItems4 to voItems4
									Set ComBackgroundExt of hoItems4 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
									Variant voItem4
									Get ComAdd of hoItems4 "" 2 Nothing to voItem4
									Handle hoItem4
									Get Create (RefClass(cComItem)) to hoItem4
									Set pvComObject of hoItem4 to voItem4
										Set ComGroupPopup of hoItem4 to (OLEexGroupPopupEqualWidth + OLEexGroupPopup)
										Set ComCaption of hoItem4 to ""
										Variant voItems5
										Get ComItems of hoItem4 to voItems5
										Handle hoItems5
										Get Create (RefClass(cComItems)) to hoItems5
										Set pvComObject of hoItems5 to voItems5
											Variant voItem5
											Get ComAdd of hoItems5 "R1" Nothing Nothing to voItem5
											Handle hoItem5
											Get Create (RefClass(cComItem)) to hoItem5
											Set pvComObject of hoItem5 to voItem5
												Set ComRadioGroup of hoItem5 to 100
												Set ComRadio of hoItem5 to True
												Set ComShowCheckedAsSelected of hoItem5 to OLEexDisplayItemHighlight
												Set ComChecked of hoItem5 to False
											Send Destroy to hoItem5
											Variant voItem6
											Get ComAdd of hoItems5 "R2" Nothing Nothing to voItem6
											Handle hoItem6
											Get Create (RefClass(cComItem)) to hoItem6
											Set pvComObject of hoItem6 to voItem6
												Set ComRadioGroup of hoItem6 to 100
												Set ComRadio of hoItem6 to True
												Set ComShowCheckedAsSelected of hoItem6 to OLEexDisplayItemHighlight
												Set ComChecked of hoItem6 to True
											Send Destroy to hoItem6
											Variant voItem7
											Get ComAdd of hoItems5 "R3" Nothing Nothing to voItem7
											Handle hoItem7
											Get Create (RefClass(cComItem)) to hoItem7
											Set pvComObject of hoItem7 to voItem7
												Set ComRadioGroup of hoItem7 to 100
												Set ComRadio of hoItem7 to True
												Set ComShowCheckedAsSelected of hoItem7 to OLEexDisplayItemHighlight
												Set ComChecked of hoItem7 to False
											Send Destroy to hoItem7
										Send Destroy to hoItems5
									Send Destroy to hoItem4
								Send Destroy to hoItems4
							Send Destroy to hoItem3
							Variant v1
							Variant voItems6
							Get ComItems of hoItems2 to voItems6
							Handle hoItems6
							Get Create (RefClass(cComItems)) to hoItems6
							Set pvComObject of hoItems6 to voItems6
								Get ComAdd of hoItems6 "New Group" Nothing Nothing to v1
							Send Destroy to hoItems6
							Move v1 to var_Item1
								Set ComToString of hoItems2 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
								Set ComCaption of hoItems2 to "<b><font ;14>B"
								Variant voItems7
								Get ComItems of hoItems2 to voItems7
								Handle hoItems7
								Get Create (RefClass(cComItems)) to hoItems7
								Set pvComObject of hoItems7 to voItems7
									Set ComBackgroundExt of hoItems7 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
									Variant voItem8
									Get ComAdd of hoItems7 "" 2 Nothing to voItem8
									Handle hoItem8
									Get Create (RefClass(cComItem)) to hoItem8
									Set pvComObject of hoItem8 to voItem8
										Set ComGroupPopup of hoItem8 to (OLEexGroupPopupVertical + OLEexGroupPopupEqualHeight + OLEexGroupPopup)
										Set ComCaption of hoItem8 to ""
										Variant voItems8
										Get ComItems of hoItem8 to voItems8
										Handle hoItems8
										Get Create (RefClass(cComItems)) to hoItems8
										Set pvComObject of hoItems8 to voItems8
											Variant voItem9
											Get ComAdd of hoItems8 "C1" Nothing Nothing to voItem9
											Handle hoItem9
											Get Create (RefClass(cComItem)) to hoItem9
											Set pvComObject of hoItem9 to voItem9
												Set ComCheck of hoItem9 to True
												Set ComChecked of hoItem9 to True
											Send Destroy to hoItem9
											Variant voItem10
											Get ComAdd of hoItems8 "C2" Nothing Nothing to voItem10
											Handle hoItem10
											Get Create (RefClass(cComItem)) to hoItem10
											Set pvComObject of hoItem10 to voItem10
												Set ComCheck of hoItem10 to True
												Set ComChecked of hoItem10 to False
											Send Destroy to hoItem10
											Variant voItem11
											Get ComAdd of hoItems8 "C3" Nothing Nothing to voItem11
											Handle hoItem11
											Get Create (RefClass(cComItem)) to hoItem11
											Set pvComObject of hoItem11 to voItem11
												Set ComCheck of hoItem11 to True
												Set ComChecked of hoItem11 to True
											Send Destroy to hoItem11
										Send Destroy to hoItems8
									Send Destroy to hoItem8
								Send Destroy to hoItems7
							Send Destroy to hoItems2
							Variant voItems9
							Get ComItems of hoItems1 to voItems9
							Handle hoItems9
							Get Create (RefClass(cComItems)) to hoItems9
							Set pvComObject of hoItems9 to voItems9
								Variant voItem12
								Get ComAdd of hoItems9 "" 0 0 to voItem12
								Handle hoItem12
								Get Create (RefClass(cComItem)) to hoItem12
								Set pvComObject of hoItem12 to voItem12
									Set ComPadding of hoItem12 to "4,0,0,0"
								Send Destroy to hoItem12
							Send Destroy to hoItems9
							Variant v2
							Variant voItems10
							Get ComItems of hoItems1 to voItems10
							Handle hoItems10
							Get Create (RefClass(cComItems)) to hoItems10
							Set pvComObject of hoItems10 to voItems10
								Get ComAdd of hoItems10 "New Group" Nothing Nothing to v2
							Send Destroy to hoItems10
							Move v2 to var_Item2
								Set ComToString of hoItems1 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
								Set ComCaption of hoItems1 to ""
								Variant voItems11
								Get ComItems of hoItems1 to voItems11
								Handle hoItems11
								Get Create (RefClass(cComItems)) to hoItems11
								Set pvComObject of hoItems11 to voItems11
									Set ComBackgroundExt of hoItems11 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
									Variant voItem13
									Get ComAdd of hoItems11 "" 0 Nothing to voItem13
									Handle hoItem13
									Get Create (RefClass(cComItem)) to hoItem13
									Set pvComObject of hoItem13 to voItem13
										Set ComAllowEdit of hoItem13 to (OLEexItemEditVertical + OLEexItemEditSlider)
										Set ComItemHeight of hoItem13 to 76
										Set ComEditBorder of hoItem13 to OLEexEditBorderNone
										Set ComEditValue of hoItem13 to 25
									Send Destroy to hoItem13
									Variant voItem14
									Get ComAdd of hoItems11 "" 2 Nothing to voItem14
									Handle hoItem14
									Get Create (RefClass(cComItem)) to hoItem14
									Set pvComObject of hoItem14 to voItem14
										Set ComGroupPopup of hoItem14 to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
										Set ComCaption of hoItem14 to ""
										Variant voItems12
										Get ComItems of hoItem14 to voItems12
										Handle hoItems12
										Get Create (RefClass(cComItems)) to hoItems12
										Set pvComObject of hoItems12 to voItems12
											Variant voItem15
											Get ComAdd of hoItems12 "" 2 Nothing to voItem15
											Handle hoItem15
											Get Create (RefClass(cComItem)) to hoItem15
											Set pvComObject of hoItem15 to voItem15
												Set ComGroupPopup of hoItem15 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
												Variant voItems13
												Get ComItems of hoItem15 to voItems13
												Handle hoItems13
												Get Create (RefClass(cComItems)) to hoItems13
												Set pvComObject of hoItems13 to voItems13
													Variant voItem16
													Get ComAdd of hoItems13 "Button1" 2 Nothing to voItem16
													Handle hoItem16
													Get Create (RefClass(cComItem)) to hoItem16
													Set pvComObject of hoItem16 to voItem16
														Set ComShowAsButton of hoItem16 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
														Variant voItems14
														Get ComItems of hoItem16 to voItems14
														Handle hoItems14
														Get Create (RefClass(cComItems)) to hoItems14
														Set pvComObject of hoItems14 to voItems14
															Get ComAdd of hoItems14 "Item 1" Nothing Nothing to Nothing
															Get ComAdd of hoItems14 "Item 2" Nothing Nothing to Nothing
															Get ComAdd of hoItems14 "Item 3" Nothing Nothing to Nothing
														Send Destroy to hoItems14
													Send Destroy to hoItem16
													Variant voItem17
													Get ComAdd of hoItems13 "" 0 0 to voItem17
													Handle hoItem17
													Get Create (RefClass(cComItem)) to hoItem17
													Set pvComObject of hoItem17 to voItem17
														Set ComPadding of hoItem17 to "4,0,0,0"
													Send Destroy to hoItem17
													Variant voItem18
													Get ComAdd of hoItems13 "Button2" 2 Nothing to voItem18
													Handle hoItem18
													Get Create (RefClass(cComItem)) to hoItem18
													Set pvComObject of hoItem18 to voItem18
														Set ComShowAsButton of hoItem18 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
														Variant voItems15
														Get ComItems of hoItem18 to voItems15
														Handle hoItems15
														Get Create (RefClass(cComItems)) to hoItems15
														Set pvComObject of hoItems15 to voItems15
															Get ComAdd of hoItems15 "Item 4" Nothing Nothing to Nothing
															Get ComAdd of hoItems15 "Item 5" Nothing Nothing to Nothing
															Get ComAdd of hoItems15 "Item 6" Nothing Nothing to Nothing
														Send Destroy to hoItems15
													Send Destroy to hoItem18
												Send Destroy to hoItems13
											Send Destroy to hoItem15
											Variant voItem19
											Get ComAdd of hoItems12 "Popup" 2 Nothing to voItem19
											Handle hoItem19
											Get Create (RefClass(cComItem)) to hoItem19
											Set pvComObject of hoItem19 to voItem19
												Set ComAlignment of hoItem19 to OLEexCenter
												Variant voItems16
												Get ComItems of hoItem19 to voItems16
												Handle hoItems16
												Get Create (RefClass(cComItems)) to hoItems16
												Set pvComObject of hoItems16 to voItems16
													Variant voItem20
													Get ComAdd of hoItems16 "Item 7" Nothing Nothing to voItem20
													Handle hoItem20
													Get Create (RefClass(cComItem)) to hoItem20
													Set pvComObject of hoItem20 to voItem20
														Set ComCheck of hoItem20 to True
													Send Destroy to hoItem20
													Get ComAdd of hoItems16 "Item 8" Nothing Nothing to Nothing
													Variant voItem21
													Get ComAdd of hoItems16 "Item 9" 2 Nothing to voItem21
													Handle hoItem21
													Get Create (RefClass(cComItem)) to hoItem21
													Set pvComObject of hoItem21 to voItem21
														Variant voItems17
														Get ComItems of hoItem21 to voItems17
														Handle hoItems17
														Get Create (RefClass(cComItems)) to hoItems17
														Set pvComObject of hoItems17 to voItems17
															Get ComAdd of hoItems17 "Item 10" Nothing Nothing to Nothing
															Get ComAdd of hoItems17 "Item 11" Nothing Nothing to Nothing
															Get ComAdd of hoItems17 "Item 12" Nothing Nothing to Nothing
														Send Destroy to hoItems17
													Send Destroy to hoItem21
												Send Destroy to hoItems16
											Send Destroy to hoItem19
										Send Destroy to hoItems12
									Send Destroy to hoItem14
								Send Destroy to hoItems11
							Send Destroy to hoItems1
						Send Destroy to hoItem1
					Send Destroy to hoItems
				Variant var_Item4
				Get ComAdd "New Page" Nothing Nothing to var_Item4
					Set ComToString to "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
					Set ComID to 300
					Set ComCaption to "Page2"
					Set ComShowPopupAlign to OLEexShowPopupAlignDown
					Variant voItems18
					Get ComItems to voItems18
					Handle hoItems18
					Get Create (RefClass(cComItems)) to hoItems18
					Set pvComObject of hoItems18 to voItems18
						Variant voItem22
						Get ComItem of hoItems18 0 to voItem22
						Handle hoItem22
						Get Create (RefClass(cComItem)) to hoItem22
						Set pvComObject of hoItem22 to voItem22
							Variant voItems19
							Get ComItems of hoItem22 to voItems19
							Handle hoItems19
							Get Create (RefClass(cComItems)) to hoItems19
							Set pvComObject of hoItems19 to voItems19
								Variant voItem23
								Get ComAdd of hoItems19 "S1" Nothing Nothing to voItem23
								Handle hoItem23
								Get Create (RefClass(cComItem)) to hoItem23
								Set pvComObject of hoItem23 to voItem23
									Set ComItemHeight of hoItem23 to 88
									Set ComAllowEdit of hoItem23 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
									Set ComEditValue of hoItem23 to 25
								Send Destroy to hoItem23
								Variant voItem24
								Get ComAdd of hoItems19 "S2" Nothing Nothing to voItem24
								Handle hoItem24
								Get Create (RefClass(cComItem)) to hoItem24
								Set pvComObject of hoItem24 to voItem24
									Set ComItemHeight of hoItem24 to 88
									Set ComAllowEdit of hoItem24 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
									Set ComEditValue of hoItem24 to 50
								Send Destroy to hoItem24
								Variant voItem25
								Get ComAdd of hoItems19 "S3" Nothing Nothing to voItem25
								Handle hoItem25
								Get Create (RefClass(cComItem)) to hoItem25
								Set pvComObject of hoItem25 to voItem25
									Set ComItemHeight of hoItem25 to 88
									Set ComAllowEdit of hoItem25 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
									Set ComEditValue of hoItem25 to 75
								Send Destroy to hoItem25
							Send Destroy to hoItems19
						Send Destroy to hoItem22
					Send Destroy to hoItems18
				Variant voItem26
				Get ComAdd "" 0 0 to voItem26
				Handle hoItem26
				Get Create (RefClass(cComItem)) to hoItem26
				Set pvComObject of hoItem26 to voItem26
					Set ComPadding of hoItem26 to "8,0,0,0"
				Send Destroy to hoItem26
	Set ComPopupFlatAppearance to False
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn" to Nothing
		Get ComAdd of hoAppearance 2 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn" to Nothing
		Get ComAdd of hoAppearance 12 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn" to Nothing
		Get ComAdd of hoAppearance 14 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn" to Nothing
		Get ComAdd of hoAppearance 17 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn" to Nothing
		Get ComAdd of hoAppearance 18 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn" to Nothing
		Get ComAdd of hoAppearance 32 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn" to Nothing
		Get ComAdd of hoAppearance 33 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn" to Nothing
		Get ComAdd of hoAppearance 34 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn" to Nothing
		Get ComAdd of hoAppearance 35 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComAppearance to |CI$1000000
	Set ComBackground OLEexToolTipAppearance to (ComAppearance(Self))
	Set ComSelBackColor to |CI$e000000
	Set ComBackground OLEexMenuHotBackColor to |CI$c000000
	Set ComBackground OLEexMenuSelHotBackColor to |CI$23000000
	Set ComBackground |CI$2 to |CI$22000000
	Set ComBackground |CI$3 to |CI$23000000
	Set ComBackground OLEexCheckBoxState0 to |CI$20000000
	Set ComBackground OLEexCheckBoxState1 to |CI$21000000
	Send ComRefresh
End_Procedure
209
How can I display a tab into the toolbar (method 2, minimized)

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexMenuSelBorderColor to (RGB(240,240,240))
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[id=0][group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03](),[id=-99][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-100]))"
		Variant voItem
		Get ComItem of hoItems -99 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComVisible of hoItem to False
		Send Destroy to hoItem
		Variant voItem1
		Get ComItem of hoItems -10 to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Variant voItems1
			Get ComItems of hoItem1 to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem2
				Get ComAdd of hoItems1 "" 0 0 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComPadding of hoItem2 to "8,0,0,0"
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "New Page" Nothing Nothing to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComToString of hoItem3 to "[typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][group=0x03][tab=-100][pad=2,0,2,0][popupalign=0x01]([id=0][group=0x03]([]))"
					Set ComCaption of hoItem3 to "Page<off -5><font ;5><b>1</b></font></off>"
					Variant voItems2
					Get ComItems of hoItem3 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem4
						Get ComItem of hoItems2 0 to voItem4
						Handle hoItem4
						Get Create (RefClass(cComItem)) to hoItem4
						Set pvComObject of hoItem4 to voItem4
							Variant voItems3
							Get ComItems of hoItem4 to voItems3
							Handle hoItems3
							Get Create (RefClass(cComItems)) to hoItems3
							Set pvComObject of hoItems3 to voItems3
								Variant voItem5
								Get ComAdd of hoItems3 "add here fields for page 1" Nothing Nothing to voItem5
								Handle hoItem5
								Get Create (RefClass(cComItem)) to hoItem5
								Set pvComObject of hoItem5 to voItem5
									Set ComID of hoItem5 to -1000
									Set ComEnabled of hoItem5 to False
									Set ComBackColor of hoItem5 to (RGB(255,0,0))
								Send Destroy to hoItem5
							Send Destroy to hoItems3
						Send Destroy to hoItem4
					Send Destroy to hoItems2
				Send Destroy to hoItem3
				Variant voItem6
				Get ComAdd of hoItems1 "New Page" Nothing Nothing to voItem6
				Handle hoItem6
				Get Create (RefClass(cComItem)) to hoItem6
				Set pvComObject of hoItem6 to voItem6
					Set ComToString of hoItem6 to "[typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][group=0x03][tab=-100][pad=2,0,2,0][popupalign=0x01]([id=0][group=0x03]([]))"
					Set ComCaption of hoItem6 to "Page<off -5><font ;5><b>2</b></font></off>"
					Variant voItems4
					Get ComItems of hoItem6 to voItems4
					Handle hoItems4
					Get Create (RefClass(cComItems)) to hoItems4
					Set pvComObject of hoItems4 to voItems4
						Variant voItem7
						Get ComItem of hoItems4 0 to voItem7
						Handle hoItem7
						Get Create (RefClass(cComItem)) to hoItem7
						Set pvComObject of hoItem7 to voItem7
							Variant voItems5
							Get ComItems of hoItem7 to voItems5
							Handle hoItems5
							Get Create (RefClass(cComItems)) to hoItems5
							Set pvComObject of hoItems5 to voItems5
								Variant voItem8
								Get ComAdd of hoItems5 "add here fields for page 2" Nothing Nothing to voItem8
								Handle hoItem8
								Get Create (RefClass(cComItem)) to hoItem8
								Set pvComObject of hoItem8 to voItem8
									Set ComID of hoItem8 to -1001
									Set ComEnabled of hoItem8 to False
									Set ComBackColor of hoItem8 to (RGB(0,255,0))
								Send Destroy to hoItem8
							Send Destroy to hoItems5
						Send Destroy to hoItem7
					Send Destroy to hoItems4
				Send Destroy to hoItem6
				Variant voItem9
				Get ComAdd of hoItems1 "" 0 0 to voItem9
				Handle hoItem9
				Get Create (RefClass(cComItem)) to hoItem9
				Set pvComObject of hoItem9 to voItem9
					Set ComPadding of hoItem9 to "8,0,0,0"
				Send Destroy to hoItem9
			Send Destroy to hoItems1
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
208
How can I display a tab into the toolbar (method 1, minimized)

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexMenuSelBorderColor to (RGB(240,240,240))
	Set ComToString to "[group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03]([id=50][pad=8,0,0,0],Page<off -5><font ;5><b>1</b></font></off>[id=60][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][group=0x03][tab=-100][pad=2,0,2,0][popupalign=1]([group=0x03]([id=80],add here fields for page 1[id=-1000][dis])),Page<off -5><font ;5><b>2</b></font></off>[id=100][typ=2][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][group=0x03][tab=-100][pad=2,0,2,0][popupalign=1]([group=0x03]([id=120],add here fields for page 2[id=-1001][dis])),[id=140][pad=8,0,0,0]),[id=-99][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-100]))"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComItem of hoItems -1000 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComBackColor of hoItem to (RGB(255,0,0))
		Send Destroy to hoItem
	Send Destroy to hoItems
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant voItem1
		Get ComItem of hoItems1 -1001 to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComBackColor of hoItem1 to (RGB(0,255,0))
		Send Destroy to hoItem1
	Send Destroy to hoItems1
	Variant voItem2
	Get ComItem -99 to voItem2
	Handle hoItem2
	Get Create (RefClass(cComItem)) to hoItem2
	Set pvComObject of hoItem2 to voItem2
		Set ComVisible of hoItem2 to False
	Send Destroy to hoItem2
End_Procedure
207
Is there a trick to arrange two or three items(buttons) on the Right side, with different widths

Procedure OnCreate
	Forward Send OnCreate
	Set ComArrangeItemsAs to OLEexArrangeItemsHorizontal
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "C1[chk],C2[chk],C3[chk]"
	Send Destroy to hoItems
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant voItem
		Get ComAdd of hoItems1 "C4" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComID of hoItem to 40
			Set ComCheck of hoItem to True
			Set ComChecked of hoItem to True
			Set ComItemHeight of hoItem to 24
			Set ComX of hoItem to "width - (iwidth + iwidthof(50) + iwidthof(60))"
		Send Destroy to hoItem
	Send Destroy to hoItems1
	Variant voItems2
	Get ComItems to voItems2
	Handle hoItems2
	Get Create (RefClass(cComItems)) to hoItems2
	Set pvComObject of hoItems2 to voItems2
		Variant voItem1
		Get ComAdd of hoItems2 "C5-Baka" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComID of hoItem1 to 50
			Set ComCheck of hoItem1 to True
			Set ComChecked of hoItem1 to True
			Set ComItemHeight of hoItem1 to 24
			Set ComX of hoItem1 to "width - (iwidth + iwidthof(60))"
		Send Destroy to hoItem1
	Send Destroy to hoItems2
	Variant voItems3
	Get ComItems to voItems3
	Handle hoItems3
	Get Create (RefClass(cComItems)) to hoItems3
	Set pvComObject of hoItems3 to voItems3
		Variant voItem2
		Get ComAdd of hoItems3 "Expand" 2 Nothing to voItem2
		Handle hoItem2
		Get Create (RefClass(cComItem)) to hoItem2
		Set pvComObject of hoItem2 to voItem2
			Set ComID of hoItem2 to 60
			Set ComItemHeight of hoItem2 to 24
			Set ComX of hoItem2 to "width - (iwidth)"
			Set ComGroupPopup of hoItem2 to OLEexGroupPopup
			Set ComCheck of hoItem2 to True
			Set ComShowPopupOnChecked of hoItem2 to True
			Variant voItems4
			Get ComItems of hoItem2 to voItems4
			Handle hoItems4
			Get Create (RefClass(cComItems)) to hoItems4
			Set pvComObject of hoItems4 to voItems4
				Get ComAdd of hoItems4 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems4 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems4 "Item 3" Nothing Nothing to Nothing
				Set ComPopupAppearance of hoItems4 to OLEShadowBorder
			Send Destroy to hoItems4
		Send Destroy to hoItem2
	Send Destroy to hoItems3
	Send ComRefresh
End_Procedure
206
Is there a trick to arrange two or three items(buttons) on the Right side

Procedure OnCreate
	Forward Send OnCreate
	Set ComArrangeItemsAs to OLEexArrangeItemsHorizontal
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "C1[chk],C2[chk],C3[chk]"
	Send Destroy to hoItems
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant voItem
		Get ComAdd of hoItems1 "C4" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComCheck of hoItem to True
			Set ComChecked of hoItem to True
			Set ComX of hoItem to "width - 3*42*dpi"
		Send Destroy to hoItem
	Send Destroy to hoItems1
	Variant voItems2
	Get ComItems to voItems2
	Handle hoItems2
	Get Create (RefClass(cComItems)) to hoItems2
	Set pvComObject of hoItems2 to voItems2
		Variant voItem1
		Get ComAdd of hoItems2 "C5" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComCheck of hoItem1 to True
			Set ComChecked of hoItem1 to True
			Set ComX of hoItem1 to "width - 2*42*dpi"
		Send Destroy to hoItem1
	Send Destroy to hoItems2
	Variant voItems3
	Get ComItems to voItems3
	Handle hoItems3
	Get Create (RefClass(cComItems)) to hoItems3
	Set pvComObject of hoItems3 to voItems3
		Variant voItem2
		Get ComAdd of hoItems3 "C6" Nothing Nothing to voItem2
		Handle hoItem2
		Get Create (RefClass(cComItem)) to hoItem2
		Set pvComObject of hoItem2 to voItem2
			Set ComCheck of hoItem2 to True
			Set ComChecked of hoItem2 to True
			Set ComX of hoItem2 to "width - 1*42*dpi"
		Send Destroy to hoItem2
	Send Destroy to hoItems3
End_Procedure
205
How can I add a list of fonts

// Occurs when the user selects the item.
Procedure OnComSelectItem Variant   llItm
	Forward Send OnComSelectItem llItm
	// Items(57707).Caption = Itm.Caption
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComLocalAppearance to OLESingleBorder
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Font" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComToString of hoItem to "<font Arial>Arial</font>[id=57707][align=1][button=0x0211][captionwidth=96][height=26][ttp=Font][pad=2,2,0,2][itemsbg=RGB(255,255,255)][visible=255](<font Arial>Arial</font>[id=53248][typ=1][close=0][chk=1],<font Arial Black>Arial Black</font>[id=53249][close=0],<font Comic Sans MS>Comic Sans MS</font>[id=53250][close=0],<font Courier New>Courier New</font>[id=53251][close=0],<font Georgia>Georgia</font>[id=53252][close=0],<font Impact>Impact</font>[id=53253][close=0],<font Lucida Console>Lucida Console</font>[id=53254][close=0],<font Lucida Sans Unicode>Lucida Sans Unicode</font>[id=53255][close=0],<font Tahoma>Tahoma</font>[id=53256][close=0],<font Times New Roman>Times New Roman</font>[id=53257][close=0],<font Trebuchet MS>Trebuchet MS</font>[id=53258][close=0],<font Verdana>Verdana</font>[id=53259][close=0],<font MS Sans Serif>MS Sans Serif</font>[id=53260][close=0],<font MS Serif>MS Serif</font>[id=53261][close=0])"
		Send Destroy to hoItem
	Send Destroy to hoItems
End_Procedure
204
How can I show a pattern over all items

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to OLEexGroupPopup
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
				Set ComBackgroundExt of hoItems1 to "root[pattern=0x006]"
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
203
How can I show a pattern over the item

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to OLEexGroupPopup
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComBackgroundExt of hoItem1 to "root[pattern=0x006]"
				Send Destroy to hoItem1
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
202
How can I add a color table

// Occurs when the user selects the item.
Procedure OnComSelectItem Variant   llItm
	Forward Send OnComSelectItem llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComLocalAppearance to OLESingleBorder
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Color" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComToString of hoItem to ("Color[id=57685][button=0x0211][ttp=Color][itemsbg=RGB(255,255,255)][visible=255](<fgcolor 808080>color[id=350][align=1][group=0x0133][itemspad=2,2,2,2]([id=360][group=0x33]([id=49152][typ=2][close=0][chk=1][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(0,0,0)][data=RGB(0,0,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(0,0,0)]],[id=49153][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(68,68,68)][data=RGB(68,68,68)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(68,68,68)]],[id=49154][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(102,102,102)][data=RGB(102,102,102)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(102,102,102)]],[id=49155][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(153,153,153)][data=RGB(153,153,153)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(153,153,153)]],[id=49156][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(204,204,204)][data=RGB(204,204,204)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(204,204,204)]],[id=49157][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(238,238,238)][data=RGB(238,238,238)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(238,238,238)]],[id=49158][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(243,243,243)][data=RGB(243,243,243)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(243,243,243)]],[id=49159][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,255,255)][data=RGB(255,255,255)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,255,255)]]),[id=450][group=0x33]([id=49160][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,0,0)][data=RGB(255,0,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,0,0)]],[id=49161][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,153,0)][data=RGB(255,153,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,153,0)]],[id=49162][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,255,0)][data=RGB(255,255" + ;
",0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,255,0)]],[id=49163][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(0,255,0)][data=RGB(0,255,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(0,255,0)]],[id=49164][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(0,255,255)][data=RGB(0,255,255)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(0,255,255)]],[id=49165][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(0,0,255)][data=RGB(0,0,255)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(0,0,255)]],[id=49166][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(153,0,255)][data=RGB(153,0,255)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(153,0,255)]],[id=49167][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,0,255)][data=RGB(255,0,255)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,0,255)]]),[id=540][group=0x33]([id=49168][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(244,204,204)][data=RGB(244,204,204)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(244,204,204)]],[id=49169][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(252,229,205)][data=RGB(252,229,205)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(252,229,205)]],[id=49170][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,242,204)][data=RGB(255,242,204)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,242,204)]],[id=49171][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(217,234,211)][data=RGB(217,234,211)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(217,234,211)]],[id=49172][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(208,224,227)][data=RGB(208,224,227)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(208,224,227)]],[id=49173][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(207,226,243)][data=RGB(207,226,243)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(207,226,243)]],[id=49174][typ=2][close=0][show=1][grp=49152][ca" + ;
"ptionwidth=24][height=24][ttp=RGB(217,210,233)][data=RGB(217,210,233)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(217,210,233)]],[id=49175][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(234,209,220)][data=RGB(234,209,220)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(234,209,220)]]),[id=630][group=0x33]([id=49176][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(234,153,153)][data=RGB(234,153,153)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(234,153,153)]],[id=49177][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(249,203,156)][data=RGB(249,203,156)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(249,203,156)]],[id=49178][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,229,153)][data=RGB(255,229,153)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,229,153)]],[id=49179][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(182,215,168)][data=RGB(182,215,168)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(182,215,168)]],[id=49180][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(162,196,201)][data=RGB(162,196,201)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(162,196,201)]],[id=49181][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(159,197,232)][data=RGB(159,197,232)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(159,197,232)]],[id=49182][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(180,167,214)][data=RGB(180,167,214)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(180,167,214)]],[id=49183][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(213,166,189)][data=RGB(213,166,189)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(213,166,189)]]),[id=720][group=0x33]([id=49184][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(224,102,102)][data=RGB(224,102,102)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(224,102,102)]],[id=49185][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(246,178,107)" + ;
"][data=RGB(246,178,107)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(246,178,107)]],[id=49186][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,217,102)][data=RGB(255,217,102)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,217,102)]],[id=49187][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(147,196,125)][data=RGB(147,196,125)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(147,196,125)]],[id=49188][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(118,165,175)][data=RGB(118,165,175)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(118,165,175)]],[id=49189][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(111,168,220)][data=RGB(111,168,220)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(111,168,220)]],[id=49190][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(142,124,195)][data=RGB(142,124,195)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(142,124,195)]],[id=49191][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(194,123,160)][data=RGB(194,123,160)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(194,123,160)]]),[id=810][group=0x33]([id=49192][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(204,0,0)][data=RGB(204,0,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(204,0,0)]],[id=49193][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(230,145,56)][data=RGB(230,145,56)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(230,145,56)]],[id=49194][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(241,194,50)][data=RGB(241,194,50)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(241,194,50)]],[id=49195][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(106,168,79)][data=RGB(106,168,79)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(106,168,79)]],[id=49196][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(69,129,142)][data=RGB(69,129,142)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(69,129,142)]],[id=4919" + ;
"7][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(61,133,198)][data=RGB(61,133,198)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(61,133,198)]],[id=49198][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(103,78,167)][data=RGB(103,78,167)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(103,78,167)]],[id=49199][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(166,77,121)][data=RGB(166,77,121)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(166,77,121)]]),[id=900][group=0x33]([id=49200][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(153,0,0)][data=RGB(153,0,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(153,0,0)]],[id=49201][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(180,95,6)][data=RGB(180,95,6)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(180,95,6)]],[id=49202][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(191,144,0)][data=RGB(191,144,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(191,144,0)]],[id=49203][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(56,118,29)][data=RGB(56,118,29)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(56,118,29)]],[id=49204][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(19,79,92)][data=RGB(19,79,92)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(19,79,92)]],[id=49205][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(11,83,148)][data=RGB(11,83,148)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(11,83,148)]],[id=49206][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(53,28,117)][data=RGB(53,28,117)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(53,28,117)]],[id=49207][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(116,27,71)][data=RGB(116,27,71)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(116,27,71)]]),[id=990][group=0x33]([id=49208][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(102,0,0)][data=RGB(102,0,0)][bgext=none[(" + ;
"2D,2D,100%-4D,100%-4D),back=RGB(102,0,0)]],[id=49209][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(120,63,4)][data=RGB(120,63,4)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(120,63,4)]],[id=49210][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(127,96,0)][data=RGB(127,96,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(127,96,0)]],[id=49211][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(39,78,19)][data=RGB(39,78,19)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(39,78,19)]],[id=49212][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(12,52,61)][data=RGB(12,52,61)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(12,52,61)]],[id=49213][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(7,55,99)][data=RGB(7,55,99)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(7,55,99)]],[id=49214][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(32,18,77)][data=RGB(32,18,77)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(32,18,77)]],[id=49215][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(76,17,48)][data=RGB(76,17,48)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(76,17,48)]])))")
		Send Destroy to hoItem
	Send Destroy to hoItems
End_Procedure
201
Is it possible to re-arrange the items once the toolbar is resized

Procedure OnCreate
	Forward Send OnCreate
	Set ComArrangeItemsAs to (OLEexArrangeItemsScroll + OLEexArrangeItemsWrap + OLEexArrangeItemsHorizontal)
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7,8,9"
	Send Destroy to hoItems
End_Procedure
200
I've noticed that the toolbar is cut when perform scrolling. Is it possible to change that shape

Procedure OnCreate
	Forward Send OnCreate
	Set ComArrangeItemsAs to (OLEexArrangeItemsScroll + OLEexArrangeItemsHorizontal)
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhIDhAxGAyg0HG0Og40HIyiwAGY1GMJiYAf8jAEhhUnAAyhEqg8hk0oAsIjYxHAwmYwHEbGY2GEhGkMlFBlAOhAJhEuoUHjcbGQ1EtMp0hGsbGowEsvpNBlkpo9ZoNQp8rqMIqdkqwCr1ZrdbrFpsFvs1hg9VuVCjdBA0IoElhFog6zbDykUkhsPms3nMInc9hA0mNpoVrruQpdiutNq9kqlWtuQg+Sluewufp1gqWbEt+0UK0F81YAuGkut01F3lF7vF6yYA1Ujf4ATjNd8KmeHh84n1MGI1zt9rN7vOhg+9knB4ejAE0m3HHHJlfL1VB5sH6G76m/63Ey2xAG0uMbkIbUDh3me1vjoV7vYIhBQNIxjoOo5DKGKQj8hAhCbA6ThshAUN0g7or4DCFCQ14AHATIAHkbBZt83xxFCDcMw3DsQRFEINm8SQAHydpuxTEh4GkUzfHATYARnGsPn+d5mk5HkPv4g7/QBAQyhk1UFgBBMloTBqDwe8iEQkg0KITCzXyDDhZxI30uRJFMXG7FYARTFLfR1MMRSDNUcSC30fE5IYASLAMBhmjZDQQJs9wZB0qQhCaFChC81g3M8RRuAE5IPMENRjDUdN8g8vw7MtJx5SseTHODCTpO0jp+hE/SZPqUSgAEpABCS9ytQkLyDTtPU2f8uUxGkg0dDtDxlXLCUPRMRxxRoAHW2wAICA==" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexScrollViewBorder to |CI$1000000
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComBackColor of hoItems to (RGB(128,128,128))
		Variant voItem
		Get ComAdd of hoItems "Expand" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Set ComCheck of hoItem to True
			Set ComShowPopupOnChecked of hoItem to True
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComPadding of hoItems1 to "22,0,0,0"
				Variant voItem1
				Get ComAdd of hoItems1 "Radio 1" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComRadio of hoItem1 to True
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Radio 2" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComRadio of hoItem2 to True
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Radio 3" Nothing Nothing to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComRadio of hoItem3 to True
					Set ComChecked of hoItem3 to True
				Send Destroy to hoItem3
			Send Destroy to hoItems1
			Set ComChecked of hoItem to True
		Send Destroy to hoItem
		Variant voItem4
		Get ComAdd of hoItems "" Nothing Nothing to voItem4
		Handle hoItem4
		Get Create (RefClass(cComItem)) to hoItem4
		Set pvComObject of hoItem4 to voItem4
			Set ComToString of hoItem4 to "Expand[typ=1][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Radio 1[id=20][typ=2],Radio 2[id=30][typ=2],Radio 3[id=40][typ=2][chk=1])"
		Send Destroy to hoItem4
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
199
I've noticed that the toolbar is cut when perform scrolling. Is it possible to prevent that

Procedure OnCreate
	Forward Send OnCreate
	Set ComArrangeItemsAs to (OLEexArrangeItemsScroll + OLEexArrangeItemsHorizontal)
	Set ComBackground OLEexScrollViewBorder to -1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComBackColor of hoItems to (RGB(240,240,240))
		Variant voItem
		Get ComAdd of hoItems "Expand" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Set ComCheck of hoItem to True
			Set ComShowPopupOnChecked of hoItem to True
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComPadding of hoItems1 to "22,0,0,0"
				Variant voItem1
				Get ComAdd of hoItems1 "Radio 1" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComRadio of hoItem1 to True
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Radio 2" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComRadio of hoItem2 to True
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Radio 3" Nothing Nothing to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComRadio of hoItem3 to True
					Set ComChecked of hoItem3 to True
				Send Destroy to hoItem3
			Send Destroy to hoItems1
			Set ComChecked of hoItem to True
		Send Destroy to hoItem
		Variant voItem4
		Get ComAdd of hoItems "" Nothing Nothing to voItem4
		Handle hoItem4
		Get Create (RefClass(cComItem)) to hoItem4
		Set pvComObject of hoItem4 to voItem4
			Set ComToString of hoItem4 to "Expand[typ=1][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Radio 1[id=20][typ=2],Radio 2[id=30][typ=2],Radio 3[id=40][typ=2][chk=1])"
		Send Destroy to hoItem4
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
198
How can I scroll the items within the toolbar

Procedure OnCreate
	Forward Send OnCreate
	Set ComArrangeItemsAs to (OLEexArrangeItemsScroll + OLEexArrangeItemsHorizontal)
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComBackColor of hoItems to (RGB(240,240,240))
		Variant voItem
		Get ComAdd of hoItems "Expand" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Set ComCheck of hoItem to True
			Set ComShowPopupOnChecked of hoItem to True
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComPadding of hoItems1 to "22,0,0,0"
				Variant voItem1
				Get ComAdd of hoItems1 "Radio 1" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComRadio of hoItem1 to True
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Radio 2" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComRadio of hoItem2 to True
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Radio 3" Nothing Nothing to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComRadio of hoItem3 to True
					Set ComChecked of hoItem3 to True
				Send Destroy to hoItem3
			Send Destroy to hoItems1
			Set ComChecked of hoItem to True
		Send Destroy to hoItem
		Variant voItem4
		Get ComAdd of hoItems "" Nothing Nothing to voItem4
		Handle hoItem4
		Get Create (RefClass(cComItem)) to hoItem4
		Set pvComObject of hoItem4 to voItem4
			Set ComToString of hoItem4 to "Expand[typ=1][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Radio 1[id=20][typ=2],Radio 2[id=30][typ=2],Radio 3[id=40][typ=2][chk=1])"
		Send Destroy to hoItem4
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
197
How can I show an item aligned to the bottom size of the toolbar

Procedure OnCreate
	Forward Send OnCreate
	Set ComArrangeItemsAs to OLEexArrangeItemsHorizontal
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "C1[chk],C2[chk]"
	Send Destroy to hoItems
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant voItem
		Get ComAdd of hoItems1 "R" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComCheck of hoItem to True
			Set ComChecked of hoItem to True
			Set ComY of hoItem to "height - iheight"
		Send Destroy to hoItem
	Send Destroy to hoItems1
End_Procedure
196
How can I show an item aligned to the right of the toolbar

Procedure OnCreate
	Forward Send OnCreate
	Set ComArrangeItemsAs to OLEexArrangeItemsHorizontal
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "C1[chk],C2[chk]"
	Send Destroy to hoItems
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant voItem
		Get ComAdd of hoItems1 "R" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComCheck of hoItem to True
			Set ComChecked of hoItem to True
			Set ComX of hoItem to "width - iwidth"
		Send Destroy to hoItem
	Send Destroy to hoItems1
End_Procedure
195
How can I arrange horizontally the items on the toolbar

Procedure OnCreate
	Forward Send OnCreate
	Set ComArrangeItemsAs to OLEexArrangeItemsHorizontal
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Expand" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Set ComCheck of hoItem to True
			Set ComShowPopupOnChecked of hoItem to True
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComPadding of hoItems1 to "22,0,0,0"
				Variant voItem1
				Get ComAdd of hoItems1 "Radio 1" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComRadio of hoItem1 to True
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Radio 2" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComRadio of hoItem2 to True
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Radio 3" Nothing Nothing to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComRadio of hoItem3 to True
					Set ComChecked of hoItem3 to True
				Send Destroy to hoItem3
			Send Destroy to hoItems1
			Set ComChecked of hoItem to True
		Send Destroy to hoItem
		Variant voItem4
		Get ComAdd of hoItems "" Nothing Nothing to voItem4
		Handle hoItem4
		Get Create (RefClass(cComItem)) to hoItem4
		Set pvComObject of hoItem4 to voItem4
			Set ComToString of hoItem4 to "Expand[typ=1][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Radio 1[id=20][typ=2],Radio 2[id=30][typ=2],Radio 3[id=40][typ=2][chk=1])"
		Send Destroy to hoItem4
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
194
How can I display the drop down panel to a specified location only
Procedure OnCreate
	Forward Send OnCreate
	Set ComPopupAppearance to OLEShadowBorder
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Popup" 2 100 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComShowPopupArrow of hoItem to False
			Set ComShowPopupAlign of hoItem to OLEexShowPopupAlignDown
			Set ComShowPopupOffset of hoItem to "0:screen,0:screen"
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
193
How can I displays the drop down bellow the control, rather than item itself

Procedure OnCreate
	Forward Send OnCreate
	Set ComPopupAppearance to OLEShadowBorder
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Popup <b>1" 2 100 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComShowPopupArrow of hoItem to False
			Set ComShowPopupAlign of hoItem to OLEexShowPopupAlignDown
			Set ComShowPopupOffset of hoItem to "0,0:control"
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Popup <b>2" 2 200 to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComGroupPopup of hoItem1 to OLEexGroupPopup
			Variant voItems2
			Get ComItems of hoItem1 to voItems2
			Handle hoItems2
			Get Create (RefClass(cComItems)) to hoItems2
			Set pvComObject of hoItems2 to voItems2
				Get ComAdd of hoItems2 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems2 "Item 3" Nothing Nothing to Nothing
				Get ComAdd of hoItems2 "Item 4" Nothing Nothing to Nothing
			Send Destroy to hoItems2
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
192
How can I change the visual appearance of the progress bar

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground |CI$104 to |CI$1000000
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Progress" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComAllowEdit of hoItem to OLEexItemEditProgress
			Set ComEditWidth of hoItem to -128
			Set ComEditValue of hoItem to 25
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
191
How can I change the progress's color

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground |CI$104 to (RGB(255,0,0))
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Progress" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComAllowEdit of hoItem to OLEexItemEditProgress
			Set ComEditWidth of hoItem to -128
			Set ComEditValue of hoItem to 25
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
190
I am using the Item.Visible property on False to hide the item, but the editor is still visible
// Occurs when the user checks the item.
Procedure OnComCheckItem Variant   llItm
	Forward Send OnComCheckItem llItm
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComItem of hoItems 1000 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComVisible of hoItem to True
			Set ComAllowEdit of hoItem to (OLEexItemEditReadOnly + OLEexItemEditProgress)
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure

// Occurs when the user unchecks the item.
Procedure OnComUncheckItem Variant   llItm
	Forward Send OnComUncheckItem llItm
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant voItem1
		Get ComItem of hoItems1 1000 to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComVisible of hoItem1 to False
			Set ComAllowEdit of hoItem1 to OLEexItemDisableEdit
		Send Destroy to hoItem1
	Send Destroy to hoItems1
	Send ComRefresh
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems2
	Get ComItems to voItems2
	Handle hoItems2
	Get Create (RefClass(cComItems)) to hoItems2
	Set pvComObject of hoItems2 to voItems2
		Variant voItem2
		Get ComAdd of hoItems2 "" 2 Nothing to voItem2
		Handle hoItem2
		Get Create (RefClass(cComItem)) to hoItem2
		Set pvComObject of hoItem2 to voItem2
			Variant voItems3
			Get ComItems of hoItem2 to voItems3
			Handle hoItems3
			Get Create (RefClass(cComItems)) to hoItems3
			Set pvComObject of hoItems3 to voItems3
				Get ComAdd of hoItems3 "Visible" Nothing Nothing to Nothing
				Variant voItem3
				Get ComAdd of hoItems3 "" Nothing Nothing to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComCheck of hoItem3 to True
					Set ComChecked of hoItem3 to True
				Send Destroy to hoItem3
				Variant voItem4
				Get ComAdd of hoItems3 "Item 2" 1000 to voItem4
				Handle hoItem4
				Get Create (RefClass(cComItem)) to hoItem4
				Set pvComObject of hoItem4 to voItem4
					Set ComItemHeight of hoItem4 to 18
					Set ComCaption of hoItem4 to "Percent"
					Set ComAllowEdit of hoItem4 to (OLEexItemEditReadOnly + OLEexItemEditProgress)
					Set ComEditValue of hoItem4 to 50
					Set ComVisible of hoItem4 to True
				Send Destroy to hoItem4
				Get ComAdd of hoItems3 "Visible" Nothing Nothing to Nothing
			Send Destroy to hoItems3
			Set ComGroupPopup of hoItem2 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
		Send Destroy to hoItem2
	Send Destroy to hoItems2
	Send ComRefresh
End_Procedure
189
How can I change the color of a disabled item

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Disabled" 2 0 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComForeColor of hoItem to (RGB(255,0,0))
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "" Nothing Nothing to Nothing
			Send Destroy to hoItems1
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Set ComShowPopupArrow of hoItem to False
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Disabled" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComEnabled of hoItem1 to False
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
188
Microsoft Windows 8.1 - Ribbon Like

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		Variant voItem
		Get ComItem of hoItems 0 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "" 0 0 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComPadding of hoItem1 to "8,0,0,0"
				Send Destroy to hoItem1
				Variant var_Item3
				Get ComAdd of hoItems1 "New Page" Nothing Nothing to var_Item3
					Set ComToString of hoItems1 to "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
					Set ComID of hoItems1 to 200
					Set ComCaption of hoItems1 to "Page1"
					Set ComShowPopupAlign of hoItems1 to OLEexShowPopupAlignDown
					Variant voItems2
					Get ComItems of hoItems1 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem2
						Get ComItem of hoItems2 0 to voItem2
						Handle hoItem2
						Get Create (RefClass(cComItem)) to hoItem2
						Set pvComObject of hoItem2 to voItem2
							Variant v
							Variant voItems3
							Get ComItems of hoItem2 to voItems3
							Handle hoItems3
							Get Create (RefClass(cComItems)) to hoItems3
							Set pvComObject of hoItems3 to voItems3
								Get ComAdd of hoItems3 "New Group" Nothing Nothing to v
							Send Destroy to hoItems3
							Move v to var_Item
								Set ComToString of hoItem2 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
								Set ComCaption of hoItem2 to "<b><font ;14>A"
								Variant voItems4
								Get ComItems of hoItem2 to voItems4
								Handle hoItems4
								Get Create (RefClass(cComItems)) to hoItems4
								Set pvComObject of hoItems4 to voItems4
									Set ComBackgroundExt of hoItems4 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
									Variant voItem3
									Get ComAdd of hoItems4 "" 2 Nothing to voItem3
									Handle hoItem3
									Get Create (RefClass(cComItem)) to hoItem3
									Set pvComObject of hoItem3 to voItem3
										Set ComGroupPopup of hoItem3 to (OLEexGroupPopupEqualWidth + OLEexGroupPopup)
										Set ComCaption of hoItem3 to ""
										Variant voItems5
										Get ComItems of hoItem3 to voItems5
										Handle hoItems5
										Get Create (RefClass(cComItems)) to hoItems5
										Set pvComObject of hoItems5 to voItems5
											Variant voItem4
											Get ComAdd of hoItems5 "R1" Nothing Nothing to voItem4
											Handle hoItem4
											Get Create (RefClass(cComItem)) to hoItem4
											Set pvComObject of hoItem4 to voItem4
												Set ComRadioGroup of hoItem4 to 100
												Set ComRadio of hoItem4 to True
												Set ComShowCheckedAsSelected of hoItem4 to OLEexDisplayItemHighlight
												Set ComChecked of hoItem4 to False
											Send Destroy to hoItem4
											Variant voItem5
											Get ComAdd of hoItems5 "R2" Nothing Nothing to voItem5
											Handle hoItem5
											Get Create (RefClass(cComItem)) to hoItem5
											Set pvComObject of hoItem5 to voItem5
												Set ComRadioGroup of hoItem5 to 100
												Set ComRadio of hoItem5 to True
												Set ComShowCheckedAsSelected of hoItem5 to OLEexDisplayItemHighlight
												Set ComChecked of hoItem5 to True
											Send Destroy to hoItem5
											Variant voItem6
											Get ComAdd of hoItems5 "R3" Nothing Nothing to voItem6
											Handle hoItem6
											Get Create (RefClass(cComItem)) to hoItem6
											Set pvComObject of hoItem6 to voItem6
												Set ComRadioGroup of hoItem6 to 100
												Set ComRadio of hoItem6 to True
												Set ComShowCheckedAsSelected of hoItem6 to OLEexDisplayItemHighlight
												Set ComChecked of hoItem6 to False
											Send Destroy to hoItem6
										Send Destroy to hoItems5
									Send Destroy to hoItem3
								Send Destroy to hoItems4
							Send Destroy to hoItem2
							Variant v1
							Variant voItems6
							Get ComItems of hoItems2 to voItems6
							Handle hoItems6
							Get Create (RefClass(cComItems)) to hoItems6
							Set pvComObject of hoItems6 to voItems6
								Get ComAdd of hoItems6 "New Group" Nothing Nothing to v1
							Send Destroy to hoItems6
							Move v1 to var_Item1
								Set ComToString of hoItems2 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
								Set ComCaption of hoItems2 to "<b><font ;14>B"
								Variant voItems7
								Get ComItems of hoItems2 to voItems7
								Handle hoItems7
								Get Create (RefClass(cComItems)) to hoItems7
								Set pvComObject of hoItems7 to voItems7
									Set ComBackgroundExt of hoItems7 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
									Variant voItem7
									Get ComAdd of hoItems7 "" 2 Nothing to voItem7
									Handle hoItem7
									Get Create (RefClass(cComItem)) to hoItem7
									Set pvComObject of hoItem7 to voItem7
										Set ComGroupPopup of hoItem7 to (OLEexGroupPopupVertical + OLEexGroupPopupEqualHeight + OLEexGroupPopup)
										Set ComCaption of hoItem7 to ""
										Variant voItems8
										Get ComItems of hoItem7 to voItems8
										Handle hoItems8
										Get Create (RefClass(cComItems)) to hoItems8
										Set pvComObject of hoItems8 to voItems8
											Variant voItem8
											Get ComAdd of hoItems8 "C1" Nothing Nothing to voItem8
											Handle hoItem8
											Get Create (RefClass(cComItem)) to hoItem8
											Set pvComObject of hoItem8 to voItem8
												Set ComCheck of hoItem8 to True
												Set ComChecked of hoItem8 to True
											Send Destroy to hoItem8
											Variant voItem9
											Get ComAdd of hoItems8 "C2" Nothing Nothing to voItem9
											Handle hoItem9
											Get Create (RefClass(cComItem)) to hoItem9
											Set pvComObject of hoItem9 to voItem9
												Set ComCheck of hoItem9 to True
												Set ComChecked of hoItem9 to False
											Send Destroy to hoItem9
											Variant voItem10
											Get ComAdd of hoItems8 "C3" Nothing Nothing to voItem10
											Handle hoItem10
											Get Create (RefClass(cComItem)) to hoItem10
											Set pvComObject of hoItem10 to voItem10
												Set ComCheck of hoItem10 to True
												Set ComChecked of hoItem10 to True
											Send Destroy to hoItem10
										Send Destroy to hoItems8
									Send Destroy to hoItem7
								Send Destroy to hoItems7
							Send Destroy to hoItems2
							Variant voItems9
							Get ComItems of hoItems1 to voItems9
							Handle hoItems9
							Get Create (RefClass(cComItems)) to hoItems9
							Set pvComObject of hoItems9 to voItems9
								Variant voItem11
								Get ComAdd of hoItems9 "" 0 0 to voItem11
								Handle hoItem11
								Get Create (RefClass(cComItem)) to hoItem11
								Set pvComObject of hoItem11 to voItem11
									Set ComPadding of hoItem11 to "4,0,0,0"
								Send Destroy to hoItem11
							Send Destroy to hoItems9
							Variant v2
							Variant voItems10
							Get ComItems of hoItems1 to voItems10
							Handle hoItems10
							Get Create (RefClass(cComItems)) to hoItems10
							Set pvComObject of hoItems10 to voItems10
								Get ComAdd of hoItems10 "New Group" Nothing Nothing to v2
							Send Destroy to hoItems10
							Move v2 to var_Item2
								Set ComToString of hoItems1 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
								Set ComCaption of hoItems1 to ""
								Variant voItems11
								Get ComItems of hoItems1 to voItems11
								Handle hoItems11
								Get Create (RefClass(cComItems)) to hoItems11
								Set pvComObject of hoItems11 to voItems11
									Set ComBackgroundExt of hoItems11 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
									Variant voItem12
									Get ComAdd of hoItems11 "" 0 Nothing to voItem12
									Handle hoItem12
									Get Create (RefClass(cComItem)) to hoItem12
									Set pvComObject of hoItem12 to voItem12
										Set ComAllowEdit of hoItem12 to (OLEexItemEditVertical + OLEexItemEditSlider)
										Set ComItemHeight of hoItem12 to 76
										Set ComEditBorder of hoItem12 to OLEexEditBorderNone
										Set ComEditValue of hoItem12 to 25
									Send Destroy to hoItem12
									Variant voItem13
									Get ComAdd of hoItems11 "" 2 Nothing to voItem13
									Handle hoItem13
									Get Create (RefClass(cComItem)) to hoItem13
									Set pvComObject of hoItem13 to voItem13
										Set ComGroupPopup of hoItem13 to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
										Set ComCaption of hoItem13 to ""
										Variant voItems12
										Get ComItems of hoItem13 to voItems12
										Handle hoItems12
										Get Create (RefClass(cComItems)) to hoItems12
										Set pvComObject of hoItems12 to voItems12
											Variant voItem14
											Get ComAdd of hoItems12 "" 2 Nothing to voItem14
											Handle hoItem14
											Get Create (RefClass(cComItem)) to hoItem14
											Set pvComObject of hoItem14 to voItem14
												Set ComGroupPopup of hoItem14 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
												Variant voItems13
												Get ComItems of hoItem14 to voItems13
												Handle hoItems13
												Get Create (RefClass(cComItems)) to hoItems13
												Set pvComObject of hoItems13 to voItems13
													Variant voItem15
													Get ComAdd of hoItems13 "Button1" 2 Nothing to voItem15
													Handle hoItem15
													Get Create (RefClass(cComItem)) to hoItem15
													Set pvComObject of hoItem15 to voItem15
														Set ComShowAsButton of hoItem15 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
														Variant voItems14
														Get ComItems of hoItem15 to voItems14
														Handle hoItems14
														Get Create (RefClass(cComItems)) to hoItems14
														Set pvComObject of hoItems14 to voItems14
															Get ComAdd of hoItems14 "Item 1" Nothing Nothing to Nothing
															Get ComAdd of hoItems14 "Item 2" Nothing Nothing to Nothing
															Get ComAdd of hoItems14 "Item 3" Nothing Nothing to Nothing
														Send Destroy to hoItems14
													Send Destroy to hoItem15
													Variant voItem16
													Get ComAdd of hoItems13 "" 0 0 to voItem16
													Handle hoItem16
													Get Create (RefClass(cComItem)) to hoItem16
													Set pvComObject of hoItem16 to voItem16
														Set ComPadding of hoItem16 to "4,0,0,0"
													Send Destroy to hoItem16
													Variant voItem17
													Get ComAdd of hoItems13 "Button2" 2 Nothing to voItem17
													Handle hoItem17
													Get Create (RefClass(cComItem)) to hoItem17
													Set pvComObject of hoItem17 to voItem17
														Set ComShowAsButton of hoItem17 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
														Variant voItems15
														Get ComItems of hoItem17 to voItems15
														Handle hoItems15
														Get Create (RefClass(cComItems)) to hoItems15
														Set pvComObject of hoItems15 to voItems15
															Get ComAdd of hoItems15 "Item 4" Nothing Nothing to Nothing
															Get ComAdd of hoItems15 "Item 5" Nothing Nothing to Nothing
															Get ComAdd of hoItems15 "Item 6" Nothing Nothing to Nothing
														Send Destroy to hoItems15
													Send Destroy to hoItem17
												Send Destroy to hoItems13
											Send Destroy to hoItem14
											Variant voItem18
											Get ComAdd of hoItems12 "Popup" 2 Nothing to voItem18
											Handle hoItem18
											Get Create (RefClass(cComItem)) to hoItem18
											Set pvComObject of hoItem18 to voItem18
												Set ComAlignment of hoItem18 to OLEexCenter
												Variant voItems16
												Get ComItems of hoItem18 to voItems16
												Handle hoItems16
												Get Create (RefClass(cComItems)) to hoItems16
												Set pvComObject of hoItems16 to voItems16
													Variant voItem19
													Get ComAdd of hoItems16 "Item 7" Nothing Nothing to voItem19
													Handle hoItem19
													Get Create (RefClass(cComItem)) to hoItem19
													Set pvComObject of hoItem19 to voItem19
														Set ComCheck of hoItem19 to True
													Send Destroy to hoItem19
													Get ComAdd of hoItems16 "Item 8" Nothing Nothing to Nothing
													Variant voItem20
													Get ComAdd of hoItems16 "Item 9" 2 Nothing to voItem20
													Handle hoItem20
													Get Create (RefClass(cComItem)) to hoItem20
													Set pvComObject of hoItem20 to voItem20
														Variant voItems17
														Get ComItems of hoItem20 to voItems17
														Handle hoItems17
														Get Create (RefClass(cComItems)) to hoItems17
														Set pvComObject of hoItems17 to voItems17
															Get ComAdd of hoItems17 "Item 10" Nothing Nothing to Nothing
															Get ComAdd of hoItems17 "Item 11" Nothing Nothing to Nothing
															Get ComAdd of hoItems17 "Item 12" Nothing Nothing to Nothing
														Send Destroy to hoItems17
													Send Destroy to hoItem20
												Send Destroy to hoItems16
											Send Destroy to hoItem18
										Send Destroy to hoItems12
									Send Destroy to hoItem13
								Send Destroy to hoItems11
							Send Destroy to hoItems1
						Send Destroy to hoItem
					Send Destroy to hoItems
				Variant var_Item4
				Get ComAdd "New Page" Nothing Nothing to var_Item4
					Set ComToString to "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
					Set ComID to 300
					Set ComCaption to "Page2"
					Set ComShowPopupAlign to OLEexShowPopupAlignDown
					Variant voItems18
					Get ComItems to voItems18
					Handle hoItems18
					Get Create (RefClass(cComItems)) to hoItems18
					Set pvComObject of hoItems18 to voItems18
						Variant voItem21
						Get ComItem of hoItems18 0 to voItem21
						Handle hoItem21
						Get Create (RefClass(cComItem)) to hoItem21
						Set pvComObject of hoItem21 to voItem21
							Variant voItems19
							Get ComItems of hoItem21 to voItems19
							Handle hoItems19
							Get Create (RefClass(cComItems)) to hoItems19
							Set pvComObject of hoItems19 to voItems19
								Variant voItem22
								Get ComAdd of hoItems19 "S1" Nothing Nothing to voItem22
								Handle hoItem22
								Get Create (RefClass(cComItem)) to hoItem22
								Set pvComObject of hoItem22 to voItem22
									Set ComItemHeight of hoItem22 to 88
									Set ComAllowEdit of hoItem22 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
									Set ComEditValue of hoItem22 to 25
								Send Destroy to hoItem22
								Variant voItem23
								Get ComAdd of hoItems19 "S2" Nothing Nothing to voItem23
								Handle hoItem23
								Get Create (RefClass(cComItem)) to hoItem23
								Set pvComObject of hoItem23 to voItem23
									Set ComItemHeight of hoItem23 to 88
									Set ComAllowEdit of hoItem23 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
									Set ComEditValue of hoItem23 to 50
								Send Destroy to hoItem23
								Variant voItem24
								Get ComAdd of hoItems19 "S3" Nothing Nothing to voItem24
								Handle hoItem24
								Get Create (RefClass(cComItem)) to hoItem24
								Set pvComObject of hoItem24 to voItem24
									Set ComItemHeight of hoItem24 to 88
									Set ComAllowEdit of hoItem24 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
									Set ComEditValue of hoItem24 to 75
								Send Destroy to hoItem24
							Send Destroy to hoItems19
						Send Destroy to hoItem21
					Send Destroy to hoItems18
				Variant voItem25
				Get ComAdd "" 0 0 to voItem25
				Handle hoItem25
				Get Create (RefClass(cComItem)) to hoItem25
				Set pvComObject of hoItem25 to voItem25
					Set ComPadding of hoItem25 to "8,0,0,0"
				Send Destroy to hoItem25
	Set ComPopupFlatAppearance to False
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn" to Nothing
		Get ComAdd of hoAppearance 2 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn" to Nothing
		Get ComAdd of hoAppearance 12 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn" to Nothing
		Get ComAdd of hoAppearance 14 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn" to Nothing
		Get ComAdd of hoAppearance 17 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn" to Nothing
		Get ComAdd of hoAppearance 18 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn" to Nothing
		Get ComAdd of hoAppearance 32 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn" to Nothing
		Get ComAdd of hoAppearance 33 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn" to Nothing
		Get ComAdd of hoAppearance 34 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn" to Nothing
		Get ComAdd of hoAppearance 35 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComAppearance to |CI$1000000
	Set ComBackground OLEexToolTipAppearance to (ComAppearance(Self))
	Set ComSelBackColor to |CI$e000000
	Set ComBackground OLEexMenuHotBackColor to |CI$c000000
	Set ComBackground OLEexMenuSelHotBackColor to |CI$23000000
	Set ComBackground |CI$2 to |CI$22000000
	Set ComBackground |CI$3 to |CI$23000000
	Set ComBackground OLEexCheckBoxState0 to |CI$20000000
	Set ComBackground OLEexCheckBoxState1 to |CI$21000000
	Send ComRefresh
End_Procedure
187
Microsoft Paint - Ribbon Like

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		Variant voItem
		Get ComItem of hoItems 0 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "" 0 0 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComPadding of hoItem1 to "8,0,0,0"
				Send Destroy to hoItem1
				Variant var_Item3
				Get ComAdd of hoItems1 "New Page" Nothing Nothing to var_Item3
					Set ComToString of hoItems1 to "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
					Set ComID of hoItems1 to 200
					Set ComCaption of hoItems1 to "Page1"
					Set ComShowPopupAlign of hoItems1 to OLEexShowPopupAlignDown
					Variant voItems2
					Get ComItems of hoItems1 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem2
						Get ComItem of hoItems2 0 to voItem2
						Handle hoItem2
						Get Create (RefClass(cComItem)) to hoItem2
						Set pvComObject of hoItem2 to voItem2
							Variant v
							Variant voItems3
							Get ComItems of hoItem2 to voItems3
							Handle hoItems3
							Get Create (RefClass(cComItems)) to hoItems3
							Set pvComObject of hoItems3 to voItems3
								Get ComAdd of hoItems3 "New Group" Nothing Nothing to v
							Send Destroy to hoItems3
							Move v to var_Item
								Set ComToString of hoItem2 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
								Set ComCaption of hoItem2 to "<b><font ;14>A"
								Variant voItems4
								Get ComItems of hoItem2 to voItems4
								Handle hoItems4
								Get Create (RefClass(cComItems)) to hoItems4
								Set pvComObject of hoItems4 to voItems4
									Set ComBackgroundExt of hoItems4 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
									Variant voItem3
									Get ComAdd of hoItems4 "" 2 Nothing to voItem3
									Handle hoItem3
									Get Create (RefClass(cComItem)) to hoItem3
									Set pvComObject of hoItem3 to voItem3
										Set ComGroupPopup of hoItem3 to (OLEexGroupPopupEqualWidth + OLEexGroupPopup)
										Set ComCaption of hoItem3 to ""
										Variant voItems5
										Get ComItems of hoItem3 to voItems5
										Handle hoItems5
										Get Create (RefClass(cComItems)) to hoItems5
										Set pvComObject of hoItems5 to voItems5
											Variant voItem4
											Get ComAdd of hoItems5 "R1" Nothing Nothing to voItem4
											Handle hoItem4
											Get Create (RefClass(cComItem)) to hoItem4
											Set pvComObject of hoItem4 to voItem4
												Set ComRadioGroup of hoItem4 to 100
												Set ComRadio of hoItem4 to True
												Set ComShowCheckedAsSelected of hoItem4 to OLEexDisplayItemHighlight
												Set ComChecked of hoItem4 to False
											Send Destroy to hoItem4
											Variant voItem5
											Get ComAdd of hoItems5 "R2" Nothing Nothing to voItem5
											Handle hoItem5
											Get Create (RefClass(cComItem)) to hoItem5
											Set pvComObject of hoItem5 to voItem5
												Set ComRadioGroup of hoItem5 to 100
												Set ComRadio of hoItem5 to True
												Set ComShowCheckedAsSelected of hoItem5 to OLEexDisplayItemHighlight
												Set ComChecked of hoItem5 to True
											Send Destroy to hoItem5
											Variant voItem6
											Get ComAdd of hoItems5 "R3" Nothing Nothing to voItem6
											Handle hoItem6
											Get Create (RefClass(cComItem)) to hoItem6
											Set pvComObject of hoItem6 to voItem6
												Set ComRadioGroup of hoItem6 to 100
												Set ComRadio of hoItem6 to True
												Set ComShowCheckedAsSelected of hoItem6 to OLEexDisplayItemHighlight
												Set ComChecked of hoItem6 to False
											Send Destroy to hoItem6
										Send Destroy to hoItems5
									Send Destroy to hoItem3
								Send Destroy to hoItems4
							Send Destroy to hoItem2
							Variant v1
							Variant voItems6
							Get ComItems of hoItems2 to voItems6
							Handle hoItems6
							Get Create (RefClass(cComItems)) to hoItems6
							Set pvComObject of hoItems6 to voItems6
								Get ComAdd of hoItems6 "New Group" Nothing Nothing to v1
							Send Destroy to hoItems6
							Move v1 to var_Item1
								Set ComToString of hoItems2 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
								Set ComCaption of hoItems2 to "<b><font ;14>B"
								Variant voItems7
								Get ComItems of hoItems2 to voItems7
								Handle hoItems7
								Get Create (RefClass(cComItems)) to hoItems7
								Set pvComObject of hoItems7 to voItems7
									Set ComBackgroundExt of hoItems7 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
									Variant voItem7
									Get ComAdd of hoItems7 "" 2 Nothing to voItem7
									Handle hoItem7
									Get Create (RefClass(cComItem)) to hoItem7
									Set pvComObject of hoItem7 to voItem7
										Set ComGroupPopup of hoItem7 to (OLEexGroupPopupVertical + OLEexGroupPopupEqualHeight + OLEexGroupPopup)
										Set ComCaption of hoItem7 to ""
										Variant voItems8
										Get ComItems of hoItem7 to voItems8
										Handle hoItems8
										Get Create (RefClass(cComItems)) to hoItems8
										Set pvComObject of hoItems8 to voItems8
											Variant voItem8
											Get ComAdd of hoItems8 "C1" Nothing Nothing to voItem8
											Handle hoItem8
											Get Create (RefClass(cComItem)) to hoItem8
											Set pvComObject of hoItem8 to voItem8
												Set ComCheck of hoItem8 to True
												Set ComChecked of hoItem8 to True
											Send Destroy to hoItem8
											Variant voItem9
											Get ComAdd of hoItems8 "C2" Nothing Nothing to voItem9
											Handle hoItem9
											Get Create (RefClass(cComItem)) to hoItem9
											Set pvComObject of hoItem9 to voItem9
												Set ComCheck of hoItem9 to True
												Set ComChecked of hoItem9 to False
											Send Destroy to hoItem9
											Variant voItem10
											Get ComAdd of hoItems8 "C3" Nothing Nothing to voItem10
											Handle hoItem10
											Get Create (RefClass(cComItem)) to hoItem10
											Set pvComObject of hoItem10 to voItem10
												Set ComCheck of hoItem10 to True
												Set ComChecked of hoItem10 to True
											Send Destroy to hoItem10
										Send Destroy to hoItems8
									Send Destroy to hoItem7
								Send Destroy to hoItems7
							Send Destroy to hoItems2
							Variant voItems9
							Get ComItems of hoItems1 to voItems9
							Handle hoItems9
							Get Create (RefClass(cComItems)) to hoItems9
							Set pvComObject of hoItems9 to voItems9
								Variant voItem11
								Get ComAdd of hoItems9 "" 0 0 to voItem11
								Handle hoItem11
								Get Create (RefClass(cComItem)) to hoItem11
								Set pvComObject of hoItem11 to voItem11
									Set ComPadding of hoItem11 to "4,0,0,0"
								Send Destroy to hoItem11
							Send Destroy to hoItems9
							Variant v2
							Variant voItems10
							Get ComItems of hoItems1 to voItems10
							Handle hoItems10
							Get Create (RefClass(cComItems)) to hoItems10
							Set pvComObject of hoItems10 to voItems10
								Get ComAdd of hoItems10 "New Group" Nothing Nothing to v2
							Send Destroy to hoItems10
							Move v2 to var_Item2
								Set ComToString of hoItems1 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
								Set ComCaption of hoItems1 to ""
								Variant voItems11
								Get ComItems of hoItems1 to voItems11
								Handle hoItems11
								Get Create (RefClass(cComItems)) to hoItems11
								Set pvComObject of hoItems11 to voItems11
									Set ComBackgroundExt of hoItems11 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
									Variant voItem12
									Get ComAdd of hoItems11 "" 0 Nothing to voItem12
									Handle hoItem12
									Get Create (RefClass(cComItem)) to hoItem12
									Set pvComObject of hoItem12 to voItem12
										Set ComAllowEdit of hoItem12 to (OLEexItemEditVertical + OLEexItemEditSlider)
										Set ComItemHeight of hoItem12 to 76
										Set ComEditBorder of hoItem12 to OLEexEditBorderNone
										Set ComEditValue of hoItem12 to 25
									Send Destroy to hoItem12
									Variant voItem13
									Get ComAdd of hoItems11 "" 2 Nothing to voItem13
									Handle hoItem13
									Get Create (RefClass(cComItem)) to hoItem13
									Set pvComObject of hoItem13 to voItem13
										Set ComGroupPopup of hoItem13 to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
										Set ComCaption of hoItem13 to ""
										Variant voItems12
										Get ComItems of hoItem13 to voItems12
										Handle hoItems12
										Get Create (RefClass(cComItems)) to hoItems12
										Set pvComObject of hoItems12 to voItems12
											Variant voItem14
											Get ComAdd of hoItems12 "" 2 Nothing to voItem14
											Handle hoItem14
											Get Create (RefClass(cComItem)) to hoItem14
											Set pvComObject of hoItem14 to voItem14
												Set ComGroupPopup of hoItem14 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
												Variant voItems13
												Get ComItems of hoItem14 to voItems13
												Handle hoItems13
												Get Create (RefClass(cComItems)) to hoItems13
												Set pvComObject of hoItems13 to voItems13
													Variant voItem15
													Get ComAdd of hoItems13 "Button1" 2 Nothing to voItem15
													Handle hoItem15
													Get Create (RefClass(cComItem)) to hoItem15
													Set pvComObject of hoItem15 to voItem15
														Set ComShowAsButton of hoItem15 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
														Variant voItems14
														Get ComItems of hoItem15 to voItems14
														Handle hoItems14
														Get Create (RefClass(cComItems)) to hoItems14
														Set pvComObject of hoItems14 to voItems14
															Get ComAdd of hoItems14 "Item 1" Nothing Nothing to Nothing
															Get ComAdd of hoItems14 "Item 2" Nothing Nothing to Nothing
															Get ComAdd of hoItems14 "Item 3" Nothing Nothing to Nothing
														Send Destroy to hoItems14
													Send Destroy to hoItem15
													Variant voItem16
													Get ComAdd of hoItems13 "" 0 0 to voItem16
													Handle hoItem16
													Get Create (RefClass(cComItem)) to hoItem16
													Set pvComObject of hoItem16 to voItem16
														Set ComPadding of hoItem16 to "4,0,0,0"
													Send Destroy to hoItem16
													Variant voItem17
													Get ComAdd of hoItems13 "Button2" 2 Nothing to voItem17
													Handle hoItem17
													Get Create (RefClass(cComItem)) to hoItem17
													Set pvComObject of hoItem17 to voItem17
														Set ComShowAsButton of hoItem17 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
														Variant voItems15
														Get ComItems of hoItem17 to voItems15
														Handle hoItems15
														Get Create (RefClass(cComItems)) to hoItems15
														Set pvComObject of hoItems15 to voItems15
															Get ComAdd of hoItems15 "Item 4" Nothing Nothing to Nothing
															Get ComAdd of hoItems15 "Item 5" Nothing Nothing to Nothing
															Get ComAdd of hoItems15 "Item 6" Nothing Nothing to Nothing
														Send Destroy to hoItems15
													Send Destroy to hoItem17
												Send Destroy to hoItems13
											Send Destroy to hoItem14
											Variant voItem18
											Get ComAdd of hoItems12 "Popup" 2 Nothing to voItem18
											Handle hoItem18
											Get Create (RefClass(cComItem)) to hoItem18
											Set pvComObject of hoItem18 to voItem18
												Set ComAlignment of hoItem18 to OLEexCenter
												Variant voItems16
												Get ComItems of hoItem18 to voItems16
												Handle hoItems16
												Get Create (RefClass(cComItems)) to hoItems16
												Set pvComObject of hoItems16 to voItems16
													Variant voItem19
													Get ComAdd of hoItems16 "Item 7" Nothing Nothing to voItem19
													Handle hoItem19
													Get Create (RefClass(cComItem)) to hoItem19
													Set pvComObject of hoItem19 to voItem19
														Set ComCheck of hoItem19 to True
													Send Destroy to hoItem19
													Get ComAdd of hoItems16 "Item 8" Nothing Nothing to Nothing
													Variant voItem20
													Get ComAdd of hoItems16 "Item 9" 2 Nothing to voItem20
													Handle hoItem20
													Get Create (RefClass(cComItem)) to hoItem20
													Set pvComObject of hoItem20 to voItem20
														Variant voItems17
														Get ComItems of hoItem20 to voItems17
														Handle hoItems17
														Get Create (RefClass(cComItems)) to hoItems17
														Set pvComObject of hoItems17 to voItems17
															Get ComAdd of hoItems17 "Item 10" Nothing Nothing to Nothing
															Get ComAdd of hoItems17 "Item 11" Nothing Nothing to Nothing
															Get ComAdd of hoItems17 "Item 12" Nothing Nothing to Nothing
														Send Destroy to hoItems17
													Send Destroy to hoItem20
												Send Destroy to hoItems16
											Send Destroy to hoItem18
										Send Destroy to hoItems12
									Send Destroy to hoItem13
								Send Destroy to hoItems11
							Send Destroy to hoItems1
						Send Destroy to hoItem
					Send Destroy to hoItems
				Variant var_Item4
				Get ComAdd "New Page" Nothing Nothing to var_Item4
					Set ComToString to "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
					Set ComID to 300
					Set ComCaption to "Page2"
					Set ComShowPopupAlign to OLEexShowPopupAlignDown
					Variant voItems18
					Get ComItems to voItems18
					Handle hoItems18
					Get Create (RefClass(cComItems)) to hoItems18
					Set pvComObject of hoItems18 to voItems18
						Variant voItem21
						Get ComItem of hoItems18 0 to voItem21
						Handle hoItem21
						Get Create (RefClass(cComItem)) to hoItem21
						Set pvComObject of hoItem21 to voItem21
							Variant voItems19
							Get ComItems of hoItem21 to voItems19
							Handle hoItems19
							Get Create (RefClass(cComItems)) to hoItems19
							Set pvComObject of hoItems19 to voItems19
								Variant voItem22
								Get ComAdd of hoItems19 "S1" Nothing Nothing to voItem22
								Handle hoItem22
								Get Create (RefClass(cComItem)) to hoItem22
								Set pvComObject of hoItem22 to voItem22
									Set ComItemHeight of hoItem22 to 88
									Set ComAllowEdit of hoItem22 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
									Set ComEditValue of hoItem22 to 25
								Send Destroy to hoItem22
								Variant voItem23
								Get ComAdd of hoItems19 "S2" Nothing Nothing to voItem23
								Handle hoItem23
								Get Create (RefClass(cComItem)) to hoItem23
								Set pvComObject of hoItem23 to voItem23
									Set ComItemHeight of hoItem23 to 88
									Set ComAllowEdit of hoItem23 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
									Set ComEditValue of hoItem23 to 50
								Send Destroy to hoItem23
								Variant voItem24
								Get ComAdd of hoItems19 "S3" Nothing Nothing to voItem24
								Handle hoItem24
								Get Create (RefClass(cComItem)) to hoItem24
								Set pvComObject of hoItem24 to voItem24
									Set ComItemHeight of hoItem24 to 88
									Set ComAllowEdit of hoItem24 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
									Set ComEditValue of hoItem24 to 75
								Send Destroy to hoItem24
							Send Destroy to hoItems19
						Send Destroy to hoItem21
					Send Destroy to hoItems18
				Variant voItem25
				Get ComAdd "" 0 0 to voItem25
				Handle hoItem25
				Get Create (RefClass(cComItem)) to hoItem25
				Set pvComObject of hoItem25 to voItem25
					Set ComPadding of hoItem25 to "8,0,0,0"
				Send Destroy to hoItem25
	Set ComPopupFlatAppearance to False
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn" to Nothing
		Get ComAdd of hoAppearance 2 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn" to Nothing
		Get ComAdd of hoAppearance 3 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn" to Nothing
		Get ComAdd of hoAppearance 4 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn" to Nothing
		Get ComAdd of hoAppearance 5 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn" to Nothing
		Get ComAdd of hoAppearance 6 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn" to Nothing
		Get ComAdd of hoAppearance 7 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn" to Nothing
		Get ComAdd of hoAppearance 8 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn" to Nothing
		Get ComAdd of hoAppearance 9 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn" to Nothing
		Get ComAdd of hoAppearance 10 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn" to Nothing
		Get ComAdd of hoAppearance 11 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn" to Nothing
		Get ComAdd of hoAppearance 12 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn" to Nothing
		Get ComAdd of hoAppearance 13 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn" to Nothing
		Get ComAdd of hoAppearance 14 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn" to Nothing
		Get ComAdd of hoAppearance 15 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn" to Nothing
		Get ComAdd of hoAppearance 16 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn" to Nothing
		Get ComAdd of hoAppearance 17 "CP:16 0 0 0 1" to Nothing
		Get ComAdd of hoAppearance 18 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn" to Nothing
		Get ComAdd of hoAppearance 19 "C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn" to Nothing
		Get ComAdd of hoAppearance 20 "CP:19 0 0 0 1" to Nothing
	Send Destroy to hoAppearance
	Set ComLocalAppearance to OLEShadowBorder
	Set ComAppearance to |CI$1000000
	Set ComForeColor to (RGB(21,66,139))
	Set ComSelBackColor to |CI$e000000
	Set ComBackground OLEexToolTipAppearance to (ComAppearance(Self))
	Set ComBackground |CI$2 to |CI$d000000
	Set ComBackground OLEexGroupPopupFrameSingle to |CI$5000000
	Set ComBackground OLEexGroupPopupFrameHStart to |CI$6000000
	Set ComBackground OLEexGroupPopupFrameHIntermediate to |CI$7000000
	Set ComBackground OLEexGroupPopupFrameHEnd to |CI$8000000
	Set ComBackground OLEexGroupPopupFrameVStart to |CI$9000000
	Set ComBackground OLEexGroupPopupFrameVIntermediate to |CI$a000000
	Set ComBackground OLEexGroupPopupFrameVEnd to |CI$b000000
	Set ComBackground OLEexMenuHotBackColor to |CI$c000000
	Set ComBackground OLEexMenuSelHotBackColor to |CI$f000000
	Send ComRefresh
End_Procedure
186
Microsoft Office - Ribbon Like

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		Variant voItem
		Get ComItem of hoItems 0 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "" 0 0 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComPadding of hoItem1 to "8,0,0,0"
				Send Destroy to hoItem1
				Variant var_Item3
				Get ComAdd of hoItems1 "New Page" Nothing Nothing to var_Item3
					Set ComToString of hoItems1 to "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
					Set ComID of hoItems1 to 200
					Set ComCaption of hoItems1 to "Page1"
					Set ComShowPopupAlign of hoItems1 to OLEexShowPopupAlignDown
					Variant voItems2
					Get ComItems of hoItems1 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem2
						Get ComItem of hoItems2 0 to voItem2
						Handle hoItem2
						Get Create (RefClass(cComItem)) to hoItem2
						Set pvComObject of hoItem2 to voItem2
							Variant v
							Variant voItems3
							Get ComItems of hoItem2 to voItems3
							Handle hoItems3
							Get Create (RefClass(cComItems)) to hoItems3
							Set pvComObject of hoItems3 to voItems3
								Get ComAdd of hoItems3 "New Group" Nothing Nothing to v
							Send Destroy to hoItems3
							Move v to var_Item
								Set ComToString of hoItem2 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
								Set ComCaption of hoItem2 to "<b><font ;14>A"
								Variant voItems4
								Get ComItems of hoItem2 to voItems4
								Handle hoItems4
								Get Create (RefClass(cComItems)) to hoItems4
								Set pvComObject of hoItems4 to voItems4
									Set ComBackgroundExt of hoItems4 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
									Variant voItem3
									Get ComAdd of hoItems4 "" 2 Nothing to voItem3
									Handle hoItem3
									Get Create (RefClass(cComItem)) to hoItem3
									Set pvComObject of hoItem3 to voItem3
										Set ComGroupPopup of hoItem3 to (OLEexGroupPopupEqualWidth + OLEexGroupPopup)
										Set ComCaption of hoItem3 to ""
										Variant voItems5
										Get ComItems of hoItem3 to voItems5
										Handle hoItems5
										Get Create (RefClass(cComItems)) to hoItems5
										Set pvComObject of hoItems5 to voItems5
											Variant voItem4
											Get ComAdd of hoItems5 "R1" Nothing Nothing to voItem4
											Handle hoItem4
											Get Create (RefClass(cComItem)) to hoItem4
											Set pvComObject of hoItem4 to voItem4
												Set ComRadioGroup of hoItem4 to 100
												Set ComRadio of hoItem4 to True
												Set ComShowCheckedAsSelected of hoItem4 to OLEexDisplayItemHighlight
												Set ComChecked of hoItem4 to False
											Send Destroy to hoItem4
											Variant voItem5
											Get ComAdd of hoItems5 "R2" Nothing Nothing to voItem5
											Handle hoItem5
											Get Create (RefClass(cComItem)) to hoItem5
											Set pvComObject of hoItem5 to voItem5
												Set ComRadioGroup of hoItem5 to 100
												Set ComRadio of hoItem5 to True
												Set ComShowCheckedAsSelected of hoItem5 to OLEexDisplayItemHighlight
												Set ComChecked of hoItem5 to True
											Send Destroy to hoItem5
											Variant voItem6
											Get ComAdd of hoItems5 "R3" Nothing Nothing to voItem6
											Handle hoItem6
											Get Create (RefClass(cComItem)) to hoItem6
											Set pvComObject of hoItem6 to voItem6
												Set ComRadioGroup of hoItem6 to 100
												Set ComRadio of hoItem6 to True
												Set ComShowCheckedAsSelected of hoItem6 to OLEexDisplayItemHighlight
												Set ComChecked of hoItem6 to False
											Send Destroy to hoItem6
										Send Destroy to hoItems5
									Send Destroy to hoItem3
								Send Destroy to hoItems4
							Send Destroy to hoItem2
							Variant v1
							Variant voItems6
							Get ComItems of hoItems2 to voItems6
							Handle hoItems6
							Get Create (RefClass(cComItems)) to hoItems6
							Set pvComObject of hoItems6 to voItems6
								Get ComAdd of hoItems6 "New Group" Nothing Nothing to v1
							Send Destroy to hoItems6
							Move v1 to var_Item1
								Set ComToString of hoItems2 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
								Set ComCaption of hoItems2 to "<b><font ;14>B"
								Variant voItems7
								Get ComItems of hoItems2 to voItems7
								Handle hoItems7
								Get Create (RefClass(cComItems)) to hoItems7
								Set pvComObject of hoItems7 to voItems7
									Set ComBackgroundExt of hoItems7 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
									Variant voItem7
									Get ComAdd of hoItems7 "" 2 Nothing to voItem7
									Handle hoItem7
									Get Create (RefClass(cComItem)) to hoItem7
									Set pvComObject of hoItem7 to voItem7
										Set ComGroupPopup of hoItem7 to (OLEexGroupPopupVertical + OLEexGroupPopupEqualHeight + OLEexGroupPopup)
										Set ComCaption of hoItem7 to ""
										Variant voItems8
										Get ComItems of hoItem7 to voItems8
										Handle hoItems8
										Get Create (RefClass(cComItems)) to hoItems8
										Set pvComObject of hoItems8 to voItems8
											Variant voItem8
											Get ComAdd of hoItems8 "C1" Nothing Nothing to voItem8
											Handle hoItem8
											Get Create (RefClass(cComItem)) to hoItem8
											Set pvComObject of hoItem8 to voItem8
												Set ComCheck of hoItem8 to True
												Set ComChecked of hoItem8 to True
											Send Destroy to hoItem8
											Variant voItem9
											Get ComAdd of hoItems8 "C2" Nothing Nothing to voItem9
											Handle hoItem9
											Get Create (RefClass(cComItem)) to hoItem9
											Set pvComObject of hoItem9 to voItem9
												Set ComCheck of hoItem9 to True
												Set ComChecked of hoItem9 to False
											Send Destroy to hoItem9
											Variant voItem10
											Get ComAdd of hoItems8 "C3" Nothing Nothing to voItem10
											Handle hoItem10
											Get Create (RefClass(cComItem)) to hoItem10
											Set pvComObject of hoItem10 to voItem10
												Set ComCheck of hoItem10 to True
												Set ComChecked of hoItem10 to True
											Send Destroy to hoItem10
										Send Destroy to hoItems8
									Send Destroy to hoItem7
								Send Destroy to hoItems7
							Send Destroy to hoItems2
							Variant voItems9
							Get ComItems of hoItems1 to voItems9
							Handle hoItems9
							Get Create (RefClass(cComItems)) to hoItems9
							Set pvComObject of hoItems9 to voItems9
								Variant voItem11
								Get ComAdd of hoItems9 "" 0 0 to voItem11
								Handle hoItem11
								Get Create (RefClass(cComItem)) to hoItem11
								Set pvComObject of hoItem11 to voItem11
									Set ComPadding of hoItem11 to "4,0,0,0"
								Send Destroy to hoItem11
							Send Destroy to hoItems9
							Variant v2
							Variant voItems10
							Get ComItems of hoItems1 to voItems10
							Handle hoItems10
							Get Create (RefClass(cComItems)) to hoItems10
							Set pvComObject of hoItems10 to voItems10
								Get ComAdd of hoItems10 "New Group" Nothing Nothing to v2
							Send Destroy to hoItems10
							Move v2 to var_Item2
								Set ComToString of hoItems1 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
								Set ComCaption of hoItems1 to ""
								Variant voItems11
								Get ComItems of hoItems1 to voItems11
								Handle hoItems11
								Get Create (RefClass(cComItems)) to hoItems11
								Set pvComObject of hoItems11 to voItems11
									Set ComBackgroundExt of hoItems11 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
									Variant voItem12
									Get ComAdd of hoItems11 "" 0 Nothing to voItem12
									Handle hoItem12
									Get Create (RefClass(cComItem)) to hoItem12
									Set pvComObject of hoItem12 to voItem12
										Set ComAllowEdit of hoItem12 to (OLEexItemEditVertical + OLEexItemEditSlider)
										Set ComItemHeight of hoItem12 to 76
										Set ComEditBorder of hoItem12 to OLEexEditBorderNone
										Set ComEditValue of hoItem12 to 25
									Send Destroy to hoItem12
									Variant voItem13
									Get ComAdd of hoItems11 "" 2 Nothing to voItem13
									Handle hoItem13
									Get Create (RefClass(cComItem)) to hoItem13
									Set pvComObject of hoItem13 to voItem13
										Set ComGroupPopup of hoItem13 to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
										Set ComCaption of hoItem13 to ""
										Variant voItems12
										Get ComItems of hoItem13 to voItems12
										Handle hoItems12
										Get Create (RefClass(cComItems)) to hoItems12
										Set pvComObject of hoItems12 to voItems12
											Variant voItem14
											Get ComAdd of hoItems12 "" 2 Nothing to voItem14
											Handle hoItem14
											Get Create (RefClass(cComItem)) to hoItem14
											Set pvComObject of hoItem14 to voItem14
												Set ComGroupPopup of hoItem14 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
												Variant voItems13
												Get ComItems of hoItem14 to voItems13
												Handle hoItems13
												Get Create (RefClass(cComItems)) to hoItems13
												Set pvComObject of hoItems13 to voItems13
													Variant voItem15
													Get ComAdd of hoItems13 "Button1" 2 Nothing to voItem15
													Handle hoItem15
													Get Create (RefClass(cComItem)) to hoItem15
													Set pvComObject of hoItem15 to voItem15
														Set ComShowAsButton of hoItem15 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
														Variant voItems14
														Get ComItems of hoItem15 to voItems14
														Handle hoItems14
														Get Create (RefClass(cComItems)) to hoItems14
														Set pvComObject of hoItems14 to voItems14
															Get ComAdd of hoItems14 "Item 1" Nothing Nothing to Nothing
															Get ComAdd of hoItems14 "Item 2" Nothing Nothing to Nothing
															Get ComAdd of hoItems14 "Item 3" Nothing Nothing to Nothing
														Send Destroy to hoItems14
													Send Destroy to hoItem15
													Variant voItem16
													Get ComAdd of hoItems13 "" 0 0 to voItem16
													Handle hoItem16
													Get Create (RefClass(cComItem)) to hoItem16
													Set pvComObject of hoItem16 to voItem16
														Set ComPadding of hoItem16 to "4,0,0,0"
													Send Destroy to hoItem16
													Variant voItem17
													Get ComAdd of hoItems13 "Button2" 2 Nothing to voItem17
													Handle hoItem17
													Get Create (RefClass(cComItem)) to hoItem17
													Set pvComObject of hoItem17 to voItem17
														Set ComShowAsButton of hoItem17 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
														Variant voItems15
														Get ComItems of hoItem17 to voItems15
														Handle hoItems15
														Get Create (RefClass(cComItems)) to hoItems15
														Set pvComObject of hoItems15 to voItems15
															Get ComAdd of hoItems15 "Item 4" Nothing Nothing to Nothing
															Get ComAdd of hoItems15 "Item 5" Nothing Nothing to Nothing
															Get ComAdd of hoItems15 "Item 6" Nothing Nothing to Nothing
														Send Destroy to hoItems15
													Send Destroy to hoItem17
												Send Destroy to hoItems13
											Send Destroy to hoItem14
											Variant voItem18
											Get ComAdd of hoItems12 "Popup" 2 Nothing to voItem18
											Handle hoItem18
											Get Create (RefClass(cComItem)) to hoItem18
											Set pvComObject of hoItem18 to voItem18
												Set ComAlignment of hoItem18 to OLEexCenter
												Variant voItems16
												Get ComItems of hoItem18 to voItems16
												Handle hoItems16
												Get Create (RefClass(cComItems)) to hoItems16
												Set pvComObject of hoItems16 to voItems16
													Variant voItem19
													Get ComAdd of hoItems16 "Item 7" Nothing Nothing to voItem19
													Handle hoItem19
													Get Create (RefClass(cComItem)) to hoItem19
													Set pvComObject of hoItem19 to voItem19
														Set ComCheck of hoItem19 to True
													Send Destroy to hoItem19
													Get ComAdd of hoItems16 "Item 8" Nothing Nothing to Nothing
													Variant voItem20
													Get ComAdd of hoItems16 "Item 9" 2 Nothing to voItem20
													Handle hoItem20
													Get Create (RefClass(cComItem)) to hoItem20
													Set pvComObject of hoItem20 to voItem20
														Variant voItems17
														Get ComItems of hoItem20 to voItems17
														Handle hoItems17
														Get Create (RefClass(cComItems)) to hoItems17
														Set pvComObject of hoItems17 to voItems17
															Get ComAdd of hoItems17 "Item 10" Nothing Nothing to Nothing
															Get ComAdd of hoItems17 "Item 11" Nothing Nothing to Nothing
															Get ComAdd of hoItems17 "Item 12" Nothing Nothing to Nothing
														Send Destroy to hoItems17
													Send Destroy to hoItem20
												Send Destroy to hoItems16
											Send Destroy to hoItem18
										Send Destroy to hoItems12
									Send Destroy to hoItem13
								Send Destroy to hoItems11
							Send Destroy to hoItems1
						Send Destroy to hoItem
					Send Destroy to hoItems
				Variant var_Item4
				Get ComAdd "New Page" Nothing Nothing to var_Item4
					Set ComToString to "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
					Set ComID to 300
					Set ComCaption to "Page2"
					Set ComShowPopupAlign to OLEexShowPopupAlignDown
					Variant voItems18
					Get ComItems to voItems18
					Handle hoItems18
					Get Create (RefClass(cComItems)) to hoItems18
					Set pvComObject of hoItems18 to voItems18
						Variant voItem21
						Get ComItem of hoItems18 0 to voItem21
						Handle hoItem21
						Get Create (RefClass(cComItem)) to hoItem21
						Set pvComObject of hoItem21 to voItem21
							Variant voItems19
							Get ComItems of hoItem21 to voItems19
							Handle hoItems19
							Get Create (RefClass(cComItems)) to hoItems19
							Set pvComObject of hoItems19 to voItems19
								Variant voItem22
								Get ComAdd of hoItems19 "S1" Nothing Nothing to voItem22
								Handle hoItem22
								Get Create (RefClass(cComItem)) to hoItem22
								Set pvComObject of hoItem22 to voItem22
									Set ComItemHeight of hoItem22 to 88
									Set ComAllowEdit of hoItem22 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
									Set ComEditValue of hoItem22 to 25
								Send Destroy to hoItem22
								Variant voItem23
								Get ComAdd of hoItems19 "S2" Nothing Nothing to voItem23
								Handle hoItem23
								Get Create (RefClass(cComItem)) to hoItem23
								Set pvComObject of hoItem23 to voItem23
									Set ComItemHeight of hoItem23 to 88
									Set ComAllowEdit of hoItem23 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
									Set ComEditValue of hoItem23 to 50
								Send Destroy to hoItem23
								Variant voItem24
								Get ComAdd of hoItems19 "S3" Nothing Nothing to voItem24
								Handle hoItem24
								Get Create (RefClass(cComItem)) to hoItem24
								Set pvComObject of hoItem24 to voItem24
									Set ComItemHeight of hoItem24 to 88
									Set ComAllowEdit of hoItem24 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
									Set ComEditValue of hoItem24 to 75
								Send Destroy to hoItem24
							Send Destroy to hoItems19
						Send Destroy to hoItem21
					Send Destroy to hoItems18
				Variant voItem25
				Get ComAdd "" 0 0 to voItem25
				Handle hoItem25
				Get Create (RefClass(cComItem)) to hoItem25
				Set pvComObject of hoItem25 to voItem25
					Set ComPadding of hoItem25 to "8,0,0,0"
				Send Destroy to hoItem25
	Set ComPopupFlatAppearance to False
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_background.ebn" to Nothing
		Get ComAdd of hoAppearance 2 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_groupt.ebn" to Nothing
		Get ComAdd of hoAppearance 3 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_groupo.ebn" to Nothing
		Get ComAdd of hoAppearance 4 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_grouphot.ebn" to Nothing
		Get ComAdd of hoAppearance 5 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_frameh.ebn" to Nothing
		Get ComAdd of hoAppearance 6 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehs.ebn" to Nothing
		Get ComAdd of hoAppearance 7 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehi.ebn" to Nothing
		Get ComAdd of hoAppearance 8 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehe.ebn" to Nothing
		Get ComAdd of hoAppearance 9 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framevs.ebn" to Nothing
		Get ComAdd of hoAppearance 10 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framevi.ebn" to Nothing
		Get ComAdd of hoAppearance 11 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_frameve.ebn" to Nothing
		Get ComAdd of hoAppearance 12 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_select.ebn" to Nothing
		Get ComAdd of hoAppearance 13 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_bordert.ebn" to Nothing
		Get ComAdd of hoAppearance 14 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_buttond.ebn" to Nothing
		Get ComAdd of hoAppearance 15 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_buttonu.ebn" to Nothing
		Get ComAdd of hoAppearance 16 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tab.ebn" to Nothing
		Get ComAdd of hoAppearance 17 "CP:16 0 0 0 1" to Nothing
		Get ComAdd of hoAppearance 18 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tabhot.ebn" to Nothing
		Get ComAdd of hoAppearance 19 "C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tabselhot.ebn" to Nothing
		Get ComAdd of hoAppearance 20 "CP:19 0 0 0 1" to Nothing
	Send Destroy to hoAppearance
	Set ComForeColor to (RGB(21,66,139))
	Set ComSelBackColor to |CI$e000000
	Set ComLocalAppearance to OLEShadowBorder
	Set ComAppearance to |CI$1000000
	Set ComBackground OLEexToolTipAppearance to (ComAppearance(Self))
	Set ComBackground |CI$2 to |CI$d000000
	Set ComBackground OLEexGroupPopupFrameSingle to |CI$5000000
	Set ComBackground OLEexGroupPopupFrameHStart to |CI$6000000
	Set ComBackground OLEexGroupPopupFrameHIntermediate to |CI$7000000
	Set ComBackground OLEexGroupPopupFrameHEnd to |CI$8000000
	Set ComBackground OLEexGroupPopupFrameVStart to |CI$9000000
	Set ComBackground OLEexGroupPopupFrameVIntermediate to |CI$a000000
	Set ComBackground OLEexGroupPopupFrameVEnd to |CI$b000000
	Set ComBackground OLEexMenuHotBackColor to |CI$c000000
	Set ComBackground OLEexMenuSelHotBackColor to |CI$f000000
	Send ComRefresh
End_Procedure
185
How I can assign buttons to a tab

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexMenuSelBorderColor to (RGB(240,240,240))
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[id=0][group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03](),[id=-99][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-100]))"
		Variant voItem
		Get ComItem of hoItems -10 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "" 0 0 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComPadding of hoItem1 to "8,0,0,0"
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "New Page" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComToString of hoItem2 to "[typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][group=0x03][tab=-100][pad=2,0,2,0][popupalign=0x01]([id=0][group=0x03]([]))"
					Set ComCaption of hoItem2 to "Page<off -5><font ;5><b>1</b></font></off>"
					Set ComID of hoItem2 to -1000
					Variant voItems2
					Get ComItems of hoItem2 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem3
						Get ComItem of hoItems2 0 to voItem3
						Handle hoItem3
						Get Create (RefClass(cComItem)) to hoItem3
						Set pvComObject of hoItem3 to voItem3
							Variant voItems3
							Get ComItems of hoItem3 to voItems3
							Handle hoItems3
							Get Create (RefClass(cComItems)) to hoItems3
							Set pvComObject of hoItems3 to voItems3
								Variant voItem4
								Get ComAdd of hoItems3 "Button 1" Nothing Nothing to voItem4
								Handle hoItem4
								Get Create (RefClass(cComItem)) to hoItem4
								Set pvComObject of hoItem4 to voItem4
									Set ComShowAsButton of hoItem4 to (OLEexShowAsButtonAutoSize + OLEexShowAsButton)
								Send Destroy to hoItem4
								Variant voItem5
								Get ComAdd of hoItems3 "Button 2" Nothing Nothing to voItem5
								Handle hoItem5
								Get Create (RefClass(cComItem)) to hoItem5
								Set pvComObject of hoItem5 to voItem5
									Set ComShowAsButton of hoItem5 to (OLEexShowAsButtonAutoSize + OLEexShowAsButton)
								Send Destroy to hoItem5
								Variant voItem6
								Get ComAdd of hoItems3 "Button 3" Nothing Nothing to voItem6
								Handle hoItem6
								Get Create (RefClass(cComItem)) to hoItem6
								Set pvComObject of hoItem6 to voItem6
									Set ComShowAsButton of hoItem6 to (OLEexShowAsButtonAutoSize + OLEexShowAsButton)
								Send Destroy to hoItem6
							Send Destroy to hoItems3
						Send Destroy to hoItem3
					Send Destroy to hoItems2
				Send Destroy to hoItem2
				Variant voItem7
				Get ComAdd of hoItems1 "New Page" Nothing Nothing to voItem7
				Handle hoItem7
				Get Create (RefClass(cComItem)) to hoItem7
				Set pvComObject of hoItem7 to voItem7
					Set ComToString of hoItem7 to "[typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][group=0x03][tab=-100][pad=2,0,2,0][popupalign=0x01]([id=0][group=0x03]([]))"
					Set ComCaption of hoItem7 to "Page<off -5><font ;5><b>2</b></font></off>"
					Set ComID of hoItem7 to -1001
					Variant voItems4
					Get ComItems of hoItem7 to voItems4
					Handle hoItems4
					Get Create (RefClass(cComItems)) to hoItems4
					Set pvComObject of hoItems4 to voItems4
						Variant voItem8
						Get ComItem of hoItems4 0 to voItem8
						Handle hoItem8
						Get Create (RefClass(cComItem)) to hoItem8
						Set pvComObject of hoItem8 to voItem8
							Variant voItems5
							Get ComItems of hoItem8 to voItems5
							Handle hoItems5
							Get Create (RefClass(cComItems)) to hoItems5
							Set pvComObject of hoItems5 to voItems5
								Variant voItem9
								Get ComAdd of hoItems5 "Button 3" Nothing Nothing to voItem9
								Handle hoItem9
								Get Create (RefClass(cComItem)) to hoItem9
								Set pvComObject of hoItem9 to voItem9
									Set ComShowAsButton of hoItem9 to (OLEexShowAsButtonAutoSize + OLEexShowAsButton)
								Send Destroy to hoItem9
								Variant voItem10
								Get ComAdd of hoItems5 "Button 4" Nothing Nothing to voItem10
								Handle hoItem10
								Get Create (RefClass(cComItem)) to hoItem10
								Set pvComObject of hoItem10 to voItem10
									Set ComShowAsButton of hoItem10 to (OLEexShowAsButtonAutoSize + OLEexShowAsButton)
								Send Destroy to hoItem10
							Send Destroy to hoItems5
						Send Destroy to hoItem8
					Send Destroy to hoItems4
				Send Destroy to hoItem7
				Variant voItem11
				Get ComAdd of hoItems1 "" 0 0 to voItem11
				Handle hoItem11
				Get Create (RefClass(cComItem)) to hoItem11
				Set pvComObject of hoItem11 to voItem11
					Set ComPadding of hoItem11 to "8,0,0,0"
				Send Destroy to hoItem11
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
184
How can I hide an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item 1" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComVisible of hoItem to False
		Send Destroy to hoItem
		Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
183
How do I quickly load items into the control

Procedure OnCreate
	Forward Send OnCreate
	Set ComToString to "Check 1[chk],Check 2[chk=1]"
End_Procedure
182
Are there any functions to get the size/width/height of the control so all items fit the control's client area

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Item 1" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Send ComRefresh
	Showln (ComRequiredWidth(Self))
	Showln (ComRequiredHeight(Self))
End_Procedure
181
How do I get the item giving its caption

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item 1" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComID of hoItem to 1000
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Item 2" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComID of hoItem1 to 1001
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Variant voItem2
	Get ComItem "Item 1" to voItem2
	Handle hoItem2
	Get Create (RefClass(cComItem)) to hoItem2
	Set pvComObject of hoItem2 to voItem2
		Set ComBold of hoItem2 to True
	Send Destroy to hoItem2
	Send ComRefresh
End_Procedure
180
How do I get the item giving its identifier

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item 1" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComID of hoItem to 1000
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Item 2" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComID of hoItem1 to 1001
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Variant voItem2
	Get ComItem 1000 to voItem2
	Handle hoItem2
	Get Create (RefClass(cComItem)) to hoItem2
	Set pvComObject of hoItem2 to voItem2
		Set ComBold of hoItem2 to True
	Send Destroy to hoItem2
	Send ComRefresh
End_Procedure
179
Can I change the cursor where it hovers the item

Procedure OnCreate
	Forward Send OnCreate
	Set ComCursor to "exCross"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Item 1" Nothing Nothing to Nothing
		Variant voItem
		Get ComAdd of hoItems "Item 2" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComCursor of hoItem to "exNoDrop"
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
178
I am using radio-buttons, the question is it possible to uncheck the radio-buttons, so no button is pressed in the group

Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowToggleRadio to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Radio 1" 1000 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComRadio of hoItem to True
			Set ComRadioGroup of hoItem to 100
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Radio 2" 1001 to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComRadio of hoItem1 to True
			Set ComRadioGroup of hoItem1 to 100
		Send Destroy to hoItem1
		Variant voItem2
		Get ComAdd of hoItems "Radio 2" 1003 to voItem2
		Handle hoItem2
		Get Create (RefClass(cComItem)) to hoItem2
		Set pvComObject of hoItem2 to voItem2
			Set ComRadio of hoItem2 to True
			Set ComRadioGroup of hoItem2 to 100
		Send Destroy to hoItem2
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
177
Is it possible to display the item's identifiers

Procedure OnCreate
	Forward Send OnCreate
	Set ComDebug to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item 1" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComID of hoItem to 10001
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Item 2" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComID of hoItem1 to 10002
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
176
How do I disable showing the tooltip for all control (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowToolTip to False
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComTooltip of hoItem to "this is a bit of text to be shown when cursor hovers it"
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComTooltip of hoItem1 to "this is a bit of text to be shown when cursor hovers it"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
175
How can I lock the control, so no events occur, but no shown in gray as Enabled do

// Occurs when the user selects the item.
Procedure OnComSelectItem Variant   llItm
	Forward Send OnComSelectItem llItm
	Showln "SelectItem should not be fired while locked"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComLocked to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Disabled" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComEnabled of hoItem to False
		Send Destroy to hoItem
		Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
174
How can I disable the control

Procedure OnCreate
	Forward Send OnCreate
	Set ComEnabled to False
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Disabled" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComEnabled of hoItem to False
		Send Destroy to hoItem
		Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
173
How can I specify a different border/visual appearance for drop down portion of the popup menu (ebn)

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComPopupAppearance to |CI$1000000
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Popup 1" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComCheck of hoItem3 to True
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Variant voItem4
		Get ComAdd of hoItems "Popup 2" 2 Nothing to voItem4
		Handle hoItem4
		Get Create (RefClass(cComItem)) to hoItem4
		Set pvComObject of hoItem4 to voItem4
			Variant voItems2
			Get ComItems of hoItem4 to voItems2
			Handle hoItems2
			Get Create (RefClass(cComItems)) to hoItems2
			Set pvComObject of hoItems2 to voItems2
				Variant voItem5
				Get ComAdd of hoItems2 "Item 4" Nothing Nothing to voItem5
				Handle hoItem5
				Get Create (RefClass(cComItem)) to hoItem5
				Set pvComObject of hoItem5 to voItem5
					Set ComCheck of hoItem5 to True
				Send Destroy to hoItem5
				Variant voItem6
				Get ComAdd of hoItems2 "Item 5" Nothing Nothing to voItem6
				Handle hoItem6
				Get Create (RefClass(cComItem)) to hoItem6
				Set pvComObject of hoItem6 to voItem6
					Set ComCheck of hoItem6 to True
				Send Destroy to hoItem6
				Variant voItem7
				Get ComAdd of hoItems2 "Item 6" Nothing Nothing to voItem7
				Handle hoItem7
				Get Create (RefClass(cComItem)) to hoItem7
				Set pvComObject of hoItem7 to voItem7
					Set ComCheck of hoItem7 to True
				Send Destroy to hoItem7
			Send Destroy to hoItems2
		Send Destroy to hoItem4
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
172
How can I specify a different border for drop down portion of the popup menu

Procedure OnCreate
	Forward Send OnCreate
	Set ComPopupAppearance to OLEShadowBorder
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Popup 1" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComCheck of hoItem3 to True
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Variant voItem4
		Get ComAdd of hoItems "Popup 2" 2 Nothing to voItem4
		Handle hoItem4
		Get Create (RefClass(cComItem)) to hoItem4
		Set pvComObject of hoItem4 to voItem4
			Variant voItems2
			Get ComItems of hoItem4 to voItems2
			Handle hoItems2
			Get Create (RefClass(cComItems)) to hoItems2
			Set pvComObject of hoItems2 to voItems2
				Variant voItem5
				Get ComAdd of hoItems2 "Item 4" Nothing Nothing to voItem5
				Handle hoItem5
				Get Create (RefClass(cComItem)) to hoItem5
				Set pvComObject of hoItem5 to voItem5
					Set ComCheck of hoItem5 to True
				Send Destroy to hoItem5
				Variant voItem6
				Get ComAdd of hoItems2 "Item 5" Nothing Nothing to voItem6
				Handle hoItem6
				Get Create (RefClass(cComItem)) to hoItem6
				Set pvComObject of hoItem6 to voItem6
					Set ComCheck of hoItem6 to True
				Send Destroy to hoItem6
				Variant voItem7
				Get ComAdd of hoItems2 "Item 6" Nothing Nothing to voItem7
				Handle hoItem7
				Get Create (RefClass(cComItem)) to hoItem7
				Set pvComObject of hoItem7 to voItem7
					Set ComCheck of hoItem7 to True
				Send Destroy to hoItem7
			Send Destroy to hoItems2
		Send Destroy to hoItem4
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
171
How can I specify a different border/visual appearance for drop down portion of the select buttons/combobox (ebn)

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComLocalAppearance to |CI$1000000
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Button" 2 Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComShowAsButton of hoItem1 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
					Variant voItems2
					Get ComItems of hoItem1 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Get ComAdd of hoItems2 "Item 1" Nothing Nothing to Nothing
						Get ComAdd of hoItems2 "Item 2" Nothing Nothing to Nothing
						Get ComAdd of hoItems2 "Item 3" Nothing Nothing to Nothing
					Send Destroy to hoItems2
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Button" 2 Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComShowAsButton of hoItem2 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
					Variant voItems3
					Get ComItems of hoItem2 to voItems3
					Handle hoItems3
					Get Create (RefClass(cComItems)) to hoItems3
					Set pvComObject of hoItems3 to voItems3
						Get ComAdd of hoItems3 "Item 4" Nothing Nothing to Nothing
						Get ComAdd of hoItems3 "Item 5" Nothing Nothing to Nothing
						Get ComAdd of hoItems3 "Item 6" Nothing Nothing to Nothing
					Send Destroy to hoItems3
				Send Destroy to hoItem2
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
170
How can I specify a different border for drop down portion of the select buttons/combobox

Procedure OnCreate
	Forward Send OnCreate
	Set ComLocalAppearance to OLEShadowBorder
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Button" 2 Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComShowAsButton of hoItem1 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
					Variant voItems2
					Get ComItems of hoItem1 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Get ComAdd of hoItems2 "Item 1" Nothing Nothing to Nothing
						Get ComAdd of hoItems2 "Item 2" Nothing Nothing to Nothing
						Get ComAdd of hoItems2 "Item 3" Nothing Nothing to Nothing
					Send Destroy to hoItems2
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Button" 2 Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComShowAsButton of hoItem2 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
					Variant voItems3
					Get ComItems of hoItem2 to voItems3
					Handle hoItems3
					Get Create (RefClass(cComItems)) to hoItems3
					Set pvComObject of hoItems3 to voItems3
						Get ComAdd of hoItems3 "Item 4" Nothing Nothing to Nothing
						Get ComAdd of hoItems3 "Item 5" Nothing Nothing to Nothing
						Get ComAdd of hoItems3 "Item 6" Nothing Nothing to Nothing
					Send Destroy to hoItems3
				Send Destroy to hoItem2
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
169
How can I change the visual appearance for the entire control

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComAppearance to |CI$1000000
	Set ComShowCheckedAsSelected to OLEexDisplayItemCheckHighlight
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPadding of hoItems to "4,4,4,4"
		Variant voItem
		Get ComAdd of hoItems "Radio 1" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComRadio of hoItem to True
			Set ComChecked of hoItem to True
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Radio 2" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComRadio of hoItem1 to True
		Send Destroy to hoItem1
		Variant voItem2
		Get ComAdd of hoItems "Radio 3" Nothing Nothing to voItem2
		Handle hoItem2
		Get Create (RefClass(cComItem)) to hoItem2
		Set pvComObject of hoItem2 to voItem2
			Set ComRadio of hoItem2 to True
		Send Destroy to hoItem2
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
168
How can I show a border arround the control
Procedure OnCreate
	Forward Send OnCreate
	Set ComAppearance to OLEFlatBorder
	Set ComShowCheckedAsSelected to OLEexDisplayItemCheckHighlight
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPadding of hoItems to "4,4,4,4"
		Variant voItem
		Get ComAdd of hoItems "Check 1" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComChecked of hoItem to True
			Set ComCheck of hoItem to True
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Check 2" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComCheck of hoItem1 to True
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
167
Is it possible to change the item's background color when check/uncheck the item

Procedure OnCreate
	Forward Send OnCreate
	Set ComShowCheckedAsSelected to OLEexDisplayItemCheckHighlight
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPadding of hoItems to "4,4,4,4"
		Variant voItem
		Get ComAdd of hoItems "Check 1" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComChecked of hoItem to True
			Set ComCheck of hoItem to True
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Check 2" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComCheck of hoItem1 to True
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
166
How can I change the colors for hot/hover items

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexMenuHotBackColor to (RGB(0,0,1))
	Set ComBackground OLEexMenuHotForeColor to (RGB(255,255,255))
	Set ComBackground OLEexMenuSelHotBackColor to (RGB(128,128,128))
	Set ComBackground OLEexMenuSelHotForeColor to (RGB(255,255,255))
	Set ComSelBackColor to (RGB(128,128,128))
	Set ComSelForeColor to (RGB(255,255,255))
	Set ComBackground OLEexMenuSelBorderColor to (RGB(128,128,128))
	Set ComShowCheckedAsSelected to OLEexDisplayItemCheckHighlight
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPadding of hoItems to "4,4,4,4"
		Variant voItem
		Get ComAdd of hoItems "" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComToString of hoItem to "[group=3](Item 1,Item 2)"
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Check 1" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComChecked of hoItem1 to True
			Set ComCheck of hoItem1 to True
		Send Destroy to hoItem1
		Variant voItem2
		Get ComAdd of hoItems "Check 2" Nothing Nothing to voItem2
		Handle hoItem2
		Get Create (RefClass(cComItem)) to hoItem2
		Set pvComObject of hoItem2 to voItem2
			Set ComCheck of hoItem2 to True
		Send Destroy to hoItem2
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
165
How do I change the visual appearance of the groups (vertical)

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
		Get ComAdd of hoAppearance 2 "c:\exontrol\images\pushed.ebn" to Nothing
		Get ComAdd of hoAppearance 3 "c:\exontrol\images\hot.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexGroupPopupFrameSingle to |CI$1000000
	Set ComBackground OLEexGroupPopupFrameVStart to |CI$1000000
	Set ComBackground OLEexGroupPopupFrameVIntermediate to |CI$2000000
	Set ComBackground OLEexGroupPopupFrameVEnd to |CI$3000000
	Set ComBackground OLEexGroupPopupFrameSolid to (RGB(255,0,0))
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Vertical" 2 Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComAlignment of hoItem1 to OLEexCenter
					Set ComGroupPopup of hoItem1 to (OLEexGroupPopupVertical + OLEexGroupPopup)
					Variant voItems2
					Get ComItems of hoItem1 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Get ComAdd of hoItems2 "Item 1" Nothing Nothing to Nothing
						Get ComAdd of hoItems2 "Item 2" Nothing Nothing to Nothing
						Get ComAdd of hoItems2 "Item 3" Nothing Nothing to Nothing
						Get ComAdd of hoItems2 "Item 4" Nothing Nothing to Nothing
						Get ComAdd of hoItems2 "Item 5" Nothing Nothing to Nothing
					Send Destroy to hoItems2
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCaptionWidth of hoItem2 to 12
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Vertical" 2 Nothing to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComAlignment of hoItem3 to OLEexCenter
					Set ComGroupPopup of hoItem3 to (OLEexGroupPopupVertical + OLEexGroupPopupFrameThickBox + OLEexGroupPopupFrameSolidBox + OLEexGroupPopup)
					Variant voItems3
					Get ComItems of hoItem3 to voItems3
					Handle hoItems3
					Get Create (RefClass(cComItems)) to hoItems3
					Set pvComObject of hoItems3 to voItems3
						Get ComAdd of hoItems3 "Item 1" Nothing Nothing to Nothing
						Get ComAdd of hoItems3 "Item 2" Nothing Nothing to Nothing
						Get ComAdd of hoItems3 "Item 3" Nothing Nothing to Nothing
						Get ComAdd of hoItems3 "Item 4" Nothing Nothing to Nothing
						Get ComAdd of hoItems3 "Item 5" Nothing Nothing to Nothing
					Send Destroy to hoItems3
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
164
How do I change the visual appearance of the groups (horizontal)

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
		Get ComAdd of hoAppearance 2 "c:\exontrol\images\pushed.ebn" to Nothing
		Get ComAdd of hoAppearance 3 "c:\exontrol\images\hot.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexGroupPopupFrameSingle to |CI$1000000
	Set ComBackground OLEexGroupPopupFrameHStart to |CI$1000000
	Set ComBackground OLEexGroupPopupFrameHIntermediate to |CI$2000000
	Set ComBackground OLEexGroupPopupFrameHEnd to |CI$3000000
	Set ComBackground OLEexGroupPopupFrameSolid to (RGB(255,0,0))
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Horizontal Group" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to OLEexGroupPopup
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 4" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 5" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComToString of hoItem1 to "Horizontal Group[group=193](Item 1,Item 2,Item 3,Item 4,Item 5)"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
163
How can I change the visual appearance of the separator item

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexMenuSeparatorItem to |CI$1000000
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComCaptionWidth of hoItem to 128
		Send Destroy to hoItem
		Get ComAdd of hoItems "" 1 Nothing to Nothing
		Variant voItem1
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComCaptionWidth of hoItem1 to 128
		Send Destroy to hoItem1
		Variant voItem2
		Get ComAdd of hoItems "" Nothing Nothing to voItem2
		Handle hoItem2
		Get Create (RefClass(cComItem)) to hoItem2
		Set pvComObject of hoItem2 to voItem2
			Set ComToString of hoItem2 to "<font ;5>separator[sep]"
		Send Destroy to hoItem2
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
162
How can I change the visual appearance of the drop down of the control (normal.2)

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
		Get ComAdd of hoAppearance 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComPopupFlatImageWidth to 0
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Popup" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComCheck of hoItem3 to True
				Send Destroy to hoItem3
				Set ComPopupAppearance of hoItems1 to |CI$1000000
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
161
How can I change the visual appearance of the drop down of the control (normal.1)

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
		Get ComAdd of hoAppearance 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComPopupFlatAppearance to False
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Popup" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComCheck of hoItem3 to True
				Send Destroy to hoItem3
				Set ComPopupAppearance of hoItems1 to |CI$1000000
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
160
How can I change the visual appearance of the drop down of the control (flat)

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
		Get ComAdd of hoAppearance 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComPopupFlatBackColor to |CI$2000000
	Set ComBackground OLEexMenuFlatLineColor to (ComPopupFlatBackColor(Self))
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Popup" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComCheck of hoItem3 to True
				Send Destroy to hoItem3
				Set ComPopupAppearance of hoItems1 to |CI$1000000
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
159
How can I change the visual appearance of the flat portion of the drop down of the control

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComPopupFlatBackColor to |CI$1000000
	Set ComBackground OLEexMenuFlatLineColor to (ComPopupFlatBackColor(Self))
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Popup" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComCheck of hoItem3 to True
				Send Destroy to hoItem3
				Set ComPopupAppearance of hoItems1 to OLEShadowBorder
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
158
How can I change the visual appearance of the radio-buttons to be displayed in the toolbar control (ebn)

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
		Get ComAdd of hoAppearance 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexRadioButtonState0 to |CI$1000000
	Set ComBackground OLEexRadioButtonState1 to |CI$2000000
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to OLEexGroupPopup
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Radio 1" 1000 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComRadio of hoItem1 to True
					Set ComRadioGroup of hoItem1 to 100
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Radio 2" 1001 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComRadio of hoItem2 to True
					Set ComRadioGroup of hoItem2 to 100
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Radio 2" 1003 to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComRadio of hoItem3 to True
					Set ComRadioGroup of hoItem3 to 100
				Send Destroy to hoItem3
				Variant voItem4
				Get ComItem of hoItems1 1000 to voItem4
				Handle hoItem4
				Get Create (RefClass(cComItem)) to hoItem4
				Set pvComObject of hoItem4 to voItem4
					Set ComChecked of hoItem4 to True
				Send Destroy to hoItem4
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
157
How can I change the visual appearance of the check-boxes to be displayed in the toolbar control (ebn)

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
		Get ComAdd of hoAppearance 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexCheckBoxState0 to |CI$1000000
	Set ComBackground OLEexCheckBoxState1 to |CI$2000000
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Check 1" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
					Set ComChecked of hoItem1 to True
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Check 2" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
				Send Destroy to hoItem2
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
156
How can I change the visual appearance of the tooltips to be displayed in the toolbar control (ebn)

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
		Get ComAdd of hoAppearance 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComToolTipDelay to 1
	Set ComBackground OLEexToolTipAppearance to |CI$1000000
	Set ComBackground OLEexToolTipForeColor to (RGB(255,0,0))
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComTooltip of hoItem to "this is a bit of text to be shown when cursor hovers it"
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComTooltip of hoItem1 to "this is a bit of text to be shown when cursor hovers it"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
155
Is it possible to change the visual appearance of the buttons to be displayed in the toolbar control (ebn)

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
		Get ComAdd of hoAppearance 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground |CI$2 to |CI$1000000
	Set ComBackground |CI$3 to |CI$2000000
	Set ComBackground OLEexMenuSeparatorSelectButton to (RGB(255,0,0))
	Set ComBackground OLEexMenuSeparatorSelectButtonBottom to (RGB(0,0,255))
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPadding of hoItems to "4,4,4,4"
		Variant voItem
		Get ComAdd of hoItems "Button" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComShowAsButton of hoItem to (OLEexShowAsButtonAutoSize + OLEexShowAsButton)
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComEnabled of hoItem1 to False
			Set ComItemHeight of hoItem1 to 4
		Send Destroy to hoItem1
		Variant voItem2
		Get ComAdd of hoItems "Button" 2 Nothing to voItem2
		Handle hoItem2
		Get Create (RefClass(cComItem)) to hoItem2
		Set pvComObject of hoItem2 to voItem2
			Set ComShowAsButton of hoItem2 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
			Variant voItems1
			Get ComItems of hoItem2 to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComPopupAppearance of hoItems1 to OLEShadowBorder
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem2
		Variant voItem3
		Get ComAdd of hoItems "" Nothing Nothing to voItem3
		Handle hoItem3
		Get Create (RefClass(cComItem)) to hoItem3
		Set pvComObject of hoItem3 to voItem3
			Set ComEnabled of hoItem3 to False
			Set ComItemHeight of hoItem3 to 4
		Send Destroy to hoItem3
		Variant voItem4
		Get ComAdd of hoItems "Button" 2 Nothing to voItem4
		Handle hoItem4
		Get Create (RefClass(cComItem)) to hoItem4
		Set pvComObject of hoItem4 to voItem4
			Set ComShowAsButton of hoItem4 to (OLEexShowAsSelectButton + OLEexShowAsButtonAutoSize)
			Variant voItems2
			Get ComItems of hoItem4 to voItems2
			Handle hoItems2
			Get Create (RefClass(cComItems)) to hoItems2
			Set pvComObject of hoItems2 to voItems2
				Set ComPopupAppearance of hoItems2 to OLEShadowBorder
				Get ComAdd of hoItems2 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems2 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems2 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems2
		Send Destroy to hoItem4
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
154
I've seen that the width of the tooltip is variable. Can I make it larger

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipWidth to 328
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComTooltip of hoItem to "this is a bit of text to be shown when cursor hovers it"
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComTooltip of hoItem1 to "this is a bit of text to be shown when cursor hovers it"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
153
How do I disable showing the tooltip for all control (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 0
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComTooltip of hoItem to "this is a bit of text to be shown when cursor hovers it"
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComTooltip of hoItem1 to "this is a bit of text to be shown when cursor hovers it"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
152
How do I let the tooltip being displayed longer

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipPopDelay to 10000
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComTooltip of hoItem to "this is a bit of text to be shown when cursor hovers it"
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComTooltip of hoItem1 to "this is a bit of text to be shown when cursor hovers it"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
151
How do I show the tooltip quicker

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComTooltip of hoItem to "this is a bit of text to be shown when cursor hovers it"
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComTooltip of hoItem1 to "this is a bit of text to be shown when cursor hovers it"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
150
How can I get the version of the control I am running

Procedure OnCreate
	Forward Send OnCreate
	Showln (ComVersion(Self))
End_Procedure
149
How can I align the picture on the control's background

Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\card.png`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLEUpperRight
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
148
Is it possible to place a picture on the control's background

Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\card.png`)" to vPicture
	Set ComPicture to (vPicture)
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
147
How can I display the item using a different font/size

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComCaption of hoItem to "<font ;14>This is a bit of text"
		Send Destroy to hoItem
		Get ComAdd of hoItems "<font ;6>This is a bit of text" Nothing Nothing to Nothing
		Variant voItem1
		Get ComAdd of hoItems "" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComCaption of hoItem1 to "<font Times New Roman;22>This is a bit of text</font>. Default"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
146
How can I use the Event event, available for /COM version

// Notifies the application once the control fires an event.
Procedure OnComEvent Integer   llEventID
	Forward Send OnComEvent llEventID
	Showln "Event" (ComEventParam(Self,-2))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Check" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComCheck of hoItem to True
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Slider" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComAllowEdit of hoItem1 to OLEexItemEditSlider
			Set ComEditWidth of hoItem1 to 128
			Set ComEditBorder of hoItem1 to OLEexEditBorderNone
			Set ComEditValue of hoItem1 to 25
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
145
Is it possible to get notified once the user edits the field, or change the slider value

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln "EditChange event on Itm object"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComAllowEdit of hoItem to OLEexItemEditSlider
			Set ComEditWidth of hoItem to 128
			Set ComEditBorder of hoItem to OLEexEditBorderNone
			Set ComEditValue of hoItem to 25
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
144
How do I get notified once I uncheck an item

// Occurs when the user unchecks the item.
Procedure OnComUncheckItem Variant   llItm
	Forward Send OnComUncheckItem llItm
	Showln "UncheckItem event on Itm object"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComCheck of hoItem to True
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComCheck of hoItem1 to True
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
143
How do I get notified once I check an item

// Occurs when the user checks the item.
Procedure OnComCheckItem Variant   llItm
	Forward Send OnComCheckItem llItm
	Showln "CheckItem event on Itm object"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComCheck of hoItem to True
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComCheck of hoItem1 to True
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
142
How do I get notified once I click/select an item

// Occurs when the user selects the item.
Procedure OnComSelectItem Variant   llItm
	Forward Send OnComSelectItem llItm
	Showln "SelectItem event on Itm object"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
141
Does your control support padding for items

Procedure OnCreate
	Forward Send OnCreate
	Set ComPopupFlatAppearance to False
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPadding of hoItems to "2,12,2,2"
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Set ComBackColor of hoItems to (RGB(255,255,255))
		Set ComBackgroundExt of hoItems to "root[pattern=0x000,frame=RGB(128,128,128)](top[2],top[10,text=`<font ;6><fgcolor 808080> group </font></fgcolor>`,align=0x11])"
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
140
How can I display the drop down popup to a different position ( method 2 )

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Popup" 2 100 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComShowPopupAlign of hoItem to OLEexShowPopupAlignDown
			Set ComShowPopupArrow of hoItem to False
			Set ComShowPopupOffset of hoItem to "-12,-48"
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComPopupAppearance of hoItems1 to OLERaisedBorder
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
139
How can I display the drop down popup to a different position ( method 1 )

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to OLEexGroupPopup
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Popup 1" 2 100 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComShowPopupAlign of hoItem1 to OLEexShowPopupAlignDown
					Set ComShowPopupArrow of hoItem1 to False
					Variant voItems2
					Get ComItems of hoItem1 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Set ComPopupAppearance of hoItems2 to OLERaisedBorder
						Get ComAdd of hoItems2 "Item 1" Nothing Nothing to Nothing
						Get ComAdd of hoItems2 "Item 2" Nothing Nothing to Nothing
						Get ComAdd of hoItems2 "Item 3" Nothing Nothing to Nothing
					Send Destroy to hoItems2
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Popup 2" 2 200 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComShowPopupAt of hoItem2 to 100
					Set ComShowPopupArrow of hoItem2 to False
					Variant voItems3
					Get ComItems of hoItem2 to voItems3
					Handle hoItems3
					Get Create (RefClass(cComItems)) to hoItems3
					Set pvComObject of hoItems3 to voItems3
						Set ComPopupAppearance of hoItems3 to OLERaisedBorder
						Get ComAdd of hoItems3 "Item 4" Nothing Nothing to Nothing
						Get ComAdd of hoItems3 "Item 5" Nothing Nothing to Nothing
						Get ComAdd of hoItems3 "Item 6" Nothing Nothing to Nothing
					Send Destroy to hoItems3
				Send Destroy to hoItem2
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
138
Is it possible to show the popup bellow to the item, rather than on the right side

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Popup" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComShowPopupAlign of hoItem to OLEexShowPopupAlignDown
			Set ComShowPopupArrow of hoItem to False
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComPopupAppearance of hoItems1 to OLEFlatBorder
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComToString of hoItem1 to "Popup[arrow=0][popupalign=1][popupapp=1](Item 1,Item 2,Item 3)"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
137
How can I change the visual appearance for items, when cursor hovers it (hot,EBN)

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComHotBackColor of hoItems1 to |CI$1000000
				Set ComPadding of hoItems1 to "4,8,4,8"
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComToString of hoItem1 to "[group=0x03][itemspad=4,8,4,8][itemsbghot=0x1000000](Item 1,Item 2,Item 3)"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
136
How can I change the background color for items, when cursor hovers it (hot)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComHotBackColor of hoItems1 to (RGB(255,0,0))
				Set ComPadding of hoItems1 to "0,8,0,8"
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComToString of hoItem1 to "[group=0x03][itemspad=0,8,0,8][itemsbghot=RGB(255,0,0)](Item 1,Item 2,Item 3)"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
135
How can I change the visual appearance for items (EBN)

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComBackColor of hoItems1 to |CI$1000000
				Set ComPadding of hoItems1 to "4,8,4,8"
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComToString of hoItem1 to "[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
134
How can I change the background color for items

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComBackColor of hoItems1 to (RGB(255,0,0))
				Set ComPadding of hoItems1 to "0,8,0,8"
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComToString of hoItem1 to "[group=0x03][itemspad=0,8,0,8][itemsbg=RGB(255,0,0)](Item 1,Item 2,Item 3)"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
133
Is it possible to hide the popup's arrow

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Popup" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComShowPopupArrow of hoItem to False
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComPopupAppearance of hoItems1 to OLEShadowBorder
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComToString of hoItem1 to "Popup[arrow=0][popupapp=6](Item 1,Item 2,Item 3)"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
132
How do I hide the left gray portion to be shown on the drop down menu/popup (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComPopupFlatImageWidth to 0
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Popup" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
				Set ComPopupAppearance of hoItems1 to OLEShadowBorder
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
131
How do I hide the left gray portion to be shown on the drop down menu/popup (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComPopupFlatAppearance to False
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Popup" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
				Set ComPopupAppearance of hoItems1 to OLEShadowBorder
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
130
How can I arrange the drop down item from left to right, rather than top to bottom

// Occurs when the user selects the item.
Procedure OnComSelectItem Variant   llItm
	Forward Send OnComSelectItem llItm
	Showln "Clicked"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComPopupFlatAppearance to False
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Button" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComShowAsButton of hoItem to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComPopupAppearance of hoItems1 to OLEShadowBorder
				Variant voItem1
				Get ComAdd of hoItems1 "" 2 Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComGroupPopup of hoItem1 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
					Variant voItems2
					Get ComItems of hoItem1 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Get ComAdd of hoItems2 "Item 1" Nothing Nothing to Nothing
						Get ComAdd of hoItems2 "Item 2" Nothing Nothing to Nothing
						Get ComAdd of hoItems2 "Item 3" Nothing Nothing to Nothing
					Send Destroy to hoItems2
				Send Destroy to hoItem1
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Variant voItem2
		Get ComAdd of hoItems "" Nothing Nothing to voItem2
		Handle hoItem2
		Get Create (RefClass(cComItem)) to hoItem2
		Set pvComObject of hoItem2 to voItem2
			Set ComToString of hoItem2 to "Button[button=0x0113][popupapp=6]([group=0x03](Item 1,Item 2,Item 3))"
		Send Destroy to hoItem2
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
129
How can I add a drop down button / combobox (method 2)

// Occurs when the user selects the item.
Procedure OnComSelectItem Variant   llItm
	Forward Send OnComSelectItem llItm
	Showln "Clicked"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Button" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComShowAsButton of hoItem to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComPopupAppearance of hoItems1 to OLEShadowBorder
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComToString of hoItem1 to "Button[button=275][popupapp=6](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
128
How can I add a drop down button / combobox (method 1)

// Occurs when the user selects the item.
Procedure OnComSelectItem Variant   llItm
	Forward Send OnComSelectItem llItm
	Showln "Clicked"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Button" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComShowAsButton of hoItem to (OLEexShowAsSelectButton + OLEexShowAsButtonAutoSize)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComPopupAppearance of hoItems1 to OLEShadowBorder
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComToString of hoItem1 to "Button[button=0x13][popupapp=6](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
127
I am using exShowAsSelectButton/exShowAsSelectButtonBottom but none of them works. What could be wrong

// Occurs when the user selects the item.
Procedure OnComSelectItem Variant   llItm
	Forward Send OnComSelectItem llItm
	Showln "Clicked"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Button" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComShowAsButton of hoItem to (OLEexShowAsSelectButton + OLEexShowAsButtonAutoSize)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComPopupAppearance of hoItems1 to OLEShadowBorder
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
126
How can I add a button (push button)

// Occurs when the user selects the item.
Procedure OnComSelectItem Variant   llItm
	Forward Send OnComSelectItem llItm
	Showln "Clicked"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Button" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComShowAsButton of hoItem to (OLEexShowAsButtonAutoSize + OLEexShowAsButton)
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComToString of hoItem1 to "Button[button=0x03]"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
125
How can I display grouping items with no frame arround

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Horizontal Group" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexGroupPopupFrameThickBox + OLEexGroupPopupFrameSolidBox + OLEexGroupPopupEqualHeight + OLEexGroupPopupEqualWidth + OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "A" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComAlignment of hoItem1 to OLEexCenter
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "BC" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComAlignment of hoItem2 to OLEexCenter
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "D" Nothing Nothing to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComAlignment of hoItem3 to OLEexCenter
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Variant voItem4
		Get ComAdd of hoItems "" Nothing Nothing to voItem4
		Handle hoItem4
		Get Create (RefClass(cComItem)) to hoItem4
		Set pvComObject of hoItem4 to voItem4
			Set ComToString of hoItem4 to "Horizontal Group[group=243](A[id=20][align=1],BC[id=30][align=1],D[id=40][align=1])"
		Send Destroy to hoItem4
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
124
How can I display grouping items of the same size/width/height

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Horizontal Group" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexGroupPopupFrameThickBox + OLEexGroupPopupFrameSolidBox + OLEexGroupPopupEqualHeight + OLEexGroupPopupEqualWidth + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "A" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComAlignment of hoItem1 to OLEexCenter
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "BC" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComAlignment of hoItem2 to OLEexCenter
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "D" Nothing Nothing to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComAlignment of hoItem3 to OLEexCenter
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Variant voItem4
		Get ComAdd of hoItems "" Nothing Nothing to voItem4
		Handle hoItem4
		Get Create (RefClass(cComItem)) to hoItem4
		Set pvComObject of hoItem4 to voItem4
			Set ComToString of hoItem4 to "Horizontal Group[group=0xF1](A[id=20][align=1],BC[id=30][align=1],D[id=40][align=1])"
		Send Destroy to hoItem4
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
123
Is it possible to display a ticker frame arround grouping items

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Horizontal Group" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexGroupPopupFrameThickBox + OLEexGroupPopupFrameSolidBox + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComToString of hoItem1 to "Horizontal Group[group=193](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
122
How do I display items horizontally arranged

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Horizontal Group" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to OLEexGroupPopup
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComToString of hoItem1 to "Horizontal Group[group=0x01](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
121
Is it possible to expand an item when it is clicked (tree,group,vertical)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Expand" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Set ComCheck of hoItem to True
			Set ComShowPopupOnChecked of hoItem to True
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComPadding of hoItems1 to "22,0,0,0"
				Variant voItem1
				Get ComAdd of hoItems1 "Radio 1" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComRadio of hoItem1 to True
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Radio 2" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComRadio of hoItem2 to True
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Radio 3" Nothing Nothing to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComRadio of hoItem3 to True
					Set ComChecked of hoItem3 to True
				Send Destroy to hoItem3
			Send Destroy to hoItems1
			Set ComChecked of hoItem to True
		Send Destroy to hoItem
		Variant voItem4
		Get ComAdd of hoItems "" Nothing Nothing to voItem4
		Handle hoItem4
		Get Create (RefClass(cComItem)) to hoItem4
		Set pvComObject of hoItem4 to voItem4
			Set ComToString of hoItem4 to "Expand[typ=1][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Radio 1[id=20][typ=2],Radio 2[id=30][typ=2],Radio 3[id=40][typ=2][chk=1])"
		Send Destroy to hoItem4
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
120
Is it possible to expand an item when it is clicked (tree,group,vertical)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Expand" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Set ComCheck of hoItem to True
			Set ComShowPopupOnChecked of hoItem to True
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComPadding of hoItems1 to "22,0,0,0"
				Variant voItem1
				Get ComAdd of hoItems1 "Radio 1" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComRadio of hoItem1 to True
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Radio 2" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComRadio of hoItem2 to True
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Radio 3" Nothing Nothing to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComRadio of hoItem3 to True
					Set ComChecked of hoItem3 to True
				Send Destroy to hoItem3
			Send Destroy to hoItems1
			Set ComChecked of hoItem to True
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
119
Is it possible to expand an item when it is clicked (group)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Expand" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to OLEexGroupPopup
			Set ComItemHeight of hoItem to 24
			Set ComCheck of hoItem to True
			Set ComShowPopupOnChecked of hoItem to True
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
				Set ComPopupAppearance of hoItems1 to OLEShadowBorder
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
118
Is it possible to extend an item when it is clicked

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Expand" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComCheck of hoItem to True
			Set ComShowPopupOnChecked of hoItem to True
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
				Set ComPopupAppearance of hoItems1 to OLEShadowBorder
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
117
Does your control implement padding for item

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComBackColor of hoItems to (RGB(250,250,250))
		Variant voItem
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComPadding of hoItem to "4,4,4,4"
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComToString of hoItem1 to "Item[pad=4,4,4,4]"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
116
How can I add an empty item for a horizontal group

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Variant voItem1
				Get ComAdd of hoItems1 "" 2 Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComGroupPopup of hoItem1 to (OLEexGroupPopupCenter + OLEexGroupPopup)
					Set ComItemHeight of hoItem1 to 12
					Variant voItems2
					Get ComItems of hoItem1 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem2
						Get ComAdd of hoItems2 "" Nothing Nothing to voItem2
						Handle hoItem2
						Get Create (RefClass(cComItem)) to hoItem2
						Set pvComObject of hoItem2 to voItem2
							Set ComEnabled of hoItem2 to False
							Set ComItemHeight of hoItem2 to 8
							Set ComCaptionWidth of hoItem2 to 8
						Send Destroy to hoItem2
					Send Destroy to hoItems2
				Send Destroy to hoItem1
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
115
How can I add an empty/separator item

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
		Variant voItem
		Get ComAdd of hoItems "" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComEnabled of hoItem to False
			Set ComItemHeight of hoItem to 2
			Set ComCaptionWidth of hoItem to 8
			Set ComBackColor of hoItem to (RGB(240,240,240))
		Send Destroy to hoItem
		Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
114
How can I add an empty/frame item

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Item 1" Nothing Nothing to Nothing
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexGroupPopupCenter + OLEexGroupPopup)
			Set ComItemHeight of hoItem to 12
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComEnabled of hoItem1 to False
					Set ComItemHeight of hoItem1 to 8
					Set ComCaptionWidth of hoItem1 to 8
				Send Destroy to hoItem1
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
113
How can I specify the height of the item

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComBackColor of hoItems to (RGB(250,250,250))
		Variant voItem
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComItemHeight of hoItem to 64
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComToString of hoItem1 to "Item[height=64]"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
112
How can I specify the width of the item

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComBackColor of hoItems to (RGB(250,250,250))
		Variant voItem
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComCaptionWidth of hoItem to 128
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComToString of hoItem1 to "Item[captionwidth=128]"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
111
How do I align the item

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComBackColor of hoItems to (RGB(250,250,250))
		Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
		Variant voItem
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComAlignment of hoItem to OLEexCenter
			Set ComCaptionWidth of hoItem to 128
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComAlignment of hoItem1 to OLEexRight
			Set ComCaptionWidth of hoItem1 to 128
		Send Destroy to hoItem1
		Variant voItem2
		Get ComAdd of hoItems "" Nothing Nothing to voItem2
		Handle hoItem2
		Get Create (RefClass(cComItem)) to hoItem2
		Set pvComObject of hoItem2 to voItem2
			Set ComToString of hoItem2 to "Item[align=1]"
		Send Destroy to hoItem2
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
110
How can I underline the item

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComUnderline of hoItem to True
		Send Destroy to hoItem
		Get ComAdd of hoItems "<u>Item</u>" Nothing Nothing to Nothing
		Variant voItem1
		Get ComAdd of hoItems "" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComToString of hoItem1 to "Item[und]"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
109
How can I show the item as strikeout

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComStrikeout of hoItem to True
		Send Destroy to hoItem
		Get ComAdd of hoItems "<s>Item</s>" Nothing Nothing to Nothing
		Variant voItem1
		Get ComAdd of hoItems "" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComToString of hoItem1 to "Item[stk]"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
108
How can I show the item in italics

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComItalic of hoItem to True
		Send Destroy to hoItem
		Get ComAdd of hoItems "<i>Item</i>" Nothing Nothing to Nothing
		Variant voItem1
		Get ComAdd of hoItems "" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComToString of hoItem1 to "Item[itl]"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
107
How can I show the item in bold

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComBold of hoItem to True
		Send Destroy to hoItem
		Get ComAdd of hoItems "<b>Item</b>" Nothing Nothing to Nothing
		Variant voItem1
		Get ComAdd of hoItems "" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComToString of hoItem1 to "Item[bld]"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
106
How can I show the item as disabled but still be able to select or use it

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComShowAsDisabled of hoItem to True
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComToString of hoItem1 to "Item[showdis=1]"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
105
How can I enable or disable an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComEnabled of hoItem to False
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComToString of hoItem1 to "Item[dis]"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
104
How can I add a separator item

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComCaptionWidth of hoItem to 128
		Send Destroy to hoItem
		Get ComAdd of hoItems "<font ;6>separator" 1 Nothing to Nothing
		Variant voItem1
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComCaptionWidth of hoItem1 to 128
		Send Destroy to hoItem1
		Variant voItem2
		Get ComAdd of hoItems "" Nothing Nothing to voItem2
		Handle hoItem2
		Get Create (RefClass(cComItem)) to hoItem2
		Set pvComObject of hoItem2 to voItem2
			Set ComToString of hoItem2 to "<font ;6>separator[sep]"
		Send Destroy to hoItem2
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
103
How can I change the item's foreground color

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComForeColor of hoItem to (RGB(255,0,0))
		Send Destroy to hoItem
		Get ComAdd of hoItems "<fgcolor FF0000>Item" Nothing Nothing to Nothing
		Variant voItem1
		Get ComAdd of hoItems "" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComToString of hoItem1 to "Item[fg=RGB(255,0,0)]"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
102
How can I change the item's background/backcolor, when the item is selected/checked (radio-buttons)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Radio 1" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComHotBackColor of hoItem1 to (RGB(255,255,255))
					Set ComSelBackColor of hoItem1 to (RGB(255,0,0))
					Set ComSelHotBackColor of hoItem1 to (RGB(255,0,0))
					Set ComShowCheckedAsSelected of hoItem1 to OLEexDisplayItemHighlight
					Set ComRadio of hoItem1 to True
					Set ComRadioGroup of hoItem1 to 100
					Set ComChecked of hoItem1 to True
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Radio 2" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComHotBackColor of hoItem2 to (RGB(255,255,255))
					Set ComSelBackColor of hoItem2 to (RGB(255,0,0))
					Set ComSelHotBackColor of hoItem2 to (RGB(255,0,0))
					Set ComShowCheckedAsSelected of hoItem2 to OLEexDisplayItemHighlight
					Set ComRadio of hoItem2 to True
					Set ComRadioGroup of hoItem2 to 100
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "" Nothing Nothing to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComToString of hoItem3 to "Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0)]"
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
101
How can I change the item's background/backcolor, when the item is selected/checked (check-box)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Check 1" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComHotBackColor of hoItem to (RGB(255,255,255))
			Set ComSelBackColor of hoItem to (RGB(255,0,0))
			Set ComSelHotBackColor of hoItem to (RGB(255,0,0))
			Set ComShowCheckedAsSelected of hoItem to OLEexDisplayItemHighlight
			Set ComChecked of hoItem to True
			Set ComCheck of hoItem to True
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComToString of hoItem1 to "Check 2[typ=1][chk=0][show=1][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0)]"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure