185
Event event
' Event event - Notifies the application once the control fires an event.
Private Sub Excontextmenu1_Event(ByVal sender As System.Object,ByVal EventID As Integer) Handles Excontextmenu1.Event
	With Excontextmenu1
		Debug.Print( .get_EventParam(-2) )
	End With
End Sub

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Items.ToString = "Popup 1(Check 1[typ=1],Check 2[typ=1],Check 3[typ=1],Item 1),Expand[img=2][typ=1][chk=1][spchk=-1][group=0x0103](Check 4[typ=1]" & _
",Check 5[typ=1],Check 6[typ=1][chk=1],Item 2)"
	.Select()
End With
184
UncheckItem event
' UncheckItem event - Occurs when the user unchecks the item.
Private Sub Excontextmenu1_UncheckItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXCONTEXTMENULib.item) Handles Excontextmenu1.UncheckItem
	With Excontextmenu1
		Debug.Print( Itm )
	End With
End Sub

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Items.ToString = "Popup 1(Check 1[typ=1],Check 2[typ=1],Check 3[typ=1],Item 1),Expand[img=2][typ=1][chk=1][spchk=-1][group=0x0103](Check 4[typ=1]" & _
",Check 5[typ=1],Check 6[typ=1][chk=1],Item 2)"
	.Select()
End With
183
CheckItem event
' CheckItem event - Occurs when the user checks the item.
Private Sub Excontextmenu1_CheckItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXCONTEXTMENULib.item) Handles Excontextmenu1.CheckItem
	With Excontextmenu1
		Debug.Print( Itm )
	End With
End Sub

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Items.ToString = "Popup 1(Check 1[typ=1],Check 2[typ=1],Check 3[typ=1],Item 1),Expand[img=2][typ=1][chk=1][spchk=-1][group=0x0103](Check 4[typ=1]" & _
",Check 5[typ=1],Check 6[typ=1][chk=1],Item 2)"
	.Select()
End With
182
SelectItem event
' SelectItem event - Occurs when the user selects the item.
Private Sub Excontextmenu1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXCONTEXTMENULib.item) Handles Excontextmenu1.SelectItem
	With Excontextmenu1
		Debug.Print( Itm )
	End With
End Sub

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Items.ToString = "Popup 1(Check 1[typ=1],Check 2[typ=1],Check 3[typ=1],Item 1),Expand[img=2][typ=1][chk=1][spchk=-1][group=0x0103](Check 4[typ=1]" & _
",Check 5[typ=1],Check 6[typ=1][chk=1],Item 2)"
	.Select()
End With
181
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.ImageSize = 32
	.Font.Size = 16
	.Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq" & _
"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" & _
"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" & _
"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" & _
"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" & _
"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" & _
"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" & _
"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" & _
"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" & _
"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" & _
"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" & _
"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" & _
"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" & _
"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" & _
"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" & _
"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" & _
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" & _
"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" & _
"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" & _
"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" & _
"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" & _
"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" & _
"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" & _
"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==")
		.Add(2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" & _
"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" & _
"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" & _
"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" & _
"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" & _
"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" & _
"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" & _
"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" & _
"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" & _
"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" & _
"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" & _
"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" & _
"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" & _
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" & _
"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" & _
"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" & _
"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" & _
"gRBCCQAgQEA==")
		.Add(3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" & _
"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" & _
"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" & _
"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" & _
"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" & _
"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" & _
"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" & _
"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" & _
"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" & _
"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" & _
"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" & _
"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" & _
"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" & _
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" & _
"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" & _
"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=")
		.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
	End With
	.SelBackColor32 = &H4000000
	.SelForeColor = Color.FromArgb(0,0,1)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exCheckBoxState0,&H1000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exCheckBoxState1,&H2000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exCheckBoxState2,&H3000000)
	With .Items
		With .Add("Expand",2)
			.Image = 0
			.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
			.Check = True
			.ShowPopupOnChecked = True
			With .Items
				.Padding = "22,0,0,0"
				.Add("Check 1").Check = True
				.Add("Check 2").Check = True
				With .Add("Check 3")
					.Check = True
					.Checked = True
				End With
			End With
			.Checked = True
		End With
		.Add("").ToString = "Expand[typ=1][img=2][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Check 1[id=20][typ=1],Check 2[id=30][typ=1],Check 3[id=4" & _
"0][typ=1][chk=1])"
	End With
	.Select()
End With
180
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.ImageSize = 16
	.Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq" & _
"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" & _
"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" & _
"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" & _
"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" & _
"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==")
	With .VisualAppearance
		.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
	End With
	.SelBackColor32 = &H4000000
	.SelForeColor = Color.FromArgb(0,0,1)
	With .Items
		With .Add("Expand",2)
			.Image = 0
			.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
			.Check = True
			.ShowPopupOnChecked = True
			With .Items
				.Padding = "22,0,0,0"
				.Add("Check 1").Check = True
				.Add("Check 2").Check = True
				With .Add("Check 3")
					.Check = True
					.Checked = True
				End With
			End With
			.Checked = True
		End With
		.Add("").ToString = "Expand[typ=1][img=2][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Check 1[id=20][typ=1],Check 2[id=30][typ=1],Check 3[id=4" & _
"0][typ=1][chk=1])"
	End With
	.Select()
End With
179
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.
Private Sub Excontextmenu1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXCONTEXTMENULib.item) Handles Excontextmenu1.EditChange
	With Excontextmenu1
		Debug.Print( Itm )
	End With
End Sub

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.ToString = "Mask[edit=98][editwidth=-128][edittype=2][mask=00000],Mask[edit=98][editwidth=-128][edittype=2][mask=00000;1]"
	.Select()
End With
178
Is it possible to insert items at a specified position during runtime, without rebuilding the entire item which hosts the items
' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		.Add("Item A",0,1000)
		.Add("Item B",0,1001)
		.Add("Item C",0,1002).Position = 0
	End With
	Debug.Print( .Select() )
End With
177
Is it possible to have a popup on a radio button when it is checked

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.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.get_item(20)
		.Items.Add("Item A",0,1000)
		.Items.Add("Item B",0,1001)
		.Items.Add("Item C",0,1002)
	End With
	Debug.Print( .Select() )
End With
176
How can I control the height of the control, so no scroll is required to view all items

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.Font.Size = 6
	.MenuAppearance = exontrol.EXCONTEXTMENULib.MenuAppearanceEnum.exMenuNormal
	With .Items
		Debug.Print( .VisibleItemsCount )
		.VisibleItemsCount = 255
		.ToString = "1,2,3,4,5,6,7,8,9,10,11,12,13"
	End With
	.Select()
End With
175
How do I specify the control's height (method 3)

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		.Add("Item 1").ItemHeight = 24
		.Add("Item 2").ItemHeight = 24
		.Add("Item 3").ItemHeight = 24
	End With
	.Select()
End With
174
How do I specify the control's height (method 2)

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		.Add("Item 1").Padding = "0,4,0,4"
		.Add("Item 2").Padding = "0,4,0,4"
		.Add("Item 3").Padding = "0,4,0,4"
	End With
	.Select()
End With
173
How do I specify the control's height (method 1)

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.Font.Size = 12
	With .Items
		.Add("Item 1")
		.Add("Item 2")
		.Add("Item 3")
	End With
	.Select()
End With
172
How can I change the visual appearance of the progress bar

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_Background32(&H104,&H1000000)
	With .Items
		With .Add("Progress")
			.AllowEdit = exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress
			.EditWidth = -128
			.EditValue = 25
		End With
	End With
	.Select()
End With
171
How can I change the progress's color

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.set_Background(&H104,Color.FromArgb(255,0,0))
	With .Items
		With .Add("Progress")
			.AllowEdit = exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress
			.EditWidth = -128
			.EditValue = 25
		End With
	End With
	.Select()
End With
170
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.
Private Sub Excontextmenu1_CheckItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXCONTEXTMENULib.item) Handles Excontextmenu1.CheckItem
	With Excontextmenu1
		With .Items.get_item(1000)
			.Visible = True
			.AllowEdit = exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditReadOnly Or exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress
		End With
		.Select()
	End With
End Sub

' UncheckItem event - Occurs when the user unchecks the item.
Private Sub Excontextmenu1_UncheckItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXCONTEXTMENULib.item) Handles Excontextmenu1.UncheckItem
	With Excontextmenu1
		With .Items.get_item(1000)
			.Visible = False
			.AllowEdit = exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemDisableEdit
		End With
		.Select()
	End With
End Sub

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		With .Add("",2)
			With .Items
				.Add("Visible")
				With .Add("")
					.Check = True
					.Checked = True
				End With
				With .Add("Item 2",Nothing,1000)
					.ItemHeight = 18
					.Caption = "Percent"
					.AllowEdit = exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditReadOnly Or exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress
					.EditValue = 50
					.Visible = True
				End With
				.Add("Visible")
			End With
			.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
		End With
	End With
	.Select()
End With
169
How can I change the color of a disabled item

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		With .Add("Disabled",2,0)
			.ForeColor = Color.FromArgb(255,0,0)
			.Items.Add("")
			.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
		End With
		.Add("Disabled").Enabled = False
	End With
	.Select()
End With
168
Microsoft Windows 8.1 - Ribbon Like

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
Dim var_item,var_item1,var_item2,var_item3,var_item4
With Excontextmenu1
	.MenuAppearance = exontrol.EXCONTEXTMENULib.MenuAppearanceEnum.exMenuNormal
	With .Items
		.ToString = "[id=0][group=0x03](),[id=-20][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		With .get_item(0).Items
			.Add("",0,0).Padding = "8,0,0,0"
			var_item3 = .Add("New Page")
			With var_item3
				.ToString = "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])"
				.ID = 200
				.Caption = "Page1"
				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 = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupEqualWidth Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
							.Caption = ""
							With .Items
								With .Add("R1")
									.RadioGroup = 100
									.Radio = True
									.ShowCheckedAsSelected = exontrol.EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
									.Checked = False
								End With
								With .Add("R2")
									.RadioGroup = 100
									.Radio = True
									.ShowCheckedAsSelected = exontrol.EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
									.Checked = True
								End With
								With .Add("R3")
									.RadioGroup = 100
									.Radio = True
									.ShowCheckedAsSelected = exontrol.EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
									.Checked = False
								End With
							End With
						End With
					End With
				End With
				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 = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupEqualHeight Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
							.Caption = ""
							With .Items
								With .Add("C1")
									.Check = True
									.Checked = True
								End With
								With .Add("C2")
									.Check = True
									.Checked = False
								End With
								With .Add("C3")
									.Check = True
									.Checked = True
								End With
							End With
						End With
					End With
				End With
				.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 = exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical Or exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditSlider
							.ItemHeight = 76
							.EditBorder = exontrol.EXCONTEXTMENULib.EditBorderEnum.exEditBorderNone
							.EditValue = 25
						End With
						With .Add("",2)
							.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
							.Caption = ""
							With .Items
								With .Add("",2)
									.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
									With .Items
										With .Add("Button1",2)
											.ShowAsButton = exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize
											With .Items
												.Add("Item 1")
												.Add("Item 2")
												.Add("Item 3")
											End With
										End With
										.Add("",0,0).Padding = "4,0,0,0"
										With .Add("Button2",2)
											.ShowAsButton = exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize
											With .Items
												.Add("Item 4")
												.Add("Item 5")
												.Add("Item 6")
											End With
										End With
									End With
								End With
								With .Add("Popup",2)
									.Alignment = exontrol.EXCONTEXTMENULib.AlignmentEnum.exCenter
									With .Items
										.Add("Item 7").Check = True
										.Add("Item 8")
										With .Add("Item 9",2).Items
											.Add("Item 10")
											.Add("Item 11")
											.Add("Item 12")
										End With
									End With
								End With
							End With
						End With
					End With
				End With
			End With
			var_item4 = .Add("New Page")
			With var_item4
				.ToString = "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])"
				.ID = 300
				.Caption = "Page2"
				With .Items
					With .Add("S1")
						.ItemHeight = 88
						.AllowEdit = exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical Or exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditSpin Or exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress
						.EditValue = 25
					End With
					With .Add("S2")
						.ItemHeight = 88
						.AllowEdit = exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical Or exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditSpin Or exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress
						.EditValue = 50
					End With
					With .Add("S3")
						.ItemHeight = 88
						.AllowEdit = exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical Or exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditSpin Or exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress
						.EditValue = 75
					End With
				End With
			End With
			.Add("",0,0).Padding = "8,0,0,0"
		End With
	End With
	With .VisualAppearance
		.Add(1,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn")
		.Add(2,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn")
		.Add(12,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn")
		.Add(14,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn")
		.Add(17,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn")
		.Add(18,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn")
		.Add(32,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn")
		.Add(33,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn")
		.Add(34,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn")
		.Add(35,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn")
	End With
	.Appearance = &H1000000
	.set_Background(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exToolTipAppearance,.Appearance)
	.SelBackColor32 = &He000000
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exMenuHotBackColor,&Hc000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exMenuSelHotBackColor,&H23000000)
	.set_Background32(&H2,&H22000000)
	.set_Background32(&H3,&H23000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exCheckBoxState0,&H20000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exCheckBoxState1,&H21000000)
	.Select()
End With
167
Microsoft Paint - Ribbon Like

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
Dim var_item,var_item1,var_item2,var_item3,var_item4
With Excontextmenu1
	.MenuAppearance = exontrol.EXCONTEXTMENULib.MenuAppearanceEnum.exMenuNormal
	With .Items
		.ToString = "[id=0][group=0x03](),[id=-20][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		With .get_item(0).Items
			.Add("",0,0).Padding = "8,0,0,0"
			var_item3 = .Add("New Page")
			With var_item3
				.ToString = "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])"
				.ID = 200
				.Caption = "Page1"
				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 = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupEqualWidth Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
							.Caption = ""
							With .Items
								With .Add("R1")
									.RadioGroup = 100
									.Radio = True
									.ShowCheckedAsSelected = exontrol.EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
									.Checked = False
								End With
								With .Add("R2")
									.RadioGroup = 100
									.Radio = True
									.ShowCheckedAsSelected = exontrol.EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
									.Checked = True
								End With
								With .Add("R3")
									.RadioGroup = 100
									.Radio = True
									.ShowCheckedAsSelected = exontrol.EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
									.Checked = False
								End With
							End With
						End With
					End With
				End With
				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 = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupEqualHeight Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
							.Caption = ""
							With .Items
								With .Add("C1")
									.Check = True
									.Checked = True
								End With
								With .Add("C2")
									.Check = True
									.Checked = False
								End With
								With .Add("C3")
									.Check = True
									.Checked = True
								End With
							End With
						End With
					End With
				End With
				.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 = exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical Or exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditSlider
							.ItemHeight = 76
							.EditBorder = exontrol.EXCONTEXTMENULib.EditBorderEnum.exEditBorderNone
							.EditValue = 25
						End With
						With .Add("",2)
							.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
							.Caption = ""
							With .Items
								With .Add("",2)
									.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
									With .Items
										With .Add("Button1",2)
											.ShowAsButton = exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize
											With .Items
												.Add("Item 1")
												.Add("Item 2")
												.Add("Item 3")
											End With
										End With
										.Add("",0,0).Padding = "4,0,0,0"
										With .Add("Button2",2)
											.ShowAsButton = exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize
											With .Items
												.Add("Item 4")
												.Add("Item 5")
												.Add("Item 6")
											End With
										End With
									End With
								End With
								With .Add("Popup",2)
									.Alignment = exontrol.EXCONTEXTMENULib.AlignmentEnum.exCenter
									With .Items
										.Add("Item 7").Check = True
										.Add("Item 8")
										With .Add("Item 9",2).Items
											.Add("Item 10")
											.Add("Item 11")
											.Add("Item 12")
										End With
									End With
								End With
							End With
						End With
					End With
				End With
			End With
			var_item4 = .Add("New Page")
			With var_item4
				.ToString = "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])"
				.ID = 300
				.Caption = "Page2"
				With .Items
					With .Add("S1")
						.ItemHeight = 88
						.AllowEdit = exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical Or exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditSpin Or exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress
						.EditValue = 25
					End With
					With .Add("S2")
						.ItemHeight = 88
						.AllowEdit = exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical Or exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditSpin Or exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress
						.EditValue = 50
					End With
					With .Add("S3")
						.ItemHeight = 88
						.AllowEdit = exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical Or exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditSpin Or exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress
						.EditValue = 75
					End With
				End With
			End With
			.Add("",0,0).Padding = "8,0,0,0"
		End With
	End With
	With .VisualAppearance
		.Add(1,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn")
		.Add(2,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn")
		.Add(3,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn")
		.Add(4,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn")
		.Add(5,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn")
		.Add(6,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn")
		.Add(7,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn")
		.Add(8,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn")
		.Add(9,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn")
		.Add(10,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn")
		.Add(11,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn")
		.Add(12,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn")
		.Add(13,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn")
		.Add(14,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn")
		.Add(15,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn")
		.Add(16,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn")
		.Add(17,"CP:16 0 0 0 1")
		.Add(18,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn")
		.Add(19,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn")
		.Add(20,"CP:19 0 0 0 1")
	End With
	.LocalAppearance = exontrol.EXCONTEXTMENULib.MenuBorderEnum.ShadowBorder
	.Appearance = &H1000000
	.ForeColor = Color.FromArgb(21,66,139)
	.SelBackColor32 = &He000000
	.set_Background(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exToolTipAppearance,.Appearance)
	.set_Background32(&H2,&Hd000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameSingle,&H5000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameHStart,&H6000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameHIntermediate,&H7000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameHEnd,&H8000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameVStart,&H9000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameVIntermediate,&Ha000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameVEnd,&Hb000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exMenuHotBackColor,&Hc000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exMenuSelHotBackColor,&Hf000000)
	.Select()
End With
166
Microsoft Office - Ribbon Like

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
Dim var_item,var_item1,var_item2,var_item3,var_item4
With Excontextmenu1
	.MenuAppearance = exontrol.EXCONTEXTMENULib.MenuAppearanceEnum.exMenuNormal
	With .Items
		.ToString = "[id=0][group=0x03](),[id=-20][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		With .get_item(0).Items
			.Add("",0,0).Padding = "8,0,0,0"
			var_item3 = .Add("New Page")
			With var_item3
				.ToString = "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])"
				.ID = 200
				.Caption = "Page1"
				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 = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupEqualWidth Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
							.Caption = ""
							With .Items
								With .Add("R1")
									.RadioGroup = 100
									.Radio = True
									.ShowCheckedAsSelected = exontrol.EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
									.Checked = False
								End With
								With .Add("R2")
									.RadioGroup = 100
									.Radio = True
									.ShowCheckedAsSelected = exontrol.EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
									.Checked = True
								End With
								With .Add("R3")
									.RadioGroup = 100
									.Radio = True
									.ShowCheckedAsSelected = exontrol.EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
									.Checked = False
								End With
							End With
						End With
					End With
				End With
				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 = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupEqualHeight Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
							.Caption = ""
							With .Items
								With .Add("C1")
									.Check = True
									.Checked = True
								End With
								With .Add("C2")
									.Check = True
									.Checked = False
								End With
								With .Add("C3")
									.Check = True
									.Checked = True
								End With
							End With
						End With
					End With
				End With
				.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 = exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical Or exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditSlider
							.ItemHeight = 76
							.EditBorder = exontrol.EXCONTEXTMENULib.EditBorderEnum.exEditBorderNone
							.EditValue = 25
						End With
						With .Add("",2)
							.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
							.Caption = ""
							With .Items
								With .Add("",2)
									.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
									With .Items
										With .Add("Button1",2)
											.ShowAsButton = exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize
											With .Items
												.Add("Item 1")
												.Add("Item 2")
												.Add("Item 3")
											End With
										End With
										.Add("",0,0).Padding = "4,0,0,0"
										With .Add("Button2",2)
											.ShowAsButton = exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize
											With .Items
												.Add("Item 4")
												.Add("Item 5")
												.Add("Item 6")
											End With
										End With
									End With
								End With
								With .Add("Popup",2)
									.Alignment = exontrol.EXCONTEXTMENULib.AlignmentEnum.exCenter
									With .Items
										.Add("Item 7").Check = True
										.Add("Item 8")
										With .Add("Item 9",2).Items
											.Add("Item 10")
											.Add("Item 11")
											.Add("Item 12")
										End With
									End With
								End With
							End With
						End With
					End With
				End With
			End With
			var_item4 = .Add("New Page")
			With var_item4
				.ToString = "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])"
				.ID = 300
				.Caption = "Page2"
				With .Items
					With .Add("S1")
						.ItemHeight = 88
						.AllowEdit = exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical Or exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditSpin Or exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress
						.EditValue = 25
					End With
					With .Add("S2")
						.ItemHeight = 88
						.AllowEdit = exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical Or exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditSpin Or exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress
						.EditValue = 50
					End With
					With .Add("S3")
						.ItemHeight = 88
						.AllowEdit = exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical Or exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditSpin Or exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress
						.EditValue = 75
					End With
				End With
			End With
			.Add("",0,0).Padding = "8,0,0,0"
		End With
	End With
	With .VisualAppearance
		.Add(1,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_background.ebn")
		.Add(2,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_groupt.ebn")
		.Add(3,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_groupo.ebn")
		.Add(4,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_grouphot.ebn")
		.Add(5,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_frameh.ebn")
		.Add(6,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_framehs.ebn")
		.Add(7,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_framehi.ebn")
		.Add(8,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_framehe.ebn")
		.Add(9,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_framevs.ebn")
		.Add(10,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_framevi.ebn")
		.Add(11,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_frameve.ebn")
		.Add(12,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_select.ebn")
		.Add(13,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_bordert.ebn")
		.Add(14,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_buttond.ebn")
		.Add(15,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_buttonu.ebn")
		.Add(16,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_tab.ebn")
		.Add(17,"CP:16 0 0 0 1")
		.Add(18,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_tabhot.ebn")
		.Add(19,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_tabselhot.ebn")
		.Add(20,"CP:19 0 0 0 1")
	End With
	.ForeColor = Color.FromArgb(21,66,139)
	.SelBackColor32 = &He000000
	.LocalAppearance = exontrol.EXCONTEXTMENULib.MenuBorderEnum.ShadowBorder
	.Appearance = &H1000000
	.set_Background(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exToolTipAppearance,.Appearance)
	.set_Background32(&H2,&Hd000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameSingle,&H5000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameHStart,&H6000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameHIntermediate,&H7000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameHEnd,&H8000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameVStart,&H9000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameVIntermediate,&Ha000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameVEnd,&Hb000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exMenuHotBackColor,&Hc000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exMenuSelHotBackColor,&Hf000000)
	.Select()
End With
165
How I can assign buttons to a tab

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.set_Background(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exMenuSelBorderColor,Color.FromArgb(240,240,240))
	With .Items
		.ToString = "[id=0][group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03](),[id=0][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-10" & _
"0]))"
		With .get_item(-10).Items
			.Add("",0,0).Padding = "8,0,0,0"
			With .Add("New Page")
				.ToString = "[typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][" & _
"group=0x03][tab=-100][pad=2,0,2,0]([id=50][group=0x03]([]))"
				.Caption = "Page<off -5><font ;5><b>1</b></font></off>"
				With .Items
					.Add("Button 1").ShowAsButton = exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize Or exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButton
					.Add("Button 2").ShowAsButton = exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize Or exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButton
					.Add("Button 3").ShowAsButton = exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize Or exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButton
				End With
			End With
			With .Add("New Page")
				.ToString = "[typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][" & _
"group=0x03][tab=-100][pad=2,0,2,0]([id=50][group=0x03]([]))"
				.Caption = "Page<off -5><font ;5><b>2</b></font></off>"
				With .Items
					.Add("Button 3").ShowAsButton = exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize Or exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButton
					.Add("Button 4").ShowAsButton = exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize Or exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButton
				End With
			End With
			.Add("",0,0).Padding = "8,0,0,0"
		End With
	End With
	.Select()
End With
164
How can I hide an item

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		.Add("Item 1").Visible = False
		.Add("Item 2")
	End With
	.Select()
End With
163
How do I get the item giving its caption

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		.Add("Item 1").ID = 1000
		.Add("Item 2").ID = 1001
	End With
	.get_item("Item 1").Bold = True
	.Select()
End With
162
How do I get the item giving its identifier

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		.Add("Item 1").ID = 1000
		.Add("Item 2").ID = 1001
	End With
	.get_item(1000).Bold = True
	.Select()
End With
161
Can I change the cursor where it hovers the item
' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.Cursor = "exCross"
	With .Items
		.Add("Item 1")
		.Add("Item 2").Cursor = "exNoDrop"
	End With
	.Select()
End With
160
I am using radio-buttons, the question is it possible to uncheck the radio-buttons, so no button is pressed in the group

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.AllowToggleRadio = True
	With .Items
		With .Add("Radio 1",Nothing,1000)
			.Radio = True
			.RadioGroup = 100
		End With
		With .Add("Radio 2",Nothing,1001)
			.Radio = True
			.RadioGroup = 100
		End With
		With .Add("Radio 2",Nothing,1003)
			.Radio = True
			.RadioGroup = 100
		End With
	End With
	.Select()
End With
159
Is it possible to display the item's identifiers

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.Debug = True
	With .Items
		.Add("Item 1").ID = 10001
		.Add("Item 2").ID = 10002
	End With
	.Select()
End With
158
How do I disable showing the tooltip for all control (method 2)
' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.AllowToolTip = False
	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"
	End With
	.Select()
End With
157
How can I disable the control

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		.Add("Item 1").Enabled = False
		.Add("Item 2").Enabled = False
		.Add("Item 3").Enabled = False
	End With
	.Select()
End With
156
How can I specify a different border/visual appearance for drop down portion of the select buttons/combobox (ebn)

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.LocalAppearance = &H1000000
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Button",2)
					.ShowAsButton = exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize
					With .Items
						.Add("Item 1")
						.Add("Item 2")
						.Add("Item 3")
					End With
				End With
				With .Add("Button",2)
					.ShowAsButton = exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize
					With .Items
						.Add("Item 4")
						.Add("Item 5")
						.Add("Item 6")
					End With
				End With
			End With
		End With
	End With
	.Select()
End With
155
How can I specify a different border for drop down portion of the select buttons/combobox

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.LocalAppearance = exontrol.EXCONTEXTMENULib.MenuBorderEnum.ShadowBorder
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Button",2)
					.ShowAsButton = exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize
					With .Items
						.Add("Item 1")
						.Add("Item 2")
						.Add("Item 3")
					End With
				End With
				With .Add("Button",2)
					.ShowAsButton = exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize
					With .Items
						.Add("Item 4")
						.Add("Item 5")
						.Add("Item 6")
					End With
				End With
			End With
		End With
	End With
	.Select()
End With
154
How can I change the visual appearance for the entire control

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Appearance = &H1000000
	.ShowCheckedAsSelected = exontrol.EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemCheckHighlight
	With .Items
		.Padding = "4,4,4,4"
		With .Add("Radio 1")
			.Radio = True
			.Checked = True
		End With
		.Add("Radio 2").Radio = True
		.Add("Radio 3").Radio = True
	End With
	.Select()
End With
153
How can I show a border arround the control

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.Appearance = exontrol.EXCONTEXTMENULib.MenuBorderEnum.FlatBorder
	.ShowCheckedAsSelected = exontrol.EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemCheckHighlight
	With .Items
		.Padding = "4,4,4,4"
		With .Add("Check 1")
			.Checked = True
			.Check = True
		End With
		With .Add("Check 2")
			.Check = True
		End With
	End With
	.Select()
End With
152
Is it possible to change the item's background color when check/uncheck the item

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.ShowCheckedAsSelected = exontrol.EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemCheckHighlight
	With .Items
		.Padding = "4,4,4,4"
		With .Add("Check 1")
			.Checked = True
			.Check = True
		End With
		With .Add("Check 2")
			.Check = True
		End With
	End With
	.Select()
End With
151
How can I change the colors for hot/hover items

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.set_Background(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exMenuHotBackColor,Color.FromArgb(0,0,1))
	.set_Background(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exMenuHotForeColor,Color.FromArgb(255,255,255))
	.set_Background(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exMenuSelHotBackColor,Color.FromArgb(128,128,128))
	.set_Background(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exMenuSelHotForeColor,Color.FromArgb(255,255,255))
	.SelBackColor = Color.FromArgb(128,128,128)
	.SelForeColor = Color.FromArgb(255,255,255)
	.set_Background(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exMenuSelBorderColor,Color.FromArgb(128,128,128))
	.ShowCheckedAsSelected = exontrol.EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemCheckHighlight
	With .Items
		.Padding = "4,4,4,4"
		.Add("").ToString = "[group=3](Item 1,Item 2)"
		With .Add("Check 1")
			.Checked = True
			.Check = True
		End With
		With .Add("Check 2")
			.Check = True
		End With
	End With
	.Select()
End With
150
How do I change the visual appearance of the groups (vertical)

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"c:\exontrol\images\pushed.ebn")
		.Add(3,"c:\exontrol\images\hot.ebn")
	End With
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameSingle,&H1000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameVStart,&H1000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameVIntermediate,&H2000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameVEnd,&H3000000)
	.set_Background(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameSolid,Color.FromArgb(255,0,0))
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Vertical",2)
					.Alignment = exontrol.EXCONTEXTMENULib.AlignmentEnum.exCenter
					.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
					With .Items
						.Add("Item 1")
						.Add("Item 2")
						.Add("Item 3")
						.Add("Item 4")
						.Add("Item 5")
					End With
				End With
				.Add("").CaptionWidth = 12
				With .Add("Vertical",2)
					.Alignment = exontrol.EXCONTEXTMENULib.AlignmentEnum.exCenter
					.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupFrameThickBox Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupFrameSolidBox Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
					With .Items
						.Add("Item 1")
						.Add("Item 2")
						.Add("Item 3")
						.Add("Item 4")
						.Add("Item 5")
					End With
				End With
			End With
		End With
	End With
	.Select()
End With
149
How do I change the visual appearance of the groups (horizontal)

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"c:\exontrol\images\pushed.ebn")
		.Add(3,"c:\exontrol\images\hot.ebn")
	End With
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameSingle,&H1000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameHStart,&H1000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameHIntermediate,&H2000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameHEnd,&H3000000)
	.set_Background(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameSolid,Color.FromArgb(255,0,0))
	With .Items
		With .Add("Horizontal Group",2)
			.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
			With .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
				.Add("Item 4")
				.Add("Item 5")
			End With
		End With
		.Add("").ToString = "Horizontal Group[group=193](Item 1,Item 2,Item 3,Item 4,Item 5)"
	End With
	.Select()
End With
148
How can I change the visual appearance of the separator item

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exMenuSeparatorItem,&H1000000)
	With .Items
		.Add("Item").CaptionWidth = 128
		.Add("",1)
		.Add("Item").CaptionWidth = 128
		.Add("").ToString = "<font ;5>separator[sep]"
	End With
	.Select()
End With
147
How can I change the visual appearance of the flat portion of the drop down of the control

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.FlatBackColor32 = &H1000000
	.set_Background(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exMenuFlatLineColor,.FlatBackColor)
	With .Items
		With .Add("Popup",2).Items
			.Add("Item 1").Check = True
			.Add("Item 2").Check = True
			.Add("Item 3").Check = True
		End With
	End With
	.Select()
End With
146
How can I change the visual appearance of the radio-buttons to be displayed in the context menu (ebn)

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"c:\exontrol\images\pushed.ebn")
	End With
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exRadioButtonState0,&H1000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exRadioButtonState1,&H2000000)
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Radio 1",Nothing,1000)
					.Radio = True
					.RadioGroup = 100
				End With
				With .Add("Radio 2",Nothing,1001)
					.Radio = True
					.RadioGroup = 100
				End With
				With .Add("Radio 2",Nothing,1003)
					.Radio = True
					.RadioGroup = 100
				End With
				.get_item(1000).Checked = True
			End With
		End With
	End With
	.Select()
End With
145
How can I change the visual appearance of the check-boxes to be displayed in the context menu (ebn)

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"c:\exontrol\images\pushed.ebn")
	End With
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exCheckBoxState0,&H1000000)
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exCheckBoxState1,&H2000000)
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Check 1")
					.Check = True
					.Checked = True
				End With
				.Add("Check 2").Check = True
			End With
		End With
	End With
	.Select()
End With
144
How can I change the visual appearance of the tooltips to be displayed in the context menu (ebn)

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"c:\exontrol\images\pushed.ebn")
	End With
	.ToolTipDelay = 1
	.set_Background32(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exToolTipAppearance,&H1000000)
	.set_Background(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exToolTipForeColor,Color.FromArgb(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"
	End With
	.Select()
End With
143
Is it possible to change the visual appearance of the buttons to be displayed in the context menu (ebn)

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"c:\exontrol\images\pushed.ebn")
	End With
	.set_Background32(&H2,&H1000000)
	.set_Background32(&H3,&H2000000)
	.set_Background(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exMenuSeparatorSelectButton,Color.FromArgb(255,0,0))
	.set_Background(exontrol.EXCONTEXTMENULib.BackgroundPartEnum.exMenuSeparatorSelectButtonBottom,Color.FromArgb(0,0,255))
	With .Items
		.Padding = "4,4,4,4"
		.Add("Button").ShowAsButton = exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize Or exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButton
		With .Add("")
			.Enabled = False
			.ItemHeight = 4
		End With
		With .Add("Button",2)
			.ShowAsButton = exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize
			With .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
		With .Add("")
			.Enabled = False
			.ItemHeight = 4
		End With
		With .Add("Button",2)
			.ShowAsButton = exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButton Or exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize
			With .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
	End With
	.Select()
End With
142
I've seen that the width of the tooltip is variable. Can I make it larger

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.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"
	End With
	.Select()
End With
141
How do I disable showing the tooltip for all control (method 1)
' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.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"
	End With
	.Select()
End With
140
How do I let the tooltip being displayed longer

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.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"
	End With
	.Select()
End With
139
How do I show the tooltip quicker

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.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"
	End With
	.Select()
End With
138
How can I get the version of the control I am running
' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	Debug.Print( .Version )
End With
137
How can I align the picture on the control's background
' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.Picture = Excontextmenu1.ExecuteTemplate("loadpicture(`c:\exontrol\images\card.png`)")
	.PictureDisplay = exontrol.EXCONTEXTMENULib.PictureDisplayEnum.UpperRight
	With .Items
		.Add("Item")
		.Add("Item")
	End With
	.Select()
End With
136
Is it possible to place a picture on the control's background
' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.Picture = Excontextmenu1.ExecuteTemplate("loadpicture(`c:\exontrol\images\card.png`)")
	With .Items
		.Add("Item")
		.Add("Item")
	End With
	.Select()
End With
135
How can I display the item using a different font/size

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	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"
	End With
	.Select()
End With
134
How can I use the Event event, available for /COM version

' Event event - Notifies the application once the control fires an event.
Private Sub Excontextmenu1_Event(ByVal sender As System.Object,ByVal EventID As Integer) Handles Excontextmenu1.Event
	With Excontextmenu1
		Debug.Print( "Event" )
		Debug.Print( .get_EventParam(-2) )
	End With
End Sub

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		.Add("Check").Check = True
		With .Add("Slider")
			.AllowEdit = exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditSlider
			.EditWidth = 128
			.EditBorder = exontrol.EXCONTEXTMENULib.EditBorderEnum.exEditBorderNone
			.EditValue = 25
		End With
	End With
	.Select()
End With
133
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.
Private Sub Excontextmenu1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXCONTEXTMENULib.item) Handles Excontextmenu1.EditChange
	With Excontextmenu1
		Debug.Print( "EditChange event on Itm object" )
	End With
End Sub

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		With .Add("Item")
			.AllowEdit = exontrol.EXCONTEXTMENULib.AllowEditEnum.exItemEditSlider
			.EditWidth = 128
			.EditBorder = exontrol.EXCONTEXTMENULib.EditBorderEnum.exEditBorderNone
			.EditValue = 25
		End With
	End With
	.Select()
End With
132
How do I get notified once I uncheck an item
' UncheckItem event - Occurs when the user unchecks the item.
Private Sub Excontextmenu1_UncheckItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXCONTEXTMENULib.item) Handles Excontextmenu1.UncheckItem
	With Excontextmenu1
		Debug.Print( "UncheckItem event on Itm object" )
	End With
End Sub

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		.Add("Item").Check = True
		.Add("Item").Check = True
	End With
	.Select()
End With
131
How do I get notified once I check an item
' CheckItem event - Occurs when the user checks the item.
Private Sub Excontextmenu1_CheckItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXCONTEXTMENULib.item) Handles Excontextmenu1.CheckItem
	With Excontextmenu1
		Debug.Print( "CheckItem event on Itm object" )
	End With
End Sub

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		.Add("Item").Check = True
		.Add("Item").Check = True
	End With
	.Select()
End With
130
How do I get notified once I click/select an item
' SelectItem event - Occurs when the user selects the item.
Private Sub Excontextmenu1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXCONTEXTMENULib.item) Handles Excontextmenu1.SelectItem
	With Excontextmenu1
		Debug.Print( "SelectItem event on Itm object" )
	End With
End Sub

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		.Add("Item")
		.Add("Item")
	End With
	.Select()
End With
129
Does your control support padding for items

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.MenuAppearance = exontrol.EXCONTEXTMENULib.MenuAppearanceEnum.exMenuNormal
	With .Items
		.Padding = "2,12,2,2"
		With .Add("",2)
			.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
			With .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
		.BackColor = Color.FromArgb(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])"
	End With
	.Select()
End With
128
How can I change the visual appearance for items, when cursor hovers it (hot,EBN)

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
			With .Items
				.HotBackColor32 = &H1000000
				.Padding = "4,8,4,8"
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
		.Add("").ToString = "[group=0x03][itemspad=4,8,4,8][itemsbghot=0x1000000](Item 1,Item 2,Item 3)"
	End With
	.Select()
End With
127
How can I change the background color for items, when cursor hovers it (hot)

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
			With .Items
				.HotBackColor = Color.FromArgb(255,0,0)
				.Padding = "0,8,0,8"
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
		.Add("").ToString = "[group=0x03][itemspad=0,8,0,8][itemsbghot=RGB(255,0,0)](Item 1,Item 2,Item 3)"
	End With
	.Select()
End With
126
How can I change the visual appearance for items (EBN)

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
			With .Items
				.BackColor32 = &H1000000
				.Padding = "4,8,4,8"
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
		.Add("").ToString = "[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)"
	End With
	.Select()
End With
125
How can I change the background color for items

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
			With .Items
				.BackColor = Color.FromArgb(255,0,0)
				.Padding = "0,8,0,8"
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
		.Add("").ToString = "[group=0x03][itemspad=0,8,0,8][itemsbg=RGB(255,0,0)](Item 1,Item 2,Item 3)"
	End With
	.Select()
End With
124
How do I hide the left gray portion to be shown on the drop down menu/popup (method 2)

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.FlatImageWidth = 0
	With .Items
		With .Add("Popup",2).Items
			.Add("Item 1")
			.Add("Item 2")
			.Add("Item 3")
		End With
	End With
	.Select()
End With
123
How do I hide the left gray portion to be shown on the drop down menu/popup (method 1)

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.MenuAppearance = exontrol.EXCONTEXTMENULib.MenuAppearanceEnum.exMenuNormal
	With .Items
		With .Add("Popup",2).Items
			.Add("Item 1")
			.Add("Item 2")
			.Add("Item 3")
		End With
	End With
	.Select()
End With
122
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.
Private Sub Excontextmenu1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXCONTEXTMENULib.item) Handles Excontextmenu1.SelectItem
	With Excontextmenu1
		Debug.Print( "Clicked" )
	End With
End Sub

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	.MenuAppearance = exontrol.EXCONTEXTMENULib.MenuAppearanceEnum.exMenuNormal
	With .Items
		With .Add("Button",2)
			.ShowAsButton = exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize
			With .Items
				With .Add("",2)
					.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
					With .Items
						.Add("Item 1")
						.Add("Item 2")
						.Add("Item 3")
					End With
				End With
			End With
		End With
		.Add("").ToString = "Button[button=0x0113][popupapp=6]([group=0x03](Item 1,Item 2,Item 3))"
	End With
	.Select()
End With
121
How can I add a drop down button / combobox (method 2)

' SelectItem event - Occurs when the user selects the item.
Private Sub Excontextmenu1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXCONTEXTMENULib.item) Handles Excontextmenu1.SelectItem
	With Excontextmenu1
		Debug.Print( "Clicked" )
	End With
End Sub

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		With .Add("Button",2)
			.ShowAsButton = exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize
			With .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
		.Add("").ToString = "Button[button=275][popupapp=6](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
	End With
	.Select()
End With
120
How can I add a drop down button / combobox (method 1)

' SelectItem event - Occurs when the user selects the item.
Private Sub Excontextmenu1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXCONTEXTMENULib.item) Handles Excontextmenu1.SelectItem
	With Excontextmenu1
		Debug.Print( "Clicked" )
	End With
End Sub

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		With .Add("Button",2)
			.ShowAsButton = exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButton Or exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize
			With .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
		.Add("").ToString = "Button[button=0x13][popupapp=6](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
	End With
	.Select()
End With
119
I am using exShowAsSelectButton/exShowAsSelectButtonBottom but none of them works. What could be wrong

' SelectItem event - Occurs when the user selects the item.
Private Sub Excontextmenu1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXCONTEXTMENULib.item) Handles Excontextmenu1.SelectItem
	With Excontextmenu1
		Debug.Print( "Clicked" )
	End With
End Sub

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		With .Add("Button",2)
			.ShowAsButton = exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButton Or exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize
			With .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
	End With
	.Select()
End With
118
How can I add a button (push button)

' SelectItem event - Occurs when the user selects the item.
Private Sub Excontextmenu1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXCONTEXTMENULib.item) Handles Excontextmenu1.SelectItem
	With Excontextmenu1
		Debug.Print( "Clicked" )
	End With
End Sub

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		.Add("Button").ShowAsButton = exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize Or exontrol.EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButton
		.Add("").ToString = "Button[button=0x03]"
	End With
	.Select()
End With
117
How can I display grouping items with no frame arround

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		With .Add("Horizontal Group",2)
			.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupFrameThickBox Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupFrameSolidBox Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupEqualHeight Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupEqualWidth Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
			With .Items
				.Add("A").Alignment = exontrol.EXCONTEXTMENULib.AlignmentEnum.exCenter
				.Add("BC").Alignment = exontrol.EXCONTEXTMENULib.AlignmentEnum.exCenter
				.Add("D").Alignment = exontrol.EXCONTEXTMENULib.AlignmentEnum.exCenter
			End With
		End With
		.Add("").ToString = "Horizontal Group[group=243](A[id=20][align=1],BC[id=30][align=1],D[id=40][align=1])"
	End With
	.Select()
End With
116
How can I display grouping items of the same size/width/height

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		With .Add("Horizontal Group",2)
			.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupFrameThickBox Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupFrameSolidBox Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupEqualHeight Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupEqualWidth Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
			With .Items
				.Add("A").Alignment = exontrol.EXCONTEXTMENULib.AlignmentEnum.exCenter
				.Add("BC").Alignment = exontrol.EXCONTEXTMENULib.AlignmentEnum.exCenter
				.Add("D").Alignment = exontrol.EXCONTEXTMENULib.AlignmentEnum.exCenter
			End With
		End With
		.Add("").ToString = "Horizontal Group[group=0xF1](A[id=20][align=1],BC[id=30][align=1],D[id=40][align=1])"
	End With
	.Select()
End With
115
Is it possible to display a ticker frame arround grouping items

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		With .Add("Horizontal Group",2)
			.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupFrameThickBox Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupFrameSolidBox Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
			With .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
		.Add("").ToString = "Horizontal Group[group=193](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
	End With
	.Select()
End With
114
How do I display items horizontally arranged

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		With .Add("Horizontal Group",2)
			.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
			With .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
		.Add("").ToString = "Horizontal Group[group=0x01](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
	End With
	.Select()
End With
113
Is it possible to expand an item when it is clicked (tree,group,vertical)

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		With .Add("Expand",2)
			.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
			.Check = True
			.ShowPopupOnChecked = True
			With .Items
				.Padding = "22,0,0,0"
				.Add("Radio 1").Radio = True
				.Add("Radio 2").Radio = True
				With .Add("Radio 3")
					.Radio = True
					.Checked = True
				End With
			End With
			.Checked = True
		End With
		.Add("").ToString = "Expand[typ=1][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Radio 1[id=20][typ=2],Radio 2[id=30][typ=2],Radio 3[id=40][typ=" & _
"2][chk=1])"
	End With
	.Select()
End With
112
Is it possible to expand an item when it is clicked (tree,group,vertical)

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		With .Add("Expand",2)
			.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
			.Check = True
			.ShowPopupOnChecked = True
			With .Items
				.Padding = "22,0,0,0"
				.Add("Radio 1").Radio = True
				.Add("Radio 2").Radio = True
				With .Add("Radio 3")
					.Radio = True
					.Checked = True
				End With
			End With
			.Checked = True
		End With
	End With
	.Select()
End With
111
Is it possible to expand an item when it is clicked (group)

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		With .Add("Expand",2)
			.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
			.ItemHeight = 24
			.Check = True
			.ShowPopupOnChecked = True
			With .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
	End With
	.Select()
End With
110
Is it possible to extend an item when it is clicked

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		With .Add("Expand",2)
			.Check = True
			.ShowPopupOnChecked = True
			With .Items
				.Add("Item 1")
				.Add("Item 2")
				.Add("Item 3")
			End With
		End With
	End With
	.Select()
End With
109
Does your control implement padding for item

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		.BackColor = Color.FromArgb(250,250,250)
		.Add("Item").Padding = "4,4,4,4"
		.Add("").ToString = "Item[pad=4,4,4,4]"
	End With
	.Select()
End With
108
How can I add an empty item for a horizontal group

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		With .Add("",2)
			.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
			With .Items
				.Add("Item 1")
				With .Add("",2)
					.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupCenter Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
					.ItemHeight = 12
					With .Items.Add("")
						.Enabled = False
						.ItemHeight = 8
						.CaptionWidth = 8
					End With
				End With
				.Add("Item 2")
			End With
		End With
	End With
	.Select()
End With
107
How can I add an empty/separator item

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		.Add("Item")
		With .Add("")
			.Enabled = False
			.ItemHeight = 2
			.CaptionWidth = 8
			.BackColor = Color.FromArgb(240,240,240)
		End With
		.Add("Item")
	End With
	.Select()
End With
106
How can I add an empty/frame item

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		.Add("Item 1")
		With .Add("",2)
			.GroupPopup = exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupCenter Or exontrol.EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup
			.ItemHeight = 12
			With .Items.Add("")
				.Enabled = False
				.ItemHeight = 8
				.CaptionWidth = 8
			End With
		End With
		.Add("Item 2")
	End With
	.Select()
End With
105
How can I specify the height of the item

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		.BackColor = Color.FromArgb(250,250,250)
		.Add("Item").ItemHeight = 64
		.Add("").ToString = "Item[height=64]"
	End With
	.Select()
End With
104
How can I specify the width of the item

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		.BackColor = Color.FromArgb(250,250,250)
		.Add("Item").CaptionWidth = 128
		.Add("").ToString = "Item[captionwidth=128]"
	End With
	.Select()
End With
103
How do I align the item

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		.BackColor = Color.FromArgb(250,250,250)
		.Add("Item")
		With .Add("Item")
			.Alignment = exontrol.EXCONTEXTMENULib.AlignmentEnum.exCenter
			.CaptionWidth = 128
		End With
		With .Add("Item")
			.Alignment = exontrol.EXCONTEXTMENULib.AlignmentEnum.exRight
			.CaptionWidth = 128
		End With
		.Add("").ToString = "Item[align=1]"
	End With
	.Select()
End With
102
How can I underline the item

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		.Add("Item").Underline = True
		.Add("<u>Item</u>")
		.Add("").ToString = "Item[und]"
	End With
	.Select()
End With
101
How can I show the item as strikeout

' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
Excontextmenu1 = New exontrol.EXCONTEXTMENULib.excontextmenu()
With Excontextmenu1
	With .Items
		.Add("Item").Strikeout = True
		.Add("<s>Item</s>")
		.Add("").ToString = "Item[stk]"
	End With
	.Select()
End With