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

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Get ComAdd of hoMenu "File" Nothing Nothing to Nothing
		Variant voitem
		Get ComAdd of hoMenu "OrgChart" 3 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voControl
			Get ComSubControl of hoitem to voControl
			Handle hoControl
			Get Create (RefClass(cComControl)) to hoControl
			Set pvComObject of hoControl to voControl
				Set ComControlID of hoControl to "Exontrol.ChartView"
				Set ComWidth of hoControl to 128
				Set ComHeight of hoControl to 164
				Send ComCreate of hoControl
				Variant voChartView
				Get ComObject of hoControl to voChartView
				Handle hoChartView
				Get Create (RefClass(cComChartView)) to hoChartView
				Set pvComObject of hoChartView to voChartView
					Set ComIndentSiblingY of hoChartView to 30
					Set ComShowLinksDir of hoChartView to True
					Set ComPenWidthLink of hoChartView to 2
					Set ComLinkColor of hoChartView to (RGB(0,0,0))
					Set ComAntiAliasing of hoChartView to True
					Variant voNodes
					Get ComNodes of hoChartView to voNodes
					Handle hoNodes
					Get Create (RefClass(cComNodes)) to hoNodes
					Set pvComObject of hoNodes to voNodes
						Variant voNode
						Get ComAdd of hoNodes "L1_A" "LA" Nothing Nothing to voNode
						Handle hoNode
						Get Create (RefClass(cComNode)) to hoNode
						Set pvComObject of hoNode to voNode
							Set ComShowLinkDir of hoNode to False
						Send Destroy to hoNode
						Get ComAdd of hoNodes "L1_B" "LB" Nothing Nothing to Nothing
						Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
						Get ComAdd of hoNodes "L2_B" "LB" "LB2" Nothing Nothing to Nothing
					Send Destroy to hoNodes
				Send Destroy to hoChartView
			Send Destroy to hoControl
		Send Destroy to hoitem
		Get ComAdd of hoMenu "Close" Nothing Nothing to Nothing
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
111:
How do I uncheck the item

// Occurs when an item is selected by clicking or by pressing RETURN key.
Procedure OnComSelect Integer llID
	Forward Send OnComSelect llID
	// Item(ID).Check = False
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Horizontal View" 210 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComCheck of hoitem to True
			Set ComCheckEffect of hoitem to False
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
110:
How do I get the identifier of the item being clicked / selected

// Occurs when an item is selected by clicking or by pressing RETURN key.
Procedure OnComSelect Integer llID
	Forward Send OnComSelect llID
	Showln "Using ID parameter:" llID
	Showln "Using the EventParam property: " (ComEventParam(Self,0))
	Showln "Using the ExecuteTemplate property: " (ComExecuteTemplate(Self,"EventParam(0)"))
	Set ComTemplate to "EventParam(0)"
	Showln "Using TemplateResult property:" (ComTemplateResult(Self))
	Showln "Using TemplateResultN property:" (ComTemplateResultN(Self))
	Showln "Using TemplateResultS property:" (ComTemplateResultS(Self))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "A[id=10](B[id=20],C[id=30](D[id=40],E[id=50]),F[id=60])"
	Send Destroy to hoMenu
End_Procedure
109:
How can I assign an icon to an item using an external ICO file

Procedure OnCreate
	Forward Send OnCreate
	Set ComHTMLPicture "ico1" to "C:\Program Files\Exontrol\ExMenu\Sample\VC\Sample\res\sample.ico"
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Get ComAdd of hoMenu "<img>ico1:16</img> Caption" Nothing Nothing to Nothing
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
108:
How can I assign an icon to an item using an external ICO file

Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`C:\Program Files\Exontrol\ExMenu\Sample\VC\Sample\res\sample.ico`)" to vPicture
	Get ComReplaceIcon (vPicture) Nothing to Nothing
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Caption" 0 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComImage of hoitem to 0
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
107:
How can I assign a tooltip for an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voMenu1
			Get ComSubMenu of hoitem to voMenu1
			Handle hoMenu1
			Get Create (RefClass(cComMenu)) to hoMenu1
			Set pvComObject of hoMenu1 to voMenu1
				Variant voitem1
				Get ComAdd of hoMenu1 "ToolTip     CTRL + <b>F</b>" Nothing Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComTooltip of hoitem1 to "This is a bit of text that should be displayed when the cursor hovers the item"
					Set ComTooltipTitle of hoitem1 to "Title"
				Send Destroy to hoitem1
			Send Destroy to hoMenu1
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
106:
How can I specify some keys on the right of the item

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voMenu1
			Get ComSubMenu of hoitem to voMenu1
			Handle hoMenu1
			Get Create (RefClass(cComMenu)) to hoMenu1
			Set pvComObject of hoMenu1 to voMenu1
				Get ComAdd of hoMenu1 "File     CTRL + <b>F</b>" Nothing Nothing to Nothing
				Get ComAdd of hoMenu1 "Left should be a long text" Nothing Nothing to Nothing
			Send Destroy to hoMenu1
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
105:
How do I specify the item's alignment

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voMenu1
			Get ComSubMenu of hoitem to voMenu1
			Handle hoMenu1
			Get Create (RefClass(cComMenu)) to hoMenu1
			Set pvComObject of hoMenu1 to voMenu1
				Get ComAdd of hoMenu1 "Left<r>Right" Nothing Nothing to Nothing
				Get ComAdd of hoMenu1 "Left should be a long text" Nothing Nothing to Nothing
			Send Destroy to hoMenu1
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
104:
How do I specify the item's alignment

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voMenu1
			Get ComSubMenu of hoitem to voMenu1
			Handle hoMenu1
			Get Create (RefClass(cComMenu)) to hoMenu1
			Set pvComObject of hoMenu1 to voMenu1
				Variant voitem1
				Get ComAdd of hoMenu1 "Center" Nothing Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComAlignment of hoitem1 to OLEexCenter
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoMenu1 "Right" Nothing Nothing to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComAlignment of hoitem2 to OLEexRight
				Send Destroy to hoitem2
				Get ComAdd of hoMenu1 "Left should be a long text" Nothing Nothing to Nothing
			Send Destroy to hoMenu1
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
103:
How can I remove the border of the item's text box or an edit control

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voMenu1
			Get ComSubMenu of hoitem to voMenu1
			Handle hoMenu1
			Get Create (RefClass(cComMenu)) to hoMenu1
			Set pvComObject of hoMenu1 to voMenu1
				Variant voitem1
				Get ComAdd of hoMenu1 "Edit 1" Nothing Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComAllowEdit of hoitem1 to True
					Set ComEditCaption of hoitem1 to "test"
					Set ComEditWidth of hoitem1 to 128
					Set ComEditBorder of hoitem1 to OLEexEditBorderNone
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoMenu1 "Edit 2" Nothing Nothing to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComAllowEdit of hoitem2 to True
				Send Destroy to hoitem2
			Send Destroy to hoMenu1
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
102:
How can I specify a single border for the item's text box or an edit control

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voMenu1
			Get ComSubMenu of hoitem to voMenu1
			Handle hoMenu1
			Get Create (RefClass(cComMenu)) to hoMenu1
			Set pvComObject of hoMenu1 to voMenu1
				Variant voitem1
				Get ComAdd of hoMenu1 "Edit 1" Nothing Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComAllowEdit of hoitem1 to True
					Set ComEditCaption of hoitem1 to "test"
					Set ComEditWidth of hoitem1 to 128
					Set ComEditBorder of hoitem1 to OLEexEditBorderSingle
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoMenu1 "Edit 2" Nothing Nothing to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComAllowEdit of hoitem2 to True
				Send Destroy to hoitem2
			Send Destroy to hoMenu1
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
101:
How can I add a checkbox

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Checked" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComCheck of hoitem to True
			Set ComCheckEffect of hoitem to False
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
100:
How can I specify the shape of the cursor while it hovers an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voMenu1
			Get ComSubMenu of hoitem to voMenu1
			Handle hoMenu1
			Get Create (RefClass(cComMenu)) to hoMenu1
			Set pvComObject of hoMenu1 to voMenu1
				Variant voitem1
				Get ComAdd of hoMenu1 "Item 1" Nothing Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComCursor of hoitem1 to "exHelp"
				Send Destroy to hoitem1
				Get ComAdd of hoMenu1 "Item 2" Nothing Nothing to Nothing
			Send Destroy to hoMenu1
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
99:
How can I specify the width for text box or an edit control

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voMenu1
			Get ComSubMenu of hoitem to voMenu1
			Handle hoMenu1
			Get Create (RefClass(cComMenu)) to hoMenu1
			Set pvComObject of hoMenu1 to voMenu1
				Variant voitem1
				Get ComAdd of hoMenu1 "Edit 1" Nothing Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComAllowEdit of hoitem1 to True
					Set ComEditCaption of hoitem1 to "test"
					Set ComEditWidth of hoitem1 to 128
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoMenu1 "Edit 2" Nothing Nothing to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComAllowEdit of hoitem2 to True
				Send Destroy to hoitem2
			Send Destroy to hoMenu1
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
98:
How can I show or hide an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voMenu1
			Get ComSubMenu of hoitem to voMenu1
			Handle hoMenu1
			Get Create (RefClass(cComMenu)) to hoMenu1
			Set pvComObject of hoMenu1 to voMenu1
				Get ComAdd of hoMenu1 "Visible" Nothing Nothing to Nothing
				Variant voitem1
				Get ComAdd of hoMenu1 "Hidden" Nothing Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComVisible of hoitem1 to False
				Send Destroy to hoitem1
			Send Destroy to hoMenu1
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
97:
Is there any function to display the popup menu up not down

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Get ComAdd of hoMenu "Item" Nothing Nothing to Nothing
	Send Destroy to hoMenu
	Variant voMenu1
	Get ComItems to voMenu1
	Handle hoMenu1
	Get Create (RefClass(cComMenu)) to hoMenu1
	Set pvComObject of hoMenu1 to voMenu1
		Variant voitem
		Get ComAdd of hoMenu1 "Popup" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComShowDown of hoitem to False
			Variant voMenu2
			Get ComSubMenu of hoitem to voMenu2
			Handle hoMenu2
			Get Create (RefClass(cComMenu)) to hoMenu2
			Set pvComObject of hoMenu2 to voMenu2
				Get ComAdd of hoMenu2 "Item <fgcolor=FF0000>1</fgcolor>" Nothing Nothing to Nothing
				Variant voitem1
				Get ComAdd of hoMenu2 "Item 2" Nothing Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComCaption of hoitem1 to "Item <fgcolor=FF0000>2</fgcolor>"
				Send Destroy to hoitem1
			Send Destroy to hoMenu2
		Send Destroy to hoitem
	Send Destroy to hoMenu1
	Variant voMenu3
	Get ComItems to voMenu3
	Handle hoMenu3
	Get Create (RefClass(cComMenu)) to hoMenu3
	Set pvComObject of hoMenu3 to voMenu3
		Get ComAdd of hoMenu3 "Item" Nothing Nothing to Nothing
	Send Destroy to hoMenu3
	Set ComAppearance to OLENormal
	Set ComBorder to OLESunkenBorder
	Send ComRefresh
End_Procedure
96:
How can I specify the item's foreground color

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voMenu1
			Get ComSubMenu of hoitem to voMenu1
			Handle hoMenu1
			Get Create (RefClass(cComMenu)) to hoMenu1
			Set pvComObject of hoMenu1 to voMenu1
				Get ComAdd of hoMenu1 "Item <fgcolor=FF0000>1</fgcolor>" Nothing Nothing to Nothing
				Variant voitem1
				Get ComAdd of hoMenu1 "Item 2" Nothing Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComCaption of hoitem1 to "Item <fgcolor=FF0000>2</fgcolor>"
				Send Destroy to hoitem1
			Send Destroy to hoMenu1
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
95:
How can I specify the item's foreground color

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voMenu1
			Get ComSubMenu of hoitem to voMenu1
			Handle hoMenu1
			Get Create (RefClass(cComMenu)) to hoMenu1
			Set pvComObject of hoMenu1 to voMenu1
				Variant voitem1
				Get ComAdd of hoMenu1 "Item 1" Nothing Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComForeColor of hoitem1 to (RGB(255,0,0))
				Send Destroy to hoitem1
				Get ComAdd of hoMenu1 "Item 2" Nothing Nothing to Nothing
			Send Destroy to hoMenu1
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
94:
How can I specify the item's background color

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voMenu1
			Get ComSubMenu of hoitem to voMenu1
			Handle hoMenu1
			Get Create (RefClass(cComMenu)) to hoMenu1
			Set pvComObject of hoMenu1 to voMenu1
				Variant voitem1
				Get ComAdd of hoMenu1 "Item 1" Nothing Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComBackColor of hoitem1 to (RGB(255,0,0))
				Send Destroy to hoitem1
				Get ComAdd of hoMenu1 "Item 2" Nothing Nothing to Nothing
			Send Destroy to hoMenu1
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
93:
How can I add an item with a text box or an edit control

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voMenu1
			Get ComSubMenu of hoitem to voMenu1
			Handle hoMenu1
			Get Create (RefClass(cComMenu)) to hoMenu1
			Set pvComObject of hoMenu1 to voMenu1
				Variant voitem1
				Get ComAdd of hoMenu1 "Edit 1" Nothing Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComAllowEdit of hoitem1 to True
					Set ComEditCaption of hoitem1 to "test"
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoMenu1 "Edit 2" Nothing Nothing to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComAllowEdit of hoitem2 to True
				Send Destroy to hoitem2
			Send Destroy to hoMenu1
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
92:
How can I add an item with a text box or an edit control

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voMenu1
			Get ComSubMenu of hoitem to voMenu1
			Handle hoMenu1
			Get Create (RefClass(cComMenu)) to hoMenu1
			Set pvComObject of hoMenu1 to voMenu1
				Variant voitem1
				Get ComAdd of hoMenu1 "Edit 1" Nothing Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComAllowEdit of hoitem1 to True
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoMenu1 "Edit 2" Nothing Nothing to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComAllowEdit of hoitem2 to True
				Send Destroy to hoitem2
			Send Destroy to hoMenu1
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
91:
How can I add a bullet

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Bullet" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComCheck of hoitem to True
			Set ComBullet of hoitem to True
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
90:
How can I add a checkbox

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Checked" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComCheck of hoitem to True
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
89:
How can I enable or disable an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Disabled" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComEnabled of hoitem to False
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
88:
How can I display an icon

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "A" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComImage of hoitem to 1
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
87:
How can I specify the item's identifier

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "A" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComID of hoitem to 1000
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
86:
How can I specify the item's identifier

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Get ComAdd of hoMenu "A" 0 1000 to Nothing
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
85:
How can I assign an extra data to an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
	Variant voMenu1
	Get ComItems to voMenu1
	Handle hoMenu1
	Get Create (RefClass(cComMenu)) to hoMenu1
	Set pvComObject of hoMenu1 to voMenu1
		Variant voitem
		Get Comitem of hoMenu1 10 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComUserData of hoitem to "your data"
		Send Destroy to hoitem
	Send Destroy to hoMenu1
	Send ComRefresh
End_Procedure
84:
How can I underline an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
	Variant voMenu1
	Get ComItems to voMenu1
	Handle hoMenu1
	Get Create (RefClass(cComMenu)) to hoMenu1
	Set pvComObject of hoMenu1 to voMenu1
		Variant voitem
		Get Comitem of hoMenu1 10 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComCaption of hoitem to "Item <u>1</u>"
		Send Destroy to hoitem
	Send Destroy to hoMenu1
	Send ComRefresh
End_Procedure
83:
How can I underline an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
	Variant voMenu1
	Get ComItems to voMenu1
	Handle hoMenu1
	Get Create (RefClass(cComMenu)) to hoMenu1
	Set pvComObject of hoMenu1 to voMenu1
		Variant voitem
		Get Comitem of hoMenu1 10 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComUnderline of hoitem to True
		Send Destroy to hoitem
	Send Destroy to hoMenu1
	Send ComRefresh
End_Procedure
82:
How can I display as strikeout an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
	Variant voMenu1
	Get ComItems to voMenu1
	Handle hoMenu1
	Get Create (RefClass(cComMenu)) to hoMenu1
	Set pvComObject of hoMenu1 to voMenu1
		Variant voitem
		Get Comitem of hoMenu1 10 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComCaption of hoitem to "Item <s>1</s>"
		Send Destroy to hoitem
	Send Destroy to hoMenu1
	Send ComRefresh
End_Procedure
81:
How can I display as strikeout an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
	Variant voMenu1
	Get ComItems to voMenu1
	Handle hoMenu1
	Get Create (RefClass(cComMenu)) to hoMenu1
	Set pvComObject of hoMenu1 to voMenu1
		Variant voitem
		Get Comitem of hoMenu1 10 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComStrikeout of hoitem to True
		Send Destroy to hoitem
	Send Destroy to hoMenu1
	Send ComRefresh
End_Procedure
80:
How can I display as italic an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
	Variant voMenu1
	Get ComItems to voMenu1
	Handle hoMenu1
	Get Create (RefClass(cComMenu)) to hoMenu1
	Set pvComObject of hoMenu1 to voMenu1
		Variant voitem
		Get Comitem of hoMenu1 10 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComCaption of hoitem to "Item <i>1</i>"
		Send Destroy to hoitem
	Send Destroy to hoMenu1
	Send ComRefresh
End_Procedure
79:
How can I display as italic an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
	Variant voMenu1
	Get ComItems to voMenu1
	Handle hoMenu1
	Get Create (RefClass(cComMenu)) to hoMenu1
	Set pvComObject of hoMenu1 to voMenu1
		Variant voitem
		Get Comitem of hoMenu1 10 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComItalic of hoitem to True
		Send Destroy to hoitem
	Send Destroy to hoMenu1
	Send ComRefresh
End_Procedure
78:
How do I bold an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
	Variant voMenu1
	Get ComItems to voMenu1
	Handle hoMenu1
	Get Create (RefClass(cComMenu)) to hoMenu1
	Set pvComObject of hoMenu1 to voMenu1
		Variant voitem
		Get Comitem of hoMenu1 10 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComCaption of hoitem to "Item <b>1</b>"
		Send Destroy to hoitem
	Send Destroy to hoMenu1
	Send ComRefresh
End_Procedure
77:
How do I bold an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
	Variant voMenu1
	Get ComItems to voMenu1
	Handle hoMenu1
	Get Create (RefClass(cComMenu)) to hoMenu1
	Set pvComObject of hoMenu1 to voMenu1
		Variant voitem
		Get Comitem of hoMenu1 10 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComBold of hoitem to True
		Send Destroy to hoitem
	Send Destroy to hoMenu1
	Send ComRefresh
End_Procedure
76:
How do I change the item's caption

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
	Variant voMenu1
	Get ComItems to voMenu1
	Handle hoMenu1
	Get Create (RefClass(cComMenu)) to hoMenu1
	Set pvComObject of hoMenu1 to voMenu1
		Variant voitem
		Get Comitem of hoMenu1 10 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComCaption of hoitem to "new <b>caption</b>"
		Send Destroy to hoitem
	Send Destroy to hoMenu1
	Send ComRefresh
End_Procedure
75:
How can I speciy the picture on the drop down menu

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
	Variant voMenu1
	Get ComItems to voMenu1
	Handle hoMenu1
	Get Create (RefClass(cComMenu)) to hoMenu1
	Set pvComObject of hoMenu1 to voMenu1
		Variant voitem
		Get Comitem of hoMenu1 10 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voMenu2
			Get ComSubMenu of hoitem to voMenu2
			Handle hoMenu2
			Get Create (RefClass(cComMenu)) to hoMenu2
			Set pvComObject of hoMenu2 to voMenu2
				Variant vPicture
				Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
				Set ComPicture of hoMenu2 to (vPicture)
			Send Destroy to hoMenu2
		Send Destroy to hoitem
	Send Destroy to hoMenu1
End_Procedure
74:
How can I speciy the number of visible items

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
	Variant voMenu1
	Get ComItems to voMenu1
	Handle hoMenu1
	Get Create (RefClass(cComMenu)) to hoMenu1
	Set pvComObject of hoMenu1 to voMenu1
		Variant voitem
		Get Comitem of hoMenu1 10 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voMenu2
			Get ComSubMenu of hoitem to voMenu2
			Handle hoMenu2
			Get Create (RefClass(cComMenu)) to hoMenu2
			Set pvComObject of hoMenu2 to voMenu2
				Set ComVisibleItemsCount of hoMenu2 to 1
			Send Destroy to hoMenu2
		Send Destroy to hoitem
	Send Destroy to hoMenu1
End_Procedure
73:
How can I speciy the shape of the cursor when it hovers the menu

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
	Variant voMenu1
	Get ComItems to voMenu1
	Handle hoMenu1
	Get Create (RefClass(cComMenu)) to hoMenu1
	Set pvComObject of hoMenu1 to voMenu1
		Variant voitem
		Get Comitem of hoMenu1 10 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComCursor of hoitem to "exHelp"
		Send Destroy to hoitem
	Send Destroy to hoMenu1
End_Procedure
72:
How can I add items

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
End_Procedure
71:
How I can remove an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
	Variant voMenu1
	Get ComItems to voMenu1
	Handle hoMenu1
	Get Create (RefClass(cComMenu)) to hoMenu1
	Set pvComObject of hoMenu1 to voMenu1
		Send ComRemove of hoMenu1 10
	Send Destroy to hoMenu1
	Send ComRefresh
End_Procedure
70:
How I can get the number or the count of the items in the menu

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
	Variant voMenu1
	Get ComItems to voMenu1
	Handle hoMenu1
	Get Create (RefClass(cComMenu)) to hoMenu1
	Set pvComObject of hoMenu1 to voMenu1
		Get ComAdd of hoMenu1 (ComCount(hoMenu1)) Nothing Nothing to Nothing
	Send Destroy to hoMenu1
	Send ComRefresh
End_Procedure
69:
How I can clear a menu

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
	Variant voMenu1
	Get ComItems to voMenu1
	Handle hoMenu1
	Get Create (RefClass(cComMenu)) to hoMenu1
	Set pvComObject of hoMenu1 to voMenu1
		Send ComClear of hoMenu1
	Send Destroy to hoMenu1
	Variant voMenu2
	Get ComItems to voMenu2
	Handle hoMenu2
	Get Create (RefClass(cComMenu)) to hoMenu2
	Set pvComObject of hoMenu2 to voMenu2
		Set ComToString of hoMenu2 to "Item 1"
	Send Destroy to hoMenu2
End_Procedure
68:
How do I specify to close an ActiveX item when user clicks it

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Calendar" 3 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voControl
			Get ComSubControl of hoitem to voControl
			Handle hoControl
			Get Create (RefClass(cComControl)) to hoControl
			Set pvComObject of hoControl to voControl
				Set ComControlID of hoControl to "MSCal.Calendar"
				Set ComWidth of hoControl to 256
				Set ComHeight of hoControl to 196
				Send ComCreate of hoControl
				Variant voCalendar
				Get ComObject of hoControl to voCalendar
				Handle hoCalendar
				Get Create (RefClass(cComCalendar)) to hoCalendar
				Set pvComObject of hoCalendar to voCalendar
					Set ComShowDateSelectors of hoCalendar to False
					Set ComBackColor of hoCalendar to (RGB(239,239,231))
				Send Destroy to hoCalendar
				Set ComCloseOn of hoControl to OLEexLButtonUp
			Send Destroy to hoControl
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
67:
How can I access the properties and methods for an ActiveX item

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Calendar" 3 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voControl
			Get ComSubControl of hoitem to voControl
			Handle hoControl
			Get Create (RefClass(cComControl)) to hoControl
			Set pvComObject of hoControl to voControl
				Set ComControlID of hoControl to "MSCal.Calendar"
				Set ComWidth of hoControl to 256
				Set ComHeight of hoControl to 196
				Send ComCreate of hoControl
				Variant voCalendar
				Get ComObject of hoControl to voCalendar
				Handle hoCalendar
				Get Create (RefClass(cComCalendar)) to hoCalendar
				Set pvComObject of hoCalendar to voCalendar
					Set ComShowDateSelectors of hoCalendar to False
					Set ComBackColor of hoCalendar to (RGB(239,239,231))
				Send Destroy to hoCalendar
			Send Destroy to hoControl
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
66:
I can't see the ActiveX item

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Calendar" 3 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voControl
			Get ComSubControl of hoitem to voControl
			Handle hoControl
			Get Create (RefClass(cComControl)) to hoControl
			Set pvComObject of hoControl to voControl
				Set ComControlID of hoControl to "MSCal.Calendar"
				Send ComCreate of hoControl
			Send Destroy to hoControl
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
65:
How can I specify the runtime license key for an ActiveX item

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Calendar" 3 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voControl
			Get ComSubControl of hoitem to voControl
			Handle hoControl
			Get Create (RefClass(cComControl)) to hoControl
			Set pvComObject of hoControl to voControl
				Set ComControlID of hoControl to "MSCal.Calendar"
				Set ComLicenseKey of hoControl to ""
				Send ComCreate of hoControl
			Send Destroy to hoControl
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
64:
How can I specify the width and the height for an ActiveX item

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Calendar" 3 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voControl
			Get ComSubControl of hoitem to voControl
			Handle hoControl
			Get Create (RefClass(cComControl)) to hoControl
			Set pvComObject of hoControl to voControl
				Set ComControlID of hoControl to "MSCal.Calendar"
				Set ComWidth of hoControl to 256
				Set ComHeight of hoControl to 256
				Send ComCreate of hoControl
			Send Destroy to hoControl
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
63:
How can I select a date

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voMenu1
			Get ComSubMenu of hoitem to voMenu1
			Handle hoMenu1
			Get Create (RefClass(cComMenu)) to hoMenu1
			Set pvComObject of hoMenu1 to voMenu1
				Variant voitem1
				Get ComAdd of hoMenu1 "Select a date" 3 Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Variant voControl
					Get ComSubControl of hoitem1 to voControl
					Handle hoControl
					Get Create (RefClass(cComControl)) to hoControl
					Set pvComObject of hoControl to voControl
						Set ComControlID of hoControl to "MSComCtl2.DTPicker"
						Set ComWidth of hoControl to 128
						Set ComHeight of hoControl to 22
						Send ComCreate of hoControl
						Variant voDTPicker
						Get ComObject of hoControl to voDTPicker
						Handle hoDTPicker
						Get Create (RefClass(cComDTPicker)) to hoDTPicker
						Set pvComObject of hoDTPicker to voDTPicker
							Set ComFormat of hoDTPicker to OLEdtpCustom
							Set ComCustomFormat of hoDTPicker to "dd-MM-yyy"
							Get ComRefresh of hoDTPicker to Nothing
						Send Destroy to hoDTPicker
					Send Destroy to hoControl
				Send Destroy to hoitem1
			Send Destroy to hoMenu1
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
62:
How can I add an ActiveX item

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Calendar" 3 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voControl
			Get ComSubControl of hoitem to voControl
			Handle hoControl
			Get Create (RefClass(cComControl)) to hoControl
			Set pvComObject of hoControl to voControl
				Set ComControlID of hoControl to "MSCal.Calendar"
				Send ComCreate of hoControl
			Send Destroy to hoControl
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
61:
How can I add a separator item

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voMenu1
			Get ComSubMenu of hoitem to voMenu1
			Handle hoMenu1
			Get Create (RefClass(cComMenu)) to hoMenu1
			Set pvComObject of hoMenu1 to voMenu1
				Get ComAdd of hoMenu1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoMenu1 "" 1 Nothing to Nothing
				Get ComAdd of hoMenu1 "Item 2" Nothing Nothing to Nothing
			Send Destroy to hoMenu1
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
60:
How can I add a popup or a submenu

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Variant voitem
		Get ComAdd of hoMenu "Popup" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voMenu1
			Get ComSubMenu of hoitem to voMenu1
			Handle hoMenu1
			Get Create (RefClass(cComMenu)) to hoMenu1
			Set pvComObject of hoMenu1 to voMenu1
				Get ComAdd of hoMenu1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoMenu1 "Item 2" Nothing Nothing to Nothing
			Send Destroy to hoMenu1
		Send Destroy to hoitem
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
59:
How can I add a new item

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Get ComAdd of hoMenu "Item 1" Nothing Nothing to Nothing
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
58:
How I can assign a picture or an icon to an item

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComItemHeight OLEButton to 34
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
	Variant voMenu1
	Get ComItems to voMenu1
	Handle hoMenu1
	Get Create (RefClass(cComMenu)) to hoMenu1
	Set pvComObject of hoMenu1 to voMenu1
		Variant voitem
		Get Comitem of hoMenu1 10 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComCaption of hoitem to "<img>pic1</img> <b>1</b>"
		Send Destroy to hoitem
	Send Destroy to hoMenu1
	Variant voMenu2
	Get ComItems to voMenu2
	Handle hoMenu2
	Get Create (RefClass(cComMenu)) to hoMenu2
	Set pvComObject of hoMenu2 to voMenu2
		Variant voitem1
		Get Comitem of hoMenu2 60 to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComCaption of hoitem1 to "T <img>1</img> <img>2</img> and so on "
		Send Destroy to hoitem1
	Send Destroy to hoMenu2
	Send ComRefresh
End_Procedure
57:
How I can assign a picture to an item

Procedure OnCreate
	Forward Send OnCreate
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
	Variant voMenu1
	Get ComItems to voMenu1
	Handle hoMenu1
	Get Create (RefClass(cComMenu)) to hoMenu1
	Set pvComObject of hoMenu1 to voMenu1
		Variant voitem
		Get Comitem of hoMenu1 10 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComCaption of hoitem to "<img>pic1</img> <b>1</b>"
		Send Destroy to hoitem
	Send Destroy to hoMenu1
	Variant voMenu2
	Get ComItems to voMenu2
	Handle hoMenu2
	Get Create (RefClass(cComMenu)) to hoMenu2
	Set pvComObject of hoMenu2 to voMenu2
		Variant voitem1
		Get Comitem of hoMenu2 60 to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComCaption of hoitem1 to "<img>pic2</img> <b>2</b>"
		Send Destroy to hoitem1
	Send Destroy to hoMenu2
	Send ComRefresh
End_Procedure
56:
How do I call your x-script language

Procedure OnCreate
	Forward Send OnCreate
	Set ComTemplate to "Items.ToString = `Item 1,Item 2`"
End_Procedure
55:
How do I change the shape of the cursor whether it hovers the control

Procedure OnCreate
	Forward Send OnCreate
	Set ComCursor to "exHelp"
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
End_Procedure
54:
How do I specify whether the item gets selected whether the user presses or releases the mouse

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectOn to OLEexMouseUp
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
End_Procedure
53:
How do I change the picture or icon for the chevrons

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComScrollImage True to 1
	Set ComScrollImage False to 2
	Set ComAllowChevron to OLEexScroll
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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](Item 1[id=20],[sep][id=30],Item 2[id=40])"
	Send Destroy to hoMenu
End_Procedure
52:
How do I specify the height for items

Procedure OnCreate
	Forward Send OnCreate
	Set ComItemHeight OLEButton to 34
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
End_Procedure
51:
How do I change the picture or icon for the chevrons

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComChevronImage to 1
	Set ComAllowChevron to OLEexChevron
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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](Item 1[id=20],[sep][id=30],Item 2[id=40])"
	Send Destroy to hoMenu
End_Procedure
50:
How do I disable chevrons

Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowChevron to OLEexDefault
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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](Item 1[id=20],[sep][id=30],Item 2[id=40])"
	Send Destroy to hoMenu
End_Procedure
49:
How do I allow chevrons

Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowChevron to OLEexScroll
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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](Item 1[id=20],[sep][id=30],Item 2[id=40])"
	Send Destroy to hoMenu
End_Procedure
48:
How do I allow chevrons

Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowChevron to OLEexChevron
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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](Item 1[id=20],[sep][id=30],Item 2[id=40])"
	Send Destroy to hoMenu
End_Procedure
47:
How do I show directly the drop down menu, without scrolling

Procedure OnCreate
	Forward Send OnCreate
	Set ComScrollOnDrop to False
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
End_Procedure
46:
How can I change the visual appearance for for a top level item, when the Appearance property is Flat

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexSelectRootItem to |CI$1000000
	Set ComAppearance to OLEFlat
	Set ComBorder to OLEFlatBorder
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
End_Procedure
45:
How can I change the visual appearance for an item, when the Appearance property is Button

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexButtonItem to |CI$1000000
	Set ComAppearance to OLEButton
	Set ComBorder to OLEFlatBorder
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
End_Procedure
44:
Can I change the visual appearance for separator items

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexSeparatorItem to |CI$1000000
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40])"
	Send Destroy to hoMenu
End_Procedure
43:
Can I change the forecolor for the tooltip

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Set ComToolTipWidth to 364
	Set ComBackground OLEexToolTipForeColor to (RGB(255,0,0))
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
	Send Destroy to hoMenu
	Variant voMenu1
	Get ComItems to voMenu1
	Handle hoMenu1
	Get Create (RefClass(cComMenu)) to hoMenu1
	Set pvComObject of hoMenu1 to voMenu1
		Variant voitem
		Get Comitem of hoMenu1 10 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComTooltip of hoitem to "Click the <b>ToolTip</b> and so the drop down menu will be shown"
		Send Destroy to hoitem
	Send Destroy to hoMenu1
	Send ComRefresh
End_Procedure
42:
Can I change the background color for the tooltip

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Set ComToolTipWidth to 364
	Set ComBackground OLEexToolTipBackColor to (RGB(255,0,0))
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
	Send Destroy to hoMenu
	Variant voMenu1
	Get ComItems to voMenu1
	Handle hoMenu1
	Get Create (RefClass(cComMenu)) to hoMenu1
	Set pvComObject of hoMenu1 to voMenu1
		Variant voitem
		Get Comitem of hoMenu1 10 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComTooltip of hoitem to "Click the <b>ToolTip</b> and so the drop down menu will be shown"
		Send Destroy to hoitem
	Send Destroy to hoMenu1
	Send ComRefresh
End_Procedure
41:
Can I change the default border of the tooltip, using your EBN files

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Set ComToolTipWidth to 364
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexToolTipAppearance to |CI$1000000
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
	Send Destroy to hoMenu
	Variant voMenu1
	Get ComItems to voMenu1
	Handle hoMenu1
	Get Create (RefClass(cComMenu)) to hoMenu1
	Set pvComObject of hoMenu1 to voMenu1
		Variant voitem
		Get Comitem of hoMenu1 10 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComTooltip of hoitem to "Click the <b>ToolTip</b> and so the drop down menu will be shown"
		Send Destroy to hoitem
	Send Destroy to hoMenu1
	Send ComRefresh
End_Procedure
40:
Can I change the font for the tooltip

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Variant voStdFont
	Get ComToolTipFont to voStdFont
	Handle hoStdFont
	Get Create (RefClass(cComStdFont)) to hoStdFont
	Set pvComObject of hoStdFont to voStdFont
		Set ComName of hoStdFont to "Tahoma"
		Set ComSize of hoStdFont to 14
	Send Destroy to hoStdFont
	Set ComToolTipWidth to 400
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
	Send Destroy to hoMenu
	Variant voMenu1
	Get ComItems to voMenu1
	Handle hoMenu1
	Get Create (RefClass(cComMenu)) to hoMenu1
	Set pvComObject of hoMenu1 to voMenu1
		Variant voitem
		Get Comitem of hoMenu1 10 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComTooltip of hoitem to "Click the <b>ToolTip</b> and so the drop down menu will be shown"
		Send Destroy to hoitem
	Send Destroy to hoMenu1
	Send ComRefresh
End_Procedure
39:
I've seen that the width of the tooltip is variable. Can I make it larger

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipWidth to 328
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
	Send Destroy to hoMenu
	Variant voMenu1
	Get ComItems to voMenu1
	Handle hoMenu1
	Get Create (RefClass(cComMenu)) to hoMenu1
	Set pvComObject of hoMenu1 to voMenu1
		Variant voitem
		Get Comitem of hoMenu1 10 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComTooltip of hoitem to "Click the <b>ToolTip</b> and so the drop down menu will open"
		Send Destroy to hoitem
	Send Destroy to hoMenu1
	Send ComRefresh
End_Procedure
38:
How do I let the tooltip being displayed longer

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipPopDelay to 10000
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
	Send Destroy to hoMenu
	Variant voMenu1
	Get ComItems to voMenu1
	Handle hoMenu1
	Get Create (RefClass(cComMenu)) to hoMenu1
	Set pvComObject of hoMenu1 to voMenu1
		Variant voitem
		Get Comitem of hoMenu1 10 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComTooltip of hoitem to "Click the <b>ToolTip</b> and so the drop down menu will opene"
		Send Destroy to hoitem
	Send Destroy to hoMenu1
	Send ComRefresh
End_Procedure
37:
How do I disable showing the tooltip for all control

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 0
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "No-ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
	Send Destroy to hoMenu
	Variant voMenu1
	Get ComItems to voMenu1
	Handle hoMenu1
	Get Create (RefClass(cComMenu)) to hoMenu1
	Set pvComObject of hoMenu1 to voMenu1
		Variant voitem
		Get Comitem of hoMenu1 10 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComTooltip of hoitem to "Click the <b>ToolTip</b> and so the drop down menu will opene"
		Send Destroy to hoitem
	Send Destroy to hoMenu1
	Send ComRefresh
End_Procedure
36:
How do I show the tooltip quicker

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
	Send Destroy to hoMenu
	Variant voMenu1
	Get ComItems to voMenu1
	Handle hoMenu1
	Get Create (RefClass(cComMenu)) to hoMenu1
	Set pvComObject of hoMenu1 to voMenu1
		Variant voitem
		Get Comitem of hoMenu1 10 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComTooltip of hoitem to "Click the <b>ToolTip</b> and so the drop down menu will opene"
		Send Destroy to hoitem
	Send Destroy to hoMenu1
	Send ComRefresh
End_Procedure
35:
How do I open the menu as user clicks the menu

Procedure OnCreate
	Forward Send OnCreate
	Set ComOpenOnClick to OLEexAlwaysClick
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
End_Procedure
34:
How do I open the menu as cursor hovers the menu bar

Procedure OnCreate
	Forward Send OnCreate
	Set ComOpenOnClick to OLEexHoverMenuBar
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
End_Procedure
33:
Can I make the menu partialy visible

Procedure OnCreate
	Forward Send OnCreate
	Set ComVisibility to 90
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
End_Procedure
32:
How do I remove or clear the accelerator keys

Procedure OnCreate
	Forward Send OnCreate
	Set ComDebug to True
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
	Send ComAddAcelerator 10 49 False True False
End_Procedure
31:
How do I add or assign an accelerator key to an item

Procedure OnCreate
	Forward Send OnCreate
	Set ComDebug to True
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
	Send ComAddAcelerator 10 49 False True False
End_Procedure
28:
How do I put a picture on the center of the control

Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLEMiddleCenter
End_Procedure
27:
How do I resize/stretch a picture on the control's background
Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLEStretch
End_Procedure
26:
How do I put a picture on the control's center right bottom side
Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLELowerRight
End_Procedure
25:
How do I put a picture on the control's center left bottom side
Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLELowerLeft
End_Procedure
24:
How do I put a picture on the control's center top side
Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLEUpperCenter
End_Procedure
23:
How do I put a picture on the control's right top corner
Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLEUpperRight
End_Procedure
22:
How do I put a picture on the control's left top corner
Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLEUpperLeft
End_Procedure
21:
How do I put a picture on the control's background
Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
End_Procedure
20:
Is there any function to display the item's identifiers

Procedure OnCreate
	Forward Send OnCreate
	Set ComDebug to True
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
End_Procedure
19:
How do I find an item giving its name

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
	Variant voitem
	Get Comitem "Item 1" to voitem
	Handle hoitem
	Get Create (RefClass(cComitem)) to hoitem
	Set pvComObject of hoitem to voitem
		Set ComBold of hoitem to True
	Send Destroy to hoitem
	Send ComRefresh
End_Procedure
18:
How do I find an item giving its identifier

Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
	Variant voitem
	Get Comitem 10 to voitem
	Handle hoitem
	Get Create (RefClass(cComitem)) to hoitem
	Set pvComObject of hoitem to voitem
		Set ComBold of hoitem to True
	Send Destroy to hoitem
	Send ComRefresh
End_Procedure
17:
How do I enable or disable the control

Procedure OnCreate
	Forward Send OnCreate
	Set ComEnabled to False
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Get ComAdd of hoMenu "Item 1" Nothing Nothing to Nothing
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
16:
How do I refresh the control
Procedure OnCreate
	Forward Send OnCreate
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Get ComAdd of hoMenu "Item 1" Nothing Nothing to Nothing
	Send Destroy to hoMenu
	Send ComRefresh
End_Procedure
15:
How do I change the color to highligth the selected item

Procedure OnCreate
	Forward Send OnCreate
	Set ComHighLightBorderColor to (RGB(255,0,0))
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
End_Procedure
14:
How do I change the drop down, popup menu foreground color

Procedure OnCreate
	Forward Send OnCreate
	Set ComPopupForeColor to (RGB(255,0,0))
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
End_Procedure
13:
How do I change the drop down, popup menu background color

Procedure OnCreate
	Forward Send OnCreate
	Set ComPopupBackColor to (RGB(255,0,0))
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
End_Procedure
12:
How do I change the control's shadow color

Procedure OnCreate
	Forward Send OnCreate
	Set ComShadowColor to (RGB(255,0,0))
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
End_Procedure
11:
How do I place the control on vertical

Procedure OnCreate
	Forward Send OnCreate
	Set ComOpenMode to OLEHorizontal
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
End_Procedure
10:
How do I change the control's appearance
Procedure OnCreate
	Forward Send OnCreate
	Set ComAppearance to OLEButton
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
End_Procedure
9:
How do I change the control's appearance

Procedure OnCreate
	Forward Send OnCreate
	Set ComAppearance to OLENormal
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
End_Procedure
8:
How do I change the visual appearance effect for the selected item, using EBN

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComSelBackColor to |CI$1000000
	Set ComSelForeColor to (RGB(0,0,0))
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
End_Procedure
7:
How do I change the colors for the selected item

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelBackColor to (RGB(0,0,0))
	Set ComSelForeColor to (RGB(255,255,255))
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
End_Procedure
6:
How do I change the control's foreground color

Procedure OnCreate
	Forward Send OnCreate
	Set ComForeColor to (RGB(255,0,0))
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
End_Procedure
5:
How do I change the control's background color

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackColor to (RGB(200,200,200))
End_Procedure
4:
How can I change the control's font

Procedure OnCreate
	Forward Send OnCreate
	Variant voStdFont
	Get ComFont to voStdFont
	Handle hoStdFont
	Get Create (RefClass(cComStdFont)) to hoStdFont
	Set pvComObject of hoStdFont to voStdFont
		Set ComName of hoStdFont to "Tahoma"
	Send Destroy to hoStdFont
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
End_Procedure
3:
How do I change the drop down menu's border

Procedure OnCreate
	Forward Send OnCreate
	Set ComBorder to OLEFlatBorder
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
End_Procedure
2:
How do I change the control's border, using your EBN files

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComMenuBarBorder to |CI$1000000
	Set ComBorder to |CI$1000000
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
End_Procedure
1:
How do I change the control's border

Procedure OnCreate
	Forward Send OnCreate
	Set ComMenuBarBorder to OLEFlatBorder
	Variant voMenu
	Get ComItems to voMenu
	Handle hoMenu
	Get Create (RefClass(cComMenu)) to hoMenu
	Set pvComObject of hoMenu to voMenu
		Set ComToString of hoMenu to "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])"
	Send Destroy to hoMenu
End_Procedure