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

with thisform.ToolBar1
	.ImageSize = 32
	.Font.Size = 16
	.PopupFlatImageWidth = 32
	.PopupAppearance = 1
	var_s = "gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqN"
	var_s = var_s + "UqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwy"
	var_s = var_s + "V21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CM"
	var_s = var_s + "Po9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9F"
	var_s = var_s + "EKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y"
	var_s = var_s + "7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkF"
	var_s = var_s + "gTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtN"
	var_s = var_s + "hCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xio"
	var_s = var_s + "W5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4"
	var_s = var_s + "VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6"
	var_s = var_s + "/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVD"
	var_s = var_s + "NKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT"
	var_s = var_s + "8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlff"
	var_s = var_s + "EkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6"
	var_s = var_s + "I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8Rg"
	var_s = var_s + "H5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVWR"
	var_s = var_s + "JNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA=="
	.Images(var_s)
	with .VisualAppearance
		var_s1 = "gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6"
		var_s1 = var_s1 + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM"
		var_s1 = var_s1 + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxR"
		var_s1 = var_s1 + "DWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYF"
		var_s1 = var_s1 + "oFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4Uk"
		var_s1 = var_s1 + "mCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAo"
		var_s1 = var_s1 + "chqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0"
		var_s1 = var_s1 + "ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8"
		var_s1 = var_s1 + "CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2U"
		var_s1 = var_s1 + "gJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ=="
		.Add(1,var_s1)
		var_s2 = "gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6"
		var_s2 = var_s2 + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM"
		var_s2 = var_s2 + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4n"
		var_s2 = var_s2 + "GKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnSc"
		var_s2 = var_s2 + "g1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpA"
		var_s2 = var_s2 + "oPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDR"
		var_s2 = var_s2 + "DFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lG"
		var_s2 = var_s2 + "NAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBg"
		var_s2 = var_s2 + "k0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuX"
		var_s2 = var_s2 + "pMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2Cy"
		var_s2 = var_s2 + "A4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8Rp"
		var_s2 = var_s2 + "BzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8T"
		var_s2 = var_s2 + "I7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeH"
		var_s2 = var_s2 + "GFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuh"
		var_s2 = var_s2 + "oiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMs"
		var_s2 = var_s2 + "CwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4ga"
		var_s2 = var_s2 + "BEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgs"
		var_s2 = var_s2 + "wOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtY"
		var_s2 = var_s2 + "QGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBh"
		var_s2 = var_s2 + "YDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0Mg"
		var_s2 = var_s2 + "RBCCQAgQEA=="
		.Add(2,var_s2)
		var_s3 = "gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6"
		var_s3 = var_s3 + "CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM"
		var_s3 = var_s3 + "RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4n"
		var_s3 = var_s3 + "GKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSe"
		var_s3 = var_s3 + "Q7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjn"
		var_s3 = var_s3 + "OIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ"
		var_s3 = var_s3 + "9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGS"
		var_s3 = var_s3 + "UwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4y"
		var_s3 = var_s3 + "mkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkX"
		var_s3 = var_s3 + "I/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6"
		var_s3 = var_s3 + "BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRA"
		var_s3 = var_s3 + "jDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEB"
		var_s3 = var_s3 + "wpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQH"
		var_s3 = var_s3 + "oFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRh"
		var_s3 = var_s3 + "cDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQ"
		var_s3 = var_s3 + "AA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYjV"
		var_s3 = var_s3 + "HiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4z"
		var_s3 = var_s3 + "xW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH"
		var_s3 = var_s3 + "0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI="
		.Add(3,var_s3)
		var_s4 = "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHL"
		var_s4 = var_s4 + "UXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBU"
		var_s4 = var_s4 + "rGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3"
		var_s4 = var_s4 + "NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsY"
		var_s4 = var_s4 + "YDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVm"
		var_s4 = var_s4 + "WCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVo"
		var_s4 = var_s4 + "WiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiS"
		var_s4 = var_s4 + "e41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhF"
		var_s4 = var_s4 + "CcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="
		.Add(4,var_s4)
	endwith
	.SelBackColor = 0x4000000
	.SelForeColor = RGB(0,0,1)
	.Object.Background(70) = 0x1000000
	.Object.Background(71) = 0x2000000
	.Object.Background(72) = 0x3000000
	with .Items
		with .Add("Item")
			.Image = 1
			.Check = .T.
		endwith
		.Add("",1)
		.Add("Item <img>2</img>")
		.Add("",1)
		.Add("Item <img>1</img>").Image = 1
		.Add("").ToString = "Popup[img=1](2[img=2],3[img=3])"
	endwith
	.Refresh
endwith
243
ImageSize property on 16 (default) (specifies the size of the control' icons)

with thisform.ToolBar1
	.ImageSize = 16
	.PopupAppearance = 1
	var_s = "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqd"
	var_s = var_s + "SqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVtt"
	var_s = var_s + "mp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8ac"
	var_s = var_s + "vQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTG"
	var_s = var_s + "sbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPn"
	var_s = var_s + "wD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="
	.Images(var_s)
	with .VisualAppearance
		var_s1 = "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHL"
		var_s1 = var_s1 + "UXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBU"
		var_s1 = var_s1 + "rGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3"
		var_s1 = var_s1 + "NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsY"
		var_s1 = var_s1 + "YDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVm"
		var_s1 = var_s1 + "WCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVo"
		var_s1 = var_s1 + "WiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiS"
		var_s1 = var_s1 + "e41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhF"
		var_s1 = var_s1 + "CcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="
		.Add(4,var_s1)
	endwith
	.SelBackColor = 0x4000000
	.SelForeColor = RGB(0,0,1)
	with .Items
		with .Add("Item")
			.Image = 1
			.Check = .T.
		endwith
		.Add("",1)
		.Add("Item <img>2</img>")
		.Add("",1)
		.Add("Item <img>1</img>").Image = 1
		.Add("").ToString = "Popup[img=1](2[img=2],3[img=3])"
	endwith
	.Refresh
endwith
242
How do I get the item's value without the place holders (exclude mask-characters)

*** EditChange event - Occurs when the user alters the item's text box field. ***
LPARAMETERS Itm
	with thisform.ToolBar1
		DEBUGOUT( Itm )
	endwith

with thisform.ToolBar1
	.ToString = "Mask[edit=98][editwidth=-128][edittype=2][mask=00000],Mask[edit=98][editwidth=-128][edittype=2][mask=00000;1]"
endwith
241
How can I generate/create a progress/step bar for installation

with thisform.ToolBar1
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAAEhABfQCg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGIaRWgmFgAQhFcZQSKUOQTDKMIziYBYJhEMgxDREIwjEKEIhoGQcJAGQBJCjWGodQLOEgwHI"
		var_s = var_s + "ERQjEyUpIgFBIYhzEAZJ5jOioaBOCY0TxCNCQG5oOBIACqariagBUoKUwADCNdIVfIUQBFDYZabjeooJpmWJWRbJQyiLaVaQSGoYLqgO6LajWIJORpZcB1BK2Cy5FSWJ"
		var_s = var_s + "amCYpEwXBY6TpIFKXDIsOSDIqvaKpDI4WxMH4JYELOy4aYPJgAaYweSTTi8CYzMSOLIpOCcCADH4DWjAeh1DAdPzdNytY4uO5YRrzRZ5RDZOgQTq4AZrXbHJpwehZMwy"
		var_s = var_s + "DmEwMmieBch4ExDk2Cxvi4HAMi6MhTlQGBrnsA4dhQapNGqXBzCMfgaj+DgHkSYRfHiVx+EeSxIAAaBYEaVZfHQXpXngCBCEUAYkGMHQHFGSBlEGUISCgFRAkQIQ2BIR"
		var_s = var_s + "oRFQDAoEIW4WgkawGBEcRSBOAQQhaJgmgmYoIiYKoKmKSI2C6C5jAiLAkAcDpYk4NYNCMaJmDiDpjHidg6g+IxIhYMYQmQSQWEaEZiHifhKg8JI5AIToNiQKQiFKFJlE"
		var_s = var_s + "kGhNhWZJJGYT4QFAORWF6F5mAkJhahYJY5hYUBAmOeI4n+GpmkmNhuhuZwJkYcocmcSZWG+C4mEmZhjg8EIZDYaodigCgGgKIJnBmYh7hmKB5hwAIZCeegSg6I5pAmNo"
		var_s = var_s + "GiIKRIn4fYiGMSg2hGJppkmVoTh6KRKF6FYmGKWh2iaKZnHiNoghkKgqi6JILTKRonieaYJDqLYtGaGoWjKLppBqUojDsax6n6OYsCuSwWgSL4qkmIo4i0aYrBqTodCy"
		var_s = var_s + "CRqkGK4mFsNpPjWaoYjLlRsjsCovgqbYLgYcI0GxhZejmbRrgqWIvi0Ox2lSOhuisPoTjsbh7j6Oo8G4KI6nSNQvGsEp4jgb4rhqfI7i2eIqn+Phqikcpcj0bZbkMB4u"
		var_s = var_s + "m6TALASJQwmwPoxjkL48E4NpFHEapPAmGRxhuIp3kcbBbhKFpEjCQ43BySQpkzjZKC+W4DCySRxnsUwhh+Mg8k8F5NHEPJeDySpzioPwui+c5sisOZQGobQPDaTAzn0H"
		var_s = var_s + "xIksc5MicJ5CmwPJLE+R4tiwao1jAdANF6AZSjWKJ2iKGB2E2FhFkCcoZEcZpanaSM7FucItjccpbDcDRLAoHUXIKANACICA"
		.Add(2,var_s)
		.Add(1,"CP:2 -8 0 12 0")
		var_s1 = "gBFLBCJwBAEHhEJAAEhABNoDg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGIaRWgmFgAQhFcZQSKUOQTDKMIziYBYJhEMgxDREIwjEKEIhoGQcJAGQBJCjWGodQLOEgwHI"
		var_s1 = var_s1 + "ERQjEyUpIgFBIYhzEAZJ5jOioaBOCY0TxCNCQG5oOBIACqariagBUoKUwADCNdIVfIUQBFDYZabjeooJpmWJWRbJQyiLaVaQSGoYLqgO6LajWIJORpZcB1BK2Cy5FSWJ"
		var_s1 = var_s1 + "amCYpEwXBY6TpIFKXDIsOSDIqvaKpDI4WxMH4JYELOy4aYPJgAaYweSTTi8CYzMSOLIpOCcCADH4DWjAeh1DAdPzdNytY4uO5YRrzRZ5RDZOgQTq4AZrXbHJpwehZMwy"
		var_s1 = var_s1 + "DmEwMmieBch4ExDk2Cxvi4HAMi6MhTlQGBrnsA4dhQapNGqXBzCMfgaj+DgHkSYRfHiVx+EeSxIAAaBYEaVZfHQXpXngCBCEUAYkGMHQHFGSBlEGUISCgFRAkQIQ2BIR"
		var_s1 = var_s1 + "oRFQDAoEIW4WgkawGBEcRSBOAQQhMbIkA6IhoiIJ4KGKSIuC6CojAiNgxguYwolYNINmMOJmDaDojgiJAkAcDpYn4QYQCQKQWESEZkDkJhGhKJAIhYPYTmOSRGDuFJlA"
		var_s1 = var_s1 + "kUhShUY4JC4WoSCWOQyF6EIkmkXhihWJhJGIY4ZiYWJCF2GplkmNhfhMUA5iYcoaCcSYeHaHJDimMhvh6Z4kCYSxqGgCgEngO4NioDoFiEKBqCaCIimgeg2gqI4okoPt"
		var_s1 = var_s1 + "HGkShChaIBpgMDh6iaZppC4fobimGgKhXVBqhKJoomqCoWimIYqBoAoch8KZZkAAIeiqVomieKorgqXo6iqa5KDaNRpiqewGjKK5rnMDo7i4a5bB6SovGwWwKjAOxpns"
		var_s1 = var_s1 + "PhCjEbI7CKVo1G2Cgyk2LBtCsDpchcbRLCaYo1m4OxklqNptlkepRjOLQ6n6Zo7m4W5Gj6L5ukseppjgLprkqcI5C+SoSmiK5ujsfwCDsbgbnaepBnAa5OjWQAQDuVpP"
		var_s1 = var_s1 + "kEb48EcCI/i8SxzAGPZwDwQwTkacIal6f4SDEfA6jSPhxw6EouDGexDA2QJyCkIwakkcwMh8FJCm8bI3BiQQyEzo5HCwXIHCyT5lmyPw6kwc5Kn8PpNmwTJnDuUQ0kqM"
		var_s1 = var_s1 + "wVkqKw9AMDpQjSPQOlWSh0HyWpti0dRtFcCJKGYDIvEiNw1E0NxekIdgMgMYpWiQDYXF2WYvk2JpqlqdQsjsJUXAbR9C+E+IYNQOwPBxFcGwfYzRji5CeLsUo0xbhwB4"
		var_s1 = var_s1 + "E0F4vR3C6EKJ0YgbwOBWDOFYdonA7AzF2PALgjRWjCDiLoZw2xmByC6A4Coyg4i8BcPsH49AODXBmMkagPBWC7EWPIDoXwKjODeNQewxQxD3A6M8Oo3R7idHWFMa4YA0"
		var_s1 = var_s1 + "BPD6OEfAngXiNG+PQXwThQjjHyJ4N4nRyB2F8FICQdRcgoA0AIgI"
		.Add(4,var_s1)
		.Add(3,"CP:4 -8 0 12 0")
		var_s2 = "gBFLBCJwBAEHhEJAAEhABFIDg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGIaRWgmFgAQhFcZQSKUOQTDKMIziYBYJhEMgxDREIwjEKEIhoGQcJAGQBJCjWGodQLOEgwHI"
		var_s2 = var_s2 + "ERQjEyUpIgFBIYhzEAZJ5jOioaBOCY0TxCNCQG5oOBIACqariagBUoKUwADCNdIVfIUQBFDYZabjeooJpmWJWRbJQyiLaVaQSGoYLqgO6LajWIJORpZcB1BK2Cy5FSWJ"
		var_s2 = var_s2 + "amCYpEwXBY6TpIFKXDIsOSDIqvaKpDI4WxMH4JYELOy4aYPJgAaYweSTTi8CYzMSOLIpOCcCADH4DWjAeh1DAdPzdNytY4uO5YRrzRZ5RDZOgQTq4AZrXbHJpwehZMwy"
		var_s2 = var_s2 + "DmEwMmieBch4ExDk2Cxvi4HAMi6MhTlQGBrnsA4dhQapNGqXBzCMfgaj+DgHkSYRfHiVx+EeSxIAAaBYEaVZfHQXpXngCBCEUAYkGMHQHFGSBlEGUISCgFRAkQIQ2BIR"
		var_s2 = var_s2 + "oRFQDAoEIW4WgkawGBEcRSBOAQQhAVJCCWIhoiIJ4KGKSIuC6CojAiNgxguYwolYNINmMOJmDaDojgiJAkAcDpYn4QYQCQKQWESEZkDkJhGhKJAIhYPYTmOSRGDuFJlA"
		var_s2 = var_s2 + "kUhShUY4JC4WoSCWOQyF6EIkmkXhihWJhJGIY4ZiYWJCF2GplkmNhfhMUA5iYcoaCcSYeHaHJJGmMhvh6Z4kCYSxqGgCgEn+IJoEoFoGiGaIKCaCoimiSg2geIBpAMDh"
		var_s2 = var_s2 + "6iSZppC4fobikGgKg6JppkodoeiIaYaAKFIfCkWZAACHoqBaJofiqapKjaD4qGkKoWiSHppHqTowDCapqmaOonCses9C0ag6l6O4wmwSo+imL4rCsAoyh+awLBaToxCu"
		var_s2 = var_s2 + "WwukkQJsgkepCjObYKjqUYsmkaxSlKLYslsZpiiebY6n6Xo3C2exemOOpomuFpTimbZ7Faao7C8SoCjCHxua4QY4G8W52gaO4khsKpokCZArk6fo/jADAKnqPBkAwGwH"
		var_s2 = var_s2 + "j0bY8CsDJBCSDA7A+OwrHwSwUkacRsamRhvhwTwLDscZcHqWZEHIHBunuKhyGudwJkocg5HcJZLGybACGCTAyCoYp8k0MZ7l6b5MHO/w8jqcxpjsGo8jOPVAFEaxMmMA"
		var_s2 = var_s2 + "5MnSKvlD4LwMHMSZUGwXROl+UZ0BqBxYkmc5sioSJXCSHRDF+Kw1iwbxklmNh7hMYZQCWbBrGyWxpl2JxwkCG4PYpQbi7DODsRozwtjwRGAUYI8BOArCmLgLQqAngNGK"
		var_s2 = var_s2 + "PETgbwOjDHeLsXQBxjjyE4K8FoyA2BcGcG4AAHQ3BKKUIAgI"
		.Add(6,var_s2)
		.Add(5,"CP:6 -8 0 12 0")
		var_s3 = "gBFLBCJwBAEHhEJAAEhABSoCg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGIaRWgmFgAQhFcZQSIEEhHBKMYwjOJgFgmEQyDCNAEwXDSEQ0DIOEgjGAkRxtDQZIRnGA5Bi"
		var_s3 = var_s3 + "GI4RSbKMgwPBIZxCGSfIzpGKqAiCN42UCNFByXAgbyPKibJBBeK4dgOEYhVg7IaCIAFRTJCyTRpEWybLgkNQwWzAdr3DTMTQ3LavKbvKoaYi2L4xSCNEi3VK8dwlJyeK"
		var_s3 = var_s3 + "bpWA5IpKCZEQLRU5UXC+KA/OyBY7xHBIXpGU6PVZOVYSHTUE4vAauQAzKQoDqGY5la7aE5WVZkIznWy4Ih0TMcTgBPDVM4qCapJr3DqRRDKMxUfimF57J5hehADoWDw7"
		var_s3 = var_s3 + "kSFRLDsFReEiUBxiOJRCHgEQdE6egti6MhZjqWJNiaTppjeNxuGMdYJP+AZlmERb8hARAkiAaQYkcQZUHIGRZIOVgDFAMQIE2AZRiQVQDAoEZEHkTgGBEcICAgfiDlSQ"
		var_s3 = var_s3 + "gliGKByBuBxiSSIoHiISIGCWCJiGgdAkAcDpYi4LYLCKaJGDCDJiniVgyg2IpIiYKIOmIeJ2DqD4iDiXhCg0JA4mIRoLiOeQmDyEokAidhFhOZBJEYR4OGSORWE2Ewkk"
		var_s3 = var_s3 + "kQhThaZYnFIXh0E+eYGGKGJmEmFhmhmZZ5iSQ4WiaSRKDeGomAmHhyhyZxJkIXobGWSY6CyHYnEmdh+hkZxnFIeIgmeOZCH+IZogoBZRiEJ4TjYfIiCkCZ+gqGpnioNg"
		var_s3 = var_s3 + "uiOaQaGYfYkmiSY+gaJoqAoboKicaBZiqIYpmoKgGgyJgqgqNhoiiaRaF6H4risSo+iqJRqkqVo6hkKZJEqOYumwCYKj2DRrnsBpGD+bA7BaR4xmkOwqkuMBslqTpPjG"
		var_s3 = var_s3 + "LIbEqU4tGwOpKiaNZrEsZg0jOLZKB6XoRi4C4GHOOJkFuFpmi8KwKFqJYaG6OomHaKQomsWpxjCLpblK9F6kaPo9i2S52m6OQwAsLwCj0LYrkKV5Bm+ag2nuKZwkwDhd"
		var_s3 = var_s3 + "jQcRMFYcJCDCWh7BaRptBwYwSjecZMgcF5GHITAMmsboQDQBCAg="
		.Add(8,var_s3)
		.Add(7,"CP:8 0 0 12 0")
		.RenderType = -2130772226
	endwith
	.Locked = .T.
	var_s4 = "gBJJgBAIEAAFAEGCgAhb/hz/EIAh8Tf5CJo2AEZjQAjEZFEaKEaj8ZAIAEEbjIylErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s4 = var_s4 + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx2PyGRyWTymVy2XzGZzWbzmdz2f0Gh0Wj0ml02n1Gp1"
	var_s4 = var_s4 + "WOh8Sh1q1ux1+yf9m2mu2tx1tp2+81+638w3ds4dn3vE2fBu/FrW353J3Nk49z5lt6tc68r7Ni6dy7e+6Nf78a8fi6F68u25Ve7fprPP8Pq+Mt91U9P1q/w2Hn63n/Dm"
	var_s4 = var_s4 + "v89b+vm1cCwNA8EQTBUFwYtyLB8lkII8kCRI0kqSo2cEMJy/8Grsf5+Aef5gRBERgIyf5/REcEUxXFEVH/FkYHBFB/xEeCHRujJ8A8R5AnRHkfHQjJgACdgAA9Isjg8j"
	var_s4 = var_s4 + "JAACfAAA/J0oA/JsnyjKcoytKksyqjR4AAB6MzBMUvzDMczzNMsyI3NgATdNE1zTOM6ABLsuy3LEry9O89yIAZ+AAH5gUBQUdg+f5An+fFEUUjKAgA=="
	.Images(var_s4)
	var_s5 = "gBJJgBggAAQAAgACkKAD/hz/EMNh8TIRNGwAjEZAEXjAojJQjMLjABAAgjUYDMnlUrlkZQcZZ8ZVkymkYVMZOUtjB1moAmcYn8+mEZQk6lsvjExoE9oM3jE5nU8pdToV"
	var_s5 = var_s5 + "UpQAotGldIAFXoNfjNOAFQltSqtnsFJolardDqlpAFiskss1wuFXrNsjRojJ/jIkv+BjBpnFGsxrwQAwEYxYAQEZwl6vd9xONxuRseGjOIxmVjOPweSycYv2d02KyGFq"
	var_s5 = var_s5 + "Obz2n0AAzGivmk1uo0NPzUYzm23mN1+xyRhjJqyRY1VljJayRsjJj0UZ4UY4l64241cY5V65kY53PAHRAHTtnVzPXAHZtnbAHd5/g8Va8lzldm9Fa9Xs0Xu4vHunJ5bm"
	var_s5 = var_s5 + "u877hv26zkOw/7uQC/TqP4+b/O1ADvQW8cGpU+kEPXBUBr0LjPoyDUPpcjIvQw/Dgw2tkOow18QIxFoAK5EkIQTCUUK1FTHRDF0RIxGT0wi9sbKNHEWR1GERxLDTpMkO"
	var_s5 = var_s5 + "iMmUjJPSgjJloyO0kxrJa9SajEnoxKMvSnKsryDLK2S2AEugBL81TCjErRnDMsPDJknSlMCMSpN0xvzISdA+jKOAAFaM0GjFAz/OETL1CatUQjdCUhQyM0c+0gT5MtG0"
	var_s5 = var_s5 + "BSNBU0jFKKM+8lTmvVHUDQtOUlT09xPTEA1cljZgAL9RPfV9bNHWVaVvXdcVnOVa15V9Y18locIyCaMicjIo2DXgioyIljoyG6M2MjFkIxZSMWZZtb2ejFo2vadq2lbN"
	var_s5 = var_s5 + "l27b1oXKAFqIxawAWwAFtABbl0Vdb4AXDeFxowUSMiOjIWoyDl7Veg6MAujIkIyT6M38jGAIxgSMYJgsA4OAGEoxhaMYbft/4DgeLYujONABjgAY8AGHgBiIAYmAGK5G"
	var_s5 = var_s5 + "0WMZNlGVBUjJGozHAMZm54LIyLedIyE6M5yjGdoxnuftFoKMaHpOi6Pomlozn2mr1p4AaiAGlABoyMaRr2eavrOtaFquwIyBCMh2jI2ugjKUpHn6SJQjIxbgjIdIyA+2"
	var_s5 = var_s5 + "bdvaMPBugAbvkfD8LvSMbijG+oxv6MbajG38ZuW8brmfE7zwQAceAHIgByYAcqAHGwFzHDbtufOctx2/JX0YgxRYgNoyA1m9xiiM2IzAgcAnXZdojPbIx3VeePmXeoz3"
	var_s5 = var_s5 + "/JKN4Uy9r2/c5EjHlox5vReejPZ+j4np2D5PeNT7HgLZ0PPteKqMpNyEA9D9oACujJIIyJqMgl9++Q8jH1ow/F0Jon4EZfmRh+pGH7kYfyd59D/AAP+JK7CBj7ICP0fs"
	var_s5 = var_s5 + "/h/Tr0VkZghACDMESMQFABAcAECQAQLVeQkjAJWGIPAAo5jBLGMKOa6ywMq5yMAsVvCoAELGOwuhgUaGbaWPkYhutsjMOlbQ8h8ymIBGYYkriG1BhxGYjr0iTDsjMTWV"
	var_s5 = var_s5 + "HoiCTqKbXIqxGhwACJSvHQgiIyHqK0WyjRNiuHmNxGAnkZCoRkF6zY0xrjbCuN8fQARyj9HSO0eI9EZjURiNkZJBktjgRmQUPSMx1IxHcjEeVgx7kVICJpLJHkYkjE2S"
	var_s5 = var_s5 + "gAJLAAkwugAZGQZJADMyEjALiMhngcHwjIbyMiVIyG4jIMGCypIxKtGgAJWsSIzLAjEsoNkYloRiWxGJcEYl0RiXi9pfAAmAnGYUrgATGABMhHMypay3lzLuXsqpWTam"
	var_s5 = var_s5 + "5N418ywATNABM8AE0QATTZGxgGsgHTuniuSAjARnLztYU99mc9p8Odn2Rmfzg5wsboFPUjM95GOmoMR+hE/53MoeLQ4jFEAARXnzICfgAKEuooBQwjFGWmuHBSRkP1LC"
	var_s5 = var_s5 + "M0rcy2dANKqXEYpaRimDqqZUzpfTUAFNwAU5cPTs0VNKbU+qFURYLGIo1KW7UypzFqoVRXtVNmZFQfErqyR2ihGCROqqGAAeCtyHgAGAGAPgBgD1nrS5EZwbw+DmHvW+"
	var_s5 = var_s5 + "uI9yMV0rlXiuwAK9V6rvXCvNgK9jOAeHwcFc7C2HKSP8Pg/x7jPsZY6xdjbH2Rr3ZCylmLJAAAeP8QA/x8Wds+PgjFnSGjwtMP+sYABDj+AwH8cNrbXjhIxbK2FtraAA"
	var_s5 = var_s5 + "GGPwPgPxj27t6McjA8R4B/A+Ae4lxnIj4DAH8QwB7mXOciPwAAfxgAHupda6d1br3ZuuRgf1nRwD/vCP+8ZGB/ifH+Pkh16r2EYICA=="
	.Images(var_s5)
	var_s6 = "gBJJgBggAAQAAgACkKAD/hz/EMNh8TIRNGwAjEZAEXjAojJQjMLjABAAgjUYDMnlUrlktl0akQAGMZI80jMzjExl87nk9n0/oFBoVDolFo1HpE9B0ZJcZSkZYEZaUZa9"
	var_s6 = var_s6 + "UqVQp1MjNLpNdr1fsFhsVjsAFjItjJ5jK4jK2jKejKDjJxudxt9ttdps8Zs1kv1/wGBwWCtEYPcZY15jB3jI/jIajIHyOPxsZxkYtkYxOGveDz2f0Gh0NcAFqjDHjKyj"
	var_s6 = var_s6 + "I9rdd0msjGq096jGk0W33G53U8JkZXOKAGwAAGv3EjHCzIA5NN3fN53P0NPjC3y2tnsHjAJo2ky4A6kY6XQ8Xj8lGCsZX93jBAnwkjJbjKBjI6jIPoXsjFwjHpjAT8r/"
	var_s6 = var_s6 + "wBAKThkjJprsjDIJclKMDUjJeIybaMkwjL8AA+yewSAC5IwqaMBhAUQRC6AkIybCMjkjIEJeJqMlbAqMlQjJ0IySyMh8yaXRUjEUIwqqMCNEUgyE0USIxE0dxSl4ZoyK"
	var_s6 = var_s6 + "aMyAjCTIwQ6MmgjJRIyHaXx0AEeABHwASfIcxTGskCIxAyMQ2AEMpZC4AAsjIIIyhKMBNA4AFKjI6JfDM1Q6AEPzJQVBqS879vUAEKq9QIACojIkpfCr9AA/iGUJS9MK"
	var_s6 = var_s6 + "I8LvgA7oGtA7iM048NM1LUyet6jDfumjIeIy4yx1g4VOOXU9bVuljSNMADNgA2TguspDXtSxDaAA21cWTZLCgAPiMtQzDqowx0ERwADJWradpOVYrOIxZllXDZS+gAFy"
	var_s6 = var_s6 + "Mj031RURNS6IxdsNURTlVtKzoAXJcV8Xy0lUgASqsQ4q0equjCooxfyMX5ZF84Xhid0MmSbIwmqMJwAGH4bjFTorG6VY4ACPIwkCcoykiSI0eCjIeAB/AflCWZRlyV5g"
	var_s6 = var_s6 + "lqojglpBn5OSWEOf2dJWR5f58lWgaEk4HA+lwGTclYGCGlwHnHp+opaR5/6KjWeauuOc5oAGbJZmqW5mlmWZilSAgA=="
	.Images(var_s6)
	var_s7 = "gBJJgBggAAQAAgACkKAD/hz/EMNh8TIRNGwAjEZAEXjAojJQjMLjABAAgjUYDMnlUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpE5g8YCcZBMZpc1qNPjA"
	var_s7 = var_s7 + "SqFJrFZrVbrlYBUZH8ZKcZHcZC0vC8ZHtitVOrtvuFxuVzjARjJsjLHjKpjJZjIfjMmjBbjKtvMZM8ZCF0xmNx2PnALjJFjLMjL4jLjjK8jLAjLky8ZZcZIEZr+Q1Gp1"
	var_s7 = var_s7 + "WOAsZD0ZYcZf0ZfMZd8ZeG02UZYUZDcZhOr4XD4lIqIOjK6jL63cY2fO5oA2sYW8ZBkZknF7Xb7k0qN2jGUjF6jHTAHP8/R9GYjDEjJCjIPq/d+n14nZAHgABEjLIjJ4"
	var_s7 = var_s7 + "vVALoQGADcva0jFOw+0FwYujFowLSMmajJ6oyfkBPTAj0PRC6MQqjBlIyK74wbEsTK0iKMDIjJZNEjJtoydyMn3DDmIwdiMm0jMQowWKMjCv8TyFIahgqjIarYjAvoyN"
	var_s7 = var_s7 + "aMkyjJpQwaCMksjI1IyLyMikjIZpDIkvzArgaIyScZzMjBHoyGMwzZNrHtOAAsP/GKMiqjIDzdPM9Le/EkIwUyMlCjMxpHPdDUOrMjIw/iMCDL1EUhSKigG6yMskjFKU"
	var_s7 = var_s7 + "lTVN05TtPU/UFQqwiofJXUqOo/R4AJI/CMQMnKHolV6VIdWaT1qlp8njWyNHwANeMvX6W19YCMWJYdhJY3NigAzw4JbZ1oABZ6WH8B9mWtZh/k/bVuJbbdtH/cNmICA="
	.Images(var_s7)
	with .Items
		with .Add("",2)
			.GroupPopup = 35 && GroupPopupEnum.exGroupPopupEqualHeight Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add(" <img>5</img> Home")
					.BackColor = 0x7000000
					.ItemHeight = 36
					.Alignment = 2
					.ForeColor = RGB(128,128,128)
				endwith
				with .Add("   <img>6</img> Gebaude")
					.BackColor = 0x5000000
					.Alignment = 2
					.ForeColor = RGB(128,128,128)
				endwith
				with .Add("   <img>6</img> Aussttung")
					.BackColor = 0x5000000
					.Alignment = 2
					.ForeColor = RGB(128,128,128)
				endwith
				with .Add("   <img>3</img> Produkt")
					.BackColor = 0x3000000
					.Alignment = 2
				endwith
				with .Add("   <img>4</img> Rabate")
					.Alignment = 2
					.BackColor = 0x1000000
					.Enabled = .F.
				endwith
				with .Add("   <img>7</img> Ergebnis")
					.Alignment = 2
					.BackColor = 0x1000000
					.Enabled = .F.
				endwith
			endwith
		endwith
	endwith
	.Refresh
endwith
240
Is there any function to retrieve all available shortcut keys

with thisform.ToolBar1
	.Object.Background(144) = RGB(0,0,1)
	.Object.Background(145) = RGB(255,255,255)
	.ShortcutKeyVisible = 36 && ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
	with .Items
		.PopupAppearance = 6
		with .Add("",2,10)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Item 1",0,20)
					.Check = -1
					.Shortcut = "ALT+1"
				endwith
				with .Add("Item 2",0,30)
					.Check = -1
					.Checked = -1
					.Shortcut = "ALT+2"
				endwith
				with .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					with .Items
						with .Add("Sub-Item 3.1",0,50)
							.Radio = -1
							.Checked = -1
							.CloseOnClick = 0
							.Shortcut = "1"
						endwith
						with .Add("Sub-Item 3.2",0,60)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "2"
						endwith
						with .Add("Sub-Item 3.2",0,70)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "3"
						endwith
					endwith
				endwith
			endwith
		endwith
	endwith
	.Refresh
	DEBUGOUT( .ShortcutKeysInfo )
endwith
239
How can I display shortcut keys with a different size

with thisform.ToolBar1
	.ShortcutKeyFormat = "`<font ;14>` + caption"
	with .Items
		.PopupAppearance = 6
		with .Add("",2,10)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Item 1",0,20)
					.Check = -1
					.Shortcut = "ALT+1"
				endwith
				with .Add("Item 2",0,30)
					.Check = -1
					.Checked = -1
					.Shortcut = "ALT+SHIFT+2"
				endwith
				with .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					with .Items
						with .Add("Sub-Item 3.1",0,50)
							.Radio = -1
							.Checked = -1
							.CloseOnClick = 0
							.Shortcut = "1"
						endwith
						with .Add("Sub-Item 3.2",0,60)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "2"
						endwith
						with .Add("Sub-Item 3.2",0,70)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "33+3"
						endwith
					endwith
				endwith
			endwith
		endwith
	endwith
endwith
238
How can I display shortcut keys with a different font

with thisform.ToolBar1
	.Object.Background(144) = RGB(0,0,1)
	.Object.Background(145) = RGB(255,255,255)
	.ShortcutKeyFormat = "`<font Stencil>` + caption"
	with .Items
		.PopupAppearance = 6
		with .Add("",2,10)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Item 1",0,20)
					.Check = -1
					.Shortcut = "ALT+1"
				endwith
				with .Add("Item 2",0,30)
					.Check = -1
					.Checked = -1
					.Shortcut = "ALT+SHIFT+2"
				endwith
				with .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					with .Items
						with .Add("Sub-Item 3.1",0,50)
							.Radio = -1
							.Checked = -1
							.CloseOnClick = 0
							.Shortcut = "1"
						endwith
						with .Add("Sub-Item 3.2",0,60)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "2"
						endwith
						with .Add("Sub-Item 3.2",0,70)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "33+3"
						endwith
					endwith
				endwith
			endwith
		endwith
	endwith
endwith
237
How can I change the visual appearance of the shortcut keys (sample 3, theme)

with thisform.ToolBar1
	.VisualAppearance.Add(1,"XP: Button 1 1")
	.Object.Background(143) = 0x1000000
	.Object.Background(144) = RGB(0,0,0)
	.Object.Background(145) = RGB(0,0,0)
	.ShortcutKeyVisible = 36 && ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
	with .Items
		.PopupAppearance = 6
		with .Add("",2,10)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Item 1",0,20)
					.Check = -1
					.Shortcut = "ALT+1"
				endwith
				with .Add("Item 2",0,30)
					.Check = -1
					.Checked = -1
					.Shortcut = "ALT+2"
				endwith
				with .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					with .Items
						with .Add("Sub-Item 3.1",0,50)
							.Radio = -1
							.Checked = -1
							.CloseOnClick = 0
							.Shortcut = "1"
						endwith
						with .Add("Sub-Item 3.2",0,60)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "2"
						endwith
						with .Add("Sub-Item 3.2",0,70)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "33+3"
						endwith
					endwith
				endwith
			endwith
		endwith
	endwith
endwith
236
It is possible somehow to show all available shortcut keys (sample 2)

*** SelectItem event - Occurs when the user selects the item. ***
LPARAMETERS Itm
	with thisform.ToolBar1
		.ShortcutKeyVisible = 36 && ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
		.ShortcutKeyFormat = "`<c><font ;6><fgcolor 808080>` + sca + `</fgcolor></font><br><c>Key:` + keys"
		.ShortcutKeyPressedModifers = -65536
		.ShortcutKeyFormat = ""
		.ShortcutKeyVisible = 4
	endwith

with thisform.ToolBar1
	with .Items
		.PopupAppearance = 6
		with .Add("",2,10)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Item 1",0,20)
					.Check = -1
					.Shortcut = "ALT+CTRL+1"
				endwith
				with .Add("Item 2",0,30)
					.Check = -1
					.Checked = -1
					.Shortcut = "ALT+SHIFT+2"
				endwith
				with .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					with .Items
						with .Add("Sub-Item 3.1",0,50)
							.Radio = -1
							.Checked = -1
							.CloseOnClick = 0
							.Shortcut = "1"
						endwith
						with .Add("Sub-Item 3.2",0,60)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "2"
						endwith
						with .Add("Sub-Item 3.2",0,70)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "33+3"
						endwith
					endwith
				endwith
			endwith
		endwith
	endwith
endwith
235
It is possible somehow to show all available shortcut keys (sample 1)

*** SelectItem event - Occurs when the user selects the item. ***
LPARAMETERS Itm
	with thisform.ToolBar1
		.ShortcutKeyPressedModifers = -65536
	endwith

with thisform.ToolBar1
	with .Items
		.PopupAppearance = 6
		with .Add("",2,10)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Item 1",0,20)
					.Check = -1
					.Shortcut = "ALT+1"
				endwith
				with .Add("Item 2",0,30)
					.Check = -1
					.Checked = -1
					.Shortcut = "ALT+2"
				endwith
				with .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					with .Items
						with .Add("Sub-Item 3.1",0,50)
							.Radio = -1
							.Checked = -1
							.CloseOnClick = 0
							.Shortcut = "1"
						endwith
						with .Add("Sub-Item 3.2",0,60)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "2"
						endwith
						with .Add("Sub-Item 3.2",0,70)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "33+3"
						endwith
					endwith
				endwith
			endwith
		endwith
	endwith
endwith
234
How can I show the shortcut keys semi-transparent

with thisform.ToolBar1
	.Object.Background(143) = RGB(0,0,0)
	.Object.Background(144) = RGB(0,0,1)
	.Object.Background(145) = RGB(255,255,255)
	.ShortcutKeyVisible = 36 && ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
	.ShortcutKeyTransparent = 50
	with .Items
		.PopupAppearance = 6
		with .Add("",2,10)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Item 1",0,20)
					.Check = -1
					.Shortcut = "ALT+1"
				endwith
				with .Add("Item 2",0,30)
					.Check = -1
					.Checked = -1
					.Shortcut = "ALT+2"
				endwith
				with .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					with .Items
						with .Add("Sub-Item 3.1",0,50)
							.Radio = -1
							.Checked = -1
							.CloseOnClick = 0
							.Shortcut = "1"
						endwith
						with .Add("Sub-Item 3.2",0,60)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "2"
						endwith
						with .Add("Sub-Item 3.2",0,70)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "33+3"
						endwith
					endwith
				endwith
			endwith
		endwith
	endwith
endwith
233
Is it possible somehow to display ID of each item

with thisform.ToolBar1
	.Debug = .T.
	with .Items
		.PopupAppearance = 6
		with .Add("",2,10)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Item 1",0,20)
					.Check = -1
					.Shortcut = "ALT+1"
				endwith
				with .Add("Item 2",0,30)
					.Check = -1
					.Checked = -1
					.Shortcut = "ALT+2"
				endwith
				with .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					with .Items
						with .Add("Sub-Item 3.1",0,50)
							.Radio = -1
							.Checked = -1
							.CloseOnClick = 0
							.Shortcut = "1"
						endwith
						with .Add("Sub-Item 3.2",0,60)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "2"
						endwith
						with .Add("Sub-Item 3.2",0,70)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "33+3"
						endwith
					endwith
				endwith
			endwith
		endwith
	endwith
endwith
232
How can I change the visual appearance of the shortcut keys (sample 2, EBN)

with thisform.ToolBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Object.Background(143) = 0x1000000
	.Object.Background(144) = RGB(0,0,0)
	.Object.Background(145) = RGB(0,0,0)
	.ShortcutKeyVisible = 36 && ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
	with .Items
		.PopupAppearance = 6
		with .Add("",2,10)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Item 1",0,20)
					.Check = -1
					.Shortcut = "ALT+1"
				endwith
				with .Add("Item 2",0,30)
					.Check = -1
					.Checked = -1
					.Shortcut = "ALT+2"
				endwith
				with .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					with .Items
						with .Add("Sub-Item 3.1",0,50)
							.Radio = -1
							.Checked = -1
							.CloseOnClick = 0
							.Shortcut = "1"
						endwith
						with .Add("Sub-Item 3.2",0,60)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "2"
						endwith
						with .Add("Sub-Item 3.2",0,70)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "33+3"
						endwith
					endwith
				endwith
			endwith
		endwith
	endwith
endwith
231
How can I change the visual appearance of the shortcut keys (sample 1)

with thisform.ToolBar1
	.Object.Background(143) = RGB(0,0,0)
	.Object.Background(144) = RGB(0,0,1)
	.Object.Background(145) = RGB(255,255,255)
	.ShortcutKeyVisible = 36 && ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
	with .Items
		.PopupAppearance = 6
		with .Add("",2,10)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Item 1",0,20)
					.Check = -1
					.Shortcut = "ALT+1"
				endwith
				with .Add("Item 2",0,30)
					.Check = -1
					.Checked = -1
					.Shortcut = "ALT+2"
				endwith
				with .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					with .Items
						with .Add("Sub-Item 3.1",0,50)
							.Radio = -1
							.Checked = -1
							.CloseOnClick = 0
							.Shortcut = "1"
						endwith
						with .Add("Sub-Item 3.2",0,60)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "2"
						endwith
						with .Add("Sub-Item 3.2",0,70)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "33+3"
						endwith
					endwith
				endwith
			endwith
		endwith
	endwith
endwith
230
Can I show the shortcut key right after the item so it won't overlap it (sample 2)

with thisform.ToolBar1
	.ShortcutKeyExtPaddingH = "16 + width/2, 16 + height/2 ,16 + width/2,16 + height/2"
	.ShortcutKeyExtPaddingV = "16 + width/2, 16 + height/2 ,16 + width/2,16 + height/2"
	.ShortcutKeyVisible = 36 && ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
	with .Items
		.PopupAppearance = 6
		with .Add("",2,10)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Item 1",0,20)
					.Check = -1
					.Shortcut = "ALT+1"
				endwith
				with .Add("Item 2",0,30)
					.Check = -1
					.Checked = -1
					.Shortcut = "ALT+2"
				endwith
				with .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					with .Items
						with .Add("Sub-Item 3.1",0,50)
							.Radio = -1
							.Checked = -1
							.CloseOnClick = 0
							.Shortcut = "1"
						endwith
						with .Add("Sub-Item 3.2",0,60)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "2"
						endwith
						with .Add("Sub-Item 3.2",0,70)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "33+3"
						endwith
					endwith
				endwith
			endwith
		endwith
	endwith
endwith
229
Can I show the shortcut key right after the item so it won't overlap it (sample 1)

with thisform.ToolBar1
	.ShortcutKeyExtPaddingH = "width/2, height/2 ,width/2,height/2"
	.ShortcutKeyExtPaddingV = "width/2, height/2 ,width/2,height/2"
	.ShortcutKeyVisible = 36 && ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
	with .Items
		.PopupAppearance = 6
		with .Add("",2,10)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Item 1",0,20)
					.Check = -1
					.Shortcut = "ALT+1"
				endwith
				with .Add("Item 2",0,30)
					.Check = -1
					.Checked = -1
					.Shortcut = "ALT+2"
				endwith
				with .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					with .Items
						with .Add("Sub-Item 3.1",0,50)
							.Radio = -1
							.Checked = -1
							.CloseOnClick = 0
							.Shortcut = "1"
						endwith
						with .Add("Sub-Item 3.2",0,60)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "2"
						endwith
						with .Add("Sub-Item 3.2",0,70)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "33+3"
						endwith
					endwith
				endwith
			endwith
		endwith
	endwith
endwith
228
Can I specify padding for shortcut keys (sample 2)

with thisform.ToolBar1
	.ShortcutKeyPadding = "8,8,8,8"
	with .Items
		.PopupAppearance = 6
		with .Add("",2,10)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Item 1",0,20)
					.Check = -1
					.Shortcut = "ALT+1"
				endwith
				with .Add("Item 2",0,30)
					.Check = -1
					.Checked = -1
					.Shortcut = "ALT+2"
				endwith
				with .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					with .Items
						with .Add("Sub-Item 3.1",0,50)
							.Radio = -1
							.Checked = -1
							.CloseOnClick = 0
							.Shortcut = "1"
						endwith
						with .Add("Sub-Item 3.2",0,60)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "2"
						endwith
						with .Add("Sub-Item 3.2",0,70)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "33+3"
						endwith
					endwith
				endwith
			endwith
		endwith
	endwith
endwith
227
Can I specify padding for shortcut keys (sample 1)

with thisform.ToolBar1
	.ShortcutKeyPadding = "0,0,0,0"
	with .Items
		.PopupAppearance = 6
		with .Add("",2,10)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Item 1",0,20)
					.Check = -1
					.Shortcut = "ALT+1"
				endwith
				with .Add("Item 2",0,30)
					.Check = -1
					.Checked = -1
					.Shortcut = "ALT+2"
				endwith
				with .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					with .Items
						with .Add("Sub-Item 3.1",0,50)
							.Radio = -1
							.Checked = -1
							.CloseOnClick = 0
							.Shortcut = "1"
						endwith
						with .Add("Sub-Item 3.2",0,60)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "2"
						endwith
						with .Add("Sub-Item 3.2",0,70)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "33+3"
						endwith
					endwith
				endwith
			endwith
		endwith
	endwith
endwith
226
Is it possible to specify where the shortcut keys should be shown

with thisform.ToolBar1
	.ShortcutKeyAlignH = 0
	.ShortcutKeyAlignV = 34
	.ShortcutKeyVisible = 292 && ShortcutKeyVisibleEnum.exCloseShortcutKeysOnClick Or ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
	with .Items
		.PopupAppearance = 6
		with .Add("",2,10)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Item 1",0,20)
					.Check = -1
					.Shortcut = "ALT+1"
				endwith
				with .Add("Item 2",0,30)
					.Check = -1
					.Checked = -1
					.Shortcut = "ALT+2"
				endwith
				with .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					with .Items
						with .Add("Sub-Item 3.1",0,50)
							.Radio = -1
							.Checked = -1
							.CloseOnClick = 0
							.Shortcut = "1"
						endwith
						with .Add("Sub-Item 3.2",0,60)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "2"
						endwith
						with .Add("Sub-Item 3.2",0,70)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "33+3"
						endwith
					endwith
				endwith
			endwith
		endwith
	endwith
endwith
225
Can I use different shortcut modifier keys for items

with thisform.ToolBar1
	with .Items
		.PopupAppearance = 6
		with .Add("",2,10)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Item 1",0,20)
					.Check = -1
					.Shortcut = "ALT + CTRL + 1"
				endwith
				with .Add("Item 2",0,30)
					.Check = -1
					.Checked = -1
					.Shortcut = "ALT+2"
				endwith
				with .Add("Item 3",2,40)
					.Shortcut = "CTRL + SHIFT + ALT+3"
					with .Items
						with .Add("Sub-Item 3.1",0,50)
							.Radio = -1
							.Checked = -1
							.CloseOnClick = 0
							.Shortcut = "1"
						endwith
						with .Add("Sub-Item 3.2",0,60)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "2"
						endwith
						with .Add("Sub-Item 3.2",0,70)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "3 + 33"
						endwith
					endwith
				endwith
			endwith
		endwith
		.Add("")
		.Add("Press <b>CTRL or ALT")
	endwith
endwith
224
How can I disable a shortcut key

with thisform.ToolBar1
	with .Items
		.PopupAppearance = 6
		with .Add("",2,10)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Item 1",0,20)
					.Check = -1
					.Shortcut = "ALT+1"
				endwith
				with .Add("Item 2",0,30)
					.Enabled = .F.
					.Check = -1
					.Checked = -1
					.Shortcut = "ALT+2"
				endwith
				with .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					with .Items
						with .Add("Sub-Item 3.1",0,50)
							.Radio = -1
							.Checked = -1
							.CloseOnClick = 0
							.Shortcut = "1"
						endwith
						with .Add("Sub-Item 3.2",0,60)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "2"
						endwith
						with .Add("Sub-Item 3.2",0,70)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "3 + 33"
						endwith
					endwith
				endwith
			endwith
		endwith
	endwith
endwith
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
with thisform.ToolBar1
	.ShortcutKeyVisible = 260 && ShortcutKeyVisibleEnum.exCloseShortcutKeysOnClick Or ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
	with .Items
		.PopupAppearance = 6
		with .Add("",2,10)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Item 1",0,20)
					.Check = -1
					.Shortcut = "ALT+1"
				endwith
				with .Add("Item 2",0,30)
					.Check = -1
					.Checked = -1
					.Shortcut = "ALT+2"
				endwith
				with .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					with .Items
						with .Add("Sub-Item 3.1",0,50)
							.Radio = -1
							.Checked = -1
							.CloseOnClick = 0
							.Shortcut = "1"
						endwith
						with .Add("Sub-Item 3.2",0,60)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "2"
						endwith
						with .Add("Sub-Item 3.2",0,70)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "3 + 33"
						endwith
					endwith
				endwith
			endwith
		endwith
	endwith
endwith
222
I have a shortcut that's not currently visible, the question is if I can invoke somehow
*** CheckItem event - Occurs when the user checks the item. ***
LPARAMETERS Itm
	with thisform.ToolBar1
		DEBUGOUT( Itm )
	endwith

with thisform.ToolBar1
	.ShortcutKeyVisible = 132 && ShortcutKeyVisibleEnum.exAllowShortcutKeysIfNotShown Or ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
	with .Items
		.PopupAppearance = 6
		with .Add("",2,10)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Item 1",0,20)
					.Check = -1
					.Shortcut = "ALT+1"
				endwith
				with .Add("Item 2",0,30)
					.Check = -1
					.Checked = -1
					.Shortcut = "ALT+2"
				endwith
				with .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					with .Items
						with .Add("Sub-Item 3.1",0,50)
							.Radio = -1
							.Checked = -1
							.CloseOnClick = 0
							.Shortcut = "1"
						endwith
						with .Add("Sub-Item 3.2",0,60)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "2"
						endwith
						with .Add("Sub-Item 3.2",0,70)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "ALT + 4"
						endwith
					endwith
				endwith
			endwith
		endwith
		.Add("press ALT + 4")
	endwith
endwith
221
Can I specify a longer delay to display shortcut once the user presses any modifer keys
with thisform.ToolBar1
	.ShortcutKeyVisible = 68 && ShortcutKeyVisibleEnum.exLongerDelayShortcutKeys Or ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
	with .Items
		.PopupAppearance = 6
		with .Add("",2,10)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Item 1",0,20)
					.Check = -1
					.Shortcut = "ALT+1"
				endwith
				with .Add("Item 2",0,30)
					.Check = -1
					.Checked = -1
					.Shortcut = "ALT+2"
				endwith
				with .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					with .Items
						with .Add("Sub-Item 3.1",0,50)
							.Radio = -1
							.Checked = -1
							.CloseOnClick = 0
							.Shortcut = "1"
						endwith
						with .Add("Sub-Item 3.2",0,60)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "2"
						endwith
						with .Add("Sub-Item 3.2",0,70)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "3+33"
						endwith
					endwith
				endwith
			endwith
		endwith
	endwith
endwith
220
How can I display extended shortcut keys

with thisform.ToolBar1
	.ShortcutKeyVisible = 36 && ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
	with .Items
		.PopupAppearance = 6
		with .Add("",2,10)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Item 1",0,20)
					.Check = -1
					.Shortcut = "ALT+1"
				endwith
				with .Add("Item 2",0,30)
					.Check = -1
					.Checked = -1
					.Shortcut = "ALT+2"
				endwith
				with .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					with .Items
						with .Add("Sub-Item 3.1",0,50)
							.Radio = -1
							.Checked = -1
							.CloseOnClick = 0
							.Shortcut = "1"
						endwith
						with .Add("Sub-Item 3.2",0,60)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "2"
						endwith
						with .Add("Sub-Item 3.2",0,70)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "333"
						endwith
					endwith
				endwith
			endwith
		endwith
	endwith
endwith
219
Is it possible to disable the shortcut keys, whithout changing the Shortcut property

with thisform.ToolBar1
	.ShortcutKeyVisible = 52 && ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or ShortcutKeyVisibleEnum.exDisableShortcutKeys Or ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
	with .Items
		.PopupAppearance = 6
		with .Add("",2,10)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Item 1",0,20)
					.Check = -1
					.Shortcut = "ALT+1"
				endwith
				with .Add("Item 2",0,30)
					.Check = -1
					.Checked = -1
					.Shortcut = "ALT+2"
				endwith
				with .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					with .Items
						with .Add("Sub-Item 3.1",0,50)
							.Radio = -1
							.Checked = -1
							.CloseOnClick = 0
							.Shortcut = "1"
						endwith
						with .Add("Sub-Item 3.2",0,60)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "2"
						endwith
						with .Add("Sub-Item 3.2",0,70)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "33+3"
						endwith
					endwith
				endwith
			endwith
		endwith
	endwith
endwith
218
How can display the shortcut keys only when modifier keys are pressed

with thisform.ToolBar1
	.ShortcutKeyVisible = 1
	with .Items
		.PopupAppearance = 6
		with .Add("",2,10)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Item 1",0,20)
					.Check = -1
					.Shortcut = "ALT+1"
				endwith
				with .Add("Item 2",0,30)
					.Check = -1
					.Checked = -1
					.Shortcut = "ALT+2"
				endwith
				with .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					with .Items
						with .Add("Sub-Item 3.1",0,50)
							.Radio = -1
							.Checked = -1
							.CloseOnClick = 0
							.Shortcut = "1"
						endwith
						with .Add("Sub-Item 3.2",0,60)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "2"
						endwith
						with .Add("Sub-Item 3.2",0,70)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "3+33"
						endwith
					endwith
				endwith
			endwith
		endwith
	endwith
endwith
217
How can I assign a shortcut key to an item

with thisform.ToolBar1
	with .Items
		.PopupAppearance = 6
		with .Add("",2,10)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Item 1",0,20)
					.Check = -1
					.Shortcut = "ALT+1"
				endwith
				with .Add("Item 2",0,30)
					.Check = -1
					.Checked = -1
					.Shortcut = "ALT+2"
				endwith
				with .Add("Item 3",2,40)
					.Shortcut = "ALT+3"
					with .Items
						with .Add("Sub-Item 3.1",0,50)
							.Radio = -1
							.Checked = -1
							.CloseOnClick = 0
							.Shortcut = "1"
						endwith
						with .Add("Sub-Item 3.2",0,60)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "2"
						endwith
						with .Add("Sub-Item 3.2",0,70)
							.Radio = -1
							.CloseOnClick = 0
							.Shortcut = "33+3"
						endwith
					endwith
				endwith
			endwith
		endwith
	endwith
endwith
216
Is it possible to insert items at a specified position during runtime, without rebuilding the entire item which hosts the items

with thisform.ToolBar1
	with .Items
		.Add("Item A",0,1000)
		.Add("Item B",0,1001)
		.Add("Item C",0,1002).Position = 0
	endwith
endwith
215
Is it possible to have a popup on a radio button when it is checked

with thisform.ToolBar1
	.ToString = "[group=0x03][id=0](Link[id=10][typ=2][grp=100][chk=1],Move To[id=20][typ=2][grp=100][spchk][arrow=0]())"
	with .Items.Item(20)
		.Items.Add("Item A",0,1000)
		.Items.Add("Item B",0,1001)
		.Items.Add("Item C",0,1002)
	endwith
endwith
214
Is it possible to minimize the control, once the user clicks a button

*** CheckItem event - Occurs when the user checks the item. ***
LPARAMETERS Itm
	with thisform.ToolBar1
		thisform.ToolBar1.Items.Item(-99).Visible = thisform.ToolBar1.Items.Item(-999).Checked
		DEBUGOUT( "RequiredHeight" )
		DEBUGOUT( .RequiredHeight )
	endwith

*** UncheckItem event - Occurs when the user unchecks the item. ***
LPARAMETERS Itm
	with thisform.ToolBar1
		thisform.ToolBar1.Items.Item(-99).Visible = thisform.ToolBar1.Items.Item(-999).Checked
		DEBUGOUT( "RequiredHeight" )
		DEBUGOUT( .RequiredHeight )
	endwith

with thisform.ToolBar1
	with .Items
		.ToString = "[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		with .Add("Normal",0,-999)
			.Check = .T.
			.Checked = thisform.ToolBar1.Item(-99).Visible
			.X = "width - iwidth"
		endwith
		with .Item(0).Items
			.Add("",0,0).Padding = "8,0,0,0"
			var_Item3 = .Add("New Page")
			with var_Item3
				var_s = "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa"
				var_s = var_s + "d=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
				.ToString = var_s
				.ID = 200
				.Caption = "Page1"
				.ShowPopupAlign = 1
				with .Items.Item(0)
					var_Item = .Items.Add("New Group")
					with var_Item
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = "<b><font ;14>A"
						with .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
							with .Add("",2)
								.GroupPopup = 17 && GroupPopupEnum.exGroupPopupEqualWidth Or GroupPopupEnum.exGroupPopup
								.Caption = ""
								with .Items
									with .Add("R1")
										.RadioGroup = 100
										.Radio = .T.
										.ShowCheckedAsSelected = 1
										.Checked = .F.
									endwith
									with .Add("R2")
										.RadioGroup = 100
										.Radio = .T.
										.ShowCheckedAsSelected = 1
										.Checked = .T.
									endwith
									with .Add("R3")
										.RadioGroup = 100
										.Radio = .T.
										.ShowCheckedAsSelected = 1
										.Checked = .F.
									endwith
								endwith
							endwith
						endwith
					endwith
					var_Item1 = .Items.Add("New Group")
					with var_Item1
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = "<b><font ;14>B"
						with .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
							with .Add("",2)
								.GroupPopup = 289 && GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exGroupPopupEqualHeight Or GroupPopupEnum.exGroupPopup
								.Caption = ""
								with .Items
									with .Add("C1")
										.Check = .T.
										.Checked = .T.
									endwith
									with .Add("C2")
										.Check = .T.
										.Checked = .F.
									endwith
									with .Add("C3")
										.Check = .T.
										.Checked = .T.
									endwith
								endwith
							endwith
						endwith
					endwith
					.Items.Add("",0,0).Padding = "4,0,0,0"
					var_Item2 = .Items.Add("New Group")
					with var_Item2
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = ""
						with .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
							with .Add("",0)
								.AllowEdit = 1027 && AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
								.ItemHeight = 76
								.EditBorder = 0
								.EditValue = 25
							endwith
							with .Add("",2)
								.GroupPopup = 259 && GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
								.Caption = ""
								with .Items
									with .Add("",2)
										.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
										with .Items
											with .Add("Button1",2)
												.ShowAsButton = 275 && ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
												with .Items
													.Add("Item 1")
													.Add("Item 2")
													.Add("Item 3")
												endwith
											endwith
											.Add("",0,0).Padding = "4,0,0,0"
											with .Add("Button2",2)
												.ShowAsButton = 275 && ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
												with .Items
													.Add("Item 4")
													.Add("Item 5")
													.Add("Item 6")
												endwith
											endwith
										endwith
									endwith
									with .Add("Popup",2)
										.Alignment = 1
										with .Items
											.Add("Item 7").Check = .T.
											.Add("Item 8")
											with .Add("Item 9",2).Items
												.Add("Item 10")
												.Add("Item 11")
												.Add("Item 12")
											endwith
										endwith
									endwith
								endwith
							endwith
						endwith
					endwith
				endwith
			endwith
			var_Item4 = .Add("New Page")
			with var_Item4
				var_s1 = "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa"
				var_s1 = var_s1 + "d=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
				.ToString = var_s1
				.ID = 300
				.Caption = "Page2"
				.ShowPopupAlign = 1
				with .Items.Item(0)
					with .Items
						with .Add("S1")
							.ItemHeight = 88
							.AllowEdit = 1540 && AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
							.EditValue = 25
						endwith
						with .Add("S2")
							.ItemHeight = 88
							.AllowEdit = 1540 && AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
							.EditValue = 50
						endwith
						with .Add("S3")
							.ItemHeight = 88
							.AllowEdit = 1540 && AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
							.EditValue = 75
						endwith
					endwith
				endwith
			endwith
			.Add("",0,0).Padding = "8,0,0,0"
		endwith
	endwith
	.PopupFlatAppearance = .F.
	with .VisualAppearance
		.Add(1,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_background.ebn")
		.Add(2,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_groupt.ebn")
		.Add(3,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_groupo.ebn")
		.Add(4,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_grouphot.ebn")
		.Add(5,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_frameh.ebn")
		.Add(6,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehs.ebn")
		.Add(7,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehi.ebn")
		.Add(8,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehe.ebn")
		.Add(9,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framevs.ebn")
		.Add(10,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framevi.ebn")
		.Add(11,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_frameve.ebn")
		.Add(12,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_select.ebn")
		.Add(13,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_bordert.ebn")
		.Add(14,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_buttond.ebn")
		.Add(15,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_buttonu.ebn")
		.Add(16,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tab.ebn")
		.Add(17,"CP:16 0 0 0 1")
		.Add(18,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tabhot.ebn")
		.Add(19,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tabselhot.ebn")
		.Add(20,"CP:19 0 0 0 1")
	endwith
	.ForeColor = RGB(21,66,139)
	.SelBackColor = 0xe000000
	.LocalAppearance = 6
	.Appearance = 16777216 && 0x1000000
	.Object.Background(64) = .Appearance
	.Object.Background(2) = 0xd000000 && 0x2
	.Object.Background(105) = 0x5000000
	.Object.Background(106) = 0x6000000
	.Object.Background(107) = 0x7000000
	.Object.Background(108) = 0x8000000
	.Object.Background(116) = 0x9000000
	.Object.Background(117) = 0xa000000
	.Object.Background(118) = 0xb000000
	.Object.Background(110) = 0xc000000
	.Object.Background(112) = 0xf000000
	.Refresh
endwith
213
Is there any debug option, so I can see the IDs of the items I have in the control

with thisform.ToolBar1
	.ArrangeItemsAs = 1
	.Debug = .T.
	with .Items
		with .Add("Expand",2)
			.GroupPopup = 259 && GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			.Check = .T.
			.ShowPopupOnChecked = .T.
			with .Items
				.Padding = "22,0,0,0"
				.Add("Radio 1").Radio = .T.
				.Add("Radio 2").Radio = .T.
				with .Add("Radio 3")
					.Radio = .T.
					.Checked = .T.
				endwith
			endwith
			.Checked = .T.
		endwith
		var_s = "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"
		var_s = var_s + "][chk=1])"
		.Add("").ToString = var_s
	endwith
	.Refresh
endwith
212
Microsoft Office - Ribbon Like - Minimized

with thisform.ToolBar1
	with .Items
		.ToString = "[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		.Item(-99).Visible = .F.
		with .Item(0).Items
			.Add("",0,0).Padding = "8,0,0,0"
			var_Item3 = .Add("New Page")
			with var_Item3
				var_s = "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa"
				var_s = var_s + "d=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
				.ToString = var_s
				.ID = 200
				.Caption = "Page1"
				.ShowPopupAlign = 1
				with .Items.Item(0)
					var_Item = .Items.Add("New Group")
					with var_Item
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = "<b><font ;14>A"
						with .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
							with .Add("",2)
								.GroupPopup = 17 && GroupPopupEnum.exGroupPopupEqualWidth Or GroupPopupEnum.exGroupPopup
								.Caption = ""
								with .Items
									with .Add("R1")
										.RadioGroup = 100
										.Radio = .T.
										.ShowCheckedAsSelected = 1
										.Checked = .F.
									endwith
									with .Add("R2")
										.RadioGroup = 100
										.Radio = .T.
										.ShowCheckedAsSelected = 1
										.Checked = .T.
									endwith
									with .Add("R3")
										.RadioGroup = 100
										.Radio = .T.
										.ShowCheckedAsSelected = 1
										.Checked = .F.
									endwith
								endwith
							endwith
						endwith
					endwith
					var_Item1 = .Items.Add("New Group")
					with var_Item1
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = "<b><font ;14>B"
						with .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
							with .Add("",2)
								.GroupPopup = 289 && GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exGroupPopupEqualHeight Or GroupPopupEnum.exGroupPopup
								.Caption = ""
								with .Items
									with .Add("C1")
										.Check = .T.
										.Checked = .T.
									endwith
									with .Add("C2")
										.Check = .T.
										.Checked = .F.
									endwith
									with .Add("C3")
										.Check = .T.
										.Checked = .T.
									endwith
								endwith
							endwith
						endwith
					endwith
					.Items.Add("",0,0).Padding = "4,0,0,0"
					var_Item2 = .Items.Add("New Group")
					with var_Item2
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = ""
						with .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
							with .Add("",0)
								.AllowEdit = 1027 && AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
								.ItemHeight = 76
								.EditBorder = 0
								.EditValue = 25
							endwith
							with .Add("",2)
								.GroupPopup = 259 && GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
								.Caption = ""
								with .Items
									with .Add("",2)
										.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
										with .Items
											with .Add("Button1",2)
												.ShowAsButton = 275 && ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
												with .Items
													.Add("Item 1")
													.Add("Item 2")
													.Add("Item 3")
												endwith
											endwith
											.Add("",0,0).Padding = "4,0,0,0"
											with .Add("Button2",2)
												.ShowAsButton = 275 && ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
												with .Items
													.Add("Item 4")
													.Add("Item 5")
													.Add("Item 6")
												endwith
											endwith
										endwith
									endwith
									with .Add("Popup",2)
										.Alignment = 1
										with .Items
											.Add("Item 7").Check = .T.
											.Add("Item 8")
											with .Add("Item 9",2).Items
												.Add("Item 10")
												.Add("Item 11")
												.Add("Item 12")
											endwith
										endwith
									endwith
								endwith
							endwith
						endwith
					endwith
				endwith
			endwith
			var_Item4 = .Add("New Page")
			with var_Item4
				var_s1 = "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa"
				var_s1 = var_s1 + "d=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
				.ToString = var_s1
				.ID = 300
				.Caption = "Page2"
				.ShowPopupAlign = 1
				with .Items.Item(0)
					with .Items
						with .Add("S1")
							.ItemHeight = 88
							.AllowEdit = 1540 && AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
							.EditValue = 25
						endwith
						with .Add("S2")
							.ItemHeight = 88
							.AllowEdit = 1540 && AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
							.EditValue = 50
						endwith
						with .Add("S3")
							.ItemHeight = 88
							.AllowEdit = 1540 && AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
							.EditValue = 75
						endwith
					endwith
				endwith
			endwith
			.Add("",0,0).Padding = "8,0,0,0"
		endwith
	endwith
	.PopupFlatAppearance = .F.
	with .VisualAppearance
		.Add(1,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_background.ebn")
		.Add(2,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_groupt.ebn")
		.Add(3,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_groupo.ebn")
		.Add(4,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_grouphot.ebn")
		.Add(5,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_frameh.ebn")
		.Add(6,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehs.ebn")
		.Add(7,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehi.ebn")
		.Add(8,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehe.ebn")
		.Add(9,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framevs.ebn")
		.Add(10,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framevi.ebn")
		.Add(11,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_frameve.ebn")
		.Add(12,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_select.ebn")
		.Add(13,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_bordert.ebn")
		.Add(14,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_buttond.ebn")
		.Add(15,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_buttonu.ebn")
		.Add(16,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tab.ebn")
		.Add(17,"CP:16 0 0 0 1")
		.Add(18,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tabhot.ebn")
		.Add(19,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tabselhot.ebn")
		.Add(20,"CP:19 0 0 0 1")
	endwith
	.ForeColor = RGB(21,66,139)
	.SelBackColor = 0xe000000
	.LocalAppearance = 6
	.Appearance = 16777216 && 0x1000000
	.Object.Background(64) = .Appearance
	.Object.Background(2) = 0xd000000 && 0x2
	.Object.Background(105) = 0x5000000
	.Object.Background(106) = 0x6000000
	.Object.Background(107) = 0x7000000
	.Object.Background(108) = 0x8000000
	.Object.Background(116) = 0x9000000
	.Object.Background(117) = 0xa000000
	.Object.Background(118) = 0xb000000
	.Object.Background(110) = 0xc000000
	.Object.Background(112) = 0xf000000
	.Refresh
endwith
211
Microsoft Paint - Ribbon Like - Minimized

with thisform.ToolBar1
	with .Items
		.ToString = "[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		.Item(-99).Visible = .F.
		with .Item(0).Items
			.Add("",0,0).Padding = "8,0,0,0"
			var_Item3 = .Add("New Page")
			with var_Item3
				var_s = "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa"
				var_s = var_s + "d=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
				.ToString = var_s
				.ID = 200
				.Caption = "Page1"
				.ShowPopupAlign = 1
				with .Items.Item(0)
					var_Item = .Items.Add("New Group")
					with var_Item
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = "<b><font ;14>A"
						with .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
							with .Add("",2)
								.GroupPopup = 17 && GroupPopupEnum.exGroupPopupEqualWidth Or GroupPopupEnum.exGroupPopup
								.Caption = ""
								with .Items
									with .Add("R1")
										.RadioGroup = 100
										.Radio = .T.
										.ShowCheckedAsSelected = 1
										.Checked = .F.
									endwith
									with .Add("R2")
										.RadioGroup = 100
										.Radio = .T.
										.ShowCheckedAsSelected = 1
										.Checked = .T.
									endwith
									with .Add("R3")
										.RadioGroup = 100
										.Radio = .T.
										.ShowCheckedAsSelected = 1
										.Checked = .F.
									endwith
								endwith
							endwith
						endwith
					endwith
					var_Item1 = .Items.Add("New Group")
					with var_Item1
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = "<b><font ;14>B"
						with .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
							with .Add("",2)
								.GroupPopup = 289 && GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exGroupPopupEqualHeight Or GroupPopupEnum.exGroupPopup
								.Caption = ""
								with .Items
									with .Add("C1")
										.Check = .T.
										.Checked = .T.
									endwith
									with .Add("C2")
										.Check = .T.
										.Checked = .F.
									endwith
									with .Add("C3")
										.Check = .T.
										.Checked = .T.
									endwith
								endwith
							endwith
						endwith
					endwith
					.Items.Add("",0,0).Padding = "4,0,0,0"
					var_Item2 = .Items.Add("New Group")
					with var_Item2
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = ""
						with .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
							with .Add("",0)
								.AllowEdit = 1027 && AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
								.ItemHeight = 76
								.EditBorder = 0
								.EditValue = 25
							endwith
							with .Add("",2)
								.GroupPopup = 259 && GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
								.Caption = ""
								with .Items
									with .Add("",2)
										.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
										with .Items
											with .Add("Button1",2)
												.ShowAsButton = 275 && ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
												with .Items
													.Add("Item 1")
													.Add("Item 2")
													.Add("Item 3")
												endwith
											endwith
											.Add("",0,0).Padding = "4,0,0,0"
											with .Add("Button2",2)
												.ShowAsButton = 275 && ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
												with .Items
													.Add("Item 4")
													.Add("Item 5")
													.Add("Item 6")
												endwith
											endwith
										endwith
									endwith
									with .Add("Popup",2)
										.Alignment = 1
										with .Items
											.Add("Item 7").Check = .T.
											.Add("Item 8")
											with .Add("Item 9",2).Items
												.Add("Item 10")
												.Add("Item 11")
												.Add("Item 12")
											endwith
										endwith
									endwith
								endwith
							endwith
						endwith
					endwith
				endwith
			endwith
			var_Item4 = .Add("New Page")
			with var_Item4
				var_s1 = "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa"
				var_s1 = var_s1 + "d=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
				.ToString = var_s1
				.ID = 300
				.Caption = "Page2"
				.ShowPopupAlign = 1
				with .Items.Item(0)
					with .Items
						with .Add("S1")
							.ItemHeight = 88
							.AllowEdit = 1540 && AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
							.EditValue = 25
						endwith
						with .Add("S2")
							.ItemHeight = 88
							.AllowEdit = 1540 && AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
							.EditValue = 50
						endwith
						with .Add("S3")
							.ItemHeight = 88
							.AllowEdit = 1540 && AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
							.EditValue = 75
						endwith
					endwith
				endwith
			endwith
			.Add("",0,0).Padding = "8,0,0,0"
		endwith
	endwith
	.PopupFlatAppearance = .F.
	with .VisualAppearance
		.Add(1,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn")
		.Add(2,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn")
		.Add(3,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn")
		.Add(4,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn")
		.Add(5,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn")
		.Add(6,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn")
		.Add(7,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn")
		.Add(8,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn")
		.Add(9,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn")
		.Add(10,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn")
		.Add(11,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn")
		.Add(12,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn")
		.Add(13,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn")
		.Add(14,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn")
		.Add(15,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn")
		.Add(16,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn")
		.Add(17,"CP:16 0 0 0 1")
		.Add(18,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn")
		.Add(19,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn")
		.Add(20,"CP:19 0 0 0 1")
	endwith
	.LocalAppearance = 6
	.Appearance = 16777216 && 0x1000000
	.ForeColor = RGB(21,66,139)
	.SelBackColor = 0xe000000
	.Object.Background(64) = .Appearance
	.Object.Background(2) = 0xd000000 && 0x2
	.Object.Background(105) = 0x5000000
	.Object.Background(106) = 0x6000000
	.Object.Background(107) = 0x7000000
	.Object.Background(108) = 0x8000000
	.Object.Background(116) = 0x9000000
	.Object.Background(117) = 0xa000000
	.Object.Background(118) = 0xb000000
	.Object.Background(110) = 0xc000000
	.Object.Background(112) = 0xf000000
	.Refresh
endwith
210
Microsoft Windows 8.1 - Ribbon Like - Minimized

with thisform.ToolBar1
	with .Items
		.ToString = "[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		.Item(-99).Visible = .F.
		with .Item(0).Items
			.Add("",0,0).Padding = "8,0,0,0"
			var_Item3 = .Add("New Page")
			with var_Item3
				var_s = "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa"
				var_s = var_s + "d=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
				.ToString = var_s
				.ID = 200
				.Caption = "Page1"
				.ShowPopupAlign = 1
				with .Items.Item(0)
					var_Item = .Items.Add("New Group")
					with var_Item
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = "<b><font ;14>A"
						with .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
							with .Add("",2)
								.GroupPopup = 17 && GroupPopupEnum.exGroupPopupEqualWidth Or GroupPopupEnum.exGroupPopup
								.Caption = ""
								with .Items
									with .Add("R1")
										.RadioGroup = 100
										.Radio = .T.
										.ShowCheckedAsSelected = 1
										.Checked = .F.
									endwith
									with .Add("R2")
										.RadioGroup = 100
										.Radio = .T.
										.ShowCheckedAsSelected = 1
										.Checked = .T.
									endwith
									with .Add("R3")
										.RadioGroup = 100
										.Radio = .T.
										.ShowCheckedAsSelected = 1
										.Checked = .F.
									endwith
								endwith
							endwith
						endwith
					endwith
					var_Item1 = .Items.Add("New Group")
					with var_Item1
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = "<b><font ;14>B"
						with .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
							with .Add("",2)
								.GroupPopup = 289 && GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exGroupPopupEqualHeight Or GroupPopupEnum.exGroupPopup
								.Caption = ""
								with .Items
									with .Add("C1")
										.Check = .T.
										.Checked = .T.
									endwith
									with .Add("C2")
										.Check = .T.
										.Checked = .F.
									endwith
									with .Add("C3")
										.Check = .T.
										.Checked = .T.
									endwith
								endwith
							endwith
						endwith
					endwith
					.Items.Add("",0,0).Padding = "4,0,0,0"
					var_Item2 = .Items.Add("New Group")
					with var_Item2
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = ""
						with .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
							with .Add("",0)
								.AllowEdit = 1027 && AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
								.ItemHeight = 76
								.EditBorder = 0
								.EditValue = 25
							endwith
							with .Add("",2)
								.GroupPopup = 259 && GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
								.Caption = ""
								with .Items
									with .Add("",2)
										.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
										with .Items
											with .Add("Button1",2)
												.ShowAsButton = 275 && ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
												with .Items
													.Add("Item 1")
													.Add("Item 2")
													.Add("Item 3")
												endwith
											endwith
											.Add("",0,0).Padding = "4,0,0,0"
											with .Add("Button2",2)
												.ShowAsButton = 275 && ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
												with .Items
													.Add("Item 4")
													.Add("Item 5")
													.Add("Item 6")
												endwith
											endwith
										endwith
									endwith
									with .Add("Popup",2)
										.Alignment = 1
										with .Items
											.Add("Item 7").Check = .T.
											.Add("Item 8")
											with .Add("Item 9",2).Items
												.Add("Item 10")
												.Add("Item 11")
												.Add("Item 12")
											endwith
										endwith
									endwith
								endwith
							endwith
						endwith
					endwith
				endwith
			endwith
			var_Item4 = .Add("New Page")
			with var_Item4
				var_s1 = "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa"
				var_s1 = var_s1 + "d=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
				.ToString = var_s1
				.ID = 300
				.Caption = "Page2"
				.ShowPopupAlign = 1
				with .Items.Item(0)
					with .Items
						with .Add("S1")
							.ItemHeight = 88
							.AllowEdit = 1540 && AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
							.EditValue = 25
						endwith
						with .Add("S2")
							.ItemHeight = 88
							.AllowEdit = 1540 && AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
							.EditValue = 50
						endwith
						with .Add("S3")
							.ItemHeight = 88
							.AllowEdit = 1540 && AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
							.EditValue = 75
						endwith
					endwith
				endwith
			endwith
			.Add("",0,0).Padding = "8,0,0,0"
		endwith
	endwith
	.PopupFlatAppearance = .F.
	with .VisualAppearance
		.Add(1,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn")
		.Add(2,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn")
		.Add(12,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn")
		.Add(14,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn")
		.Add(17,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn")
		.Add(18,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn")
		.Add(32,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn")
		.Add(33,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn")
		.Add(34,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn")
		.Add(35,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn")
	endwith
	.Appearance = 16777216 && 0x1000000
	.Object.Background(64) = .Appearance
	.SelBackColor = 0xe000000
	.Object.Background(110) = 0xc000000
	.Object.Background(112) = 0x23000000
	.Object.Background(2) = 0x22000000 && 0x2
	.Object.Background(3) = 0x23000000 && 0x3
	.Object.Background(70) = 0x20000000
	.Object.Background(71) = 0x21000000
	.Refresh
endwith
209
How can I display a tab into the toolbar (method 2, minimized)

with thisform.ToolBar1
	.Object.Background(102) = RGB(240,240,240)
	with .Items
		var_s = "[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=-1"
		var_s = var_s + "00]))"
		.ToString = var_s
		.Item(-99).Visible = .F.
		with .Item(-10).Items
			.Add("",0,0).Padding = "8,0,0,0"
			with .Add("New Page")
				var_s1 = "[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][g"
				var_s1 = var_s1 + "roup=0x03][tab=-100][pad=2,0,2,0][popupalign=0x01]([id=0][group=0x03]([]))"
				.ToString = var_s1
				.Caption = "Page<off -5><font ;5><b>1</b></font></off>"
				with .Items.Item(0).Items
					with .Add("add here fields for page 1")
						.ID = -1000
						.Enabled = .F.
						.BackColor = RGB(255,0,0)
					endwith
				endwith
			endwith
			with .Add("New Page")
				var_s2 = "[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][g"
				var_s2 = var_s2 + "roup=0x03][tab=-100][pad=2,0,2,0][popupalign=0x01]([id=0][group=0x03]([]))"
				.ToString = var_s2
				.Caption = "Page<off -5><font ;5><b>2</b></font></off>"
				with .Items.Item(0).Items
					with .Add("add here fields for page 2")
						.ID = -1001
						.Enabled = .F.
						.BackColor = RGB(0,255,0)
					endwith
				endwith
			endwith
			.Add("",0,0).Padding = "8,0,0,0"
		endwith
	endwith
	.Refresh
endwith
208
How can I display a tab into the toolbar (method 1, minimized)

with thisform.ToolBar1
	.Object.Background(102) = RGB(240,240,240)
	var_s = "[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"
	var_s = var_s + "=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"
	var_s = var_s + "=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 ;"
	var_s = var_s + "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(24"
	var_s = var_s + "0,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=-100"
	var_s = var_s + "1][dis])),[id=140][pad=8,0,0,0]),[id=-99][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-100]))"
	.ToString = var_s
	with .Items.Item(-1000)
		.BackColor = RGB(255,0,0)
	endwith
	with .Items.Item(-1001)
		.BackColor = RGB(0,255,0)
	endwith
	.Item(-99).Visible = .F.
endwith
207
Is there a trick to arrange two or three items(buttons) on the Right side, with different widths

with thisform.ToolBar1
	.ArrangeItemsAs = 1
	.Items.ToString = "C1[chk],C2[chk],C3[chk]"
	with .Items.Add("C4")
		.ID = 40
		.Check = .T.
		.Checked = .T.
		.ItemHeight = 24
		.X = "width - (iwidth + iwidthof(50) + iwidthof(60))"
	endwith
	with .Items.Add("C5-Baka")
		.ID = 50
		.Check = .T.
		.Checked = .T.
		.ItemHeight = 24
		.X = "width - (iwidth + iwidthof(60))"
	endwith
	with .Items
		with .Add("Expand",2)
			.ID = 60
			.ItemHeight = 24
			.X = "width - (iwidth)"
			.GroupPopup = 1
			.Check = .T.
			.ShowPopupOnChecked = .T.
			with .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
				.PopupAppearance = 6
			endwith
		endwith
	endwith
	.Refresh
endwith
206
Is there a trick to arrange two or three items(buttons) on the Right side

with thisform.ToolBar1
	.ArrangeItemsAs = 1
	.Items.ToString = "C1[chk],C2[chk],C3[chk]"
	with .Items.Add("C4")
		.Check = .T.
		.Checked = .T.
		.X = "width - 3*42*dpi"
	endwith
	with .Items.Add("C5")
		.Check = .T.
		.Checked = .T.
		.X = "width - 2*42*dpi"
	endwith
	with .Items.Add("C6")
		.Check = .T.
		.Checked = .T.
		.X = "width - 1*42*dpi"
	endwith
endwith
205
How can I add a list of fonts

*** SelectItem event - Occurs when the user selects the item. ***
LPARAMETERS Itm
	*** Items(57707).Caption = Itm.Caption

with thisform.ToolBar1
	.LocalAppearance = 8
	var_s = "<font Arial>Arial</font>[id=57707][align=1][button=0x0211][captionwidth=96][height=26][ttp=Font][pad=2,2,0,2][itemsbg=RGB(255,25"
	var_s = var_s + "5,255)][visible=255](<font Arial>Arial</font>[id=53248][typ=1][close=0][chk=1],<font Arial Black>Arial Black</font>[id=53249][cl"
	var_s = var_s + "ose=0],<font Comic Sans MS>Comic Sans MS</font>[id=53250][close=0],<font Courier New>Courier New</font>[id=53251][close=0],<font"
	var_s = var_s + " Georgia>Georgia</font>[id=53252][close=0],<font Impact>Impact</font>[id=53253][close=0],<font Lucida Console>Lucida Console</fo"
	var_s = var_s + "nt>[id=53254][close=0],<font Lucida Sans Unicode>Lucida Sans Unicode</font>[id=53255][close=0],<font Tahoma>Tahoma</font>[id=532"
	var_s = var_s + "56][close=0],<font Times New Roman>Times New Roman</font>[id=53257][close=0],<font Trebuchet MS>Trebuchet MS</font>[id=53258][cl"
	var_s = var_s + "ose=0],<font Verdana>Verdana</font>[id=53259][close=0],<font MS Sans Serif>MS Sans Serif</font>[id=53260][close=0],<font MS Seri"
	var_s = var_s + "f>MS Serif</font>[id=53261][close=0])"
	.Items.Add("Font").ToString = var_s
endwith
204
How can I show a pattern over all items

with thisform.ToolBar1
	with .Items
		with .Add("",2)
			.GroupPopup = 1
			with .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
				.BackgroundExt = "root[pattern=0x006]"
			endwith
		endwith
	endwith
	.Refresh
endwith
203
How can I show a pattern over the item

with thisform.ToolBar1
	with .Items
		with .Add("",2)
			.GroupPopup = 1
			with .Items
				.Add("Item 1").BackgroundExt = "root[pattern=0x006]"
				.Add("Item 2")
				.Add("Item 3")
			endwith
		endwith
	endwith
	.Refresh
endwith
202
How can I add a color table

*** SelectItem event - Occurs when the user selects the item. ***
LPARAMETERS Itm
	with thisform.ToolBar1
		DEBUGOUT( Itm )
	endwith

with thisform.ToolBar1
	.LocalAppearance = 8
	var_s = "Color[id=57685][button=0x0211][ttp=Color][itemsbg=RGB(255,255,255)][visible=255](<fgcolor 808080>color[id=350][align=1][group=0x"
	var_s = var_s + "0133][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][tt"
	var_s = var_s + "p=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"
	var_s = var_s + "][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"
	var_s = var_s + "=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[("
	var_s = var_s + "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"
	var_s = var_s + "(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"
	var_s = var_s + "=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="
	var_s = var_s + "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,"
	var_s = var_s + "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="
	var_s = var_s + "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"
	var_s = var_s + "][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,"
	var_s = var_s + "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][he"
	var_s = var_s + "ight=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]["
	var_s = var_s + "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="
	var_s = var_s + "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,"
	var_s = var_s + "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][heig"
	var_s = var_s + "ht=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][sh"
	var_s = var_s + "ow=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=RG"
	var_s = var_s + "B(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)][bg"
	var_s = var_s + "ext=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][t"
	var_s = var_s + "tp=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"
	var_s = var_s + "=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("
	var_s = var_s + "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"
	var_s = var_s + ")][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=4915"
	var_s = var_s + "2][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,"
	var_s = var_s + "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)][bg"
	var_s = var_s + "ext=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=2"
	var_s = var_s + "4][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][clo"
	var_s = var_s + "se=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%"
	var_s = var_s + "-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)][dat"
	var_s = var_s + "a=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][cap"
	var_s = var_s + "tionwidth=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)]]"
	var_s = var_s + ",[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=no"
	var_s = var_s + "ne[(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][captionwi"
	var_s = var_s + "dth=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=4"
	var_s = var_s + "9177][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"
	var_s = var_s + ",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(2"
	var_s = var_s + "55,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"
	var_s = var_s + "][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=RG"
	var_s = var_s + "B(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,19"
	var_s = var_s + "6,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"
	var_s = var_s + "][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]["
	var_s = var_s + "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,10"
	var_s = var_s + "0%-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"
	var_s = var_s + ",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]"
	var_s = var_s + "[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,"
	var_s = var_s + "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)]"
	var_s = var_s + "[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]"
	var_s = var_s + "[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,10"
	var_s = var_s + "2)]],[id=49187][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(147,196,125)][data=RGB(147,196,125)][bgex"
	var_s = var_s + "t=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]"
	var_s = var_s + "[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"
	var_s = var_s + "=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%-4"
	var_s = var_s + "D),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="
	var_s = var_s + "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][capti"
	var_s = var_s + "onwidth=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)]]),"
	var_s = var_s + "[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,"
	var_s = var_s + "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"
	var_s = var_s + "=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][clos"
	var_s = var_s + "e=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"
	var_s = var_s + "),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"
	var_s = var_s + "(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][captionwid"
	var_s = var_s + "th=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=49197"
	var_s = var_s + "][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,10"
	var_s = var_s + "0%-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,1"
	var_s = var_s + "67)][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=4915"
	var_s = var_s + "2][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"
	var_s = var_s + ")]]),[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(1"
	var_s = var_s + "53,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][h"
	var_s = var_s + "eight=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"
	var_s = var_s + "=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),b"
	var_s = var_s + "ack=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,1"
	var_s = var_s + "18,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]["
	var_s = var_s + "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][clos"
	var_s = var_s + "e=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),"
	var_s = var_s + "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,"
	var_s = var_s + "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]"
	var_s = var_s + "[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=0x"
	var_s = var_s + "33]([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[(2"
	var_s = var_s + "D,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,"
	var_s = var_s + "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]"
	var_s = var_s + "[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="
	var_s = var_s + "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,1"
	var_s = var_s + "00%-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)"
	var_s = var_s + "][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][capt"
	var_s = var_s + "ionwidth=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][t"
	var_s = var_s + "yp=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,1"
	var_s = var_s + "00%-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=R"
	var_s = var_s + "GB(76,17,48)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(76,17,48)]])))"
	.Items.Add("Color").ToString = var_s
endwith
201
Is it possible to re-arrange the items once the toolbar is resized

with thisform.ToolBar1
	.ArrangeItemsAs = 769 && ArrangeItemsEnum.exArrangeItemsScroll Or ArrangeItemsEnum.exArrangeItemsWrap Or ArrangeItemsEnum.exArrangeItemsHorizontal
	.Items.ToString = "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"
endwith
200
I've noticed that the toolbar is cut when perform scrolling. Is it possible to change that shape

with thisform.ToolBar1
	.ArrangeItemsAs = 513 && ArrangeItemsEnum.exArrangeItemsScroll Or ArrangeItemsEnum.exArrangeItemsHorizontal
	var_s = "gBFLBCJwBAEHhEJAAEhIDhAxGAyg0HG0Og40HIyiwAGY1GMJiYAf8jAEhhUnAAyhEqg8hk0oAsIjYxHAwmYwHEbGY2GEhGkMlFBlAOhAJhEuoUHjcbGQ1EtMp0hGsbGo"
	var_s = var_s + "wEsvpNBlkpo9ZoNQp8rqMIqdkqwCr1ZrdbrFpsFvs1hg9VuVCjdBA0IoElhFog6zbDykUkhsPms3nMInc9hA0mNpoVrruQpdiutNq9kqlWtuQg+Sluewufp1gqWbEt+0"
	var_s = var_s + "UK0F81YAuGkut01F3lF7vF6yYA1Ujf4ATjNd8KmeHh84n1MGI1zt9rN7vOhg+9knB4ejAE0m3HHHJlfL1VB5sH6G76m/63Ey2xAG0uMbkIbUDh3me1vjoV7vYIhBQNIx"
	var_s = var_s + "joOo5DKGKQj8hAhCbA6ThshAUN0g7or4DCFCQ14AHATIAHkbBZt83xxFCDcMw3DsQRFEINm8SQAHydpuxTEh4GkUzfHATYARnGsPn+d5mk5HkPv4g7/QBAQyhk1UFgBB"
	var_s = var_s + "MloTBqDwe8iEQkg0KITCzXyDDhZxI30uRJFMXG7FYARTFLfR1MMRSDNUcSC30fE5IYASLAMBhmjZDQQJs9wZB0qQhCaFChC81g3M8RRuAE5IPMENRjDUdN8g8vw7MtJx"
	var_s = var_s + "5SseTHODCTpO0jp+hE/SZPqUSgAEpABCS9ytQkLyDTtPU2f8uUxGkg0dDtDxlXLCUPRMRxxRoAHW2wAICA=="
	.VisualAppearance.Add(1,var_s)
	.Object.Background(119) = 0x1000000
	with .Items
		.BackColor = RGB(128,128,128)
		with .Add("Expand",2)
			.GroupPopup = 259 && GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			.Check = .T.
			.ShowPopupOnChecked = .T.
			with .Items
				.Padding = "22,0,0,0"
				.Add("Radio 1").Radio = .T.
				.Add("Radio 2").Radio = .T.
				with .Add("Radio 3")
					.Radio = .T.
					.Checked = .T.
				endwith
			endwith
			.Checked = .T.
		endwith
		var_s1 = "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"
		var_s1 = var_s1 + "][chk=1])"
		.Add("").ToString = var_s1
	endwith
	.Refresh
endwith
199
I've noticed that the toolbar is cut when perform scrolling. Is it possible to prevent that

with thisform.ToolBar1
	.ArrangeItemsAs = 513 && ArrangeItemsEnum.exArrangeItemsScroll Or ArrangeItemsEnum.exArrangeItemsHorizontal
	.Object.Background(119) = -1
	with .Items
		.BackColor = RGB(240,240,240)
		with .Add("Expand",2)
			.GroupPopup = 259 && GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			.Check = .T.
			.ShowPopupOnChecked = .T.
			with .Items
				.Padding = "22,0,0,0"
				.Add("Radio 1").Radio = .T.
				.Add("Radio 2").Radio = .T.
				with .Add("Radio 3")
					.Radio = .T.
					.Checked = .T.
				endwith
			endwith
			.Checked = .T.
		endwith
		var_s = "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"
		var_s = var_s + "][chk=1])"
		.Add("").ToString = var_s
	endwith
	.Refresh
endwith
198
How can I scroll the items within the toolbar

with thisform.ToolBar1
	.ArrangeItemsAs = 513 && ArrangeItemsEnum.exArrangeItemsScroll Or ArrangeItemsEnum.exArrangeItemsHorizontal
	with .Items
		.BackColor = RGB(240,240,240)
		with .Add("Expand",2)
			.GroupPopup = 259 && GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			.Check = .T.
			.ShowPopupOnChecked = .T.
			with .Items
				.Padding = "22,0,0,0"
				.Add("Radio 1").Radio = .T.
				.Add("Radio 2").Radio = .T.
				with .Add("Radio 3")
					.Radio = .T.
					.Checked = .T.
				endwith
			endwith
			.Checked = .T.
		endwith
		var_s = "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"
		var_s = var_s + "][chk=1])"
		.Add("").ToString = var_s
	endwith
	.Refresh
endwith
197
How can I show an item aligned to the bottom size of the toolbar

with thisform.ToolBar1
	.ArrangeItemsAs = 1
	.Items.ToString = "C1[chk],C2[chk]"
	with .Items.Add("R")
		.Check = .T.
		.Checked = .T.
		.Y = "height - iheight"
	endwith
endwith
196
How can I show an item aligned to the right of the toolbar

with thisform.ToolBar1
	.ArrangeItemsAs = 1
	.Items.ToString = "C1[chk],C2[chk]"
	with .Items.Add("R")
		.Check = .T.
		.Checked = .T.
		.X = "width - iwidth"
	endwith
endwith
195
How can I arrange horizontally the items on the toolbar

with thisform.ToolBar1
	.ArrangeItemsAs = 1
	with .Items
		with .Add("Expand",2)
			.GroupPopup = 259 && GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			.Check = .T.
			.ShowPopupOnChecked = .T.
			with .Items
				.Padding = "22,0,0,0"
				.Add("Radio 1").Radio = .T.
				.Add("Radio 2").Radio = .T.
				with .Add("Radio 3")
					.Radio = .T.
					.Checked = .T.
				endwith
			endwith
			.Checked = .T.
		endwith
		var_s = "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"
		var_s = var_s + "][chk=1])"
		.Add("").ToString = var_s
	endwith
	.Refresh
endwith
194
How can I display the drop down panel to a specified location only
with thisform.ToolBar1
	.PopupAppearance = 6
	with .Items
		with .Add("Popup",2,100)
			.ShowPopupArrow = .F.
			.ShowPopupAlign = 1
			.ShowPopupOffset = "0:screen,0:screen"
			with .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			endwith
		endwith
	endwith
	.Refresh
endwith
193
How can I displays the drop down bellow the control, rather than item itself

with thisform.ToolBar1
	.PopupAppearance = 6
	with .Items
		with .Add("Popup <b>1",2,100)
			.ShowPopupArrow = .F.
			.ShowPopupAlign = 1
			.ShowPopupOffset = "0,0:control"
			with .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			endwith
		endwith
		with .Add("Popup <b>2",2,200)
			.GroupPopup = 1
			with .Items
				.Add("Item 2")
				.Add("Item 3")
				.Add("Item 4")
			endwith
		endwith
	endwith
	.Refresh
endwith
192
How can I change the visual appearance of the progress bar

with thisform.ToolBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Object.Background(260) = 0x1000000 && 0x104
	with .Items
		with .Add("Progress")
			.AllowEdit = 4
			.EditWidth = -128
			.EditValue = 25
		endwith
	endwith
	.Refresh
endwith
191
How can I change the progress's color

with thisform.ToolBar1
	.Object.Background(260) = RGB(255,0,0) && 0x104
	with .Items
		with .Add("Progress")
			.AllowEdit = 4
			.EditWidth = -128
			.EditValue = 25
		endwith
	endwith
	.Refresh
endwith
190
I am using the Item.Visible property on False to hide the item, but the editor is still visible
*** CheckItem event - Occurs when the user checks the item. ***
LPARAMETERS Itm
	with thisform.ToolBar1
		with .Items.Item(1000)
			.Visible = .T.
			.AllowEdit = 260 && AllowEditEnum.exItemEditReadOnly Or AllowEditEnum.exItemEditProgress
		endwith
		.Refresh
	endwith

*** UncheckItem event - Occurs when the user unchecks the item. ***
LPARAMETERS Itm
	with thisform.ToolBar1
		with .Items.Item(1000)
			.Visible = .F.
			.AllowEdit = 0
		endwith
		.Refresh
	endwith

with thisform.ToolBar1
	with .Items
		with .Add("",2)
			with .Items
				.Add("Visible")
				with .Add("")
					.Check = .T.
					.Checked = .T.
				endwith
				with .Add("Item 2",Null,1000)
					.ItemHeight = 18
					.Caption = "Percent"
					.AllowEdit = 260 && AllowEditEnum.exItemEditReadOnly Or AllowEditEnum.exItemEditProgress
					.EditValue = 50
					.Visible = .T.
				endwith
				.Add("Visible")
			endwith
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
		endwith
	endwith
	.Refresh
endwith
189
How can I change the color of a disabled item

with thisform.ToolBar1
	with .Items
		with .Add("Disabled",2,0)
			.ForeColor = RGB(255,0,0)
			.Items.Add("")
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			.ShowPopupArrow = .F.
		endwith
		.Add("Disabled").Enabled = .F.
	endwith
	.Refresh
endwith
188
Microsoft Windows 8.1 - Ribbon Like

with thisform.ToolBar1
	with .Items
		.ToString = "[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		with .Item(0).Items
			.Add("",0,0).Padding = "8,0,0,0"
			var_Item3 = .Add("New Page")
			with var_Item3
				var_s = "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa"
				var_s = var_s + "d=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
				.ToString = var_s
				.ID = 200
				.Caption = "Page1"
				.ShowPopupAlign = 1
				with .Items.Item(0)
					var_Item = .Items.Add("New Group")
					with var_Item
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = "<b><font ;14>A"
						with .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
							with .Add("",2)
								.GroupPopup = 17 && GroupPopupEnum.exGroupPopupEqualWidth Or GroupPopupEnum.exGroupPopup
								.Caption = ""
								with .Items
									with .Add("R1")
										.RadioGroup = 100
										.Radio = .T.
										.ShowCheckedAsSelected = 1
										.Checked = .F.
									endwith
									with .Add("R2")
										.RadioGroup = 100
										.Radio = .T.
										.ShowCheckedAsSelected = 1
										.Checked = .T.
									endwith
									with .Add("R3")
										.RadioGroup = 100
										.Radio = .T.
										.ShowCheckedAsSelected = 1
										.Checked = .F.
									endwith
								endwith
							endwith
						endwith
					endwith
					var_Item1 = .Items.Add("New Group")
					with var_Item1
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = "<b><font ;14>B"
						with .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
							with .Add("",2)
								.GroupPopup = 289 && GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exGroupPopupEqualHeight Or GroupPopupEnum.exGroupPopup
								.Caption = ""
								with .Items
									with .Add("C1")
										.Check = .T.
										.Checked = .T.
									endwith
									with .Add("C2")
										.Check = .T.
										.Checked = .F.
									endwith
									with .Add("C3")
										.Check = .T.
										.Checked = .T.
									endwith
								endwith
							endwith
						endwith
					endwith
					.Items.Add("",0,0).Padding = "4,0,0,0"
					var_Item2 = .Items.Add("New Group")
					with var_Item2
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = ""
						with .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
							with .Add("",0)
								.AllowEdit = 1027 && AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
								.ItemHeight = 76
								.EditBorder = 0
								.EditValue = 25
							endwith
							with .Add("",2)
								.GroupPopup = 259 && GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
								.Caption = ""
								with .Items
									with .Add("",2)
										.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
										with .Items
											with .Add("Button1",2)
												.ShowAsButton = 275 && ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
												with .Items
													.Add("Item 1")
													.Add("Item 2")
													.Add("Item 3")
												endwith
											endwith
											.Add("",0,0).Padding = "4,0,0,0"
											with .Add("Button2",2)
												.ShowAsButton = 275 && ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
												with .Items
													.Add("Item 4")
													.Add("Item 5")
													.Add("Item 6")
												endwith
											endwith
										endwith
									endwith
									with .Add("Popup",2)
										.Alignment = 1
										with .Items
											.Add("Item 7").Check = .T.
											.Add("Item 8")
											with .Add("Item 9",2).Items
												.Add("Item 10")
												.Add("Item 11")
												.Add("Item 12")
											endwith
										endwith
									endwith
								endwith
							endwith
						endwith
					endwith
				endwith
			endwith
			var_Item4 = .Add("New Page")
			with var_Item4
				var_s1 = "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa"
				var_s1 = var_s1 + "d=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
				.ToString = var_s1
				.ID = 300
				.Caption = "Page2"
				.ShowPopupAlign = 1
				with .Items.Item(0)
					with .Items
						with .Add("S1")
							.ItemHeight = 88
							.AllowEdit = 1540 && AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
							.EditValue = 25
						endwith
						with .Add("S2")
							.ItemHeight = 88
							.AllowEdit = 1540 && AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
							.EditValue = 50
						endwith
						with .Add("S3")
							.ItemHeight = 88
							.AllowEdit = 1540 && AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
							.EditValue = 75
						endwith
					endwith
				endwith
			endwith
			.Add("",0,0).Padding = "8,0,0,0"
		endwith
	endwith
	.PopupFlatAppearance = .F.
	with .VisualAppearance
		.Add(1,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn")
		.Add(2,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn")
		.Add(12,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn")
		.Add(14,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn")
		.Add(17,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn")
		.Add(18,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn")
		.Add(32,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn")
		.Add(33,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn")
		.Add(34,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn")
		.Add(35,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn")
	endwith
	.Appearance = 16777216 && 0x1000000
	.Object.Background(64) = .Appearance
	.SelBackColor = 0xe000000
	.Object.Background(110) = 0xc000000
	.Object.Background(112) = 0x23000000
	.Object.Background(2) = 0x22000000 && 0x2
	.Object.Background(3) = 0x23000000 && 0x3
	.Object.Background(70) = 0x20000000
	.Object.Background(71) = 0x21000000
	.Refresh
endwith
187
Microsoft Paint - Ribbon Like

with thisform.ToolBar1
	with .Items
		.ToString = "[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		with .Item(0).Items
			.Add("",0,0).Padding = "8,0,0,0"
			var_Item3 = .Add("New Page")
			with var_Item3
				var_s = "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa"
				var_s = var_s + "d=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
				.ToString = var_s
				.ID = 200
				.Caption = "Page1"
				.ShowPopupAlign = 1
				with .Items.Item(0)
					var_Item = .Items.Add("New Group")
					with var_Item
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = "<b><font ;14>A"
						with .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
							with .Add("",2)
								.GroupPopup = 17 && GroupPopupEnum.exGroupPopupEqualWidth Or GroupPopupEnum.exGroupPopup
								.Caption = ""
								with .Items
									with .Add("R1")
										.RadioGroup = 100
										.Radio = .T.
										.ShowCheckedAsSelected = 1
										.Checked = .F.
									endwith
									with .Add("R2")
										.RadioGroup = 100
										.Radio = .T.
										.ShowCheckedAsSelected = 1
										.Checked = .T.
									endwith
									with .Add("R3")
										.RadioGroup = 100
										.Radio = .T.
										.ShowCheckedAsSelected = 1
										.Checked = .F.
									endwith
								endwith
							endwith
						endwith
					endwith
					var_Item1 = .Items.Add("New Group")
					with var_Item1
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = "<b><font ;14>B"
						with .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
							with .Add("",2)
								.GroupPopup = 289 && GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exGroupPopupEqualHeight Or GroupPopupEnum.exGroupPopup
								.Caption = ""
								with .Items
									with .Add("C1")
										.Check = .T.
										.Checked = .T.
									endwith
									with .Add("C2")
										.Check = .T.
										.Checked = .F.
									endwith
									with .Add("C3")
										.Check = .T.
										.Checked = .T.
									endwith
								endwith
							endwith
						endwith
					endwith
					.Items.Add("",0,0).Padding = "4,0,0,0"
					var_Item2 = .Items.Add("New Group")
					with var_Item2
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = ""
						with .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
							with .Add("",0)
								.AllowEdit = 1027 && AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
								.ItemHeight = 76
								.EditBorder = 0
								.EditValue = 25
							endwith
							with .Add("",2)
								.GroupPopup = 259 && GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
								.Caption = ""
								with .Items
									with .Add("",2)
										.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
										with .Items
											with .Add("Button1",2)
												.ShowAsButton = 275 && ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
												with .Items
													.Add("Item 1")
													.Add("Item 2")
													.Add("Item 3")
												endwith
											endwith
											.Add("",0,0).Padding = "4,0,0,0"
											with .Add("Button2",2)
												.ShowAsButton = 275 && ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
												with .Items
													.Add("Item 4")
													.Add("Item 5")
													.Add("Item 6")
												endwith
											endwith
										endwith
									endwith
									with .Add("Popup",2)
										.Alignment = 1
										with .Items
											.Add("Item 7").Check = .T.
											.Add("Item 8")
											with .Add("Item 9",2).Items
												.Add("Item 10")
												.Add("Item 11")
												.Add("Item 12")
											endwith
										endwith
									endwith
								endwith
							endwith
						endwith
					endwith
				endwith
			endwith
			var_Item4 = .Add("New Page")
			with var_Item4
				var_s1 = "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa"
				var_s1 = var_s1 + "d=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
				.ToString = var_s1
				.ID = 300
				.Caption = "Page2"
				.ShowPopupAlign = 1
				with .Items.Item(0)
					with .Items
						with .Add("S1")
							.ItemHeight = 88
							.AllowEdit = 1540 && AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
							.EditValue = 25
						endwith
						with .Add("S2")
							.ItemHeight = 88
							.AllowEdit = 1540 && AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
							.EditValue = 50
						endwith
						with .Add("S3")
							.ItemHeight = 88
							.AllowEdit = 1540 && AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
							.EditValue = 75
						endwith
					endwith
				endwith
			endwith
			.Add("",0,0).Padding = "8,0,0,0"
		endwith
	endwith
	.PopupFlatAppearance = .F.
	with .VisualAppearance
		.Add(1,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn")
		.Add(2,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn")
		.Add(3,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn")
		.Add(4,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn")
		.Add(5,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn")
		.Add(6,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn")
		.Add(7,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn")
		.Add(8,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn")
		.Add(9,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn")
		.Add(10,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn")
		.Add(11,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn")
		.Add(12,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn")
		.Add(13,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn")
		.Add(14,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn")
		.Add(15,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn")
		.Add(16,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn")
		.Add(17,"CP:16 0 0 0 1")
		.Add(18,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn")
		.Add(19,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn")
		.Add(20,"CP:19 0 0 0 1")
	endwith
	.LocalAppearance = 6
	.Appearance = 16777216 && 0x1000000
	.ForeColor = RGB(21,66,139)
	.SelBackColor = 0xe000000
	.Object.Background(64) = .Appearance
	.Object.Background(2) = 0xd000000 && 0x2
	.Object.Background(105) = 0x5000000
	.Object.Background(106) = 0x6000000
	.Object.Background(107) = 0x7000000
	.Object.Background(108) = 0x8000000
	.Object.Background(116) = 0x9000000
	.Object.Background(117) = 0xa000000
	.Object.Background(118) = 0xb000000
	.Object.Background(110) = 0xc000000
	.Object.Background(112) = 0xf000000
	.Refresh
endwith
186
Microsoft Office - Ribbon Like

with thisform.ToolBar1
	with .Items
		.ToString = "[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		with .Item(0).Items
			.Add("",0,0).Padding = "8,0,0,0"
			var_Item3 = .Add("New Page")
			with var_Item3
				var_s = "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa"
				var_s = var_s + "d=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
				.ToString = var_s
				.ID = 200
				.Caption = "Page1"
				.ShowPopupAlign = 1
				with .Items.Item(0)
					var_Item = .Items.Add("New Group")
					with var_Item
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = "<b><font ;14>A"
						with .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
							with .Add("",2)
								.GroupPopup = 17 && GroupPopupEnum.exGroupPopupEqualWidth Or GroupPopupEnum.exGroupPopup
								.Caption = ""
								with .Items
									with .Add("R1")
										.RadioGroup = 100
										.Radio = .T.
										.ShowCheckedAsSelected = 1
										.Checked = .F.
									endwith
									with .Add("R2")
										.RadioGroup = 100
										.Radio = .T.
										.ShowCheckedAsSelected = 1
										.Checked = .T.
									endwith
									with .Add("R3")
										.RadioGroup = 100
										.Radio = .T.
										.ShowCheckedAsSelected = 1
										.Checked = .F.
									endwith
								endwith
							endwith
						endwith
					endwith
					var_Item1 = .Items.Add("New Group")
					with var_Item1
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = "<b><font ;14>B"
						with .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
							with .Add("",2)
								.GroupPopup = 289 && GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exGroupPopupEqualHeight Or GroupPopupEnum.exGroupPopup
								.Caption = ""
								with .Items
									with .Add("C1")
										.Check = .T.
										.Checked = .T.
									endwith
									with .Add("C2")
										.Check = .T.
										.Checked = .F.
									endwith
									with .Add("C3")
										.Check = .T.
										.Checked = .T.
									endwith
								endwith
							endwith
						endwith
					endwith
					.Items.Add("",0,0).Padding = "4,0,0,0"
					var_Item2 = .Items.Add("New Group")
					with var_Item2
						.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						.Caption = ""
						with .Items
							.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
							with .Add("",0)
								.AllowEdit = 1027 && AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
								.ItemHeight = 76
								.EditBorder = 0
								.EditValue = 25
							endwith
							with .Add("",2)
								.GroupPopup = 259 && GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
								.Caption = ""
								with .Items
									with .Add("",2)
										.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
										with .Items
											with .Add("Button1",2)
												.ShowAsButton = 275 && ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
												with .Items
													.Add("Item 1")
													.Add("Item 2")
													.Add("Item 3")
												endwith
											endwith
											.Add("",0,0).Padding = "4,0,0,0"
											with .Add("Button2",2)
												.ShowAsButton = 275 && ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
												with .Items
													.Add("Item 4")
													.Add("Item 5")
													.Add("Item 6")
												endwith
											endwith
										endwith
									endwith
									with .Add("Popup",2)
										.Alignment = 1
										with .Items
											.Add("Item 7").Check = .T.
											.Add("Item 8")
											with .Add("Item 9",2).Items
												.Add("Item 10")
												.Add("Item 11")
												.Add("Item 12")
											endwith
										endwith
									endwith
								endwith
							endwith
						endwith
					endwith
				endwith
			endwith
			var_Item4 = .Add("New Page")
			with var_Item4
				var_s1 = "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa"
				var_s1 = var_s1 + "d=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
				.ToString = var_s1
				.ID = 300
				.Caption = "Page2"
				.ShowPopupAlign = 1
				with .Items.Item(0)
					with .Items
						with .Add("S1")
							.ItemHeight = 88
							.AllowEdit = 1540 && AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
							.EditValue = 25
						endwith
						with .Add("S2")
							.ItemHeight = 88
							.AllowEdit = 1540 && AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
							.EditValue = 50
						endwith
						with .Add("S3")
							.ItemHeight = 88
							.AllowEdit = 1540 && AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
							.EditValue = 75
						endwith
					endwith
				endwith
			endwith
			.Add("",0,0).Padding = "8,0,0,0"
		endwith
	endwith
	.PopupFlatAppearance = .F.
	with .VisualAppearance
		.Add(1,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_background.ebn")
		.Add(2,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_groupt.ebn")
		.Add(3,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_groupo.ebn")
		.Add(4,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_grouphot.ebn")
		.Add(5,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_frameh.ebn")
		.Add(6,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehs.ebn")
		.Add(7,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehi.ebn")
		.Add(8,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehe.ebn")
		.Add(9,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framevs.ebn")
		.Add(10,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framevi.ebn")
		.Add(11,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_frameve.ebn")
		.Add(12,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_select.ebn")
		.Add(13,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_bordert.ebn")
		.Add(14,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_buttond.ebn")
		.Add(15,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_buttonu.ebn")
		.Add(16,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tab.ebn")
		.Add(17,"CP:16 0 0 0 1")
		.Add(18,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tabhot.ebn")
		.Add(19,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tabselhot.ebn")
		.Add(20,"CP:19 0 0 0 1")
	endwith
	.ForeColor = RGB(21,66,139)
	.SelBackColor = 0xe000000
	.LocalAppearance = 6
	.Appearance = 16777216 && 0x1000000
	.Object.Background(64) = .Appearance
	.Object.Background(2) = 0xd000000 && 0x2
	.Object.Background(105) = 0x5000000
	.Object.Background(106) = 0x6000000
	.Object.Background(107) = 0x7000000
	.Object.Background(108) = 0x8000000
	.Object.Background(116) = 0x9000000
	.Object.Background(117) = 0xa000000
	.Object.Background(118) = 0xb000000
	.Object.Background(110) = 0xc000000
	.Object.Background(112) = 0xf000000
	.Refresh
endwith
185
How I can assign buttons to a tab

with thisform.ToolBar1
	.Object.Background(102) = RGB(240,240,240)
	with .Items
		var_s = "[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=-1"
		var_s = var_s + "00]))"
		.ToString = var_s
		with .Item(-10).Items
			.Add("",0,0).Padding = "8,0,0,0"
			with .Add("New Page")
				var_s1 = "[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][g"
				var_s1 = var_s1 + "roup=0x03][tab=-100][pad=2,0,2,0][popupalign=0x01]([id=0][group=0x03]([]))"
				.ToString = var_s1
				.Caption = "Page<off -5><font ;5><b>1</b></font></off>"
				.ID = -1000
				with .Items.Item(0).Items
					.Add("Button 1").ShowAsButton = 3 && ShowAsButtonEnum.exShowAsButtonAutoSize Or ShowAsButtonEnum.exShowAsButton
					.Add("Button 2").ShowAsButton = 3 && ShowAsButtonEnum.exShowAsButtonAutoSize Or ShowAsButtonEnum.exShowAsButton
					.Add("Button 3").ShowAsButton = 3 && ShowAsButtonEnum.exShowAsButtonAutoSize Or ShowAsButtonEnum.exShowAsButton
				endwith
			endwith
			with .Add("New Page")
				var_s2 = "[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][g"
				var_s2 = var_s2 + "roup=0x03][tab=-100][pad=2,0,2,0][popupalign=0x01]([id=0][group=0x03]([]))"
				.ToString = var_s2
				.Caption = "Page<off -5><font ;5><b>2</b></font></off>"
				.ID = -1001
				with .Items.Item(0).Items
					.Add("Button 3").ShowAsButton = 3 && ShowAsButtonEnum.exShowAsButtonAutoSize Or ShowAsButtonEnum.exShowAsButton
					.Add("Button 4").ShowAsButton = 3 && ShowAsButtonEnum.exShowAsButtonAutoSize Or ShowAsButtonEnum.exShowAsButton
				endwith
			endwith
			.Add("",0,0).Padding = "8,0,0,0"
		endwith
	endwith
	.Refresh
endwith
184
How can I hide an item

with thisform.ToolBar1
	with .Items
		.Add("Item 1").Visible = .F.
		.Add("Item 2")
	endwith
	.Refresh
endwith
183
How do I quickly load items into the control

with thisform.ToolBar1
	.ToString = "Check 1[chk],Check 2[chk=1]"
endwith
182
Are there any functions to get the size/width/height of the control so all items fit the control's client area

with thisform.ToolBar1
	with .Items
		.Add("Item 1")
		.Add("Item 2")
	endwith
	.Refresh
	DEBUGOUT( .RequiredWidth )
	DEBUGOUT( .RequiredHeight )
endwith
181
How do I get the item giving its caption

with thisform.ToolBar1
	with .Items
		.Add("Item 1").ID = 1000
		.Add("Item 2").ID = 1001
	endwith
	.Item("Item 1").Bold = .T.
	.Refresh
endwith
180
How do I get the item giving its identifier

with thisform.ToolBar1
	with .Items
		.Add("Item 1").ID = 1000
		.Add("Item 2").ID = 1001
	endwith
	.Item(1000).Bold = .T.
	.Refresh
endwith
179
Can I change the cursor where it hovers the item

with thisform.ToolBar1
	.Cursor = "exCross"
	with .Items
		.Add("Item 1")
		.Add("Item 2").Cursor = "exNoDrop"
	endwith
	.Refresh
endwith
178
I am using radio-buttons, the question is it possible to uncheck the radio-buttons, so no button is pressed in the group

with thisform.ToolBar1
	.AllowToggleRadio = .T.
	with .Items
		with .Add("Radio 1",Null,1000)
			.Radio = .T.
			.RadioGroup = 100
		endwith
		with .Add("Radio 2",Null,1001)
			.Radio = .T.
			.RadioGroup = 100
		endwith
		with .Add("Radio 2",Null,1003)
			.Radio = .T.
			.RadioGroup = 100
		endwith
	endwith
	.Refresh
endwith
177
Is it possible to display the item's identifiers

with thisform.ToolBar1
	.Debug = .T.
	with .Items
		.Add("Item 1").ID = 10001
		.Add("Item 2").ID = 10002
	endwith
	.Refresh
endwith
176
How do I disable showing the tooltip for all control (method 2)

with thisform.ToolBar1
	.AllowToolTip = .F.
	with .Items
		.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
		.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
	endwith
	.Refresh
endwith
175
How can I lock the control, so no events occur, but no shown in gray as Enabled do

*** SelectItem event - Occurs when the user selects the item. ***
LPARAMETERS Itm
	with thisform.ToolBar1
		DEBUGOUT( "SelectItem should not be fired while locked" )
	endwith

with thisform.ToolBar1
	.Locked = .T.
	with .Items
		.Add("Disabled").Enabled = .F.
		.Add("Item 2")
		.Add("Item 3")
	endwith
	.Refresh
endwith
174
How can I disable the control

with thisform.ToolBar1
	.Enabled = .F.
	with .Items
		.Add("Disabled").Enabled = .F.
		.Add("Item 2")
		.Add("Item 3")
	endwith
	.Refresh
endwith
173
How can I specify a different border/visual appearance for drop down portion of the popup menu (ebn)

with thisform.ToolBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.PopupAppearance = 16777216 && 0x1000000
	with .Items
		with .Add("Popup 1",2).Items
			.Add("Item 1").Check = .T.
			.Add("Item 2").Check = .T.
			.Add("Item 3").Check = .T.
		endwith
		with .Add("Popup 2",2).Items
			.Add("Item 4").Check = .T.
			.Add("Item 5").Check = .T.
			.Add("Item 6").Check = .T.
		endwith
	endwith
	.Refresh
endwith
172
How can I specify a different border for drop down portion of the popup menu

with thisform.ToolBar1
	.PopupAppearance = 6
	with .Items
		with .Add("Popup 1",2).Items
			.Add("Item 1").Check = .T.
			.Add("Item 2").Check = .T.
			.Add("Item 3").Check = .T.
		endwith
		with .Add("Popup 2",2).Items
			.Add("Item 4").Check = .T.
			.Add("Item 5").Check = .T.
			.Add("Item 6").Check = .T.
		endwith
	endwith
	.Refresh
endwith
171
How can I specify a different border/visual appearance for drop down portion of the select buttons/combobox (ebn)

with thisform.ToolBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.LocalAppearance = 16777216 && 0x1000000
	with .Items
		with .Add("",2)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Button",2)
					.ShowAsButton = 275 && ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
					with .Items
						.Add("Item 1")
						.Add("Item 2")
						.Add("Item 3")
					endwith
				endwith
				with .Add("Button",2)
					.ShowAsButton = 275 && ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
					with .Items
						.Add("Item 4")
						.Add("Item 5")
						.Add("Item 6")
					endwith
				endwith
			endwith
		endwith
	endwith
	.Refresh
endwith
170
How can I specify a different border for drop down portion of the select buttons/combobox

with thisform.ToolBar1
	.LocalAppearance = 6
	with .Items
		with .Add("",2)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Button",2)
					.ShowAsButton = 275 && ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
					with .Items
						.Add("Item 1")
						.Add("Item 2")
						.Add("Item 3")
					endwith
				endwith
				with .Add("Button",2)
					.ShowAsButton = 275 && ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
					with .Items
						.Add("Item 4")
						.Add("Item 5")
						.Add("Item 6")
					endwith
				endwith
			endwith
		endwith
	endwith
	.Refresh
endwith
169
How can I change the visual appearance for the entire control

with thisform.ToolBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Appearance = 16777216 && 0x1000000
	.ShowCheckedAsSelected = -1
	with .Items
		.Padding = "4,4,4,4"
		with .Add("Radio 1")
			.Radio = .T.
			.Checked = .T.
		endwith
		.Add("Radio 2").Radio = .T.
		.Add("Radio 3").Radio = .T.
	endwith
	.Refresh
endwith
168
How can I show a border arround the control
with thisform.ToolBar1
	.Appearance = 1
	.ShowCheckedAsSelected = -1
	with .Items
		.Padding = "4,4,4,4"
		with .Add("Check 1")
			.Checked = .T.
			.Check = .T.
		endwith
		with .Add("Check 2")
			.Check = .T.
		endwith
	endwith
	.Refresh
endwith
167
Is it possible to change the item's background color when check/uncheck the item

with thisform.ToolBar1
	.ShowCheckedAsSelected = -1
	with .Items
		.Padding = "4,4,4,4"
		with .Add("Check 1")
			.Checked = .T.
			.Check = .T.
		endwith
		with .Add("Check 2")
			.Check = .T.
		endwith
	endwith
	.Refresh
endwith
166
How can I change the colors for hot/hover items

with thisform.ToolBar1
	.Object.Background(110) = RGB(0,0,1)
	.Object.Background(111) = RGB(255,255,255)
	.Object.Background(112) = RGB(128,128,128)
	.Object.Background(113) = RGB(255,255,255)
	.SelBackColor = RGB(128,128,128)
	.SelForeColor = RGB(255,255,255)
	.Object.Background(102) = RGB(128,128,128)
	.ShowCheckedAsSelected = -1
	with .Items
		.Padding = "4,4,4,4"
		.Add("").ToString = "[group=3](Item 1,Item 2)"
		with .Add("Check 1")
			.Checked = .T.
			.Check = .T.
		endwith
		with .Add("Check 2")
			.Check = .T.
		endwith
	endwith
	.Refresh
endwith
165
How do I change the visual appearance of the groups (vertical)

with thisform.ToolBar1
	with .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"c:\exontrol\images\pushed.ebn")
		.Add(3,"c:\exontrol\images\hot.ebn")
	endwith
	.Object.Background(105) = 0x1000000
	.Object.Background(116) = 0x1000000
	.Object.Background(117) = 0x2000000
	.Object.Background(118) = 0x3000000
	.Object.Background(109) = RGB(255,0,0)
	with .Items
		with .Add("",2)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Vertical",2)
					.Alignment = 1
					.GroupPopup = 257 && GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exGroupPopup
					with .Items
						.Add("Item 1")
						.Add("Item 2")
						.Add("Item 3")
						.Add("Item 4")
						.Add("Item 5")
					endwith
				endwith
				.Add("").CaptionWidth = 12
				with .Add("Vertical",2)
					.Alignment = 1
					.GroupPopup = 449 && GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exGroupPopupFrameThickBox Or GroupPopupEnum.exGroupPopupFrameSolidBox Or GroupPopupEnum.exGroupPopup
					with .Items
						.Add("Item 1")
						.Add("Item 2")
						.Add("Item 3")
						.Add("Item 4")
						.Add("Item 5")
					endwith
				endwith
			endwith
		endwith
	endwith
	.Refresh
endwith
164
How do I change the visual appearance of the groups (horizontal)

with thisform.ToolBar1
	with .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"c:\exontrol\images\pushed.ebn")
		.Add(3,"c:\exontrol\images\hot.ebn")
	endwith
	.Object.Background(105) = 0x1000000
	.Object.Background(106) = 0x1000000
	.Object.Background(107) = 0x2000000
	.Object.Background(108) = 0x3000000
	.Object.Background(109) = RGB(255,0,0)
	with .Items
		with .Add("Horizontal Group",2)
			.GroupPopup = 1
			with .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
				.Add("Item 4")
				.Add("Item 5")
			endwith
		endwith
		.Add("").ToString = "Horizontal Group[group=193](Item 1,Item 2,Item 3,Item 4,Item 5)"
	endwith
	.Refresh
endwith
163
How can I change the visual appearance of the separator item

with thisform.ToolBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Object.Background(103) = 0x1000000
	with .Items
		.Add("Item").CaptionWidth = 128
		.Add("",1)
		.Add("Item").CaptionWidth = 128
		.Add("").ToString = "<font ;5>separator[sep]"
	endwith
	.Refresh
endwith
162
How can I change the visual appearance of the drop down of the control (normal.2)

with thisform.ToolBar1
	with .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"c:\exontrol\images\pushed.ebn")
	endwith
	.PopupFlatImageWidth = 0
	with .Items
		with .Add("Popup",2).Items
			.Add("Item 1").Check = .T.
			.Add("Item 2").Check = .T.
			.Add("Item 3").Check = .T.
			.PopupAppearance = 16777216 && 0x1000000
		endwith
	endwith
	.Refresh
endwith
161
How can I change the visual appearance of the drop down of the control (normal.1)

with thisform.ToolBar1
	with .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"c:\exontrol\images\pushed.ebn")
	endwith
	.PopupFlatAppearance = .F.
	with .Items
		with .Add("Popup",2).Items
			.Add("Item 1").Check = .T.
			.Add("Item 2").Check = .T.
			.Add("Item 3").Check = .T.
			.PopupAppearance = 16777216 && 0x1000000
		endwith
	endwith
	.Refresh
endwith
160
How can I change the visual appearance of the drop down of the control (flat)

with thisform.ToolBar1
	with .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"c:\exontrol\images\pushed.ebn")
	endwith
	.PopupFlatBackColor = 0x2000000
	.Object.Background(100) = .PopupFlatBackColor
	with .Items
		with .Add("Popup",2).Items
			.Add("Item 1").Check = .T.
			.Add("Item 2").Check = .T.
			.Add("Item 3").Check = .T.
			.PopupAppearance = 16777216 && 0x1000000
		endwith
	endwith
	.Refresh
endwith
159
How can I change the visual appearance of the flat portion of the drop down of the control

with thisform.ToolBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.PopupFlatBackColor = 0x1000000
	.Object.Background(100) = .PopupFlatBackColor
	with .Items
		with .Add("Popup",2).Items
			.Add("Item 1").Check = .T.
			.Add("Item 2").Check = .T.
			.Add("Item 3").Check = .T.
			.PopupAppearance = 6
		endwith
	endwith
	.Refresh
endwith
158
How can I change the visual appearance of the radio-buttons to be displayed in the toolbar control (ebn)

with thisform.ToolBar1
	with .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"c:\exontrol\images\pushed.ebn")
	endwith
	.Object.Background(73) = 0x1000000
	.Object.Background(74) = 0x2000000
	with .Items
		with .Add("",2)
			.GroupPopup = 1
			with .Items
				with .Add("Radio 1",Null,1000)
					.Radio = .T.
					.RadioGroup = 100
				endwith
				with .Add("Radio 2",Null,1001)
					.Radio = .T.
					.RadioGroup = 100
				endwith
				with .Add("Radio 2",Null,1003)
					.Radio = .T.
					.RadioGroup = 100
				endwith
				.Item(1000).Checked = .T.
			endwith
		endwith
	endwith
	.Refresh
endwith
157
How can I change the visual appearance of the check-boxes to be displayed in the toolbar control (ebn)

with thisform.ToolBar1
	with .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"c:\exontrol\images\pushed.ebn")
	endwith
	.Object.Background(70) = 0x1000000
	.Object.Background(71) = 0x2000000
	with .Items
		with .Add("",2)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Check 1")
					.Check = .T.
					.Checked = .T.
				endwith
				.Add("Check 2").Check = .T.
			endwith
		endwith
	endwith
	.Refresh
endwith
156
How can I change the visual appearance of the tooltips to be displayed in the toolbar control (ebn)

with thisform.ToolBar1
	with .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"c:\exontrol\images\pushed.ebn")
	endwith
	.ToolTipDelay = 1
	.Object.Background(64) = 0x1000000
	.Object.Background(66) = RGB(255,0,0)
	with .Items
		.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
		.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
	endwith
	.Refresh
endwith
155
Is it possible to change the visual appearance of the buttons to be displayed in the toolbar control (ebn)

with thisform.ToolBar1
	with .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"c:\exontrol\images\pushed.ebn")
	endwith
	.Object.Background(2) = 0x1000000 && 0x2
	.Object.Background(3) = 0x2000000 && 0x3
	.Object.Background(114) = RGB(255,0,0)
	.Object.Background(115) = RGB(0,0,255)
	with .Items
		.Padding = "4,4,4,4"
		.Add("Button").ShowAsButton = 3 && ShowAsButtonEnum.exShowAsButtonAutoSize Or ShowAsButtonEnum.exShowAsButton
		with .Add("")
			.Enabled = .F.
			.ItemHeight = 4
		endwith
		with .Add("Button",2)
			.ShowAsButton = 275 && ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
			with .Items
				.PopupAppearance = 6
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			endwith
		endwith
		with .Add("")
			.Enabled = .F.
			.ItemHeight = 4
		endwith
		with .Add("Button",2)
			.ShowAsButton = 19 && ShowAsButtonEnum.exShowAsSelectButton Or ShowAsButtonEnum.exShowAsButtonAutoSize
			with .Items
				.PopupAppearance = 6
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			endwith
		endwith
	endwith
	.Refresh
endwith
154
I've seen that the width of the tooltip is variable. Can I make it larger

with thisform.ToolBar1
	.ToolTipWidth = 328
	with .Items
		.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
		.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
	endwith
	.Refresh
endwith
153
How do I disable showing the tooltip for all control (method 1)

with thisform.ToolBar1
	.ToolTipDelay = 0
	with .Items
		.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
		.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
	endwith
	.Refresh
endwith
152
How do I let the tooltip being displayed longer

with thisform.ToolBar1
	.ToolTipPopDelay = 10000
	with .Items
		.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
		.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
	endwith
	.Refresh
endwith
151
How do I show the tooltip quicker

with thisform.ToolBar1
	.ToolTipDelay = 1
	with .Items
		.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
		.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
	endwith
	.Refresh
endwith
150
How can I get the version of the control I am running

with thisform.ToolBar1
	DEBUGOUT( .Version )
endwith
149
How can I align the picture on the control's background

with thisform.ToolBar1
	.Picture = thisform.ToolBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\card.png`)")
	.PictureDisplay = 2
	with .Items
		.Add("Item")
		.Add("Item")
	endwith
	.Refresh
endwith
148
Is it possible to place a picture on the control's background

with thisform.ToolBar1
	.Picture = thisform.ToolBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\card.png`)")
	with .Items
		.Add("Item")
		.Add("Item")
	endwith
	.Refresh
endwith
147
How can I display the item using a different font/size

with thisform.ToolBar1
	with .Items
		.Add("").Caption = "<font ;14>This is a bit of text"
		.Add("<font ;6>This is a bit of text")
		.Add("").Caption = "<font Times New Roman;22>This is a bit of text</font>. Default"
	endwith
	.Refresh
endwith
146
How can I use the Event event, available for /COM version

*** Event event - Notifies the application once the control fires an event. ***
LPARAMETERS EventID
	with thisform.ToolBar1
		DEBUGOUT( "Event" )
		DEBUGOUT( .EventParam(-2) )
	endwith

with thisform.ToolBar1
	with .Items
		.Add("Check").Check = .T.
		with .Add("Slider")
			.AllowEdit = 3
			.EditWidth = 128
			.EditBorder = 0
			.EditValue = 25
		endwith
	endwith
	.Refresh
endwith
145
Is it possible to get notified once the user edits the field, or change the slider value

*** EditChange event - Occurs when the user alters the item's text box field. ***
LPARAMETERS Itm
	with thisform.ToolBar1
		DEBUGOUT( "EditChange event on Itm object" )
	endwith

with thisform.ToolBar1
	with .Items
		with .Add("Item")
			.AllowEdit = 3
			.EditWidth = 128
			.EditBorder = 0
			.EditValue = 25
		endwith
	endwith
	.Refresh
endwith
144
How do I get notified once I uncheck an item

*** UncheckItem event - Occurs when the user unchecks the item. ***
LPARAMETERS Itm
	with thisform.ToolBar1
		DEBUGOUT( "UncheckItem event on Itm object" )
	endwith

with thisform.ToolBar1
	with .Items
		.Add("Item").Check = .T.
		.Add("Item").Check = .T.
	endwith
	.Refresh
endwith
143
How do I get notified once I check an item

*** CheckItem event - Occurs when the user checks the item. ***
LPARAMETERS Itm
	with thisform.ToolBar1
		DEBUGOUT( "CheckItem event on Itm object" )
	endwith

with thisform.ToolBar1
	with .Items
		.Add("Item").Check = .T.
		.Add("Item").Check = .T.
	endwith
	.Refresh
endwith
142
How do I get notified once I click/select an item

*** SelectItem event - Occurs when the user selects the item. ***
LPARAMETERS Itm
	with thisform.ToolBar1
		DEBUGOUT( "SelectItem event on Itm object" )
	endwith

with thisform.ToolBar1
	with .Items
		.Add("Item")
		.Add("Item")
	endwith
	.Refresh
endwith
141
Does your control support padding for items

with thisform.ToolBar1
	.PopupFlatAppearance = .F.
	with .Items
		.Padding = "2,12,2,2"
		with .Add("",2)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			endwith
		endwith
		.BackColor = RGB(255,255,255)
		.BackgroundExt = "root[pattern=0x000,frame=RGB(128,128,128)](top[2],top[10,text=`<font ;6><fgcolor 808080> group </font></fgcolor>`,align=0x11])"
	endwith
	.Refresh
endwith
140
How can I display the drop down popup to a different position ( method 2 )

with thisform.ToolBar1
	with .Items
		with .Add("Popup",2,100)
			.ShowPopupAlign = 1
			.ShowPopupArrow = .F.
			.ShowPopupOffset = "-12,-48"
			with .Items
				.PopupAppearance = 3
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			endwith
		endwith
	endwith
	.Refresh
endwith
139
How can I display the drop down popup to a different position ( method 1 )

with thisform.ToolBar1
	with .Items
		with .Add("",2)
			.GroupPopup = 1
			with .Items
				with .Add("Popup 1",2,100)
					.ShowPopupAlign = 1
					.ShowPopupArrow = .F.
					with .Items
						.PopupAppearance = 3
						.Add("Item 1")
						.Add("Item 2")
						.Add("Item 3")
					endwith
				endwith
				with .Add("Popup 2",2,200)
					.ShowPopupAt = 100
					.ShowPopupArrow = .F.
					with .Items
						.PopupAppearance = 3
						.Add("Item 4")
						.Add("Item 5")
						.Add("Item 6")
					endwith
				endwith
			endwith
		endwith
	endwith
	.Refresh
endwith
138
Is it possible to show the popup bellow to the item, rather than on the right side

with thisform.ToolBar1
	with .Items
		with .Add("Popup",2)
			.ShowPopupAlign = 1
			.ShowPopupArrow = .F.
			with .Items
				.PopupAppearance = 1
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			endwith
		endwith
		.Add("").ToString = "Popup[arrow=0][popupalign=1][popupapp=1](Item 1,Item 2,Item 3)"
	endwith
	.Refresh
endwith
137
How can I change the visual appearance for items, when cursor hovers it (hot,EBN)

with thisform.ToolBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	with .Items
		with .Add("",2)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				.HotBackColor = 0x1000000
				.Padding = "4,8,4,8"
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			endwith
		endwith
		.Add("").ToString = "[group=0x03][itemspad=4,8,4,8][itemsbghot=0x1000000](Item 1,Item 2,Item 3)"
	endwith
	.Refresh
endwith
136
How can I change the background color for items, when cursor hovers it (hot)

with thisform.ToolBar1
	with .Items
		with .Add("",2)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				.HotBackColor = RGB(255,0,0)
				.Padding = "0,8,0,8"
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			endwith
		endwith
		.Add("").ToString = "[group=0x03][itemspad=0,8,0,8][itemsbghot=RGB(255,0,0)](Item 1,Item 2,Item 3)"
	endwith
	.Refresh
endwith
135
How can I change the visual appearance for items (EBN)

with thisform.ToolBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	with .Items
		with .Add("",2)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				.BackColor = 0x1000000
				.Padding = "4,8,4,8"
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			endwith
		endwith
		.Add("").ToString = "[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)"
	endwith
	.Refresh
endwith
134
How can I change the background color for items

with thisform.ToolBar1
	with .Items
		with .Add("",2)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				.BackColor = RGB(255,0,0)
				.Padding = "0,8,0,8"
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			endwith
		endwith
		.Add("").ToString = "[group=0x03][itemspad=0,8,0,8][itemsbg=RGB(255,0,0)](Item 1,Item 2,Item 3)"
	endwith
	.Refresh
endwith
133
Is it possible to hide the popup's arrow

with thisform.ToolBar1
	with .Items
		with .Add("Popup",2)
			.ShowPopupArrow = .F.
			with .Items
				.PopupAppearance = 6
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			endwith
		endwith
		.Add("").ToString = "Popup[arrow=0][popupapp=6](Item 1,Item 2,Item 3)"
	endwith
	.Refresh
endwith
132
How do I hide the left gray portion to be shown on the drop down menu/popup (method 2)

with thisform.ToolBar1
	.PopupFlatImageWidth = 0
	with .Items
		with .Add("Popup",2).Items
			.Add("Item 1")
			.Add("Item 2")
			.Add("Item 3")
			.PopupAppearance = 6
		endwith
	endwith
	.Refresh
endwith
131
How do I hide the left gray portion to be shown on the drop down menu/popup (method 1)

with thisform.ToolBar1
	.PopupFlatAppearance = .F.
	with .Items
		with .Add("Popup",2).Items
			.Add("Item 1")
			.Add("Item 2")
			.Add("Item 3")
			.PopupAppearance = 6
		endwith
	endwith
	.Refresh
endwith
130
How can I arrange the drop down item from left to right, rather than top to bottom

*** SelectItem event - Occurs when the user selects the item. ***
LPARAMETERS Itm
	with thisform.ToolBar1
		DEBUGOUT( "Clicked" )
	endwith

with thisform.ToolBar1
	.PopupFlatAppearance = .F.
	with .Items
		with .Add("Button",2)
			.ShowAsButton = 275 && ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
			with .Items
				.PopupAppearance = 6
				with .Add("",2)
					.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
					with .Items
						.Add("Item 1")
						.Add("Item 2")
						.Add("Item 3")
					endwith
				endwith
			endwith
		endwith
		.Add("").ToString = "Button[button=0x0113][popupapp=6]([group=0x03](Item 1,Item 2,Item 3))"
	endwith
	.Refresh
endwith
129
How can I add a drop down button / combobox (method 2)

*** SelectItem event - Occurs when the user selects the item. ***
LPARAMETERS Itm
	with thisform.ToolBar1
		DEBUGOUT( "Clicked" )
	endwith

with thisform.ToolBar1
	with .Items
		with .Add("Button",2)
			.ShowAsButton = 275 && ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
			with .Items
				.PopupAppearance = 6
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			endwith
		endwith
		.Add("").ToString = "Button[button=275][popupapp=6](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
	endwith
	.Refresh
endwith
128
How can I add a drop down button / combobox (method 1)

*** SelectItem event - Occurs when the user selects the item. ***
LPARAMETERS Itm
	with thisform.ToolBar1
		DEBUGOUT( "Clicked" )
	endwith

with thisform.ToolBar1
	with .Items
		with .Add("Button",2)
			.ShowAsButton = 19 && ShowAsButtonEnum.exShowAsSelectButton Or ShowAsButtonEnum.exShowAsButtonAutoSize
			with .Items
				.PopupAppearance = 6
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			endwith
		endwith
		.Add("").ToString = "Button[button=0x13][popupapp=6](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
	endwith
	.Refresh
endwith
127
I am using exShowAsSelectButton/exShowAsSelectButtonBottom but none of them works. What could be wrong

*** SelectItem event - Occurs when the user selects the item. ***
LPARAMETERS Itm
	with thisform.ToolBar1
		DEBUGOUT( "Clicked" )
	endwith

with thisform.ToolBar1
	with .Items
		with .Add("Button",2)
			.ShowAsButton = 19 && ShowAsButtonEnum.exShowAsSelectButton Or ShowAsButtonEnum.exShowAsButtonAutoSize
			with .Items
				.PopupAppearance = 6
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			endwith
		endwith
	endwith
	.Refresh
endwith
126
How can I add a button (push button)

*** SelectItem event - Occurs when the user selects the item. ***
LPARAMETERS Itm
	with thisform.ToolBar1
		DEBUGOUT( "Clicked" )
	endwith

with thisform.ToolBar1
	with .Items
		.Add("Button").ShowAsButton = 3 && ShowAsButtonEnum.exShowAsButtonAutoSize Or ShowAsButtonEnum.exShowAsButton
		.Add("").ToString = "Button[button=0x03]"
	endwith
	.Refresh
endwith
125
How can I display grouping items with no frame arround

with thisform.ToolBar1
	with .Items
		with .Add("Horizontal Group",2)
			.GroupPopup = 243 && GroupPopupEnum.exGroupPopupFrameThickBox Or GroupPopupEnum.exGroupPopupFrameSolidBox Or GroupPopupEnum.exGroupPopupEqualHeight Or GroupPopupEnum.exGroupPopupEqualWidth Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				.Add("A").Alignment = 1
				.Add("BC").Alignment = 1
				.Add("D").Alignment = 1
			endwith
		endwith
		.Add("").ToString = "Horizontal Group[group=243](A[id=20][align=1],BC[id=30][align=1],D[id=40][align=1])"
	endwith
	.Refresh
endwith
124
How can I display grouping items of the same size/width/height

with thisform.ToolBar1
	with .Items
		with .Add("Horizontal Group",2)
			.GroupPopup = 241 && GroupPopupEnum.exGroupPopupFrameThickBox Or GroupPopupEnum.exGroupPopupFrameSolidBox Or GroupPopupEnum.exGroupPopupEqualHeight Or GroupPopupEnum.exGroupPopupEqualWidth Or GroupPopupEnum.exGroupPopup
			with .Items
				.Add("A").Alignment = 1
				.Add("BC").Alignment = 1
				.Add("D").Alignment = 1
			endwith
		endwith
		.Add("").ToString = "Horizontal Group[group=0xF1](A[id=20][align=1],BC[id=30][align=1],D[id=40][align=1])"
	endwith
	.Refresh
endwith
123
Is it possible to display a ticker frame arround grouping items

with thisform.ToolBar1
	with .Items
		with .Add("Horizontal Group",2)
			.GroupPopup = 193 && GroupPopupEnum.exGroupPopupFrameThickBox Or GroupPopupEnum.exGroupPopupFrameSolidBox Or GroupPopupEnum.exGroupPopup
			with .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			endwith
		endwith
		.Add("").ToString = "Horizontal Group[group=193](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
	endwith
	.Refresh
endwith
122
How do I display items horizontally arranged

with thisform.ToolBar1
	with .Items
		with .Add("Horizontal Group",2)
			.GroupPopup = 1
			with .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			endwith
		endwith
		.Add("").ToString = "Horizontal Group[group=0x01](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
	endwith
	.Refresh
endwith
121
Is it possible to expand an item when it is clicked (tree,group,vertical)

with thisform.ToolBar1
	with .Items
		with .Add("Expand",2)
			.GroupPopup = 259 && GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			.Check = .T.
			.ShowPopupOnChecked = .T.
			with .Items
				.Padding = "22,0,0,0"
				.Add("Radio 1").Radio = .T.
				.Add("Radio 2").Radio = .T.
				with .Add("Radio 3")
					.Radio = .T.
					.Checked = .T.
				endwith
			endwith
			.Checked = .T.
		endwith
		var_s = "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"
		var_s = var_s + "][chk=1])"
		.Add("").ToString = var_s
	endwith
	.Refresh
endwith
120
Is it possible to expand an item when it is clicked (tree,group,vertical)

with thisform.ToolBar1
	with .Items
		with .Add("Expand",2)
			.GroupPopup = 259 && GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			.Check = .T.
			.ShowPopupOnChecked = .T.
			with .Items
				.Padding = "22,0,0,0"
				.Add("Radio 1").Radio = .T.
				.Add("Radio 2").Radio = .T.
				with .Add("Radio 3")
					.Radio = .T.
					.Checked = .T.
				endwith
			endwith
			.Checked = .T.
		endwith
	endwith
	.Refresh
endwith
119
Is it possible to expand an item when it is clicked (group)

with thisform.ToolBar1
	with .Items
		with .Add("Expand",2)
			.GroupPopup = 1
			.ItemHeight = 24
			.Check = .T.
			.ShowPopupOnChecked = .T.
			with .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
				.PopupAppearance = 6
			endwith
		endwith
	endwith
	.Refresh
endwith
118
Is it possible to extend an item when it is clicked

with thisform.ToolBar1
	with .Items
		with .Add("Expand",2)
			.Check = .T.
			.ShowPopupOnChecked = .T.
			with .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
				.PopupAppearance = 6
			endwith
		endwith
	endwith
	.Refresh
endwith
117
Does your control implement padding for item

with thisform.ToolBar1
	with .Items
		.BackColor = RGB(250,250,250)
		.Add("Item").Padding = "4,4,4,4"
		.Add("").ToString = "Item[pad=4,4,4,4]"
	endwith
	.Refresh
endwith
116
How can I add an empty item for a horizontal group

with thisform.ToolBar1
	with .Items
		with .Add("",2)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				.Add("Item 1")
				with .Add("",2)
					.GroupPopup = 5 && GroupPopupEnum.exGroupPopupCenter Or GroupPopupEnum.exGroupPopup
					.ItemHeight = 12
					with .Items.Add("")
						.Enabled = .F.
						.ItemHeight = 8
						.CaptionWidth = 8
					endwith
				endwith
				.Add("Item 2")
			endwith
		endwith
	endwith
	.Refresh
endwith
115
How can I add an empty/separator item

with thisform.ToolBar1
	with .Items
		.Add("Item")
		with .Add("")
			.Enabled = .F.
			.ItemHeight = 2
			.CaptionWidth = 8
			.BackColor = RGB(240,240,240)
		endwith
		.Add("Item")
	endwith
	.Refresh
endwith
114
How can I add an empty/frame item

with thisform.ToolBar1
	with .Items
		.Add("Item 1")
		with .Add("",2)
			.GroupPopup = 5 && GroupPopupEnum.exGroupPopupCenter Or GroupPopupEnum.exGroupPopup
			.ItemHeight = 12
			with .Items.Add("")
				.Enabled = .F.
				.ItemHeight = 8
				.CaptionWidth = 8
			endwith
		endwith
		.Add("Item 2")
	endwith
	.Refresh
endwith
113
How can I specify the height of the item

with thisform.ToolBar1
	with .Items
		.BackColor = RGB(250,250,250)
		.Add("Item").ItemHeight = 64
		.Add("").ToString = "Item[height=64]"
	endwith
	.Refresh
endwith
112
How can I specify the width of the item

with thisform.ToolBar1
	with .Items
		.BackColor = RGB(250,250,250)
		.Add("Item").CaptionWidth = 128
		.Add("").ToString = "Item[captionwidth=128]"
	endwith
	.Refresh
endwith
111
How do I align the item

with thisform.ToolBar1
	with .Items
		.BackColor = RGB(250,250,250)
		.Add("Item")
		with .Add("Item")
			.Alignment = 1
			.CaptionWidth = 128
		endwith
		with .Add("Item")
			.Alignment = 2
			.CaptionWidth = 128
		endwith
		.Add("").ToString = "Item[align=1]"
	endwith
	.Refresh
endwith
110
How can I underline the item

with thisform.ToolBar1
	with .Items
		.Add("Item").Underline = .T.
		.Add("<u>Item</u>")
		.Add("").ToString = "Item[und]"
	endwith
	.Refresh
endwith
109
How can I show the item as strikeout

with thisform.ToolBar1
	with .Items
		.Add("Item").Strikeout = .T.
		.Add("<s>Item</s>")
		.Add("").ToString = "Item[stk]"
	endwith
	.Refresh
endwith
108
How can I show the item in italics

with thisform.ToolBar1
	with .Items
		.Add("Item").Italic = .T.
		.Add("<i>Item</i>")
		.Add("").ToString = "Item[itl]"
	endwith
	.Refresh
endwith
107
How can I show the item in bold

with thisform.ToolBar1
	with .Items
		.Add("Item").Bold = .T.
		.Add("<b>Item</b>")
		.Add("").ToString = "Item[bld]"
	endwith
	.Refresh
endwith
106
How can I show the item as disabled but still be able to select or use it

with thisform.ToolBar1
	with .Items
		.Add("Item").ShowAsDisabled = .T.
		.Add("").ToString = "Item[showdis=1]"
	endwith
	.Refresh
endwith
105
How can I enable or disable an item

with thisform.ToolBar1
	with .Items
		.Add("Item").Enabled = .F.
		.Add("").ToString = "Item[dis]"
	endwith
	.Refresh
endwith
104
How can I add a separator item

with thisform.ToolBar1
	with .Items
		.Add("Item").CaptionWidth = 128
		.Add("<font ;6>separator",1)
		.Add("Item").CaptionWidth = 128
		.Add("").ToString = "<font ;6>separator[sep]"
	endwith
	.Refresh
endwith
103
How can I change the item's foreground color

with thisform.ToolBar1
	with .Items
		.Add("Item").ForeColor = RGB(255,0,0)
		.Add("<fgcolor FF0000>Item")
		.Add("").ToString = "Item[fg=RGB(255,0,0)]"
	endwith
	.Refresh
endwith
102
How can I change the item's background/backcolor, when the item is selected/checked (radio-buttons)

with thisform.ToolBar1
	with .Items
		with .Add("",2)
			.GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			with .Items
				with .Add("Radio 1")
					.HotBackColor = RGB(255,255,255)
					.SelBackColor = RGB(255,0,0)
					.SelHotBackColor = RGB(255,0,0)
					.ShowCheckedAsSelected = 1
					.Radio = .T.
					.RadioGroup = 100
					.Checked = .T.
				endwith
				with .Add("Radio 2")
					.HotBackColor = RGB(255,255,255)
					.SelBackColor = RGB(255,0,0)
					.SelHotBackColor = RGB(255,0,0)
					.ShowCheckedAsSelected = 1
					.Radio = .T.
					.RadioGroup = 100
				endwith
				.Add("").ToString = "Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0)]"
			endwith
		endwith
	endwith
	.Refresh
endwith
101
How can I change the item's background/backcolor, when the item is selected/checked (check-box)

with thisform.ToolBar1
	with .Items
		with .Add("Check 1")
			.HotBackColor = RGB(255,255,255)
			.SelBackColor = RGB(255,0,0)
			.SelHotBackColor = RGB(255,0,0)
			.ShowCheckedAsSelected = 1
			.Checked = .T.
			.Check = .T.
		endwith
		.Add("").ToString = "Check 2[typ=1][chk=0][show=1][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0)]"
	endwith
	.Refresh
endwith