176:
How can I control the height of the control, so no scroll is required to view all items

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.Font.Size = 6
	.MenuAppearance = 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)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
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)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
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)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
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

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(&H104) = &H1000000
	With .Items
		With .Add("Progress")
			.AllowEdit = exItemEditProgress
			.EditWidth = -128
			.EditValue = 25
		End With
	End With
	.Select 
End With
171:
How can I change the progress's color

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.Background(&H104) = RGB(255,0,0)
	With .Items
		With .Add("Progress")
			.AllowEdit = 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 Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		With .Items.item(1000)
			.Visible = True
			.AllowEdit = AllowEditEnum.exItemEditReadOnly Or AllowEditEnum.exItemEditProgress
		End With
		.Select 
	End With
End Sub

' UncheckItem event - Occurs when the user unchecks the item.
Private Sub ExContextMenu1_UncheckItem(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		With .Items.item(1000)
			.Visible = False
			.AllowEdit = exItemDisableEdit
		End With
		.Select 
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("",2)
			With .Items
				.Add "Visible"
				With .Add("")
					.Check = True
					.Checked = True
				End With
				With .Add("Item 2",,1000)
					.ItemHeight = 18
					.Caption = "Percent"
					.AllowEdit = AllowEditEnum.exItemEditReadOnly Or AllowEditEnum.exItemEditProgress
					.EditValue = 50
					.Visible = True
				End With
				.Add "Visible"
			End With
			.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
		End With
	End With
	.Select 
End With
169:
How can I change the color of a disabled item

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Disabled",2,0)
			.ForeColor = RGB(255,0,0)
			.Items.Add ""
			.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
		End With
		.Add("Disabled").Enabled = False
	End With
	.Select 
End With
168:
Microsoft Windows 8.1 - Ribbon Like

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.MenuAppearance = exMenuNormal
	With .Items
		.ToString = "[id=0][group=0x03](),[id=-20][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		With .item(0).Items
			.Add("",0,0).Padding = "8,0,0,0"
			Set 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"
				Set 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 = GroupPopupEnum.exGroupPopupEqualWidth Or GroupPopupEnum.exGroupPopup
							.Caption = ""
							With .Items
								With .Add("R1")
									.RadioGroup = 100
									.Radio = True
									.ShowCheckedAsSelected = exDisplayItemHighlight
									.Checked = False
								End With
								With .Add("R2")
									.RadioGroup = 100
									.Radio = True
									.ShowCheckedAsSelected = exDisplayItemHighlight
									.Checked = True
								End With
								With .Add("R3")
									.RadioGroup = 100
									.Radio = True
									.ShowCheckedAsSelected = exDisplayItemHighlight
									.Checked = False
								End With
							End With
						End With
					End With
				End With
				Set 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 = GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exGroupPopupEqualHeight Or 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"
				Set 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 = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
							.ItemHeight = 76
							.EditBorder = exEditBorderNone
							.EditValue = 25
						End With
						With .Add("",2)
							.GroupPopup = GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
							.Caption = ""
							With .Items
								With .Add("",2)
									.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
									With .Items
										With .Add("Button1",2)
											.ShowAsButton = ShowAsButtonEnum.exShowAsSelectButtonBottom Or 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 = ShowAsButtonEnum.exShowAsSelectButtonBottom Or 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 = 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
			Set 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 = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
						.EditValue = 25
					End With
					With .Add("S2")
						.ItemHeight = 88
						.AllowEdit = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
						.EditValue = 50
					End With
					With .Add("S3")
						.ItemHeight = 88
						.AllowEdit = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or 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
	.Background(exToolTipAppearance) = .Appearance
	.SelBackColor = &He000000
	.Background(exMenuHotBackColor) = &Hc000000
	.Background(exMenuSelHotBackColor) = &H23000000
	.Background(&H2) = &H22000000
	.Background(&H3) = &H23000000
	.Background(exCheckBoxState0) = &H20000000
	.Background(exCheckBoxState1) = &H21000000
	.Select 
End With
167:
Microsoft Paint - Ribbon Like

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.MenuAppearance = exMenuNormal
	With .Items
		.ToString = "[id=0][group=0x03](),[id=-20][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		With .item(0).Items
			.Add("",0,0).Padding = "8,0,0,0"
			Set 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"
				Set 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 = GroupPopupEnum.exGroupPopupEqualWidth Or GroupPopupEnum.exGroupPopup
							.Caption = ""
							With .Items
								With .Add("R1")
									.RadioGroup = 100
									.Radio = True
									.ShowCheckedAsSelected = exDisplayItemHighlight
									.Checked = False
								End With
								With .Add("R2")
									.RadioGroup = 100
									.Radio = True
									.ShowCheckedAsSelected = exDisplayItemHighlight
									.Checked = True
								End With
								With .Add("R3")
									.RadioGroup = 100
									.Radio = True
									.ShowCheckedAsSelected = exDisplayItemHighlight
									.Checked = False
								End With
							End With
						End With
					End With
				End With
				Set 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 = GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exGroupPopupEqualHeight Or 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"
				Set 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 = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
							.ItemHeight = 76
							.EditBorder = exEditBorderNone
							.EditValue = 25
						End With
						With .Add("",2)
							.GroupPopup = GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
							.Caption = ""
							With .Items
								With .Add("",2)
									.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
									With .Items
										With .Add("Button1",2)
											.ShowAsButton = ShowAsButtonEnum.exShowAsSelectButtonBottom Or 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 = ShowAsButtonEnum.exShowAsSelectButtonBottom Or 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 = 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
			Set 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 = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
						.EditValue = 25
					End With
					With .Add("S2")
						.ItemHeight = 88
						.AllowEdit = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
						.EditValue = 50
					End With
					With .Add("S3")
						.ItemHeight = 88
						.AllowEdit = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or 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 = ShadowBorder
	.Appearance = &H1000000
	.ForeColor = RGB(21,66,139)
	.SelBackColor = &He000000
	.Background(exToolTipAppearance) = .Appearance
	.Background(&H2) = &Hd000000
	.Background(exGroupPopupFrameSingle) = &H5000000
	.Background(exGroupPopupFrameHStart) = &H6000000
	.Background(exGroupPopupFrameHIntermediate) = &H7000000
	.Background(exGroupPopupFrameHEnd) = &H8000000
	.Background(exGroupPopupFrameVStart) = &H9000000
	.Background(exGroupPopupFrameVIntermediate) = &Ha000000
	.Background(exGroupPopupFrameVEnd) = &Hb000000
	.Background(exMenuHotBackColor) = &Hc000000
	.Background(exMenuSelHotBackColor) = &Hf000000
	.Select 
End With
166:
Microsoft Office - Ribbon Like

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.MenuAppearance = exMenuNormal
	With .Items
		.ToString = "[id=0][group=0x03](),[id=-20][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		With .item(0).Items
			.Add("",0,0).Padding = "8,0,0,0"
			Set 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"
				Set 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 = GroupPopupEnum.exGroupPopupEqualWidth Or GroupPopupEnum.exGroupPopup
							.Caption = ""
							With .Items
								With .Add("R1")
									.RadioGroup = 100
									.Radio = True
									.ShowCheckedAsSelected = exDisplayItemHighlight
									.Checked = False
								End With
								With .Add("R2")
									.RadioGroup = 100
									.Radio = True
									.ShowCheckedAsSelected = exDisplayItemHighlight
									.Checked = True
								End With
								With .Add("R3")
									.RadioGroup = 100
									.Radio = True
									.ShowCheckedAsSelected = exDisplayItemHighlight
									.Checked = False
								End With
							End With
						End With
					End With
				End With
				Set 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 = GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exGroupPopupEqualHeight Or 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"
				Set 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 = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
							.ItemHeight = 76
							.EditBorder = exEditBorderNone
							.EditValue = 25
						End With
						With .Add("",2)
							.GroupPopup = GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
							.Caption = ""
							With .Items
								With .Add("",2)
									.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
									With .Items
										With .Add("Button1",2)
											.ShowAsButton = ShowAsButtonEnum.exShowAsSelectButtonBottom Or 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 = ShowAsButtonEnum.exShowAsSelectButtonBottom Or 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 = 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
			Set 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 = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
						.EditValue = 25
					End With
					With .Add("S2")
						.ItemHeight = 88
						.AllowEdit = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
						.EditValue = 50
					End With
					With .Add("S3")
						.ItemHeight = 88
						.AllowEdit = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or 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 = RGB(21,66,139)
	.SelBackColor = &He000000
	.LocalAppearance = ShadowBorder
	.Appearance = &H1000000
	.Background(exToolTipAppearance) = .Appearance
	.Background(&H2) = &Hd000000
	.Background(exGroupPopupFrameSingle) = &H5000000
	.Background(exGroupPopupFrameHStart) = &H6000000
	.Background(exGroupPopupFrameHIntermediate) = &H7000000
	.Background(exGroupPopupFrameHEnd) = &H8000000
	.Background(exGroupPopupFrameVStart) = &H9000000
	.Background(exGroupPopupFrameVIntermediate) = &Ha000000
	.Background(exGroupPopupFrameVEnd) = &Hb000000
	.Background(exMenuHotBackColor) = &Hc000000
	.Background(exMenuSelHotBackColor) = &Hf000000
	.Select 
End With
165:
How I can assign buttons to a tab

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.Background(exMenuSelBorderColor) = RGB(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 .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 = ShowAsButtonEnum.exShowAsButtonAutoSize Or ShowAsButtonEnum.exShowAsButton
					.Add("Button 2").ShowAsButton = ShowAsButtonEnum.exShowAsButtonAutoSize Or ShowAsButtonEnum.exShowAsButton
					.Add("Button 3").ShowAsButton = ShowAsButtonEnum.exShowAsButtonAutoSize Or 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 = ShowAsButtonEnum.exShowAsButtonAutoSize Or ShowAsButtonEnum.exShowAsButton
					.Add("Button 4").ShowAsButton = ShowAsButtonEnum.exShowAsButtonAutoSize Or 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

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
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

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		.Add("Item 1").ID = 1000
		.Add("Item 2").ID = 1001
	End With
	.item("Item 1").Bold = True
	.Select 
End With
162:
How do I get the item giving its identifier

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		.Add("Item 1").ID = 1000
		.Add("Item 2").ID = 1001
	End With
	.item(1000).Bold = True
	.Select 
End With
161:
Can I change the cursor where it hovers the item
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
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

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.AllowToggleRadio = True
	With .Items
		With .Add("Radio 1",,1000)
			.Radio = True
			.RadioGroup = 100
		End With
		With .Add("Radio 2",,1001)
			.Radio = True
			.RadioGroup = 100
		End With
		With .Add("Radio 2",,1003)
			.Radio = True
			.RadioGroup = 100
		End With
	End With
	.Select 
End With
159:
Is it possible to display the item's identifiers

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
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)
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
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

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
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)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.LocalAppearance = &H1000000
	With .Items
		With .Add("",2)
			.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Button",2)
					.ShowAsButton = ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
					With .Items
						.Add "Item 1"
						.Add "Item 2"
						.Add "Item 3"
					End With
				End With
				With .Add("Button",2)
					.ShowAsButton = ShowAsButtonEnum.exShowAsSelectButtonBottom Or 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

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.LocalAppearance = ShadowBorder
	With .Items
		With .Add("",2)
			.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Button",2)
					.ShowAsButton = ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
					With .Items
						.Add "Item 1"
						.Add "Item 2"
						.Add "Item 3"
					End With
				End With
				With .Add("Button",2)
					.ShowAsButton = ShowAsButtonEnum.exShowAsSelectButtonBottom Or 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

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Appearance = &H1000000
	.ShowCheckedAsSelected = 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

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.Appearance = FlatBorder
	.ShowCheckedAsSelected = 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

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.ShowCheckedAsSelected = 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

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.Background(exMenuHotBackColor) = RGB(0,0,1)
	.Background(exMenuHotForeColor) = RGB(255,255,255)
	.Background(exMenuSelHotBackColor) = RGB(128,128,128)
	.Background(exMenuSelHotForeColor) = RGB(255,255,255)
	.SelBackColor = RGB(128,128,128)
	.SelForeColor = RGB(255,255,255)
	.Background(exMenuSelBorderColor) = RGB(128,128,128)
	.ShowCheckedAsSelected = 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)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
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
	.Background(exGroupPopupFrameSingle) = &H1000000
	.Background(exGroupPopupFrameVStart) = &H1000000
	.Background(exGroupPopupFrameVIntermediate) = &H2000000
	.Background(exGroupPopupFrameVEnd) = &H3000000
	.Background(exGroupPopupFrameSolid) = RGB(255,0,0)
	With .Items
		With .Add("",2)
			.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Vertical",2)
					.Alignment = exCenter
					.GroupPopup = GroupPopupEnum.exGroupPopupVertical Or 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 = exCenter
					.GroupPopup = GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exGroupPopupFrameThickBox Or GroupPopupEnum.exGroupPopupFrameSolidBox Or GroupPopupEnum.exGroupPopup
					With .Items
						.Add "Item 1"
						.Add "Item 2"
						.Add "Item 3"
						.Add "Item 4"
						.Add "Item 5"
					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)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
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
	.Background(exGroupPopupFrameSingle) = &H1000000
	.Background(exGroupPopupFrameHStart) = &H1000000
	.Background(exGroupPopupFrameHIntermediate) = &H2000000
	.Background(exGroupPopupFrameHEnd) = &H3000000
	.Background(exGroupPopupFrameSolid) = RGB(255,0,0)
	With .Items
		With .Add("Horizontal Group",2)
			.GroupPopup = 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

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(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

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.FlatBackColor = &H1000000
	.Background(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)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .VisualAppearance
		.Add 1,"c:\exontrol\images\normal.ebn"
		.Add 2,"c:\exontrol\images\pushed.ebn"
	End With
	.Background(exRadioButtonState0) = &H1000000
	.Background(exRadioButtonState1) = &H2000000
	With .Items
		With .Add("",2)
			.GroupPopup = exGroupPopup
			With .Items
				With .Add("Radio 1",,1000)
					.Radio = True
					.RadioGroup = 100
				End With
				With .Add("Radio 2",,1001)
					.Radio = True
					.RadioGroup = 100
				End With
				With .Add("Radio 2",,1003)
					.Radio = True
					.RadioGroup = 100
				End With
				.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)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .VisualAppearance
		.Add 1,"c:\exontrol\images\normal.ebn"
		.Add 2,"c:\exontrol\images\pushed.ebn"
	End With
	.Background(exCheckBoxState0) = &H1000000
	.Background(exCheckBoxState1) = &H2000000
	With .Items
		With .Add("",2)
			.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or 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)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .VisualAppearance
		.Add 1,"c:\exontrol\images\normal.ebn"
		.Add 2,"c:\exontrol\images\pushed.ebn"
	End With
	.ToolTipDelay = 1
	.Background(exToolTipAppearance) = &H1000000
	.Background(exToolTipForeColor) = RGB(255,0,0)
	With .Items
		.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
		.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
	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)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .VisualAppearance
		.Add 1,"c:\exontrol\images\normal.ebn"
		.Add 2,"c:\exontrol\images\pushed.ebn"
	End With
	.Background(&H2) = &H1000000
	.Background(&H3) = &H2000000
	.Background(exMenuSeparatorSelectButton) = RGB(255,0,0)
	.Background(exMenuSeparatorSelectButtonBottom) = RGB(0,0,255)
	With .Items
		.Padding = "4,4,4,4"
		.Add("Button").ShowAsButton = ShowAsButtonEnum.exShowAsButtonAutoSize Or ShowAsButtonEnum.exShowAsButton
		With .Add("")
			.Enabled = False
			.ItemHeight = 4
		End With
		With .Add("Button",2)
			.ShowAsButton = ShowAsButtonEnum.exShowAsSelectButtonBottom Or 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 = ShowAsButtonEnum.exShowAsSelectButton Or 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

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
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)
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
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

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
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

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
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
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	Debug.Print( .Version )
End With
137:
How can I align the picture on the control's background
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.Picture = ExContextMenu1.ExecuteTemplate("loadpicture(`c:\exontrol\images\card.png`)")
	.PictureDisplay = 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
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
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

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
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 EventID As Long)
	With ExContextMenu1
		Debug.Print( "Event" )
		Debug.Print( .EventParam(-2) )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		.Add("Check").Check = True
		With .Add("Slider")
			.AllowEdit = exItemEditSlider
			.EditWidth = 128
			.EditBorder = 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 Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( "EditChange event on Itm object" )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Item")
			.AllowEdit = exItemEditSlider
			.EditWidth = 128
			.EditBorder = 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 Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( "UncheckItem event on Itm object" )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
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 Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( "CheckItem event on Itm object" )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
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 Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( "SelectItem event on Itm object" )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		.Add "Item"
		.Add "Item"
	End With
	.Select 
End With
129:
Does your control support padding for items

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.MenuAppearance = exMenuNormal
	With .Items
		.Padding = "2,12,2,2"
		With .Add("",2)
			.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				.Add "Item 1"
				.Add "Item 2"
				.Add "Item 3"
			End With
		End With
		.BackColor = RGB(255,255,255)
		.BackgroundExt = "root[pattern=0x000,frame=RGB(128,128,128)](top[2],top[10,text=`<font ;6><fgcolor 808080> group </font></fgcolor>`,align=0x11])"
	End With
	.Select 
End With
128:
How can I change the visual appearance for items, when cursor hovers it (hot,EBN)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	With .Items
		With .Add("",2)
			.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				.HotBackColor = &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)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("",2)
			.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				.HotBackColor = RGB(255,0,0)
				.Padding = "0,8,0,8"
				.Add "Item 1"
				.Add "Item 2"
				.Add "Item 3"
			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)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	With .Items
		With .Add("",2)
			.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				.BackColor = &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

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("",2)
			.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				.BackColor = RGB(255,0,0)
				.Padding = "0,8,0,8"
				.Add "Item 1"
				.Add "Item 2"
				.Add "Item 3"
			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)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
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)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.MenuAppearance = 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 Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( "Clicked" )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.MenuAppearance = exMenuNormal
	With .Items
		With .Add("Button",2)
			.ShowAsButton = ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
			With .Items
				With .Add("",2)
					.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or 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 Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( "Clicked" )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Button",2)
			.ShowAsButton = ShowAsButtonEnum.exShowAsSelectButtonBottom Or 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 Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( "Clicked" )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Button",2)
			.ShowAsButton = ShowAsButtonEnum.exShowAsSelectButton Or 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 Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( "Clicked" )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Button",2)
			.ShowAsButton = ShowAsButtonEnum.exShowAsSelectButton Or 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 Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( "Clicked" )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		.Add("Button").ShowAsButton = ShowAsButtonEnum.exShowAsButtonAutoSize Or ShowAsButtonEnum.exShowAsButton
		.Add("").ToString = "Button[button=0x03]"
	End With
	.Select 
End With
117:
How can I display grouping items with no frame arround

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Horizontal Group",2)
			.GroupPopup = GroupPopupEnum.exGroupPopupFrameThickBox Or GroupPopupEnum.exGroupPopupFrameSolidBox Or GroupPopupEnum.exGroupPopupEqualHeight Or GroupPopupEnum.exGroupPopupEqualWidth Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				.Add("A").Alignment = exCenter
				.Add("BC").Alignment = exCenter
				.Add("D").Alignment = 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

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Horizontal Group",2)
			.GroupPopup = GroupPopupEnum.exGroupPopupFrameThickBox Or GroupPopupEnum.exGroupPopupFrameSolidBox Or GroupPopupEnum.exGroupPopupEqualHeight Or GroupPopupEnum.exGroupPopupEqualWidth Or GroupPopupEnum.exGroupPopup
			With .Items
				.Add("A").Alignment = exCenter
				.Add("BC").Alignment = exCenter
				.Add("D").Alignment = 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

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Horizontal Group",2)
			.GroupPopup = GroupPopupEnum.exGroupPopupFrameThickBox Or GroupPopupEnum.exGroupPopupFrameSolidBox Or 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

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Horizontal Group",2)
			.GroupPopup = 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)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Expand",2)
			.GroupPopup = GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or 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)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Expand",2)
			.GroupPopup = GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or 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)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Expand",2)
			.GroupPopup = 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

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
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

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		.BackColor = RGB(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

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("",2)
			.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				.Add "Item 1"
				With .Add("",2)
					.GroupPopup = GroupPopupEnum.exGroupPopupCenter Or 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

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		.Add "Item"
		With .Add("")
			.Enabled = False
			.ItemHeight = 2
			.CaptionWidth = 8
			.BackColor = RGB(240,240,240)
		End With
		.Add "Item"
	End With
	.Select 
End With
106:
How can I add an empty/frame item

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		.Add "Item 1"
		With .Add("",2)
			.GroupPopup = GroupPopupEnum.exGroupPopupCenter Or 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

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		.BackColor = RGB(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

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		.BackColor = RGB(250,250,250)
		.Add("Item").CaptionWidth = 128
		.Add("").ToString = "Item[captionwidth=128]"
	End With
	.Select 
End With
103:
How do I align the item

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		.BackColor = RGB(250,250,250)
		.Add "Item"
		With .Add("Item")
			.Alignment = exCenter
			.CaptionWidth = 128
		End With
		With .Add("Item")
			.Alignment = exRight
			.CaptionWidth = 128
		End With
		.Add("").ToString = "Item[align=1]"
	End With
	.Select 
End With
102:
How can I underline the item

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
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

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		.Add("Item").Strikeout = True
		.Add "<s>Item</s>"
		.Add("").ToString = "Item[stk]"
	End With
	.Select 
End With
100:
How can I show the item in italics

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		.Add("Item").Italic = True
		.Add "<i>Item</i>"
		.Add("").ToString = "Item[itl]"
	End With
	.Select 
End With
99:
How can I show the item in bold

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		.Add("Item").Bold = True
		.Add "<b>Item</b>"
		.Add("").ToString = "Item[bld]"
	End With
	.Select 
End With
98:
How can I show the item as disabled but still be able to select or use it

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		.Add("Item").ShowAsDisabled = True
		.Add("").ToString = "Item[showdis=1]"
	End With
	.Select 
End With
97:
How can I enable or disable an item

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		.Add("Item").Enabled = False
		.Add("").ToString = "Item[dis]"
	End With
	.Select 
End With
96:
How can I add a separator item

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		.Add("Item").CaptionWidth = 128
		.Add "<font ;6>separator",1
		.Add("Item").CaptionWidth = 128
		.Add("").ToString = "<font ;6>separator[sep]"
	End With
	.Select 
End With
95:
How can I change the item's foreground color

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		.Add("Item").ForeColor = RGB(255,0,0)
		.Add "<fgcolor FF0000>Item"
		.Add("").ToString = "Item[fg=RGB(255,0,0)]"
	End With
	.Select 
End With
94:
How can I change the item's background/backcolor, when the item is selected/checked (radio-buttons)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("",2)
			.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Radio 1")
					.HotBackColor = RGB(255,255,255)
					.SelBackColor = RGB(255,0,0)
					.SelHotBackColor = RGB(255,0,0)
					.ShowCheckedAsSelected = exDisplayItemHighlight
					.Radio = True
					.RadioGroup = 100
					.Checked = True
				End With
				With .Add("Radio 2")
					.HotBackColor = RGB(255,255,255)
					.SelBackColor = RGB(255,0,0)
					.SelHotBackColor = RGB(255,0,0)
					.ShowCheckedAsSelected = exDisplayItemHighlight
					.Radio = True
					.RadioGroup = 100
				End With
				.Add("").ToString = "Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0)]"
			End With
		End With
	End With
	.Select 
End With
93:
How can I change the item's background/backcolor, when the item is selected/checked (check-box)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Check 1")
			.HotBackColor = RGB(255,255,255)
			.SelBackColor = RGB(255,0,0)
			.SelHotBackColor = RGB(255,0,0)
			.ShowCheckedAsSelected = exDisplayItemHighlight
			.Checked = True
			.Check = True
		End With
		.Add("").ToString = "Check 2[typ=1][chk=0][show=1][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0)]"
	End With
	.Select 
End With
92:
How can I prevent showing the border for selected/highlight/hot items

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.Background(exMenuSelBorderColor) = RGB(255,255,255)
	With .Items
		.Add "Item"
		.Add "Item"
	End With
	.Select 
End With
91:
How can I change the item's background/backcolor, when the cursor hovers it (hot)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		.Add("Item").HotBackColor = RGB(255,0,0)
		.Add("").ToString = "Item[bghot=RGB(255,0,0)]"
	End With
	.Select 
End With
90:
How can I change the item's background/backcolor

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	With .Items
		.Add("Item").BackColor = RGB(255,0,0)
		.Add("Item").BackColor = &H1000000
		.Add("").ToString = "Item[bg=RGB(255,0,0)]"
	End With
	.Select 
End With
89:
How can I specify/assign the item's identifier

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.Debug = True
	With .Items
		.Add "ID 1",0,1000
		.Add("ID 2").ID = 1001
		.Add("").ToString = "ID 3[id=1002]"
	End With
	.Select 
End With
88:
How can I show a horizontal separator/line between groups (method 3,EBN color)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	With .Items
		With .Add("",2)
			.GroupPopup = GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("")
					.AllowEdit = exItemEditSlider
					.EditBorder = exEditBorderNone
					.EditWidth = -128
					.EditValue = 25
				End With
				With .Add("")
					.Enabled = False
					.BackColor = &H1000000
					.ItemHeight = 8
					.CaptionWidth = 128
				End With
				With .Add("")
					.AllowEdit = exItemEditSlider
					.EditBorder = exEditBorderNone
					.EditWidth = -128
					.EditValue = 25
				End With
			End With
		End With
	End With
	.Select 
End With
87:
How can I show a horizontal separator/line between groups (method 2,solid color)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("",2)
			.GroupPopup = GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("")
					.AllowEdit = exItemEditSlider
					.EditBorder = exEditBorderNone
					.EditWidth = -128
					.EditValue = 25
				End With
				With .Add("")
					.Enabled = False
					.BackColor = RGB(128,128,128)
					.ItemHeight = 8
					.CaptionWidth = 128
				End With
				With .Add("")
					.AllowEdit = exItemEditSlider
					.EditBorder = exEditBorderNone
					.EditWidth = -128
					.EditValue = 25
				End With
			End With
		End With
	End With
	.Select 
End With
86:
How can I show a horizontal separator/line between groups (method 1,pattern)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("",2)
			.GroupPopup = GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("")
					.AllowEdit = exItemEditSlider
					.EditBorder = exEditBorderNone
					.EditWidth = -128
					.EditValue = 25
				End With
				With .Add("",2)
					.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
					With .Items
						With .Add("")
							.Enabled = False
							.ItemHeight = 8
							.CaptionWidth = 128
						End With
						.BackgroundExt = "none[(0,50%-1,100%,2),pattern=0x006,patterncolor=RGB(128,128,128)]"
					End With
				End With
				With .Add("")
					.AllowEdit = exItemEditSlider
					.EditBorder = exEditBorderNone
					.EditWidth = -128
					.EditValue = 25
				End With
			End With
		End With
	End With
	.Select 
End With
85:
How can I show a vertical separator/line between groups (method 3,EBN color)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	With .Items
		With .Add("",2)
			.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("")
					.ItemHeight = 128
					.AllowEdit = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
					.EditBorder = exEditBorderNone
					.EditWidth = 32
					.EditValue = 25
				End With
				With .Add("")
					.Enabled = False
					.BackColor = &H1000000
					.ItemHeight = 96
					.CaptionWidth = 8
				End With
				With .Add("")
					.ItemHeight = 128
					.AllowEdit = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
					.EditBorder = exEditBorderNone
					.EditWidth = 32
					.EditValue = 25
				End With
			End With
		End With
	End With
	.Select 
End With
84:
How can I show a vertical separator/line between groups (method 2,solid color)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("",2)
			.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("")
					.ItemHeight = 128
					.AllowEdit = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
					.EditBorder = exEditBorderNone
					.EditWidth = 32
					.EditValue = 25
				End With
				With .Add("")
					.Enabled = False
					.BackColor = RGB(128,128,128)
					.ItemHeight = 96
					.CaptionWidth = 8
				End With
				With .Add("")
					.ItemHeight = 128
					.AllowEdit = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
					.EditBorder = exEditBorderNone
					.EditWidth = 32
					.EditValue = 25
				End With
			End With
		End With
	End With
	.Select 
End With
83:
How can I show a vertical separator/line between groups (method 1,pattern)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("",2)
			.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("")
					.ItemHeight = 128
					.AllowEdit = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
					.EditBorder = exEditBorderNone
					.EditWidth = 32
					.EditValue = 25
				End With
				With .Add("",2)
					.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
					With .Items
						With .Add("")
							.Enabled = False
							.ItemHeight = 96
							.CaptionWidth = 8
						End With
						.BackgroundExt = "none[(50%-1,0,2,100%),pattern=6,patterncolor=RGB(128,128,128)]"
					End With
				End With
				With .Add("")
					.ItemHeight = 128
					.AllowEdit = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
					.EditBorder = exEditBorderNone
					.EditWidth = 32
					.EditValue = 25
				End With
			End With
		End With
	End With
	.Select 
End With
82:
How can I show a pattern on the items

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("",2)
			.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				.Add "Item 1"
				.Add "Item 2"
				.Add "Item 3"
			End With
		End With
		.BackColor = RGB(255,255,255)
		.Padding = "2,2,2,12"
		.BackgroundExt = "root[pattern=0x006,patterncolor=RGB(128,128,128),frame=RGB(128,128,128)](bottom[2],bottom[12,text=`<font ;6><fgcolor 808080><of" & _
"f -2> clipboard </off></font></fgcolor>`,align=0x21])"
	End With
	.Select 
End With
81:
How can I show a thick frame arround the items

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("",2)
			.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				.Add "Item 1"
				.Add "Item 2"
				.Add "Item 3"
			End With
		End With
		.BackColor = RGB(255,255,255)
		.Padding = "2,2,2,12"
		.BackgroundExt = "root[frame=RGB(128,128,128)](bottom[2],bottom[12,text=`<font ;6><fgcolor 808080><off -2> clipboard </off></font></fgcolor>`,ali" & _
"gn=0x21])"
	End With
	.Select 
End With
80:
How can I add some additional icons on the background

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
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="
	With .Items
		With .Add("",2)
			.GroupPopup = exGroupPopup
			With .Items
				.Add "Item 1"
				.Add "Item 2"
				.Add "Item 3"
			End With
		End With
		.BackColor = RGB(255,255,255)
		.Padding = "0,0,0,16"
		.BackgroundExt = "root[text=`<img>2</img><font ;6><fgcolor 808080><off -2> clipboard </off></font></fgcolor><img>2</img>`,align=0x21]"
	End With
	.Select 
End With
79:
How can I add some additional text on the background

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("",2)
			.GroupPopup = exGroupPopup
			With .Items
				.Add "Item 1"
				.Add "Item 2"
				.Add "Item 3"
			End With
		End With
		.BackColor = RGB(255,255,255)
		.Padding = "0,0,0,8"
		.BackgroundExt = "root[text=`<font ;6><fgcolor 808080>clipboard`,align=0x21]"
	End With
	.Select 
End With
78:
How can I assign a tooltip to an item (method 2)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.ToString = "ToolTip[id=10][ttp=This is a bit of text that should be shown when cursor hovers the item]"
	.Select 
End With
77:
How can I assign a tooltip to an item (method 1)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.Items.Add("ToolTip").Tooltip = "This is a bit of text that should be shown when cursor hovers the item"
	.Select 
End With
76:
How can I assign a spin field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Spin")
			.AllowEdit = exItemEditSpin
			.EditWidth = 16
			.EditValue = 15
			.EditBorder = exEditBorderNone
			.EditOption(exEditMaxValue) = 1000
		End With
		With .Add("Edit-Spin")
			.AllowEdit = AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditText
			.EditWidth = -128
			.EditValue = 15
			.EditOption(exEditMaxValue) = 1000
		End With
		With .Add("Splider-Spin")
			.AllowEdit = AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditSlider
			.EditWidth = -128
			.EditValue = 25
			.EditBorder = exEditBorderNone
		End With
	End With
	.Select 
End With
75:
How can I assign a spin field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.ToString = "Spin[id=10][edittype=0x0200][edit=15][border=0][max=1000][editwidth=16],Edit-Spin[id=20][edittype=0x0201][edit=15][max=1000][ed" & _
"itwidth=-128],Splider-Spin[id=30][edittype=0x0203][edit=25][border=0][editwidth=-128]"
	.Select 
End With
74:
How can I add a vertical slider (method 2)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.ToString = "Vertical[id=10][edittype=0x0403][edit=25][border=0][height=128]"
	.Select 
End With
73:
How can I add a vertical slider (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Vertical")
			.ItemHeight = 128
			.AllowEdit = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
			.EditBorder = exEditBorderNone
			.EditWidth = 32
			.EditValue = 25
		End With
	End With
	.Select 
End With
72:
How can I disable an editor (method 2)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.ToString = "Disabled[id=10][dis][edittype=0x01][edit=text-box][editwidth=-128]"
	.Select 
End With
71:
How can I disable an editor (method 1)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Disabled")
			.AllowEdit = exItemEditText
			.EditWidth = -128
			.EditValue = "text-box"
			.Enabled = False
		End With
	End With
	.Select 
End With
70:
How can I lock an editor (method 2)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.ToString = "Locked[id=10][edittype=0x0101][edit=disabled text-box][editwidth=-128]"
	.Select 
End With
69:
How can I lock an editor (method 1)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Locked")
			.AllowEdit = AllowEditEnum.exItemEditReadOnly Or AllowEditEnum.exItemEditText
			.EditWidth = -128
			.EditValue = "disabled text-box"
		End With
	End With
	.Select 
End With
68:
How can I assign a font field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Font")
			.AllowEdit = exItemEditFont
			.EditWidth = -128
			.EditValue = "Tahoma"
		End With
	End With
	.Select 
End With
67:
How can I assign a font field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.ToString = "Font[id=10][edittype=0x07][edit=Tahoma][editwidth=-128]"
	.Select 
End With
66:
How can I assign a color field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Color")
			.AllowEdit = exItemEditColor
			.EditBorder = exEditBorderNone
			.EditWidth = -128
			.EditValue = 255
		End With
	End With
	.Select 
End With
65:
How can I assign a color field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.ToString = "Color[id=10][edittype=0x06][edit=#FF0000][border=0][editwidth=-128]"
	.Select 
End With
64:
How can I assign a scrollbar field to the item (method 2)
' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("ScrollBar")
			.AllowEdit = exItemEditScrollBar
			.EditWidth = -128
			.EditValue = "25"
		End With
	End With
	.Select 
End With
63:
How can I assign a scrollbar field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.ToString = "ScrollBar[id=10][edittype=0x05][edit=25][editwidth=-128]"
	.Select 
End With
62:
Is it possible to change the tooltip beging shown when I change the slider/scroll/progress value

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Progress")
			.AllowEdit = exItemEditProgress
			.EditWidth = -128
			.EditValue = 25
			.EditOption(exEditChangeToolTip) = "`Current value is: ` + value"
		End With
	End With
	.Select 
End With
61:
How can I hide the tooltip beging shown when I change the slider/scroll/progress value
' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Progress")
			.AllowEdit = exItemEditProgress
			.EditWidth = -128
			.EditValue = 25
			.EditOption(exEditChangeToolTip) = ""
		End With
	End With
	.Select 
End With
60:
How can I assign a progress field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Progress")
			.AllowEdit = exItemEditProgress
			.EditWidth = -128
			.EditValue = 25
		End With
	End With
	.Select 
End With
59:
How can I assign a progress field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.ToString = "Progress[id=10][edittype=0x04][edit=25][editwidth=-128]"
	.Select 
End With
58:
How can I assign a slider field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Slider")
			.AllowEdit = exItemEditSlider
			.EditWidth = -128
			.EditValue = 25
		End With
		With .Add("Slider")
			.AllowEdit = exItemEditSlider
			.EditBorder = exEditBorderNone
			.EditWidth = -128
			.EditOption(exEditMinValue) = 50
			.EditOption(exEditMaxValue) = 450
			.EditOption(exEditTickStyle) = 2
			.EditOption(exEditTickFrequency) = 50
			.EditOption(exEditTickLabel) = "value = vmin ? '<br><font ;6><b>'+value : ( value = vmax ? '<br><font ;6><b>'+value : ( value = 200 ? '<br><font ;6><b><fgcolor" & _
" FF0000>'+value : '' ) )"
			.EditValue = 345
		End With
	End With
	.Select 
End With
57:
How can I assign a slider field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.ToString = "Slider[id=10][edittype=0x03][edit=25][editwidth=-128],Slider[id=20][edittype=0x03][edit=345][border=0][min=50][max=450][tick=2]" & _
"[freq=50][ticklabel=value = vmin ? '<br><font ;6><b>'+value : ( value = vmax ? '<br><font ;6><b>'+value : ( value = 200 ? '<br><" & _
"font ;6><b><fgcolor FF0000>'+value : '' ) )][editwidth=-128]"
	.Select 
End With
56:
How can I assign a mask (time) field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Time")
			.AllowEdit = exItemEditMask
			.EditWidth = -128
			.EditMask = "99:00:00;;0;overtype,warning=Invalid character"
			.EditValue = "123456"
		End With
	End With
	.Select 
End With
55:
How can I assign a mask (time) field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.ToString = "Time[id=10][edittype=0x02][edit=12:34:56][mask=99:00:00;;0;overtype,warning=Invalid character][editwidth=-128]"
	.Select 
End With
54:
How can I assign a mask (license key) field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("License Key")
			.AllowEdit = exItemEditMask
			.EditWidth = -128
			.EditMask = "AAAA-AAAA-AAAA-AAAA"
			.EditValue = "1234"
		End With
	End With
	.Select 
End With
53:
How can I assign a mask (license key) field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.ToString = "License Key[id=10][edittype=0x02][edit=1234-____-____-____][mask=AAAA-AAAA-AAAA-AAAA][editwidth=-128]"
	.Select 
End With
52:
How can I assign a mask (IP address) field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("IP Address")
			.AllowEdit = exItemEditMask
			.EditWidth = -128
			.EditMask = "{0,255}.{0,255}.{0,255}.{0,255}"
			.EditValue = "1.2.3.4"
		End With
	End With
	.Select 
End With
51:
How can I assign a mask (IP address) field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.ToString = "IP Address[id=10][edittype=0x02][edit=1.2.3.4][mask={0,255}.{0,255}.{0,255}.{0,255}][editwidth=-128]"
	.Select 
End With
50:
How can I assign a mask (phone) field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Phone")
			.AllowEdit = exItemEditMask
			.EditWidth = -128
			.EditMask = "!(9999) 000 000;;;empty,select=4,overtype,beep"
			.EditValue = "0771638317"
		End With
	End With
	.Select 
End With
49:
How can I assign a mask (phone) field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.ToString = "Phone[id=10][edittype=0x02][edit=(0771) 638 317][mask=!(9999) 000 000;;;empty,select=4,overtype,beep][editwidth=-128]"
	.Select 
End With
48:
How can I assign a mask (date) field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("")
			.AllowEdit = exItemEditMask
			.EditWidth = -128
			.EditMask = "`Date: `{1,12}/{1,31}/{1950,2050};;;select=1"
			.EditValue = #2/15/2015#
		End With
		With .Add("Date")
			.AllowEdit = exItemEditMask
			.EditWidth = -128
			.EditMask = "!00/00/0000;;0;empty,validateas=1,invalid=Invalid date!,warning=Invalid character!,select=4,overtype"
			.EditValue = #2/15/2015#
		End With
	End With
	.Select 
End With
47:
How can I assign a mask (date) field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.ToString = "[id=10][edittype=0x02][edit=Date: 2/15/2015][mask=`Date: `{1,12}/{1,31}/{1950,2050};;;select=1][editwidth=-128],Date[id=20][edi" & _
"ttype=0x02][edit=02/15/2015][mask=!00/00/0000;;0;empty,validateas=1,invalid=Invalid date!,warning=Invalid character!,select=4,ov" & _
"ertype][editwidth=-128]"
	.Select 
End With
46:
How can I assign a mask (integer) field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Integer")
			.AllowEdit = exItemEditMask
			.EditWidth = -128
			.EditMask = ";;;float,grouping=,digits=0"
			.EditValue = 1000
		End With
		With .Add("Integer-Grouping")
			.AllowEdit = exItemEditMask
			.EditWidth = -128
			.EditMask = ";;;float,decimal=,digits=0,select=1"
			.EditValue = 1000
		End With
		With .Add("Integer-In-Range")
			.AllowEdit = exItemEditMask
			.EditWidth = -128
			.EditMask = "{0,2050}"
			.EditValue = 1000
		End With
	End With
	.Select 
End With
45:
How can I assign a mask (integer) field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.ToString = "Integer[id=10][edittype=0x02][edit=1000][mask=;;;float,grouping=,digits=0][editwidth=-128],Integer-Grouping[id=20][edittype=0x0" & _
"2][edit=1,000][mask=;;;float,decimal=,digits=0,select=1][editwidth=-128],Integer-In-Range[id=30][edittype=0x02][edit=1000][mask=" & _
"{0,2050}][editwidth=-128]"
	.Select 
End With
44:
How can I assign a mask field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Mask")
			.AllowEdit = exItemEditMask
			.EditWidth = -128
			.EditMask = ";;;float,select=1"
			.EditValue = 1000
		End With
	End With
	.Select 
End With
43:
How can I assign a mask field to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.ToString = "Text-Box[id=10][edittype=0x02][edit=1,000][mask=;;;float,select=1][editwidth=-128]"
	.Select 
End With
42:
How can I assign an edit / text-box to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Mask")
			.AllowEdit = exItemEditText
			.EditValue = "this is a text"
			.EditWidth = -128
		End With
	End With
	.Select 
End With
41:
How can I assign an edit / text-box to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
	With ExContextMenu1
		Debug.Print( Itm )
	End With
End Sub

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.ToString = "Text-Box[edit=this is a text][editwidth=-128]"
	.Select 
End With
40:
How can I display a tab into the context menu (method 2)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.Background(exMenuSelBorderColor) = RGB(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 .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("add here fields for page 1").Enabled = False
				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("add here fields for page 2").Enabled = False
				End With
			End With
			.Add("",0,0).Padding = "8,0,0,0"
		End With
	End With
	.Select 
End With
39:
How can I add check-buttons to items, without showing the check-box (method 2)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("",2)
			.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Check 1")
					.Check = True
					.Checked = True
					.ShowCheckedAsSelected = exDisplayItemHighlight
				End With
				With .Add("Check 2")
					.Check = True
					.ShowCheckedAsSelected = exDisplayItemHighlight
				End With
				With .Add("Check 3")
					.Check = True
					.Checked = True
					.ShowCheckedAsSelected = exDisplayItemHighlight
				End With
			End With
		End With
	End With
	.Select 
End With
38:
How can I add check-buttons to items, without showing the check-box (method 1)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.ToString = "[group=0x3](Check 1[chk=1][show=1],Check 2[chk=0][show=1],Check 3[chk=1][show=1])"
	.Select 
End With
37:
How can I add radio buttons to items, without showing the radio-buttons (method 2)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("",2)
			.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Radio 1",,1000)
					.ShowCheckedAsSelected = exDisplayItemHighlight
					.Radio = True
					.RadioGroup = 100
				End With
				With .Add("Radio 2",,1001)
					.ShowCheckedAsSelected = exDisplayItemHighlight
					.Radio = True
					.RadioGroup = 100
				End With
				With .Add("Radio 2",,1003)
					.ShowCheckedAsSelected = exDisplayItemHighlight
					.Radio = True
					.RadioGroup = 100
				End With
				.item(1000).Checked = True
			End With
		End With
	End With
	.Select 
End With
36:
How can I add radio buttons to items, without showing the radio-buttons (method 1)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.ToString = "[group=0x3](Radio 1[rad=1][show=1][grp=100][id=1000],Radio 2[rad=0][show=1][grp=100][id=1001],Radio 2[rad=0][show=1][grp=100][i" & _
"d=1002])"
	.Select 
End With
35:
How can I add check-buttons to items (method 2)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("",2)
			.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or 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
34:
How can I add check-buttons to items (method 1)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.ToString = "[group=0x3](Check 1[chk=1],Check 2[chk=0])"
	.Select 
End With
33:
How can I add radio buttons to items (method 2)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("",2)
			.GroupPopup = exGroupPopup
			With .Items
				With .Add("Radio 1",,1000)
					.Radio = True
					.RadioGroup = 100
				End With
				With .Add("Radio 2",,1001)
					.Radio = True
					.RadioGroup = 100
				End With
				With .Add("Radio 2",,1003)
					.Radio = True
					.RadioGroup = 100
				End With
				.item(1000).Checked = True
			End With
		End With
	End With
	.Select 
End With
32:
How can I add radio buttons to items (method 1)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.ToString = "[group=0x1](Radio 1[rad=1][grp=100][id=1000],Radio 2[rad=0][grp=100][id=1001],Radio 2[rad=0][grp=100][id=1002])"
	.Select 
End With
31:
How can I change the selection/highlighting color

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.SelBackColor = RGB(0,0,0)
	.Background(exMenuSelBorderColor) = RGB(128,0,0)
	.Background(exMenuHotForeColor) = RGB(255,255,255)
	.ToString = "[group=3](Item 1[chk],Item 2[chk])"
	.Select 
End With
30:
How can I prevent showing/hide the border on the selected/highlighted item

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.Background(exMenuSelBorderColor) = .SelBackColor
	.ToString = "Item 1,Item 2"
	.Select 
End With
29:
How can I display a tab into the context menu (method 1)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.Background(exMenuSelBorderColor) = RGB(240,240,240)
	.ToString = "[id=10][group=0x0103][itemspad=4,4,4,4]([id=20][group=0x03]([id=30][pad=8,0,0,0],Page<off -5><font ;5><b>1</b></font></off>[id=" & _
"40][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=9000][pad=2,0,2,0]([id=50][group=0x03](add here fields for page 1[dis])),Page<off -5><font ;5><b>2</b></font><" & _
"/off>[id=120][typ=2][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height" & _
"=16][group=0x03][tab=9000][pad=2,0,2,0]([id=130][group=0x03](add here fields for page 2[dis])),[id=180][pad=8,0,0,0]),[id=190][b" & _
"g=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=9000]))"
	.Select 
End With
28:
How do I prevent highlighting the item (method 2.b)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		.Add("No highlight").Enabled = False
		.Add "Item 2"
		.Add "Item 3"
	End With
	.Select 
End With
27:
How do I prevent highlighting the item (method 2.a)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("No highlight",2)
			.Items.Add ""
			.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
		End With
		.Add "Item 2"
		.Add "Item 3"
	End With
	.Select 
End With
26:
How do I prevent highlighting the item (method 1.b)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.Items.ToString = "No highlight[dis],Item 2,Item 3"
	.Select 
End With
25:
How do I prevent highlighting the item (method 1.a)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.Items.ToString = "No highlight[group=0x3][arrow=0]([]),Item 2,Item 3"
	.Select 
End With
24:
How can I can I assign pictures or images for the item (method 2)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	With .Items
		.Add("Item").HTMLImage = "pic1"
		.Add("Item").HTMLImage = "pic2"
		.Add "",1
		.Add "Item <img>pic1</img>"
		.Add "Item <img>pic2</img>"
		.Add "",1
		.Add "<img>pic1</img> Item <img>pic2</img>"
	End With
	.Select 
End With
23:
How can I can I assign pictures or images for the item (method 1)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	.ToString = "Item[himg=pic1],Item[himg=pic2],[sep],Item <img>pic1</img>,Item <img>pic2</img>,[sep],<img>pic1</img> Item <img>pic2</img>"
	.Select 
End With
22:
How can I can I assign icons for the item (method 2)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
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="
	With .Items
		.Add("Item").Image = 1
		.Add("Item").Image = 2
		.Add "",1
		.Add "Item <img>1</img>"
		.Add "Item <img>2</img>"
		.Add "",1
		.Add("Item <img>1</img>").Image = 1
	End With
	.Select 
End With
21:
How can I can I assign icons for the item (method 1)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
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 = "Item[img=1],Item[img=2],[sep],Item <img>1</img>,Item <img>2</img>,[sep],Item <img>1</img>[img=1]"
	.Select 
End With
20:
How can I change the visual appearance / background color (EBN) for a collection of items/group (method 2)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	With .Items
		.Padding = "2,2,2,2"
		.BackColor = &H1000000
		.Add "Item 1"
		.Add "Item 2"
		.Add "Item 3"
	End With
	.Select 
End With
19:
How can I change the visual appearance / background color (EBN) for a collection of items/group (method 1)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Items.ToString = "[itemsbg=0x1000000][itemspad=2,2,2,2][group=0x103](Item 1,Item 2,Item 3)"
	.Select 
End With
18:
How can I change the background color for a collection of items/group (method 2)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		.Padding = "2,2,2,2"
		.BackColor = RGB(255,0,0)
		.Add "Item 1"
		.Add "Item 2"
		.Add "Item 3"
	End With
	.Select 
End With
17:
How can I change the background color for a collection of items/group (method 1)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.Items.ToString = "[itemsbg=RGB(255,0,0)][itemspad=2,2,2,2][group=0x103](Item 1,Item 2,Item 3)"
	.Select 
End With
16:
How can I change the visual appearance / background color (EBN) for a specified item (method 2)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	With .Items
		.Add "Item 1"
		.Add("Item 2").BackColor = &H1000000
		.Add "Item 3"
	End With
	.Select 
End With
15:
How can I change the visual appearance / background color (EBN) for a specified item (method 1)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Items.ToString = "Item 1,Item 2[bg=0x1000000],Item 3"
	.Select 
End With
14:
How can I change the background color for a specified item (method 2)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		.Add "Item 1"
		.Add("Item 2").BackColor = RGB(255,0,0)
		.Add "Item 3"
	End With
	.Select 
End With
13:
How can I change the background color for a specified item (method 1)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.Items.ToString = "Item 1,Item 2[bg=RGB(255,0,0)],Item 3"
	.Select 
End With
12:
How do I add a popup or a sub-menu so it show when cursor hovers it (method 2)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("Popup",2).Items
			.Add "Item 1"
			.Add "Item 2"
			.Add "Item 3"
		End With
	End With
	.Select 
End With
11:
How do I add a popup or a sub-menu so it show when cursor hovers it (method 1)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.Items.ToString = "Popup(Item 1,Item 2,Item 3)"
	.Select 
End With
10:
How can I arrange the items by grouping (method 2)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("",2)
			.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			With .Items
				With .Add("Horizontal",2)
					.GroupPopup = exGroupPopup
					With .Items
						.Add "Sub-Item <b>A</b>"
						.Add "Sub-Item <b>B</b>"
						.Add "Sub-Item <b>C</b>"
					End With
				End With
				.Add("").CaptionWidth = 16
				With .Add("Vertical",2)
					.Alignment = exCenter
					.GroupPopup = GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exGroupPopup
					With .Items
						.Add "Sub-Item <b>A</b>"
						.Add "Sub-Item <b>B</b>"
						.Add "Sub-Item <b>C</b>"
					End With
				End With
				.Add("").CaptionWidth = 16
				With .Add("Popup",2)
					With .Items
						.Add "Sub-Item <b>A</b>"
						.Add "Sub-Item <b>B</b>"
						.Add "Sub-Item <b>C</b>"
					End With
				End With
			End With
		End With
	End With
	.Select 
End With
9:
How can I arrange the items by grouping (method 1)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.Items.ToString = "[group=0x03](Horizontal[group=0x01](Sub-Item <b>A</b>,Sub-Item <b>B</b>,Sub-Item <b>C</b>),[captionwidth=16],Vertical[group=0x0" & _
"101][align=1](Sub-Item <b>A</b>,Sub-Item <b>B</b>,Sub-Item <b>C</b>),[captionwidth=16],Popup(Sub-Item <b>A</b>,Sub-Item <b>B</b>" & _
",Sub-Item <b>C</b>),[captionwidth=160])"
	.Select 
End With
8:
How can I arrange some items vertically, and some horizontally (method 2)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("",2)
			With .Items
				.Add "1"
				.Add "2"
				.Add "3"
			End With
			.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
		End With
		With .Add("",2)
			With .Items
				.Add "4"
				.Add "5"
				.Add "6"
			End With
			.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
		End With
		With .Add("",2)
			With .Items
				.Add "7"
				.Add "8"
				.Add "9"
			End With
			.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
		End With
	End With
	.Select 
End With
7:
How can I arrange some items vertically, and some horizontally (method 1)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.Items.ToString = "[group=3](1,2,3),[group=3](4,5,6),[group=3](7,8,9)"
	.Select 
End With
6:
How can I assign multiple-lines to an item (method 2)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("",2)
			With .Items
				.Add("Item 1").Caption = "Item <br><c><b>1"
				.Add("Item 2").Caption = "Item <br><c><b>2"
				.Add("Item 3").Caption = "Item <br><c><b>3"
			End With
			.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
		End With
	End With
	.Select 
End With
5:
How can I assign multiple-lines to an item (method 1)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.Items.ToString = "[group=3](Item <br><c><b>1,Item <br><c><b>2,Item <br><c><b>3)"
	.Select 
End With
4:
How can I add new items arranged horizontally to the context menu (method 2)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		With .Add("",2)
			With .Items
				.Add "Item 1"
				.Add "Item 2"
				.Add "Item 3"
			End With
			.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
		End With
	End With
	.Select 
End With
3:
How can I add new items arranged horizontally to the context menu (method 1)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.Items.ToString = "[group=3](Item 1,Item 2,Item 3)"
	.Select 
End With
2:
How can I add new items to the context menu (method 2)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	With .Items
		.Add "Item 1"
		.Add "Item 2"
		.Add "Item 3"
	End With
	.Select 
End With
1:
How can I add new items to the context menu (method 1)

Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
	.Items.ToString = "Item 1,Item 2,Item 3"
	.Select 
End With