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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.Font.Size = 6
		.MenuAppearance = 0
		With .Items
			alert( .VisibleItemsCount )
			.VisibleItemsCount = 255
			.ToString = "1,2,3,4,5,6,7,8,9,10,11,12,13"
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

175:
How do I specify the control's height (method 3)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			.Add("Item 1").ItemHeight = 24
			.Add("Item 2").ItemHeight = 24
			.Add("Item 3").ItemHeight = 24
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

174:
How do I specify the control's height (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

173:
How do I specify the control's height (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.Font.Size = 12
		With .Items
			.Add "Item 1"
			.Add "Item 2"
			.Add "Item 3"
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

172:
How can I change the visual appearance of the progress bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Background(260) = &H1000000 ' &H104
		With .Items
			With .Add("Progress")
				.AllowEdit = 4
				.EditWidth = -128
				.EditValue = 25
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

171:
How can I change the progress's color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.Background(260) = RGB(255,0,0) ' &H104
		With .Items
			With .Add("Progress")
				.AllowEdit = 4
				.EditWidth = -128
				.EditValue = 25
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

170:
I am using the Item.Visible property on False to hide the item, but the editor is still visible

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_CheckItem(Itm)
	With ExContextMenu1
		With .Items.item(1000)
			.Visible = True
			.AllowEdit = 260 ' AllowEditEnum.exItemEditReadOnly Or AllowEditEnum.exItemEditProgress
		End With
		.Select 
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_UncheckItem(Itm)
	With ExContextMenu1
		With .Items.item(1000)
			.Visible = False
			.AllowEdit = 0
		End With
		.Select 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 260 ' AllowEditEnum.exItemEditReadOnly Or AllowEditEnum.exItemEditProgress
						.EditValue = 50
						.Visible = True
					End With
					.Add "Visible"
				End With
				.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

169:
How can I change the color of a disabled item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("Disabled",2,0)
				.ForeColor = RGB(255,0,0)
				.Items.Add ""
				.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			End With
			.Add("Disabled").Enabled = False
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

168:
Microsoft Windows 8.1 - Ribbon Like

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.MenuAppearance = 0
		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 = 17 ' GroupPopupEnum.exGroupPopupEqualWidth Or GroupPopupEnum.exGroupPopup
								.Caption = ""
								With .Items
									With .Add("R1")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = 1
										.Checked = False
									End With
									With .Add("R2")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = 1
										.Checked = True
									End With
									With .Add("R3")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = 1
										.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 = 289 ' 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 = 1027 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
								.ItemHeight = 76
								.EditBorder = 0
								.EditValue = 25
							End With
							With .Add("",2)
								.GroupPopup = 259 ' GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
								.Caption = ""
								With .Items
									With .Add("",2)
										.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
										With .Items
											With .Add("Button1",2)
												.ShowAsButton = 275 ' ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
												With .Items
													.Add "Item 1"
													.Add "Item 2"
													.Add "Item 3"
												End With
											End With
											.Add("",0,0).Padding = "4,0,0,0"
											With .Add("Button2",2)
												.ShowAsButton = 275 ' ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
												With .Items
													.Add "Item 4"
													.Add "Item 5"
													.Add "Item 6"
												End With
											End With
										End With
									End With
									With .Add("Popup",2)
										.Alignment = 1
										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 = 1540 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
							.EditValue = 25
						End With
						With .Add("S2")
							.ItemHeight = 88
							.AllowEdit = 1540 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
							.EditValue = 50
						End With
						With .Add("S3")
							.ItemHeight = 88
							.AllowEdit = 1540 ' 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 = 16777216 ' &H1000000
		.Background(64) = .Appearance
		.SelBackColor = &He000000
		.Background(110) = &Hc000000
		.Background(112) = &H23000000
		.Background(2) = &H22000000 ' &H2
		.Background(3) = &H23000000 ' &H3
		.Background(70) = &H20000000
		.Background(71) = &H21000000
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

167:
Microsoft Paint - Ribbon Like

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.MenuAppearance = 0
		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 = 17 ' GroupPopupEnum.exGroupPopupEqualWidth Or GroupPopupEnum.exGroupPopup
								.Caption = ""
								With .Items
									With .Add("R1")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = 1
										.Checked = False
									End With
									With .Add("R2")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = 1
										.Checked = True
									End With
									With .Add("R3")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = 1
										.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 = 289 ' 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 = 1027 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
								.ItemHeight = 76
								.EditBorder = 0
								.EditValue = 25
							End With
							With .Add("",2)
								.GroupPopup = 259 ' GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
								.Caption = ""
								With .Items
									With .Add("",2)
										.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
										With .Items
											With .Add("Button1",2)
												.ShowAsButton = 275 ' ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
												With .Items
													.Add "Item 1"
													.Add "Item 2"
													.Add "Item 3"
												End With
											End With
											.Add("",0,0).Padding = "4,0,0,0"
											With .Add("Button2",2)
												.ShowAsButton = 275 ' ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
												With .Items
													.Add "Item 4"
													.Add "Item 5"
													.Add "Item 6"
												End With
											End With
										End With
									End With
									With .Add("Popup",2)
										.Alignment = 1
										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 = 1540 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
							.EditValue = 25
						End With
						With .Add("S2")
							.ItemHeight = 88
							.AllowEdit = 1540 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
							.EditValue = 50
						End With
						With .Add("S3")
							.ItemHeight = 88
							.AllowEdit = 1540 ' 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 = 6
		.Appearance = 16777216 ' &H1000000
		.ForeColor = RGB(21,66,139)
		.SelBackColor = &He000000
		.Background(64) = .Appearance
		.Background(2) = &Hd000000 ' &H2
		.Background(105) = &H5000000
		.Background(106) = &H6000000
		.Background(107) = &H7000000
		.Background(108) = &H8000000
		.Background(116) = &H9000000
		.Background(117) = &Ha000000
		.Background(118) = &Hb000000
		.Background(110) = &Hc000000
		.Background(112) = &Hf000000
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

166:
Microsoft Office - Ribbon Like

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.MenuAppearance = 0
		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 = 17 ' GroupPopupEnum.exGroupPopupEqualWidth Or GroupPopupEnum.exGroupPopup
								.Caption = ""
								With .Items
									With .Add("R1")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = 1
										.Checked = False
									End With
									With .Add("R2")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = 1
										.Checked = True
									End With
									With .Add("R3")
										.RadioGroup = 100
										.Radio = True
										.ShowCheckedAsSelected = 1
										.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 = 289 ' 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 = 1027 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
								.ItemHeight = 76
								.EditBorder = 0
								.EditValue = 25
							End With
							With .Add("",2)
								.GroupPopup = 259 ' GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
								.Caption = ""
								With .Items
									With .Add("",2)
										.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
										With .Items
											With .Add("Button1",2)
												.ShowAsButton = 275 ' ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
												With .Items
													.Add "Item 1"
													.Add "Item 2"
													.Add "Item 3"
												End With
											End With
											.Add("",0,0).Padding = "4,0,0,0"
											With .Add("Button2",2)
												.ShowAsButton = 275 ' ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
												With .Items
													.Add "Item 4"
													.Add "Item 5"
													.Add "Item 6"
												End With
											End With
										End With
									End With
									With .Add("Popup",2)
										.Alignment = 1
										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 = 1540 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
							.EditValue = 25
						End With
						With .Add("S2")
							.ItemHeight = 88
							.AllowEdit = 1540 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
							.EditValue = 50
						End With
						With .Add("S3")
							.ItemHeight = 88
							.AllowEdit = 1540 ' 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 = 6
		.Appearance = 16777216 ' &H1000000
		.Background(64) = .Appearance
		.Background(2) = &Hd000000 ' &H2
		.Background(105) = &H5000000
		.Background(106) = &H6000000
		.Background(107) = &H7000000
		.Background(108) = &H8000000
		.Background(116) = &H9000000
		.Background(117) = &Ha000000
		.Background(118) = &Hb000000
		.Background(110) = &Hc000000
		.Background(112) = &Hf000000
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

165:
How I can assign buttons to a tab

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.Background(102) = 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 = 3 ' ShowAsButtonEnum.exShowAsButtonAutoSize Or ShowAsButtonEnum.exShowAsButton
						.Add("Button 2").ShowAsButton = 3 ' ShowAsButtonEnum.exShowAsButtonAutoSize Or ShowAsButtonEnum.exShowAsButton
						.Add("Button 3").ShowAsButton = 3 ' ShowAsButtonEnum.exShowAsButtonAutoSize Or ShowAsButtonEnum.exShowAsButton
					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 = 3 ' ShowAsButtonEnum.exShowAsButtonAutoSize Or ShowAsButtonEnum.exShowAsButton
						.Add("Button 4").ShowAsButton = 3 ' ShowAsButtonEnum.exShowAsButtonAutoSize Or ShowAsButtonEnum.exShowAsButton
					End With
				End With
				.Add("",0,0).Padding = "8,0,0,0"
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

164:
How can I hide an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			.Add("Item 1").Visible = False
			.Add "Item 2"
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

163:
How do I get the item giving its caption

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			.Add("Item 1").ID = 1000
			.Add("Item 2").ID = 1001
		End With
		.item("Item 1").Bold = True
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

162:
How do I get the item giving its identifier

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			.Add("Item 1").ID = 1000
			.Add("Item 2").ID = 1001
		End With
		.item(1000).Bold = True
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

161:
Can I change the cursor where it hovers the item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.Cursor = "exCross"
		With .Items
			.Add "Item 1"
			.Add("Item 2").Cursor = "exNoDrop"
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

160:
I am using radio-buttons, the question is it possible to uncheck the radio-buttons, so no button is pressed in the group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

159:
Is it possible to display the item's identifiers

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.Debug = True
		With .Items
			.Add("Item 1").ID = 10001
			.Add("Item 2").ID = 10002
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

158:
How do I disable showing the tooltip for all control (method 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

157:
How can I disable the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			.Add("Item 1").Enabled = False
			.Add("Item 2").Enabled = False
			.Add("Item 3").Enabled = False
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

156:
How can I specify a different border/visual appearance for drop down portion of the select buttons/combobox (ebn)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.LocalAppearance = 16777216 ' &H1000000
		With .Items
			With .Add("",2)
				.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
				With .Items
					With .Add("Button",2)
						.ShowAsButton = 275 ' ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
						With .Items
							.Add "Item 1"
							.Add "Item 2"
							.Add "Item 3"
						End With
					End With
					With .Add("Button",2)
						.ShowAsButton = 275 ' 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
End Function
</SCRIPT>
</BODY>

155:
How can I specify a different border for drop down portion of the select buttons/combobox

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.LocalAppearance = 6
		With .Items
			With .Add("",2)
				.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
				With .Items
					With .Add("Button",2)
						.ShowAsButton = 275 ' ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
						With .Items
							.Add "Item 1"
							.Add "Item 2"
							.Add "Item 3"
						End With
					End With
					With .Add("Button",2)
						.ShowAsButton = 275 ' 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
End Function
</SCRIPT>
</BODY>

154:
How can I change the visual appearance for the entire control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Appearance = 16777216 ' &H1000000
		.ShowCheckedAsSelected = -1
		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
End Function
</SCRIPT>
</BODY>

153:
How can I show a border arround the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.Appearance = 1
		.ShowCheckedAsSelected = -1
		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
End Function
</SCRIPT>
</BODY>

152:
Is it possible to change the item's background color when check/uncheck the item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.ShowCheckedAsSelected = -1
		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
End Function
</SCRIPT>
</BODY>

151:
How can I change the colors for hot/hover items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.Background(110) = RGB(0,0,1)
		.Background(111) = RGB(255,255,255)
		.Background(112) = RGB(128,128,128)
		.Background(113) = RGB(255,255,255)
		.SelBackColor = RGB(128,128,128)
		.SelForeColor = RGB(255,255,255)
		.Background(102) = RGB(128,128,128)
		.ShowCheckedAsSelected = -1
		With .Items
			.Padding = "4,4,4,4"
			.Add("").ToString = "[group=3](Item 1,Item 2)"
			With .Add("Check 1")
				.Checked = True
				.Check = True
			End With
			With .Add("Check 2")
				.Check = True
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

150:
How do I change the visual appearance of the groups (vertical)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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(105) = &H1000000
		.Background(116) = &H1000000
		.Background(117) = &H2000000
		.Background(118) = &H3000000
		.Background(109) = RGB(255,0,0)
		With .Items
			With .Add("",2)
				.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
				With .Items
					With .Add("Vertical",2)
						.Alignment = 1
						.GroupPopup = 257 ' GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exGroupPopup
						With .Items
							.Add "Item 1"
							.Add "Item 2"
							.Add "Item 3"
							.Add "Item 4"
							.Add "Item 5"
						End With
					End With
					.Add("").CaptionWidth = 12
					With .Add("Vertical",2)
						.Alignment = 1
						.GroupPopup = 449 ' GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exGroupPopupFrameThickBox Or GroupPopupEnum.exGroupPopupFrameSolidBox Or GroupPopupEnum.exGroupPopup
						With .Items
							.Add "Item 1"
							.Add "Item 2"
							.Add "Item 3"
							.Add "Item 4"
							.Add "Item 5"
						End With
					End With
				End With
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

149:
How do I change the visual appearance of the groups (horizontal)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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(105) = &H1000000
		.Background(106) = &H1000000
		.Background(107) = &H2000000
		.Background(108) = &H3000000
		.Background(109) = RGB(255,0,0)
		With .Items
			With .Add("Horizontal Group",2)
				.GroupPopup = 1
				With .Items
					.Add "Item 1"
					.Add "Item 2"
					.Add "Item 3"
					.Add "Item 4"
					.Add "Item 5"
				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
End Function
</SCRIPT>
</BODY>

148:
How can I change the visual appearance of the separator item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Background(103) = &H1000000
		With .Items
			.Add("Item").CaptionWidth = 128
			.Add "",1
			.Add("Item").CaptionWidth = 128
			.Add("").ToString = "<font ;5>separator[sep]"
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

147:
How can I change the visual appearance of the flat portion of the drop down of the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.FlatBackColor = &H1000000
		.Background(100) = .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
End Function
</SCRIPT>
</BODY>

146:
How can I change the visual appearance of the radio-buttons to be displayed in the context menu (ebn)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .VisualAppearance
			.Add 1,"c:\exontrol\images\normal.ebn"
			.Add 2,"c:\exontrol\images\pushed.ebn"
		End With
		.Background(73) = &H1000000
		.Background(74) = &H2000000
		With .Items
			With .Add("",2)
				.GroupPopup = 1
				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
End Function
</SCRIPT>
</BODY>

145:
How can I change the visual appearance of the check-boxes to be displayed in the context menu (ebn)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .VisualAppearance
			.Add 1,"c:\exontrol\images\normal.ebn"
			.Add 2,"c:\exontrol\images\pushed.ebn"
		End With
		.Background(70) = &H1000000
		.Background(71) = &H2000000
		With .Items
			With .Add("",2)
				.GroupPopup = 3 ' 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
End Function
</SCRIPT>
</BODY>

144:
How can I change the visual appearance of the tooltips to be displayed in the context menu (ebn)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .VisualAppearance
			.Add 1,"c:\exontrol\images\normal.ebn"
			.Add 2,"c:\exontrol\images\pushed.ebn"
		End With
		.ToolTipDelay = 1
		.Background(64) = &H1000000
		.Background(66) = RGB(255,0,0)
		With .Items
			.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
			.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

143:
Is it possible to change the visual appearance of the buttons to be displayed in the context menu (ebn)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .VisualAppearance
			.Add 1,"c:\exontrol\images\normal.ebn"
			.Add 2,"c:\exontrol\images\pushed.ebn"
		End With
		.Background(2) = &H1000000 ' &H2
		.Background(3) = &H2000000 ' &H3
		.Background(114) = RGB(255,0,0)
		.Background(115) = RGB(0,0,255)
		With .Items
			.Padding = "4,4,4,4"
			.Add("Button").ShowAsButton = 3 ' ShowAsButtonEnum.exShowAsButtonAutoSize Or ShowAsButtonEnum.exShowAsButton
			With .Add("")
				.Enabled = False
				.ItemHeight = 4
			End With
			With .Add("Button",2)
				.ShowAsButton = 275 ' 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 = 19 ' 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
End Function
</SCRIPT>
</BODY>

142:
I've seen that the width of the tooltip is variable. Can I make it larger

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

141:
How do I disable showing the tooltip for all control (method 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

140:
How do I let the tooltip being displayed longer

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

139:
How do I show the tooltip quicker

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

138:
How can I get the version of the control I am running
<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		alert( .Version )
	End With
End Function
</SCRIPT>
</BODY>

137:
How can I align the picture on the control's background
<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.Picture = ExContextMenu1.ExecuteTemplate("loadpicture(`c:\exontrol\images\card.png`)")
		.PictureDisplay = 2
		With .Items
			.Add "Item"
			.Add "Item"
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

136:
Is it possible to place a picture on the control's background
<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.Picture = ExContextMenu1.ExecuteTemplate("loadpicture(`c:\exontrol\images\card.png`)")
		With .Items
			.Add "Item"
			.Add "Item"
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

135:
How can I display the item using a different font/size

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

134:
How can I use the Event event, available for /COM version

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_Event(EventID)
	With ExContextMenu1
		alert( "Event" )
		alert( .EventParam(-2) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			.Add("Check").Check = True
			With .Add("Slider")
				.AllowEdit = 3
				.EditWidth = 128
				.EditBorder = 0
				.EditValue = 25
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

133:
Is it possible to get notified once the user edits the field, or change the slider value

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( "EditChange event on Itm object" )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("Item")
				.AllowEdit = 3
				.EditWidth = 128
				.EditBorder = 0
				.EditValue = 25
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

132:
How do I get notified once I uncheck an item
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_UncheckItem(Itm)
	With ExContextMenu1
		alert( "UncheckItem event on Itm object" )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			.Add("Item").Check = True
			.Add("Item").Check = True
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

131:
How do I get notified once I check an item
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_CheckItem(Itm)
	With ExContextMenu1
		alert( "CheckItem event on Itm object" )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			.Add("Item").Check = True
			.Add("Item").Check = True
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

130:
How do I get notified once I click/select an item
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_SelectItem(Itm)
	With ExContextMenu1
		alert( "SelectItem event on Itm object" )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			.Add "Item"
			.Add "Item"
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

129:
Does your control support padding for items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.MenuAppearance = 0
		With .Items
			.Padding = "2,12,2,2"
			With .Add("",2)
				.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
				With .Items
					.Add "Item 1"
					.Add "Item 2"
					.Add "Item 3"
				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
End Function
</SCRIPT>
</BODY>

128:
How can I change the visual appearance for items, when cursor hovers it (hot,EBN)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		With .Items
			With .Add("",2)
				.GroupPopup = 3 ' 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
End Function
</SCRIPT>
</BODY>

127:
How can I change the background color for items, when cursor hovers it (hot)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("",2)
				.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
				With .Items
					.HotBackColor = RGB(255,0,0)
					.Padding = "0,8,0,8"
					.Add "Item 1"
					.Add "Item 2"
					.Add "Item 3"
				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
End Function
</SCRIPT>
</BODY>

126:
How can I change the visual appearance for items (EBN)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		With .Items
			With .Add("",2)
				.GroupPopup = 3 ' 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
End Function
</SCRIPT>
</BODY>

125:
How can I change the background color for items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("",2)
				.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
				With .Items
					.BackColor = RGB(255,0,0)
					.Padding = "0,8,0,8"
					.Add "Item 1"
					.Add "Item 2"
					.Add "Item 3"
				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
End Function
</SCRIPT>
</BODY>

124:
How do I hide the left gray portion to be shown on the drop down menu/popup (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

123:
How do I hide the left gray portion to be shown on the drop down menu/popup (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.MenuAppearance = 0
		With .Items
			With .Add("Popup",2).Items
				.Add "Item 1"
				.Add "Item 2"
				.Add "Item 3"
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

122:
How can I arrange the drop down item from left to right, rather than top to bottom

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_SelectItem(Itm)
	With ExContextMenu1
		alert( "Clicked" )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.MenuAppearance = 0
		With .Items
			With .Add("Button",2)
				.ShowAsButton = 275 ' ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
				With .Items
					With .Add("",2)
						.GroupPopup = 3 ' 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
End Function
</SCRIPT>
</BODY>

121:
How can I add a drop down button / combobox (method 2)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_SelectItem(Itm)
	With ExContextMenu1
		alert( "Clicked" )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("Button",2)
				.ShowAsButton = 275 ' 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
End Function
</SCRIPT>
</BODY>

120:
How can I add a drop down button / combobox (method 1)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_SelectItem(Itm)
	With ExContextMenu1
		alert( "Clicked" )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("Button",2)
				.ShowAsButton = 19 ' 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
End Function
</SCRIPT>
</BODY>

119:
I am using exShowAsSelectButton/exShowAsSelectButtonBottom but none of them works. What could be wrong

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_SelectItem(Itm)
	With ExContextMenu1
		alert( "Clicked" )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("Button",2)
				.ShowAsButton = 19 ' 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
End Function
</SCRIPT>
</BODY>

118:
How can I add a button (push button)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_SelectItem(Itm)
	With ExContextMenu1
		alert( "Clicked" )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			.Add("Button").ShowAsButton = 3 ' ShowAsButtonEnum.exShowAsButtonAutoSize Or ShowAsButtonEnum.exShowAsButton
			.Add("").ToString = "Button[button=0x03]"
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

117:
How can I display grouping items with no frame arround

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("Horizontal Group",2)
				.GroupPopup = 243 ' GroupPopupEnum.exGroupPopupFrameThickBox Or GroupPopupEnum.exGroupPopupFrameSolidBox Or GroupPopupEnum.exGroupPopupEqualHeight Or GroupPopupEnum.exGroupPopupEqualWidth Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
				With .Items
					.Add("A").Alignment = 1
					.Add("BC").Alignment = 1
					.Add("D").Alignment = 1
				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
End Function
</SCRIPT>
</BODY>

116:
How can I display grouping items of the same size/width/height

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("Horizontal Group",2)
				.GroupPopup = 241 ' GroupPopupEnum.exGroupPopupFrameThickBox Or GroupPopupEnum.exGroupPopupFrameSolidBox Or GroupPopupEnum.exGroupPopupEqualHeight Or GroupPopupEnum.exGroupPopupEqualWidth Or GroupPopupEnum.exGroupPopup
				With .Items
					.Add("A").Alignment = 1
					.Add("BC").Alignment = 1
					.Add("D").Alignment = 1
				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
End Function
</SCRIPT>
</BODY>

115:
Is it possible to display a ticker frame arround grouping items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("Horizontal Group",2)
				.GroupPopup = 193 ' GroupPopupEnum.exGroupPopupFrameThickBox Or GroupPopupEnum.exGroupPopupFrameSolidBox Or GroupPopupEnum.exGroupPopup
				With .Items
					.Add "Item 1"
					.Add "Item 2"
					.Add "Item 3"
				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
End Function
</SCRIPT>
</BODY>

114:
How do I display items horizontally arranged

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("Horizontal Group",2)
				.GroupPopup = 1
				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
End Function
</SCRIPT>
</BODY>

113:
Is it possible to expand an item when it is clicked (tree,group,vertical)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("Expand",2)
				.GroupPopup = 259 ' 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
End Function
</SCRIPT>
</BODY>

112:
Is it possible to expand an item when it is clicked (tree,group,vertical)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("Expand",2)
				.GroupPopup = 259 ' 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
End Function
</SCRIPT>
</BODY>

111:
Is it possible to expand an item when it is clicked (group)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("Expand",2)
				.GroupPopup = 1
				.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
End Function
</SCRIPT>
</BODY>

110:
Is it possible to extend an item when it is clicked

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

109:
Does your control implement padding for item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

108:
How can I add an empty item for a horizontal group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("",2)
				.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
				With .Items
					.Add "Item 1"
					With .Add("",2)
						.GroupPopup = 5 ' GroupPopupEnum.exGroupPopupCenter Or GroupPopupEnum.exGroupPopup
						.ItemHeight = 12
						With .Items.Add("")
							.Enabled = False
							.ItemHeight = 8
							.CaptionWidth = 8
						End With
					End With
					.Add "Item 2"
				End With
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

107:
How can I add an empty/separator item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

106:
How can I add an empty/frame item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			.Add "Item 1"
			With .Add("",2)
				.GroupPopup = 5 ' 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
End Function
</SCRIPT>
</BODY>

105:
How can I specify the height of the item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			.BackColor = RGB(250,250,250)
			.Add("Item").ItemHeight = 64
			.Add("").ToString = "Item[height=64]"
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

104:
How can I specify the width of the item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			.BackColor = RGB(250,250,250)
			.Add("Item").CaptionWidth = 128
			.Add("").ToString = "Item[captionwidth=128]"
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

103:
How do I align the item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			.BackColor = RGB(250,250,250)
			.Add "Item"
			With .Add("Item")
				.Alignment = 1
				.CaptionWidth = 128
			End With
			With .Add("Item")
				.Alignment = 2
				.CaptionWidth = 128
			End With
			.Add("").ToString = "Item[align=1]"
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

102:
How can I underline the item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			.Add("Item").Underline = True
			.Add "<u>Item</u>"
			.Add("").ToString = "Item[und]"
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

101:
How can I show the item as strikeout

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			.Add("Item").Strikeout = True
			.Add "<s>Item</s>"
			.Add("").ToString = "Item[stk]"
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

100:
How can I show the item in italics

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			.Add("Item").Italic = True
			.Add "<i>Item</i>"
			.Add("").ToString = "Item[itl]"
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

99:
How can I show the item in bold

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			.Add("Item").Bold = True
			.Add "<b>Item</b>"
			.Add("").ToString = "Item[bld]"
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

98:
How can I show the item as disabled but still be able to select or use it

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			.Add("Item").ShowAsDisabled = True
			.Add("").ToString = "Item[showdis=1]"
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

97:
How can I enable or disable an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			.Add("Item").Enabled = False
			.Add("").ToString = "Item[dis]"
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

96:
How can I add a separator item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

95:
How can I change the item's foreground color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

94:
How can I change the item's background/backcolor, when the item is selected/checked (radio-buttons)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("",2)
				.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
				With .Items
					With .Add("Radio 1")
						.HotBackColor = RGB(255,255,255)
						.SelBackColor = RGB(255,0,0)
						.SelHotBackColor = RGB(255,0,0)
						.ShowCheckedAsSelected = 1
						.Radio = 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 = 1
						.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
End Function
</SCRIPT>
</BODY>

93:
How can I change the item's background/backcolor, when the item is selected/checked (check-box)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("Check 1")
				.HotBackColor = RGB(255,255,255)
				.SelBackColor = RGB(255,0,0)
				.SelHotBackColor = RGB(255,0,0)
				.ShowCheckedAsSelected = 1
				.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
End Function
</SCRIPT>
</BODY>

92:
How can I prevent showing the border for selected/highlight/hot items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.Background(102) = RGB(255,255,255)
		With .Items
			.Add "Item"
			.Add "Item"
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

91:
How can I change the item's background/backcolor, when the cursor hovers it (hot)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			.Add("Item").HotBackColor = RGB(255,0,0)
			.Add("").ToString = "Item[bghot=RGB(255,0,0)]"
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

90:
How can I change the item's background/backcolor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

89:
How can I specify/assign the item's identifier

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

88:
How can I show a horizontal separator/line between groups (method 3,EBN color)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		With .Items
			With .Add("",2)
				.GroupPopup = 259 ' GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
				With .Items
					With .Add("")
						.AllowEdit = 3
						.EditBorder = 0
						.EditWidth = -128
						.EditValue = 25
					End With
					With .Add("")
						.Enabled = False
						.BackColor = &H1000000
						.ItemHeight = 8
						.CaptionWidth = 128
					End With
					With .Add("")
						.AllowEdit = 3
						.EditBorder = 0
						.EditWidth = -128
						.EditValue = 25
					End With
				End With
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

87:
How can I show a horizontal separator/line between groups (method 2,solid color)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("",2)
				.GroupPopup = 259 ' GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
				With .Items
					With .Add("")
						.AllowEdit = 3
						.EditBorder = 0
						.EditWidth = -128
						.EditValue = 25
					End With
					With .Add("")
						.Enabled = False
						.BackColor = RGB(128,128,128)
						.ItemHeight = 8
						.CaptionWidth = 128
					End With
					With .Add("")
						.AllowEdit = 3
						.EditBorder = 0
						.EditWidth = -128
						.EditValue = 25
					End With
				End With
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

86:
How can I show a horizontal separator/line between groups (method 1,pattern)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("",2)
				.GroupPopup = 259 ' GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
				With .Items
					With .Add("")
						.AllowEdit = 3
						.EditBorder = 0
						.EditWidth = -128
						.EditValue = 25
					End With
					With .Add("",2)
						.GroupPopup = 3 ' 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 = 3
						.EditBorder = 0
						.EditWidth = -128
						.EditValue = 25
					End With
				End With
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

85:
How can I show a vertical separator/line between groups (method 3,EBN color)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		With .Items
			With .Add("",2)
				.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
				With .Items
					With .Add("")
						.ItemHeight = 128
						.AllowEdit = 1027 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
						.EditBorder = 0
						.EditWidth = 32
						.EditValue = 25
					End With
					With .Add("")
						.Enabled = False
						.BackColor = &H1000000
						.ItemHeight = 96
						.CaptionWidth = 8
					End With
					With .Add("")
						.ItemHeight = 128
						.AllowEdit = 1027 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
						.EditBorder = 0
						.EditWidth = 32
						.EditValue = 25
					End With
				End With
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

84:
How can I show a vertical separator/line between groups (method 2,solid color)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("",2)
				.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
				With .Items
					With .Add("")
						.ItemHeight = 128
						.AllowEdit = 1027 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
						.EditBorder = 0
						.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 = 1027 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
						.EditBorder = 0
						.EditWidth = 32
						.EditValue = 25
					End With
				End With
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

83:
How can I show a vertical separator/line between groups (method 1,pattern)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("",2)
				.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
				With .Items
					With .Add("")
						.ItemHeight = 128
						.AllowEdit = 1027 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
						.EditBorder = 0
						.EditWidth = 32
						.EditValue = 25
					End With
					With .Add("",2)
						.GroupPopup = 3 ' 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 = 1027 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
						.EditBorder = 0
						.EditWidth = 32
						.EditValue = 25
					End With
				End With
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

82:
How can I show a pattern on the items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("",2)
				.GroupPopup = 3 ' 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
End Function
</SCRIPT>
</BODY>

81:
How can I show a thick frame arround the items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("",2)
				.GroupPopup = 3 ' 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
End Function
</SCRIPT>
</BODY>

80:
How can I add some additional icons on the background

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 1
				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
End Function
</SCRIPT>
</BODY>

79:
How can I add some additional text on the background

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("",2)
				.GroupPopup = 1
				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
End Function
</SCRIPT>
</BODY>

78:
How can I assign a tooltip to an item (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

77:
How can I assign a tooltip to an item (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.Items.Add("ToolTip").Tooltip = "This is a bit of text that should be shown when cursor hovers the item"
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

76:
How can I assign a spin field to the item (method 2)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("Spin")
				.AllowEdit = 512
				.EditWidth = 16
				.EditValue = 15
				.EditBorder = 0
				.EditOption(2) = 1000
			End With
			With .Add("Edit-Spin")
				.AllowEdit = 513 ' AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditText
				.EditWidth = -128
				.EditValue = 15
				.EditOption(2) = 1000
			End With
			With .Add("Splider-Spin")
				.AllowEdit = 515 ' AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditSlider
				.EditWidth = -128
				.EditValue = 25
				.EditBorder = 0
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

75:
How can I assign a spin field to the item (method 1)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

74:
How can I add a vertical slider (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.ToString = "Vertical[id=10][edittype=0x0403][edit=25][border=0][height=128]"
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

73:
How can I add a vertical slider (method 1)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("Vertical")
				.ItemHeight = 128
				.AllowEdit = 1027 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
				.EditBorder = 0
				.EditWidth = 32
				.EditValue = 25
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

72:
How can I disable an editor (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.ToString = "Disabled[id=10][dis][edittype=0x01][edit=text-box][editwidth=-128]"
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

71:
How can I disable an editor (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("Disabled")
				.AllowEdit = 1
				.EditWidth = -128
				.EditValue = "text-box"
				.Enabled = False
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

70:
How can I lock an editor (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.ToString = "Locked[id=10][edittype=0x0101][edit=disabled text-box][editwidth=-128]"
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

69:
How can I lock an editor (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("Locked")
				.AllowEdit = 257 ' AllowEditEnum.exItemEditReadOnly Or AllowEditEnum.exItemEditText
				.EditWidth = -128
				.EditValue = "disabled text-box"
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

68:
How can I assign a font field to the item (method 2)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("Font")
				.AllowEdit = 7
				.EditWidth = -128
				.EditValue = "Tahoma"
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

67:
How can I assign a font field to the item (method 1)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.ToString = "Font[id=10][edittype=0x07][edit=Tahoma][editwidth=-128]"
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

66:
How can I assign a color field to the item (method 2)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("Color")
				.AllowEdit = 6
				.EditBorder = 0
				.EditWidth = -128
				.EditValue = 255
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

65:
How can I assign a color field to the item (method 1)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.ToString = "Color[id=10][edittype=0x06][edit=#FF0000][border=0][editwidth=-128]"
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

64:
How can I assign a scrollbar field to the item (method 2)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("ScrollBar")
				.AllowEdit = 5
				.EditWidth = -128
				.EditValue = "25"
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

63:
How can I assign a scrollbar field to the item (method 1)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.ToString = "ScrollBar[id=10][edittype=0x05][edit=25][editwidth=-128]"
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

62:
Is it possible to change the tooltip beging shown when I change the slider/scroll/progress value

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("Progress")
				.AllowEdit = 4
				.EditWidth = -128
				.EditValue = 25
				.EditOption(8) = "`Current value is: ` + value"
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

61:
How can I hide the tooltip beging shown when I change the slider/scroll/progress value
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("Progress")
				.AllowEdit = 4
				.EditWidth = -128
				.EditValue = 25
				.EditOption(8) = ""
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

60:
How can I assign a progress field to the item (method 2)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("Progress")
				.AllowEdit = 4
				.EditWidth = -128
				.EditValue = 25
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

59:
How can I assign a progress field to the item (method 1)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.ToString = "Progress[id=10][edittype=0x04][edit=25][editwidth=-128]"
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

58:
How can I assign a slider field to the item (method 2)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("Slider")
				.AllowEdit = 3
				.EditWidth = -128
				.EditValue = 25
			End With
			With .Add("Slider")
				.AllowEdit = 3
				.EditBorder = 0
				.EditWidth = -128
				.EditOption(1) = 50
				.EditOption(2) = 450
				.EditOption(3) = 2
				.EditOption(4) = 50
				.EditOption(5) = "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
End Function
</SCRIPT>
</BODY>

57:
How can I assign a slider field to the item (method 1)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

56:
How can I assign a mask (time) field to the item (method 2)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("Time")
				.AllowEdit = 2
				.EditWidth = -128
				.EditMask = "99:00:00;;0;overtype,warning=Invalid character"
				.EditValue = "123456"
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

55:
How can I assign a mask (time) field to the item (method 1)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

54:
How can I assign a mask (license key) field to the item (method 2)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("License Key")
				.AllowEdit = 2
				.EditWidth = -128
				.EditMask = "AAAA-AAAA-AAAA-AAAA"
				.EditValue = "1234"
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

53:
How can I assign a mask (license key) field to the item (method 1)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.ToString = "License Key[id=10][edittype=0x02][edit=1234-____-____-____][mask=AAAA-AAAA-AAAA-AAAA][editwidth=-128]"
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

52:
How can I assign a mask (IP address) field to the item (method 2)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("IP Address")
				.AllowEdit = 2
				.EditWidth = -128
				.EditMask = "{0,255}.{0,255}.{0,255}.{0,255}"
				.EditValue = "1.2.3.4"
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

51:
How can I assign a mask (IP address) field to the item (method 1)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

50:
How can I assign a mask (phone) field to the item (method 2)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("Phone")
				.AllowEdit = 2
				.EditWidth = -128
				.EditMask = "!(9999) 000 000;;;empty,select=4,overtype,beep"
				.EditValue = "0771638317"
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

49:
How can I assign a mask (phone) field to the item (method 1)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

48:
How can I assign a mask (date) field to the item (method 2)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("")
				.AllowEdit = 2
				.EditWidth = -128
				.EditMask = "`Date: `{1,12}/{1,31}/{1950,2050};;;select=1"
				.EditValue = #2/15/2015#
			End With
			With .Add("Date")
				.AllowEdit = 2
				.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
End Function
</SCRIPT>
</BODY>

47:
How can I assign a mask (date) field to the item (method 1)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

46:
How can I assign a mask (integer) field to the item (method 2)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("Integer")
				.AllowEdit = 2
				.EditWidth = -128
				.EditMask = ";;;float,grouping=,digits=0"
				.EditValue = 1000
			End With
			With .Add("Integer-Grouping")
				.AllowEdit = 2
				.EditWidth = -128
				.EditMask = ";;;float,decimal=,digits=0,select=1"
				.EditValue = 1000
			End With
			With .Add("Integer-In-Range")
				.AllowEdit = 2
				.EditWidth = -128
				.EditMask = "{0,2050}"
				.EditValue = 1000
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

45:
How can I assign a mask (integer) field to the item (method 1)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

44:
How can I assign a mask field to the item (method 2)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("Mask")
				.AllowEdit = 2
				.EditWidth = -128
				.EditMask = ";;;float,select=1"
				.EditValue = 1000
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

43:
How can I assign a mask field to the item (method 1)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.ToString = "Text-Box[id=10][edittype=0x02][edit=1,000][mask=;;;float,select=1][editwidth=-128]"
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

42:
How can I assign an edit / text-box to the item (method 2)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("Mask")
				.AllowEdit = 1
				.EditValue = "this is a text"
				.EditWidth = -128
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

41:
How can I assign an edit / text-box to the item (method 1)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExContextMenu1_EditChange(Itm)
	With ExContextMenu1
		alert( Itm )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.ToString = "Text-Box[edit=this is a text][editwidth=-128]"
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

40:
How can I display a tab into the context menu (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.Background(102) = 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
End Function
</SCRIPT>
</BODY>

39:
How can I add check-buttons to items, without showing the check-box (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("",2)
				.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
				With .Items
					With .Add("Check 1")
						.Check = True
						.Checked = True
						.ShowCheckedAsSelected = 1
					End With
					With .Add("Check 2")
						.Check = True
						.ShowCheckedAsSelected = 1
					End With
					With .Add("Check 3")
						.Check = True
						.Checked = True
						.ShowCheckedAsSelected = 1
					End With
				End With
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

38:
How can I add check-buttons to items, without showing the check-box (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

37:
How can I add radio buttons to items, without showing the radio-buttons (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("",2)
				.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
				With .Items
					With .Add("Radio 1",,1000)
						.ShowCheckedAsSelected = 1
						.Radio = True
						.RadioGroup = 100
					End With
					With .Add("Radio 2",,1001)
						.ShowCheckedAsSelected = 1
						.Radio = True
						.RadioGroup = 100
					End With
					With .Add("Radio 2",,1003)
						.ShowCheckedAsSelected = 1
						.Radio = True
						.RadioGroup = 100
					End With
					.item(1000).Checked = True
				End With
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

36:
How can I add radio buttons to items, without showing the radio-buttons (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

35:
How can I add check-buttons to items (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("",2)
				.GroupPopup = 3 ' 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
End Function
</SCRIPT>
</BODY>

34:
How can I add check-buttons to items (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.ToString = "[group=0x3](Check 1[chk=1],Check 2[chk=0])"
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

33:
How can I add radio buttons to items (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("",2)
				.GroupPopup = 1
				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
End Function
</SCRIPT>
</BODY>

32:
How can I add radio buttons to items (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

31:
How can I change the selection/highlighting color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.SelBackColor = RGB(0,0,0)
		.Background(102) = RGB(128,0,0)
		.Background(111) = RGB(255,255,255)
		.ToString = "[group=3](Item 1[chk],Item 2[chk])"
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

30:
How can I prevent showing/hide the border on the selected/highlighted item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.Background(102) = .SelBackColor
		.ToString = "Item 1,Item 2"
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

29:
How can I display a tab into the context menu (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.Background(102) = 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
End Function
</SCRIPT>
</BODY>

28:
How do I prevent highlighting the item (method 2.b)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			.Add("No highlight").Enabled = False
			.Add "Item 2"
			.Add "Item 3"
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

27:
How do I prevent highlighting the item (method 2.a)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("No highlight",2)
				.Items.Add ""
				.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			End With
			.Add "Item 2"
			.Add "Item 3"
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

26:
How do I prevent highlighting the item (method 1.b)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.Items.ToString = "No highlight[dis],Item 2,Item 3"
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

25:
How do I prevent highlighting the item (method 1.a)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.Items.ToString = "No highlight[group=0x3][arrow=0]([]),Item 2,Item 3"
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

24:
How can I can I assign pictures or images for the item (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

23:
How can I can I assign pictures or images for the item (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

22:
How can I can I assign icons for the item (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

21:
How can I can I assign icons for the item (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

20:
How can I change the visual appearance / background color (EBN) for a collection of items/group (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

19:
How can I change the visual appearance / background color (EBN) for a collection of items/group (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

18:
How can I change the background color for a collection of items/group (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

17:
How can I change the background color for a collection of items/group (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

16:
How can I change the visual appearance / background color (EBN) for a specified item (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

15:
How can I change the visual appearance / background color (EBN) for a specified item (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Items.ToString = "Item 1,Item 2[bg=0x1000000],Item 3"
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

14:
How can I change the background color for a specified item (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			.Add "Item 1"
			.Add("Item 2").BackColor = RGB(255,0,0)
			.Add "Item 3"
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

13:
How can I change the background color for a specified item (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.Items.ToString = "Item 1,Item 2[bg=RGB(255,0,0)],Item 3"
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

12:
How do I add a popup or a sub-menu so it show when cursor hovers it (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

11:
How do I add a popup or a sub-menu so it show when cursor hovers it (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.Items.ToString = "Popup(Item 1,Item 2,Item 3)"
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

10:
How can I arrange the items by grouping (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("",2)
				.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
				With .Items
					With .Add("Horizontal",2)
						.GroupPopup = 1
						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 = 1
						.GroupPopup = 257 ' 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
End Function
</SCRIPT>
</BODY>

9:
How can I arrange the items by grouping (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

8:
How can I arrange some items vertically, and some horizontally (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("",2)
				With .Items
					.Add "1"
					.Add "2"
					.Add "3"
				End With
				.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			End With
			With .Add("",2)
				With .Items
					.Add "4"
					.Add "5"
					.Add "6"
				End With
				.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			End With
			With .Add("",2)
				With .Items
					.Add "7"
					.Add "8"
					.Add "9"
				End With
				.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

7:
How can I arrange some items vertically, and some horizontally (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.Items.ToString = "[group=3](1,2,3),[group=3](4,5,6),[group=3](7,8,9)"
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

6:
How can I assign multiple-lines to an item (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

5:
How can I assign multiple-lines to an item (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.Items.ToString = "[group=3](Item <br><c><b>1,Item <br><c><b>2,Item <br><c><b>3)"
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

4:
How can I add new items arranged horizontally to the context menu (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			With .Add("",2)
				With .Items
					.Add "Item 1"
					.Add "Item 2"
					.Add "Item 3"
				End With
				.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
			End With
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

3:
How can I add new items arranged horizontally to the context menu (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.Items.ToString = "[group=3](Item 1,Item 2,Item 3)"
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

2:
How can I add new items to the context menu (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		With .Items
			.Add "Item 1"
			.Add "Item 2"
			.Add "Item 3"
		End With
		.Select 
	End With
End Function
</SCRIPT>
</BODY>

1:
How can I add new items to the context menu (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:2DFBF6CB-9198-4576-AB91-EE6445C1F3E0" id="ExContextMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExContextMenu1
		.Items.ToString = "Item 1,Item 2,Item 3"
		.Select 
	End With
End Function
</SCRIPT>
</BODY>