112:
How can I display a chart/organigram view inside

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		With .Items
			.Add "File"
			With .Add("OrgChart",3).SubControl
				.ControlID = "Exontrol.ChartView"
				.Width = 128
				.Height = 164
				.Create 
				With .Object
					.IndentSiblingY = 30
					.ShowLinksDir = True
					.PenWidthLink = 2
					.LinkColor = RGB(0,0,0)
					.AntiAliasing = True
					With .Nodes
						.Add("L1_A",,"LA").ShowLinkDir = False
						.Add "L1_B",,"LB"
						.Add "L2_A","LA","LA2"
						.Add "L2_B","LB","LB2"
					End With
				End With
			End With
			.Add "Close"
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

111:
How do I uncheck the item

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExMenu1_Select(ID)
	' Item(ID).Check = False
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		With .Items
			With .Add("Horizontal View",,210)
				.Check = True
				.CheckEffect = False
			End With
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

110:
How do I get the identifier of the item being clicked / selected

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExMenu1_Select(ID)
	With ExMenu1
		alert( "Using ID parameter:" )
		alert( ID )
		alert( "Using the EventParam property: " )
		alert( .EventParam(0) )
		alert( "Using the ExecuteTemplate property: " )
		alert( .ExecuteTemplate("EventParam(0)") )
		.Template = "EventParam(0)"
		alert( "Using TemplateResult property:" )
		alert( .TemplateResult )
		alert( "Using TemplateResultN property:" )
		alert( .TemplateResultN )
		alert( "Using TemplateResultS property:" )
		alert( .TemplateResultS )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Items.ToString = "A[id=10](B[id=20],C[id=30](D[id=40],E[id=50]),F[id=60])"
	End With
End Function
</SCRIPT>
</BODY>

109:
How can I assign an icon to an item using an external ICO file

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.HTMLPicture("ico1") = "C:\Program Files\Exontrol\ExMenu\Sample\VC\Sample\res\sample.ico"
		.Items.Add "<img>ico1:16</img> Caption"
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

108:
How can I assign an icon to an item using an external ICO file

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.ReplaceIcon ExMenu1.ExecuteTemplate("loadpicture(`C:\Program Files\Exontrol\ExMenu\Sample\VC\Sample\res\sample.ico`)")
		.Items.Add("Caption",0).Image = 0
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

107:
How can I assign a tooltip for an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		With .Items.Add("Popup",2).SubMenu
			With .Add("ToolTip     CTRL + <b>F</b>")
				.Tooltip = "This is a bit of text that should be displayed when the cursor hovers the item"
				.TooltipTitle = "Title"
			End With
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

106:
How can I specify some keys on the right of the item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		With .Items.Add("Popup",2).SubMenu
			.Add "File     CTRL + <b>F</b>"
			.Add "Left should be a long text"
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

105:
How do I specify the item's alignment

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		With .Items.Add("Popup",2).SubMenu
			.Add "Left<r>Right"
			.Add "Left should be a long text"
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

104:
How do I specify the item's alignment

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		With .Items.Add("Popup",2).SubMenu
			.Add("Center").Alignment = 1
			.Add("Right").Alignment = 2
			.Add "Left should be a long text"
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

103:
How can I remove the border of the item's text box or an edit control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		With .Items.Add("Popup",2).SubMenu
			With .Add("Edit 1")
				.AllowEdit = True
				.EditCaption = "test"
				.EditWidth = 128
				.EditBorder = 0
			End With
			.Add("Edit 2").AllowEdit = True
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

102:
How can I specify a single border for the item's text box or an edit control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		With .Items.Add("Popup",2).SubMenu
			With .Add("Edit 1")
				.AllowEdit = True
				.EditCaption = "test"
				.EditWidth = 128
				.EditBorder = 1
			End With
			.Add("Edit 2").AllowEdit = True
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

101:
How can I add a checkbox

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		With .Items.Add("Checked")
			.Check = True
			.CheckEffect = False
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

100:
How can I specify the shape of the cursor while it hovers an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		With .Items.Add("Popup",2).SubMenu
			.Add("Item 1").Cursor = "exHelp"
			.Add "Item 2"
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

99:
How can I specify the width for text box or an edit control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		With .Items.Add("Popup",2).SubMenu
			With .Add("Edit 1")
				.AllowEdit = True
				.EditCaption = "test"
				.EditWidth = 128
			End With
			.Add("Edit 2").AllowEdit = True
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

98:
How can I show or hide an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		With .Items.Add("Popup",2)
			With .SubMenu
				.Add "Visible"
				.Add("Hidden").Visible = False
			End With
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

97:
Is there any function to display the popup menu up not down

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Items.Add "Item"
		With .Items.Add("Popup",2)
			.ShowDown = False
			With .SubMenu
				.Add "Item <fgcolor=FF0000>1</fgcolor>"
				.Add("Item 2").Caption = "Item <fgcolor=FF0000>2</fgcolor>"
			End With
		End With
		.Items.Add "Item"
		.Appearance = 0
		.Border = 2
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

96:
How can I specify the item's foreground color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		With .Items.Add("Popup",2).SubMenu
			.Add "Item <fgcolor=FF0000>1</fgcolor>"
			.Add("Item 2").Caption = "Item <fgcolor=FF0000>2</fgcolor>"
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		With .Items.Add("Popup",2).SubMenu
			.Add("Item 1").ForeColor = RGB(255,0,0)
			.Add "Item 2"
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

94:
How can I specify the item's background color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		With .Items.Add("Popup",2).SubMenu
			.Add("Item 1").BackColor = RGB(255,0,0)
			.Add "Item 2"
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

93:
How can I add an item with a text box or an edit control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		With .Items.Add("Popup",2).SubMenu
			With .Add("Edit 1")
				.AllowEdit = True
				.EditCaption = "test"
			End With
			.Add("Edit 2").AllowEdit = True
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

92:
How can I add an item with a text box or an edit control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		With .Items.Add("Popup",2).SubMenu
			.Add("Edit 1").AllowEdit = True
			.Add("Edit 2").AllowEdit = True
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

91:
How can I add a bullet

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		With .Items.Add("Bullet")
			.Check = True
			.Bullet = True
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

90:
How can I add a checkbox

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Items.Add("Checked").Check = True
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

89:
How can I enable or disable an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Items.Add("Disabled").Enabled = False
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

88:
How can I display an icon

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.Items.Add("A").Image = 1
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

87:
How can I specify the item's identifier

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Items.Add("A").ID = 1000
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

86:
How can I specify the item's identifier

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Items.Add "A",0,1000
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

85:
How can I assign an extra data to an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
		.Items.item(10).UserData = "your data"
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

84:
How can I underline an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
		.Items.item(10).Caption = "Item <u>1</u>"
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

83:
How can I underline an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
		.Items.item(10).Underline = True
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

82:
How can I display as strikeout an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
		.Items.item(10).Caption = "Item <s>1</s>"
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

81:
How can I display as strikeout an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
		.Items.item(10).Strikeout = True
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

80:
How can I display as italic an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
		.Items.item(10).Caption = "Item <i>1</i>"
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

79:
How can I display as italic an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
		.Items.item(10).Italic = True
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

78:
How do I bold an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
		.Items.item(10).Caption = "Item <b>1</b>"
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

77:
How do I bold an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
		.Items.item(10).Bold = True
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

76:
How do I change the item's caption

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
		.Items.item(10).Caption = "new <b>caption</b>"
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

75:
How can I speciy the picture on the drop down menu

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
		.Items.item(10).SubMenu.Picture = ExMenu1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	End With
End Function
</SCRIPT>
</BODY>

74:
How can I speciy the number of visible items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
		.Items.item(10).SubMenu.VisibleItemsCount = 1
	End With
End Function
</SCRIPT>
</BODY>

73:
How can I speciy the shape of the cursor when it hovers the menu

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
		.Items.item(10).Cursor = "exHelp"
	End With
End Function
</SCRIPT>
</BODY>

72:
How can I add items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
	End With
End Function
</SCRIPT>
</BODY>

71:
How I can remove an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
		.Items.Remove 10
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

70:
How I can get the number or the count of the items in the menu

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
		With .Items
			.Add .Count
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

69:
How I can clear a menu

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
		.Items.Clear 
		.Items.ToString = "Item 1"
	End With
End Function
</SCRIPT>
</BODY>

68:
How do I specify to close an ActiveX item when user clicks it

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		With .Items.Add("Calendar",3).SubControl
			.ControlID = "MSCal.Calendar"
			.Width = 256
			.Height = 196
			.Create 
			With .Object
				.ShowDateSelectors = False
				.BackColor = RGB(239,239,231)
			End With
			.CloseOn = 514
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

67:
How can I access the properties and methods for an ActiveX item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		With .Items.Add("Calendar",3).SubControl
			.ControlID = "MSCal.Calendar"
			.Width = 256
			.Height = 196
			.Create 
			With .Object
				.ShowDateSelectors = False
				.BackColor = RGB(239,239,231)
			End With
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

66:
I can't see the ActiveX item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		With .Items.Add("Calendar",3).SubControl
			.ControlID = "MSCal.Calendar"
			.Create 
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

65:
How can I specify the runtime license key for an ActiveX item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		With .Items.Add("Calendar",3).SubControl
			.ControlID = "MSCal.Calendar"
			.LicenseKey = ""
			.Create 
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

64:
How can I specify the width and the height for an ActiveX item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		With .Items.Add("Calendar",3).SubControl
			.ControlID = "MSCal.Calendar"
			.Width = 256
			.Height = 256
			.Create 
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

63:
How can I select a date

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		With .Items.Add("Popup",2).SubMenu
			With .Add("Select a date",3).SubControl
				.ControlID = "MSComCtl2.DTPicker"
				.Width = 128
				.Height = 22
				.Create 
				With .Object
					.Format = 3
					.CustomFormat = "dd-MM-yyy"
					.Refresh 
				End With
			End With
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

62:
How can I add an ActiveX item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		With .Items.Add("Calendar",3).SubControl
			.ControlID = "MSCal.Calendar"
			.Create 
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

61:
How can I add a separator item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		With .Items.Add("Popup",2).SubMenu
			.Add "Item 1"
			.Add "",1
			.Add "Item 2"
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

60:
How can I add a popup or a submenu

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		With .Items.Add("Popup",2).SubMenu
			.Add "Item 1"
			.Add "Item 2"
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

59:
How can I add a new item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Items.Add "Item 1"
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

58:
How I can assign a picture or an icon to an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
		.ItemHeight(2) = 34
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
		.Items.item(10).Caption = "<img>pic1</img> <b>1</b>"
		.Items.item(60).Caption = "T <img>1</img> <img>2</img> and so on "
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

57:
How I can assign a picture to an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
		.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
		.Items.item(10).Caption = "<img>pic1</img> <b>1</b>"
		.Items.item(60).Caption = "<img>pic2</img> <b>2</b>"
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

56:
How do I call your x-script language

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Template = "Items.ToString = `Item 1,Item 2`"
	End With
End Function
</SCRIPT>
</BODY>

55:
How do I change the shape of the cursor whether it hovers the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Cursor = "exHelp"
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
	End With
End Function
</SCRIPT>
</BODY>

54:
How do I specify whether the item gets selected whether the user presses or releases the mouse

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.SelectOn = 0
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
	End With
End Function
</SCRIPT>
</BODY>

53:
How do I change the picture or icon for the chevrons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.ScrollImage(True) = 1
		.ScrollImage(False) = 2
		.AllowChevron = 1
		.Items.ToString = "Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item" & _
	" 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id" & _
	"=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]" & _
	"),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Ite" & _
	"m 1[id=20],[sep][id=30],Item 2[id=40])"
	End With
End Function
</SCRIPT>
</BODY>

52:
How do I specify the height for items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.ItemHeight(2) = 34
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
	End With
End Function
</SCRIPT>
</BODY>

51:
How do I change the picture or icon for the chevrons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.ChevronImage = 1
		.AllowChevron = -1
		.Items.ToString = "Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item" & _
	" 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id" & _
	"=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]" & _
	"),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Ite" & _
	"m 1[id=20],[sep][id=30],Item 2[id=40])"
	End With
End Function
</SCRIPT>
</BODY>

50:
How do I disable chevrons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.AllowChevron = 0
		.Items.ToString = "Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item" & _
	" 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id" & _
	"=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]" & _
	"),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Ite" & _
	"m 1[id=20],[sep][id=30],Item 2[id=40])"
	End With
End Function
</SCRIPT>
</BODY>

49:
How do I allow chevrons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.AllowChevron = 1
		.Items.ToString = "Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item" & _
	" 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id" & _
	"=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]" & _
	"),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Ite" & _
	"m 1[id=20],[sep][id=30],Item 2[id=40])"
	End With
End Function
</SCRIPT>
</BODY>

48:
How do I allow chevrons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.AllowChevron = -1
		.Items.ToString = "Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item" & _
	" 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id" & _
	"=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]" & _
	"),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Ite" & _
	"m 1[id=20],[sep][id=30],Item 2[id=40])"
	End With
End Function
</SCRIPT>
</BODY>

47:
How do I show directly the drop down menu, without scrolling

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.ScrollOnDrop = False
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
	End With
End Function
</SCRIPT>
</BODY>

46:
How can I change the visual appearance for for a top level item, when the Appearance property is Flat

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Background(2) = &H1000000
		.Appearance = 1
		.Border = 1
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
	End With
End Function
</SCRIPT>
</BODY>

45:
How can I change the visual appearance for an item, when the Appearance property is Button

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Background(1) = &H1000000
		.Appearance = 2
		.Border = 1
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
	End With
End Function
</SCRIPT>
</BODY>

44:
Can I change the visual appearance for separator items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Background(0) = &H1000000
		.Items.ToString = "Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40])"
	End With
End Function
</SCRIPT>
</BODY>

43:
Can I change the forecolor for the tooltip

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.ToolTipDelay = 1
		.ToolTipWidth = 364
		.Background(66) = RGB(255,0,0)
		.Items.ToString = "ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
		.Items.item(10).Tooltip = "Click the <b>ToolTip</b> and so the drop down menu will be shown"
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

42:
Can I change the background color for the tooltip

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.ToolTipDelay = 1
		.ToolTipWidth = 364
		.Background(65) = RGB(255,0,0)
		.Items.ToString = "ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
		.Items.item(10).Tooltip = "Click the <b>ToolTip</b> and so the drop down menu will be shown"
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

41:
Can I change the default border of the tooltip, using your EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.ToolTipDelay = 1
		.ToolTipWidth = 364
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Background(64) = &H1000000
		.Items.ToString = "ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
		.Items.item(10).Tooltip = "Click the <b>ToolTip</b> and so the drop down menu will be shown"
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

40:
Can I change the font for the tooltip

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.ToolTipDelay = 1
		With .ToolTipFont
			.Name = "Tahoma"
			.Size = 14
		End With
		.ToolTipWidth = 400
		.Items.ToString = "ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
		.Items.item(10).Tooltip = "Click the <b>ToolTip</b> and so the drop down menu will be shown"
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.ToolTipWidth = 328
		.Items.ToString = "ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
		.Items.item(10).Tooltip = "Click the <b>ToolTip</b> and so the drop down menu will open"
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

38:
How do I let the tooltip being displayed longer

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.ToolTipPopDelay = 10000
		.Items.ToString = "ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
		.Items.item(10).Tooltip = "Click the <b>ToolTip</b> and so the drop down menu will opene"
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

37:
How do I disable showing the tooltip for all control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.ToolTipDelay = 0
		.Items.ToString = "No-ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
		.Items.item(10).Tooltip = "Click the <b>ToolTip</b> and so the drop down menu will opene"
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

36:
How do I show the tooltip quicker

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.ToolTipDelay = 1
		.Items.ToString = "ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
		.Items.item(10).Tooltip = "Click the <b>ToolTip</b> and so the drop down menu will opene"
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

35:
How do I open the menu as user clicks the menu

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.OpenOnClick = 1
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
	End With
End Function
</SCRIPT>
</BODY>

34:
How do I open the menu as cursor hovers the menu bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.OpenOnClick = 0
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
	End With
End Function
</SCRIPT>
</BODY>

33:
Can I make the menu partialy visible

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Visibility = 90
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
	End With
End Function
</SCRIPT>
</BODY>

32:
How do I remove or clear the accelerator keys

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Debug = True
		.Items.ToString = "Item &1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem" & _
	" 2[id=80])"
		.AddAcelerator 10,49,False,True,False
	End With
End Function
</SCRIPT>
</BODY>

31:
How do I add or assign an accelerator key to an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Debug = True
		.Items.ToString = "Item &1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem" & _
	" 2[id=80])"
		.AddAcelerator 10,49,False,True,False
	End With
End Function
</SCRIPT>
</BODY>

30:
How can I load the items from a file
<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()

End Function
</SCRIPT>
</BODY>

29:
How can I save the items to a file
<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()

End Function
</SCRIPT>
</BODY>

28:
How do I put a picture on the center of the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Picture = ExMenu1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 17
	End With
End Function
</SCRIPT>
</BODY>

27:
How do I resize/stretch a picture on the control's background
<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Picture = ExMenu1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 49
	End With
End Function
</SCRIPT>
</BODY>

26:
How do I put a picture on the control's center right bottom side
<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Picture = ExMenu1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 34
	End With
End Function
</SCRIPT>
</BODY>

25:
How do I put a picture on the control's center left bottom side
<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Picture = ExMenu1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 32
	End With
End Function
</SCRIPT>
</BODY>

24:
How do I put a picture on the control's center top side
<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Picture = ExMenu1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 1
	End With
End Function
</SCRIPT>
</BODY>

23:
How do I put a picture on the control's right top corner
<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Picture = ExMenu1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 2
	End With
End Function
</SCRIPT>
</BODY>

22:
How do I put a picture on the control's left top corner
<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Picture = ExMenu1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 0
	End With
End Function
</SCRIPT>
</BODY>

21:
How do I put a picture on the control's background
<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Picture = ExMenu1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	End With
End Function
</SCRIPT>
</BODY>

20:
Is there any function to display the item's identifiers

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Debug = True
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
	End With
End Function
</SCRIPT>
</BODY>

19:
How do I find an item giving its name

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
		.item("Item 1").Bold = True
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

18:
How do I find an item giving its identifier

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
		.item(10).Bold = True
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

17:
How do I enable or disable the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Enabled = False
		.Items.Add "Item 1"
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

16:
How do I refresh the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Items.Add "Item 1"
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

15:
How do I change the color to highligth the selected item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.HighLightBorderColor = RGB(255,0,0)
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
	End With
End Function
</SCRIPT>
</BODY>

14:
How do I change the drop down, popup menu foreground color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.PopupForeColor = RGB(255,0,0)
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
	End With
End Function
</SCRIPT>
</BODY>

13:
How do I change the drop down, popup menu background color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.PopupBackColor = RGB(255,0,0)
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
	End With
End Function
</SCRIPT>
</BODY>

12:
How do I change the control's shadow color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.ShadowColor = RGB(255,0,0)
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
	End With
End Function
</SCRIPT>
</BODY>

11:
How do I place the control on vertical

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.OpenMode = 1
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
	End With
End Function
</SCRIPT>
</BODY>

10:
How do I change the control's appearance
<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Appearance = 2
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
	End With
End Function
</SCRIPT>
</BODY>

9:
How do I change the control's appearance

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Appearance = 0
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
	End With
End Function
</SCRIPT>
</BODY>

8:
How do I change the visual appearance effect for the selected item, using EBN

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.SelBackColor = &H1000000
		.SelForeColor = RGB(0,0,0)
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
	End With
End Function
</SCRIPT>
</BODY>

7:
How do I change the colors for the selected item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.SelBackColor = RGB(0,0,0)
		.SelForeColor = RGB(255,255,255)
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
	End With
End Function
</SCRIPT>
</BODY>

6:
How do I change the control's foreground color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.ForeColor = RGB(255,0,0)
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
	End With
End Function
</SCRIPT>
</BODY>

5:
How do I change the control's background color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.BackColor = RGB(200,200,200)
	End With
End Function
</SCRIPT>
</BODY>

4:
How can I change the control's font

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Font.Name = "Tahoma"
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
	End With
End Function
</SCRIPT>
</BODY>

3:
How do I change the drop down menu's border

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.Border = 1
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
	End With
End Function
</SCRIPT>
</BODY>

2:
How do I change the control's border, using your EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.MenuBarBorder = 16777216 ' &H1000000
		.Border = 16777216 ' &H1000000
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
	End With
End Function
</SCRIPT>
</BODY>

1:
How do I change the control's border

<BODY onload="Init()">
<OBJECT CLASSID="clsid:7BE68958-94A9-4BCF-B556-8B31738F6FC2" id="ExMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExMenu1
		.MenuBarBorder = 1
		.Items.ToString = "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem " & _
	"2[id=80])"
	End With
End Function
</SCRIPT>
</BODY>