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

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voStdFont
	Get ComFont to voStdFont
	Handle hoStdFont
	Get Create (RefClass(cComStdFont)) to hoStdFont
	Set pvComObject of hoStdFont to voStdFont
		Set ComSize of hoStdFont to 6
	Send Destroy to hoStdFont
	Set ComMenuAppearance to OLEexMenuNormal
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Showln (ComVisibleItemsCount(hoItems))
		Set ComVisibleItemsCount of hoItems to 255
		Set ComToString of hoItems to "1,2,3,4,5,6,7,8,9,10,11,12,13"
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
175:
How do I specify the control's height (method 3)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item 1" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComItemHeight of hoitem to 24
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "Item 2" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComItemHeight of hoitem1 to 24
		Send Destroy to hoitem1
		Variant voitem2
		Get ComAdd of hoItems "Item 3" Nothing Nothing to voitem2
		Handle hoitem2
		Get Create (RefClass(cComitem)) to hoitem2
		Set pvComObject of hoitem2 to voitem2
			Set ComItemHeight of hoitem2 to 24
		Send Destroy to hoitem2
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
174:
How do I specify the control's height (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item 1" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComPadding of hoitem to "0,4,0,4"
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "Item 2" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComPadding of hoitem1 to "0,4,0,4"
		Send Destroy to hoitem1
		Variant voitem2
		Get ComAdd of hoItems "Item 3" Nothing Nothing to voitem2
		Handle hoitem2
		Get Create (RefClass(cComitem)) to hoitem2
		Set pvComObject of hoitem2 to voitem2
			Set ComPadding of hoitem2 to "0,4,0,4"
		Send Destroy to hoitem2
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
173:
How do I specify the control's height (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voStdFont
	Get ComFont to voStdFont
	Handle hoStdFont
	Get Create (RefClass(cComStdFont)) to hoStdFont
	Set pvComObject of hoStdFont to voStdFont
		Set ComSize of hoStdFont to 12
	Send Destroy to hoStdFont
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Item 1" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
172:
How can I change the visual appearance of the progress bar

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	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 |CI$104 to |CI$1000000
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Progress" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComAllowEdit of hoitem to OLEexItemEditProgress
			Set ComEditWidth of hoitem to -128
			Set ComEditValue of hoitem to 25
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
171:
How can I change the progress's color

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComBackground |CI$104 to (RGB(255,0,0))
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Progress" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComAllowEdit of hoitem to OLEexItemEditProgress
			Set ComEditWidth of hoitem to -128
			Set ComEditValue of hoitem to 25
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
170:
I am using the Item.Visible property on False to hide the item, but the editor is still visible

// Occurs when the user checks the item.
Procedure OnComCheckItem Variant   llItm
	Forward Send OnComCheckItem llItm
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get Comitem of hoItems 1000 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComVisible of hoitem to True
			Set ComAllowEdit of hoitem to (OLEexItemEditReadOnly + OLEexItemEditProgress)
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure

// Occurs when the user unchecks the item.
Procedure OnComUncheckItem Variant   llItm
	Forward Send OnComUncheckItem llItm
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant voitem1
		Get Comitem of hoItems1 1000 to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComVisible of hoitem1 to False
			Set ComAllowEdit of hoitem1 to OLEexItemDisableEdit
		Send Destroy to hoitem1
	Send Destroy to hoItems1
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems2
	Get ComItems to voItems2
	Handle hoItems2
	Get Create (RefClass(cComItems)) to hoItems2
	Set pvComObject of hoItems2 to voItems2
		Variant voitem2
		Get ComAdd of hoItems2 "" 2 Nothing to voitem2
		Handle hoitem2
		Get Create (RefClass(cComitem)) to hoitem2
		Set pvComObject of hoitem2 to voitem2
			Variant voItems3
			Get ComItems of hoitem2 to voItems3
			Handle hoItems3
			Get Create (RefClass(cComItems)) to hoItems3
			Set pvComObject of hoItems3 to voItems3
				Get ComAdd of hoItems3 "Visible" Nothing Nothing to Nothing
				Variant voitem3
				Get ComAdd of hoItems3 "" Nothing Nothing to voitem3
				Handle hoitem3
				Get Create (RefClass(cComitem)) to hoitem3
				Set pvComObject of hoitem3 to voitem3
					Set ComCheck of hoitem3 to True
					Set ComChecked of hoitem3 to True
				Send Destroy to hoitem3
				Variant voitem4
				Get ComAdd of hoItems3 "Item 2" 1000 to voitem4
				Handle hoitem4
				Get Create (RefClass(cComitem)) to hoitem4
				Set pvComObject of hoitem4 to voitem4
					Set ComItemHeight of hoitem4 to 18
					Set ComCaption of hoitem4 to "Percent"
					Set ComAllowEdit of hoitem4 to (OLEexItemEditReadOnly + OLEexItemEditProgress)
					Set ComEditValue of hoitem4 to 50
					Set ComVisible of hoitem4 to True
				Send Destroy to hoitem4
				Get ComAdd of hoItems3 "Visible" Nothing Nothing to Nothing
			Send Destroy to hoItems3
			Set ComGroupPopup of hoitem2 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
		Send Destroy to hoitem2
	Send Destroy to hoItems2
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
169:
How can I change the color of a disabled item

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Disabled" 2 0 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComForeColor of hoitem to (RGB(255,0,0))
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "" Nothing Nothing to Nothing
			Send Destroy to hoItems1
			Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "Disabled" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComEnabled of hoitem1 to False
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
168:
Microsoft Windows 8.1 - Ribbon Like

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComMenuAppearance to OLEexMenuNormal
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[id=0][group=0x03](),[id=-20][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		Variant voitem
		Get Comitem of hoItems 0 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voitem1
				Get ComAdd of hoItems1 "" 0 0 to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComPadding of hoitem1 to "8,0,0,0"
				Send Destroy to hoitem1
				Variant var_item3
				Get ComAdd of hoItems1 "New Page" Nothing Nothing to var_item3
					Set ComToString of hoItems1 to "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])"
					Set ComID of hoItems1 to 200
					Set ComCaption of hoItems1 to "Page1"
					Variant v
					Variant voItems2
					Get ComItems of hoItems1 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Get ComAdd of hoItems2 "New Group" Nothing Nothing to v
					Send Destroy to hoItems2
					Move v to var_item
						Set ComToString of hoItems1 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						Set ComCaption of hoItems1 to "<b><font ;14>A"
						Variant voItems3
						Get ComItems of hoItems1 to voItems3
						Handle hoItems3
						Get Create (RefClass(cComItems)) to hoItems3
						Set pvComObject of hoItems3 to voItems3
							Set ComBackgroundExt of hoItems3 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
							Variant voitem2
							Get ComAdd of hoItems3 "" 2 Nothing to voitem2
							Handle hoitem2
							Get Create (RefClass(cComitem)) to hoitem2
							Set pvComObject of hoitem2 to voitem2
								Set ComGroupPopup of hoitem2 to (OLEexGroupPopupEqualWidth + OLEexGroupPopup)
								Set ComCaption of hoitem2 to ""
								Variant voItems4
								Get ComItems of hoitem2 to voItems4
								Handle hoItems4
								Get Create (RefClass(cComItems)) to hoItems4
								Set pvComObject of hoItems4 to voItems4
									Variant voitem3
									Get ComAdd of hoItems4 "R1" Nothing Nothing to voitem3
									Handle hoitem3
									Get Create (RefClass(cComitem)) to hoitem3
									Set pvComObject of hoitem3 to voitem3
										Set ComRadioGroup of hoitem3 to 100
										Set ComRadio of hoitem3 to True
										Set ComShowCheckedAsSelected of hoitem3 to OLEexDisplayItemHighlight
										Set ComChecked of hoitem3 to False
									Send Destroy to hoitem3
									Variant voitem4
									Get ComAdd of hoItems4 "R2" Nothing Nothing to voitem4
									Handle hoitem4
									Get Create (RefClass(cComitem)) to hoitem4
									Set pvComObject of hoitem4 to voitem4
										Set ComRadioGroup of hoitem4 to 100
										Set ComRadio of hoitem4 to True
										Set ComShowCheckedAsSelected of hoitem4 to OLEexDisplayItemHighlight
										Set ComChecked of hoitem4 to True
									Send Destroy to hoitem4
									Variant voitem5
									Get ComAdd of hoItems4 "R3" Nothing Nothing to voitem5
									Handle hoitem5
									Get Create (RefClass(cComitem)) to hoitem5
									Set pvComObject of hoitem5 to voitem5
										Set ComRadioGroup of hoitem5 to 100
										Set ComRadio of hoitem5 to True
										Set ComShowCheckedAsSelected of hoitem5 to OLEexDisplayItemHighlight
										Set ComChecked of hoitem5 to False
									Send Destroy to hoitem5
								Send Destroy to hoItems4
							Send Destroy to hoitem2
						Send Destroy to hoItems3
					Send Destroy to hoItems1
					Variant v1
					Variant voItems5
					Get ComItems of hoitem to voItems5
					Handle hoItems5
					Get Create (RefClass(cComItems)) to hoItems5
					Set pvComObject of hoItems5 to voItems5
						Get ComAdd of hoItems5 "New Group" Nothing Nothing to v1
					Send Destroy to hoItems5
					Move v1 to var_item1
						Set ComToString of hoitem to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						Set ComCaption of hoitem to "<b><font ;14>B"
						Variant voItems6
						Get ComItems of hoitem to voItems6
						Handle hoItems6
						Get Create (RefClass(cComItems)) to hoItems6
						Set pvComObject of hoItems6 to voItems6
							Set ComBackgroundExt of hoItems6 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
							Variant voitem6
							Get ComAdd of hoItems6 "" 2 Nothing to voitem6
							Handle hoitem6
							Get Create (RefClass(cComitem)) to hoitem6
							Set pvComObject of hoitem6 to voitem6
								Set ComGroupPopup of hoitem6 to (OLEexGroupPopupVertical + OLEexGroupPopupEqualHeight + OLEexGroupPopup)
								Set ComCaption of hoitem6 to ""
								Variant voItems7
								Get ComItems of hoitem6 to voItems7
								Handle hoItems7
								Get Create (RefClass(cComItems)) to hoItems7
								Set pvComObject of hoItems7 to voItems7
									Variant voitem7
									Get ComAdd of hoItems7 "C1" Nothing Nothing to voitem7
									Handle hoitem7
									Get Create (RefClass(cComitem)) to hoitem7
									Set pvComObject of hoitem7 to voitem7
										Set ComCheck of hoitem7 to True
										Set ComChecked of hoitem7 to True
									Send Destroy to hoitem7
									Variant voitem8
									Get ComAdd of hoItems7 "C2" Nothing Nothing to voitem8
									Handle hoitem8
									Get Create (RefClass(cComitem)) to hoitem8
									Set pvComObject of hoitem8 to voitem8
										Set ComCheck of hoitem8 to True
										Set ComChecked of hoitem8 to False
									Send Destroy to hoitem8
									Variant voitem9
									Get ComAdd of hoItems7 "C3" Nothing Nothing to voitem9
									Handle hoitem9
									Get Create (RefClass(cComitem)) to hoitem9
									Set pvComObject of hoitem9 to voitem9
										Set ComCheck of hoitem9 to True
										Set ComChecked of hoitem9 to True
									Send Destroy to hoitem9
								Send Destroy to hoItems7
							Send Destroy to hoitem6
						Send Destroy to hoItems6
					Send Destroy to hoitem
					Variant voItems8
					Get ComItems of hoItems to voItems8
					Handle hoItems8
					Get Create (RefClass(cComItems)) to hoItems8
					Set pvComObject of hoItems8 to voItems8
						Variant voitem10
						Get ComAdd of hoItems8 "" 0 0 to voitem10
						Handle hoitem10
						Get Create (RefClass(cComitem)) to hoitem10
						Set pvComObject of hoitem10 to voitem10
							Set ComPadding of hoitem10 to "4,0,0,0"
						Send Destroy to hoitem10
					Send Destroy to hoItems8
					Variant v2
					Variant voItems9
					Get ComItems of hoItems to voItems9
					Handle hoItems9
					Get Create (RefClass(cComItems)) to hoItems9
					Set pvComObject of hoItems9 to voItems9
						Get ComAdd of hoItems9 "New Group" Nothing Nothing to v2
					Send Destroy to hoItems9
					Move v2 to var_item2
						Set ComToString of hoItems to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						Set ComCaption of hoItems to ""
						Variant voItems10
						Get ComItems of hoItems to voItems10
						Handle hoItems10
						Get Create (RefClass(cComItems)) to hoItems10
						Set pvComObject of hoItems10 to voItems10
							Set ComBackgroundExt of hoItems10 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
							Variant voitem11
							Get ComAdd of hoItems10 "" 0 Nothing to voitem11
							Handle hoitem11
							Get Create (RefClass(cComitem)) to hoitem11
							Set pvComObject of hoitem11 to voitem11
								Set ComAllowEdit of hoitem11 to (OLEexItemEditVertical + OLEexItemEditSlider)
								Set ComItemHeight of hoitem11 to 76
								Set ComEditBorder of hoitem11 to OLEexEditBorderNone
								Set ComEditValue of hoitem11 to 25
							Send Destroy to hoitem11
							Variant voitem12
							Get ComAdd of hoItems10 "" 2 Nothing to voitem12
							Handle hoitem12
							Get Create (RefClass(cComitem)) to hoitem12
							Set pvComObject of hoitem12 to voitem12
								Set ComGroupPopup of hoitem12 to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
								Set ComCaption of hoitem12 to ""
								Variant voItems11
								Get ComItems of hoitem12 to voItems11
								Handle hoItems11
								Get Create (RefClass(cComItems)) to hoItems11
								Set pvComObject of hoItems11 to voItems11
									Variant voitem13
									Get ComAdd of hoItems11 "" 2 Nothing to voitem13
									Handle hoitem13
									Get Create (RefClass(cComitem)) to hoitem13
									Set pvComObject of hoitem13 to voitem13
										Set ComGroupPopup of hoitem13 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
										Variant voItems12
										Get ComItems of hoitem13 to voItems12
										Handle hoItems12
										Get Create (RefClass(cComItems)) to hoItems12
										Set pvComObject of hoItems12 to voItems12
											Variant voitem14
											Get ComAdd of hoItems12 "Button1" 2 Nothing to voitem14
											Handle hoitem14
											Get Create (RefClass(cComitem)) to hoitem14
											Set pvComObject of hoitem14 to voitem14
												Set ComShowAsButton of hoitem14 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
												Variant voItems13
												Get ComItems of hoitem14 to voItems13
												Handle hoItems13
												Get Create (RefClass(cComItems)) to hoItems13
												Set pvComObject of hoItems13 to voItems13
													Get ComAdd of hoItems13 "Item 1" Nothing Nothing to Nothing
													Get ComAdd of hoItems13 "Item 2" Nothing Nothing to Nothing
													Get ComAdd of hoItems13 "Item 3" Nothing Nothing to Nothing
												Send Destroy to hoItems13
											Send Destroy to hoitem14
											Variant voitem15
											Get ComAdd of hoItems12 "" 0 0 to voitem15
											Handle hoitem15
											Get Create (RefClass(cComitem)) to hoitem15
											Set pvComObject of hoitem15 to voitem15
												Set ComPadding of hoitem15 to "4,0,0,0"
											Send Destroy to hoitem15
											Variant voitem16
											Get ComAdd of hoItems12 "Button2" 2 Nothing to voitem16
											Handle hoitem16
											Get Create (RefClass(cComitem)) to hoitem16
											Set pvComObject of hoitem16 to voitem16
												Set ComShowAsButton of hoitem16 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
												Variant voItems14
												Get ComItems of hoitem16 to voItems14
												Handle hoItems14
												Get Create (RefClass(cComItems)) to hoItems14
												Set pvComObject of hoItems14 to voItems14
													Get ComAdd of hoItems14 "Item 4" Nothing Nothing to Nothing
													Get ComAdd of hoItems14 "Item 5" Nothing Nothing to Nothing
													Get ComAdd of hoItems14 "Item 6" Nothing Nothing to Nothing
												Send Destroy to hoItems14
											Send Destroy to hoitem16
										Send Destroy to hoItems12
									Send Destroy to hoitem13
									Variant voitem17
									Get ComAdd of hoItems11 "Popup" 2 Nothing to voitem17
									Handle hoitem17
									Get Create (RefClass(cComitem)) to hoitem17
									Set pvComObject of hoitem17 to voitem17
										Set ComAlignment of hoitem17 to OLEexCenter
										Variant voItems15
										Get ComItems of hoitem17 to voItems15
										Handle hoItems15
										Get Create (RefClass(cComItems)) to hoItems15
										Set pvComObject of hoItems15 to voItems15
											Variant voitem18
											Get ComAdd of hoItems15 "Item 7" Nothing Nothing to voitem18
											Handle hoitem18
											Get Create (RefClass(cComitem)) to hoitem18
											Set pvComObject of hoitem18 to voitem18
												Set ComCheck of hoitem18 to True
											Send Destroy to hoitem18
											Get ComAdd of hoItems15 "Item 8" Nothing Nothing to Nothing
											Variant voitem19
											Get ComAdd of hoItems15 "Item 9" 2 Nothing to voitem19
											Handle hoitem19
											Get Create (RefClass(cComitem)) to hoitem19
											Set pvComObject of hoitem19 to voitem19
												Variant voItems16
												Get ComItems of hoitem19 to voItems16
												Handle hoItems16
												Get Create (RefClass(cComItems)) to hoItems16
												Set pvComObject of hoItems16 to voItems16
													Get ComAdd of hoItems16 "Item 10" Nothing Nothing to Nothing
													Get ComAdd of hoItems16 "Item 11" Nothing Nothing to Nothing
													Get ComAdd of hoItems16 "Item 12" Nothing Nothing to Nothing
												Send Destroy to hoItems16
											Send Destroy to hoitem19
										Send Destroy to hoItems15
									Send Destroy to hoitem17
								Send Destroy to hoItems11
							Send Destroy to hoitem12
						Send Destroy to hoItems10
					Send Destroy to hoItems
				Variant var_item4
				Get ComAdd "New Page" Nothing Nothing to var_item4
					Set ComToString to "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])"
					Set ComID to 300
					Set ComCaption to "Page2"
					Variant voItems17
					Get ComItems to voItems17
					Handle hoItems17
					Get Create (RefClass(cComItems)) to hoItems17
					Set pvComObject of hoItems17 to voItems17
						Variant voitem20
						Get ComAdd of hoItems17 "S1" Nothing Nothing to voitem20
						Handle hoitem20
						Get Create (RefClass(cComitem)) to hoitem20
						Set pvComObject of hoitem20 to voitem20
							Set ComItemHeight of hoitem20 to 88
							Set ComAllowEdit of hoitem20 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
							Set ComEditValue of hoitem20 to 25
						Send Destroy to hoitem20
						Variant voitem21
						Get ComAdd of hoItems17 "S2" Nothing Nothing to voitem21
						Handle hoitem21
						Get Create (RefClass(cComitem)) to hoitem21
						Set pvComObject of hoitem21 to voitem21
							Set ComItemHeight of hoitem21 to 88
							Set ComAllowEdit of hoitem21 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
							Set ComEditValue of hoitem21 to 50
						Send Destroy to hoitem21
						Variant voitem22
						Get ComAdd of hoItems17 "S3" Nothing Nothing to voitem22
						Handle hoitem22
						Get Create (RefClass(cComitem)) to hoitem22
						Set pvComObject of hoitem22 to voitem22
							Set ComItemHeight of hoitem22 to 88
							Set ComAllowEdit of hoitem22 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
							Set ComEditValue of hoitem22 to 75
						Send Destroy to hoitem22
					Send Destroy to hoItems17
				Variant voitem23
				Get ComAdd "" 0 0 to voitem23
				Handle hoitem23
				Get Create (RefClass(cComitem)) to hoitem23
				Set pvComObject of hoitem23 to voitem23
					Set ComPadding of hoitem23 to "8,0,0,0"
				Send Destroy to hoitem23
	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:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn" to Nothing
		Get ComAdd of hoAppearance 2 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn" to Nothing
		Get ComAdd of hoAppearance 12 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn" to Nothing
		Get ComAdd of hoAppearance 14 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn" to Nothing
		Get ComAdd of hoAppearance 17 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn" to Nothing
		Get ComAdd of hoAppearance 18 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn" to Nothing
		Get ComAdd of hoAppearance 32 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn" to Nothing
		Get ComAdd of hoAppearance 33 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn" to Nothing
		Get ComAdd of hoAppearance 34 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn" to Nothing
		Get ComAdd of hoAppearance 35 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComAppearance to |CI$1000000
	Set ComBackground OLEexToolTipAppearance to (ComAppearance(Self))
	Set ComSelBackColor to |CI$e000000
	Set ComBackground OLEexMenuHotBackColor to |CI$c000000
	Set ComBackground OLEexMenuSelHotBackColor to |CI$23000000
	Set ComBackground |CI$2 to |CI$22000000
	Set ComBackground |CI$3 to |CI$23000000
	Set ComBackground OLEexCheckBoxState0 to |CI$20000000
	Set ComBackground OLEexCheckBoxState1 to |CI$21000000
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
167:
Microsoft Paint - Ribbon Like

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComMenuAppearance to OLEexMenuNormal
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[id=0][group=0x03](),[id=-20][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		Variant voitem
		Get Comitem of hoItems 0 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voitem1
				Get ComAdd of hoItems1 "" 0 0 to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComPadding of hoitem1 to "8,0,0,0"
				Send Destroy to hoitem1
				Variant var_item3
				Get ComAdd of hoItems1 "New Page" Nothing Nothing to var_item3
					Set ComToString of hoItems1 to "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])"
					Set ComID of hoItems1 to 200
					Set ComCaption of hoItems1 to "Page1"
					Variant v
					Variant voItems2
					Get ComItems of hoItems1 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Get ComAdd of hoItems2 "New Group" Nothing Nothing to v
					Send Destroy to hoItems2
					Move v to var_item
						Set ComToString of hoItems1 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						Set ComCaption of hoItems1 to "<b><font ;14>A"
						Variant voItems3
						Get ComItems of hoItems1 to voItems3
						Handle hoItems3
						Get Create (RefClass(cComItems)) to hoItems3
						Set pvComObject of hoItems3 to voItems3
							Set ComBackgroundExt of hoItems3 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
							Variant voitem2
							Get ComAdd of hoItems3 "" 2 Nothing to voitem2
							Handle hoitem2
							Get Create (RefClass(cComitem)) to hoitem2
							Set pvComObject of hoitem2 to voitem2
								Set ComGroupPopup of hoitem2 to (OLEexGroupPopupEqualWidth + OLEexGroupPopup)
								Set ComCaption of hoitem2 to ""
								Variant voItems4
								Get ComItems of hoitem2 to voItems4
								Handle hoItems4
								Get Create (RefClass(cComItems)) to hoItems4
								Set pvComObject of hoItems4 to voItems4
									Variant voitem3
									Get ComAdd of hoItems4 "R1" Nothing Nothing to voitem3
									Handle hoitem3
									Get Create (RefClass(cComitem)) to hoitem3
									Set pvComObject of hoitem3 to voitem3
										Set ComRadioGroup of hoitem3 to 100
										Set ComRadio of hoitem3 to True
										Set ComShowCheckedAsSelected of hoitem3 to OLEexDisplayItemHighlight
										Set ComChecked of hoitem3 to False
									Send Destroy to hoitem3
									Variant voitem4
									Get ComAdd of hoItems4 "R2" Nothing Nothing to voitem4
									Handle hoitem4
									Get Create (RefClass(cComitem)) to hoitem4
									Set pvComObject of hoitem4 to voitem4
										Set ComRadioGroup of hoitem4 to 100
										Set ComRadio of hoitem4 to True
										Set ComShowCheckedAsSelected of hoitem4 to OLEexDisplayItemHighlight
										Set ComChecked of hoitem4 to True
									Send Destroy to hoitem4
									Variant voitem5
									Get ComAdd of hoItems4 "R3" Nothing Nothing to voitem5
									Handle hoitem5
									Get Create (RefClass(cComitem)) to hoitem5
									Set pvComObject of hoitem5 to voitem5
										Set ComRadioGroup of hoitem5 to 100
										Set ComRadio of hoitem5 to True
										Set ComShowCheckedAsSelected of hoitem5 to OLEexDisplayItemHighlight
										Set ComChecked of hoitem5 to False
									Send Destroy to hoitem5
								Send Destroy to hoItems4
							Send Destroy to hoitem2
						Send Destroy to hoItems3
					Send Destroy to hoItems1
					Variant v1
					Variant voItems5
					Get ComItems of hoitem to voItems5
					Handle hoItems5
					Get Create (RefClass(cComItems)) to hoItems5
					Set pvComObject of hoItems5 to voItems5
						Get ComAdd of hoItems5 "New Group" Nothing Nothing to v1
					Send Destroy to hoItems5
					Move v1 to var_item1
						Set ComToString of hoitem to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						Set ComCaption of hoitem to "<b><font ;14>B"
						Variant voItems6
						Get ComItems of hoitem to voItems6
						Handle hoItems6
						Get Create (RefClass(cComItems)) to hoItems6
						Set pvComObject of hoItems6 to voItems6
							Set ComBackgroundExt of hoItems6 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
							Variant voitem6
							Get ComAdd of hoItems6 "" 2 Nothing to voitem6
							Handle hoitem6
							Get Create (RefClass(cComitem)) to hoitem6
							Set pvComObject of hoitem6 to voitem6
								Set ComGroupPopup of hoitem6 to (OLEexGroupPopupVertical + OLEexGroupPopupEqualHeight + OLEexGroupPopup)
								Set ComCaption of hoitem6 to ""
								Variant voItems7
								Get ComItems of hoitem6 to voItems7
								Handle hoItems7
								Get Create (RefClass(cComItems)) to hoItems7
								Set pvComObject of hoItems7 to voItems7
									Variant voitem7
									Get ComAdd of hoItems7 "C1" Nothing Nothing to voitem7
									Handle hoitem7
									Get Create (RefClass(cComitem)) to hoitem7
									Set pvComObject of hoitem7 to voitem7
										Set ComCheck of hoitem7 to True
										Set ComChecked of hoitem7 to True
									Send Destroy to hoitem7
									Variant voitem8
									Get ComAdd of hoItems7 "C2" Nothing Nothing to voitem8
									Handle hoitem8
									Get Create (RefClass(cComitem)) to hoitem8
									Set pvComObject of hoitem8 to voitem8
										Set ComCheck of hoitem8 to True
										Set ComChecked of hoitem8 to False
									Send Destroy to hoitem8
									Variant voitem9
									Get ComAdd of hoItems7 "C3" Nothing Nothing to voitem9
									Handle hoitem9
									Get Create (RefClass(cComitem)) to hoitem9
									Set pvComObject of hoitem9 to voitem9
										Set ComCheck of hoitem9 to True
										Set ComChecked of hoitem9 to True
									Send Destroy to hoitem9
								Send Destroy to hoItems7
							Send Destroy to hoitem6
						Send Destroy to hoItems6
					Send Destroy to hoitem
					Variant voItems8
					Get ComItems of hoItems to voItems8
					Handle hoItems8
					Get Create (RefClass(cComItems)) to hoItems8
					Set pvComObject of hoItems8 to voItems8
						Variant voitem10
						Get ComAdd of hoItems8 "" 0 0 to voitem10
						Handle hoitem10
						Get Create (RefClass(cComitem)) to hoitem10
						Set pvComObject of hoitem10 to voitem10
							Set ComPadding of hoitem10 to "4,0,0,0"
						Send Destroy to hoitem10
					Send Destroy to hoItems8
					Variant v2
					Variant voItems9
					Get ComItems of hoItems to voItems9
					Handle hoItems9
					Get Create (RefClass(cComItems)) to hoItems9
					Set pvComObject of hoItems9 to voItems9
						Get ComAdd of hoItems9 "New Group" Nothing Nothing to v2
					Send Destroy to hoItems9
					Move v2 to var_item2
						Set ComToString of hoItems to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						Set ComCaption of hoItems to ""
						Variant voItems10
						Get ComItems of hoItems to voItems10
						Handle hoItems10
						Get Create (RefClass(cComItems)) to hoItems10
						Set pvComObject of hoItems10 to voItems10
							Set ComBackgroundExt of hoItems10 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
							Variant voitem11
							Get ComAdd of hoItems10 "" 0 Nothing to voitem11
							Handle hoitem11
							Get Create (RefClass(cComitem)) to hoitem11
							Set pvComObject of hoitem11 to voitem11
								Set ComAllowEdit of hoitem11 to (OLEexItemEditVertical + OLEexItemEditSlider)
								Set ComItemHeight of hoitem11 to 76
								Set ComEditBorder of hoitem11 to OLEexEditBorderNone
								Set ComEditValue of hoitem11 to 25
							Send Destroy to hoitem11
							Variant voitem12
							Get ComAdd of hoItems10 "" 2 Nothing to voitem12
							Handle hoitem12
							Get Create (RefClass(cComitem)) to hoitem12
							Set pvComObject of hoitem12 to voitem12
								Set ComGroupPopup of hoitem12 to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
								Set ComCaption of hoitem12 to ""
								Variant voItems11
								Get ComItems of hoitem12 to voItems11
								Handle hoItems11
								Get Create (RefClass(cComItems)) to hoItems11
								Set pvComObject of hoItems11 to voItems11
									Variant voitem13
									Get ComAdd of hoItems11 "" 2 Nothing to voitem13
									Handle hoitem13
									Get Create (RefClass(cComitem)) to hoitem13
									Set pvComObject of hoitem13 to voitem13
										Set ComGroupPopup of hoitem13 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
										Variant voItems12
										Get ComItems of hoitem13 to voItems12
										Handle hoItems12
										Get Create (RefClass(cComItems)) to hoItems12
										Set pvComObject of hoItems12 to voItems12
											Variant voitem14
											Get ComAdd of hoItems12 "Button1" 2 Nothing to voitem14
											Handle hoitem14
											Get Create (RefClass(cComitem)) to hoitem14
											Set pvComObject of hoitem14 to voitem14
												Set ComShowAsButton of hoitem14 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
												Variant voItems13
												Get ComItems of hoitem14 to voItems13
												Handle hoItems13
												Get Create (RefClass(cComItems)) to hoItems13
												Set pvComObject of hoItems13 to voItems13
													Get ComAdd of hoItems13 "Item 1" Nothing Nothing to Nothing
													Get ComAdd of hoItems13 "Item 2" Nothing Nothing to Nothing
													Get ComAdd of hoItems13 "Item 3" Nothing Nothing to Nothing
												Send Destroy to hoItems13
											Send Destroy to hoitem14
											Variant voitem15
											Get ComAdd of hoItems12 "" 0 0 to voitem15
											Handle hoitem15
											Get Create (RefClass(cComitem)) to hoitem15
											Set pvComObject of hoitem15 to voitem15
												Set ComPadding of hoitem15 to "4,0,0,0"
											Send Destroy to hoitem15
											Variant voitem16
											Get ComAdd of hoItems12 "Button2" 2 Nothing to voitem16
											Handle hoitem16
											Get Create (RefClass(cComitem)) to hoitem16
											Set pvComObject of hoitem16 to voitem16
												Set ComShowAsButton of hoitem16 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
												Variant voItems14
												Get ComItems of hoitem16 to voItems14
												Handle hoItems14
												Get Create (RefClass(cComItems)) to hoItems14
												Set pvComObject of hoItems14 to voItems14
													Get ComAdd of hoItems14 "Item 4" Nothing Nothing to Nothing
													Get ComAdd of hoItems14 "Item 5" Nothing Nothing to Nothing
													Get ComAdd of hoItems14 "Item 6" Nothing Nothing to Nothing
												Send Destroy to hoItems14
											Send Destroy to hoitem16
										Send Destroy to hoItems12
									Send Destroy to hoitem13
									Variant voitem17
									Get ComAdd of hoItems11 "Popup" 2 Nothing to voitem17
									Handle hoitem17
									Get Create (RefClass(cComitem)) to hoitem17
									Set pvComObject of hoitem17 to voitem17
										Set ComAlignment of hoitem17 to OLEexCenter
										Variant voItems15
										Get ComItems of hoitem17 to voItems15
										Handle hoItems15
										Get Create (RefClass(cComItems)) to hoItems15
										Set pvComObject of hoItems15 to voItems15
											Variant voitem18
											Get ComAdd of hoItems15 "Item 7" Nothing Nothing to voitem18
											Handle hoitem18
											Get Create (RefClass(cComitem)) to hoitem18
											Set pvComObject of hoitem18 to voitem18
												Set ComCheck of hoitem18 to True
											Send Destroy to hoitem18
											Get ComAdd of hoItems15 "Item 8" Nothing Nothing to Nothing
											Variant voitem19
											Get ComAdd of hoItems15 "Item 9" 2 Nothing to voitem19
											Handle hoitem19
											Get Create (RefClass(cComitem)) to hoitem19
											Set pvComObject of hoitem19 to voitem19
												Variant voItems16
												Get ComItems of hoitem19 to voItems16
												Handle hoItems16
												Get Create (RefClass(cComItems)) to hoItems16
												Set pvComObject of hoItems16 to voItems16
													Get ComAdd of hoItems16 "Item 10" Nothing Nothing to Nothing
													Get ComAdd of hoItems16 "Item 11" Nothing Nothing to Nothing
													Get ComAdd of hoItems16 "Item 12" Nothing Nothing to Nothing
												Send Destroy to hoItems16
											Send Destroy to hoitem19
										Send Destroy to hoItems15
									Send Destroy to hoitem17
								Send Destroy to hoItems11
							Send Destroy to hoitem12
						Send Destroy to hoItems10
					Send Destroy to hoItems
				Variant var_item4
				Get ComAdd "New Page" Nothing Nothing to var_item4
					Set ComToString to "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])"
					Set ComID to 300
					Set ComCaption to "Page2"
					Variant voItems17
					Get ComItems to voItems17
					Handle hoItems17
					Get Create (RefClass(cComItems)) to hoItems17
					Set pvComObject of hoItems17 to voItems17
						Variant voitem20
						Get ComAdd of hoItems17 "S1" Nothing Nothing to voitem20
						Handle hoitem20
						Get Create (RefClass(cComitem)) to hoitem20
						Set pvComObject of hoitem20 to voitem20
							Set ComItemHeight of hoitem20 to 88
							Set ComAllowEdit of hoitem20 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
							Set ComEditValue of hoitem20 to 25
						Send Destroy to hoitem20
						Variant voitem21
						Get ComAdd of hoItems17 "S2" Nothing Nothing to voitem21
						Handle hoitem21
						Get Create (RefClass(cComitem)) to hoitem21
						Set pvComObject of hoitem21 to voitem21
							Set ComItemHeight of hoitem21 to 88
							Set ComAllowEdit of hoitem21 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
							Set ComEditValue of hoitem21 to 50
						Send Destroy to hoitem21
						Variant voitem22
						Get ComAdd of hoItems17 "S3" Nothing Nothing to voitem22
						Handle hoitem22
						Get Create (RefClass(cComitem)) to hoitem22
						Set pvComObject of hoitem22 to voitem22
							Set ComItemHeight of hoitem22 to 88
							Set ComAllowEdit of hoitem22 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
							Set ComEditValue of hoitem22 to 75
						Send Destroy to hoitem22
					Send Destroy to hoItems17
				Variant voitem23
				Get ComAdd "" 0 0 to voitem23
				Handle hoitem23
				Get Create (RefClass(cComitem)) to hoitem23
				Set pvComObject of hoitem23 to voitem23
					Set ComPadding of hoitem23 to "8,0,0,0"
				Send Destroy to hoitem23
	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:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn" to Nothing
		Get ComAdd of hoAppearance 2 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn" to Nothing
		Get ComAdd of hoAppearance 3 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn" to Nothing
		Get ComAdd of hoAppearance 4 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn" to Nothing
		Get ComAdd of hoAppearance 5 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn" to Nothing
		Get ComAdd of hoAppearance 6 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn" to Nothing
		Get ComAdd of hoAppearance 7 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn" to Nothing
		Get ComAdd of hoAppearance 8 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn" to Nothing
		Get ComAdd of hoAppearance 9 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn" to Nothing
		Get ComAdd of hoAppearance 10 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn" to Nothing
		Get ComAdd of hoAppearance 11 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn" to Nothing
		Get ComAdd of hoAppearance 12 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn" to Nothing
		Get ComAdd of hoAppearance 13 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn" to Nothing
		Get ComAdd of hoAppearance 14 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn" to Nothing
		Get ComAdd of hoAppearance 15 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn" to Nothing
		Get ComAdd of hoAppearance 16 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn" to Nothing
		Get ComAdd of hoAppearance 17 "CP:16 0 0 0 1" to Nothing
		Get ComAdd of hoAppearance 18 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn" to Nothing
		Get ComAdd of hoAppearance 19 "C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn" to Nothing
		Get ComAdd of hoAppearance 20 "CP:19 0 0 0 1" to Nothing
	Send Destroy to hoAppearance
	Set ComLocalAppearance to OLEShadowBorder
	Set ComAppearance to |CI$1000000
	Set ComForeColor to (RGB(21,66,139))
	Set ComSelBackColor to |CI$e000000
	Set ComBackground OLEexToolTipAppearance to (ComAppearance(Self))
	Set ComBackground |CI$2 to |CI$d000000
	Set ComBackground OLEexGroupPopupFrameSingle to |CI$5000000
	Set ComBackground OLEexGroupPopupFrameHStart to |CI$6000000
	Set ComBackground OLEexGroupPopupFrameHIntermediate to |CI$7000000
	Set ComBackground OLEexGroupPopupFrameHEnd to |CI$8000000
	Set ComBackground OLEexGroupPopupFrameVStart to |CI$9000000
	Set ComBackground OLEexGroupPopupFrameVIntermediate to |CI$a000000
	Set ComBackground OLEexGroupPopupFrameVEnd to |CI$b000000
	Set ComBackground OLEexMenuHotBackColor to |CI$c000000
	Set ComBackground OLEexMenuSelHotBackColor to |CI$f000000
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
166:
Microsoft Office - Ribbon Like

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComMenuAppearance to OLEexMenuNormal
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[id=0][group=0x03](),[id=-20][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
		Variant voitem
		Get Comitem of hoItems 0 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voitem1
				Get ComAdd of hoItems1 "" 0 0 to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComPadding of hoitem1 to "8,0,0,0"
				Send Destroy to hoitem1
				Variant var_item3
				Get ComAdd of hoItems1 "New Page" Nothing Nothing to var_item3
					Set ComToString of hoItems1 to "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])"
					Set ComID of hoItems1 to 200
					Set ComCaption of hoItems1 to "Page1"
					Variant v
					Variant voItems2
					Get ComItems of hoItems1 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Get ComAdd of hoItems2 "New Group" Nothing Nothing to v
					Send Destroy to hoItems2
					Move v to var_item
						Set ComToString of hoItems1 to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						Set ComCaption of hoItems1 to "<b><font ;14>A"
						Variant voItems3
						Get ComItems of hoItems1 to voItems3
						Handle hoItems3
						Get Create (RefClass(cComItems)) to hoItems3
						Set pvComObject of hoItems3 to voItems3
							Set ComBackgroundExt of hoItems3 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
							Variant voitem2
							Get ComAdd of hoItems3 "" 2 Nothing to voitem2
							Handle hoitem2
							Get Create (RefClass(cComitem)) to hoitem2
							Set pvComObject of hoitem2 to voitem2
								Set ComGroupPopup of hoitem2 to (OLEexGroupPopupEqualWidth + OLEexGroupPopup)
								Set ComCaption of hoitem2 to ""
								Variant voItems4
								Get ComItems of hoitem2 to voItems4
								Handle hoItems4
								Get Create (RefClass(cComItems)) to hoItems4
								Set pvComObject of hoItems4 to voItems4
									Variant voitem3
									Get ComAdd of hoItems4 "R1" Nothing Nothing to voitem3
									Handle hoitem3
									Get Create (RefClass(cComitem)) to hoitem3
									Set pvComObject of hoitem3 to voitem3
										Set ComRadioGroup of hoitem3 to 100
										Set ComRadio of hoitem3 to True
										Set ComShowCheckedAsSelected of hoitem3 to OLEexDisplayItemHighlight
										Set ComChecked of hoitem3 to False
									Send Destroy to hoitem3
									Variant voitem4
									Get ComAdd of hoItems4 "R2" Nothing Nothing to voitem4
									Handle hoitem4
									Get Create (RefClass(cComitem)) to hoitem4
									Set pvComObject of hoitem4 to voitem4
										Set ComRadioGroup of hoitem4 to 100
										Set ComRadio of hoitem4 to True
										Set ComShowCheckedAsSelected of hoitem4 to OLEexDisplayItemHighlight
										Set ComChecked of hoitem4 to True
									Send Destroy to hoitem4
									Variant voitem5
									Get ComAdd of hoItems4 "R3" Nothing Nothing to voitem5
									Handle hoitem5
									Get Create (RefClass(cComitem)) to hoitem5
									Set pvComObject of hoitem5 to voitem5
										Set ComRadioGroup of hoitem5 to 100
										Set ComRadio of hoitem5 to True
										Set ComShowCheckedAsSelected of hoitem5 to OLEexDisplayItemHighlight
										Set ComChecked of hoitem5 to False
									Send Destroy to hoitem5
								Send Destroy to hoItems4
							Send Destroy to hoitem2
						Send Destroy to hoItems3
					Send Destroy to hoItems1
					Variant v1
					Variant voItems5
					Get ComItems of hoitem to voItems5
					Handle hoItems5
					Get Create (RefClass(cComItems)) to hoItems5
					Set pvComObject of hoItems5 to voItems5
						Get ComAdd of hoItems5 "New Group" Nothing Nothing to v1
					Send Destroy to hoItems5
					Move v1 to var_item1
						Set ComToString of hoitem to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						Set ComCaption of hoitem to "<b><font ;14>B"
						Variant voItems6
						Get ComItems of hoitem to voItems6
						Handle hoItems6
						Get Create (RefClass(cComItems)) to hoItems6
						Set pvComObject of hoItems6 to voItems6
							Set ComBackgroundExt of hoItems6 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
							Variant voitem6
							Get ComAdd of hoItems6 "" 2 Nothing to voitem6
							Handle hoitem6
							Get Create (RefClass(cComitem)) to hoitem6
							Set pvComObject of hoitem6 to voitem6
								Set ComGroupPopup of hoitem6 to (OLEexGroupPopupVertical + OLEexGroupPopupEqualHeight + OLEexGroupPopup)
								Set ComCaption of hoitem6 to ""
								Variant voItems7
								Get ComItems of hoitem6 to voItems7
								Handle hoItems7
								Get Create (RefClass(cComItems)) to hoItems7
								Set pvComObject of hoItems7 to voItems7
									Variant voitem7
									Get ComAdd of hoItems7 "C1" Nothing Nothing to voitem7
									Handle hoitem7
									Get Create (RefClass(cComitem)) to hoitem7
									Set pvComObject of hoitem7 to voitem7
										Set ComCheck of hoitem7 to True
										Set ComChecked of hoitem7 to True
									Send Destroy to hoitem7
									Variant voitem8
									Get ComAdd of hoItems7 "C2" Nothing Nothing to voitem8
									Handle hoitem8
									Get Create (RefClass(cComitem)) to hoitem8
									Set pvComObject of hoitem8 to voitem8
										Set ComCheck of hoitem8 to True
										Set ComChecked of hoitem8 to False
									Send Destroy to hoitem8
									Variant voitem9
									Get ComAdd of hoItems7 "C3" Nothing Nothing to voitem9
									Handle hoitem9
									Get Create (RefClass(cComitem)) to hoitem9
									Set pvComObject of hoitem9 to voitem9
										Set ComCheck of hoitem9 to True
										Set ComChecked of hoitem9 to True
									Send Destroy to hoitem9
								Send Destroy to hoItems7
							Send Destroy to hoitem6
						Send Destroy to hoItems6
					Send Destroy to hoitem
					Variant voItems8
					Get ComItems of hoItems to voItems8
					Handle hoItems8
					Get Create (RefClass(cComItems)) to hoItems8
					Set pvComObject of hoItems8 to voItems8
						Variant voitem10
						Get ComAdd of hoItems8 "" 0 0 to voitem10
						Handle hoitem10
						Get Create (RefClass(cComitem)) to hoitem10
						Set pvComObject of hoitem10 to voitem10
							Set ComPadding of hoitem10 to "4,0,0,0"
						Send Destroy to hoitem10
					Send Destroy to hoItems8
					Variant v2
					Variant voItems9
					Get ComItems of hoItems to voItems9
					Handle hoItems9
					Get Create (RefClass(cComItems)) to hoItems9
					Set pvComObject of hoItems9 to voItems9
						Get ComAdd of hoItems9 "New Group" Nothing Nothing to v2
					Send Destroy to hoItems9
					Move v2 to var_item2
						Set ComToString of hoItems to "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
						Set ComCaption of hoItems to ""
						Variant voItems10
						Get ComItems of hoItems to voItems10
						Handle hoItems10
						Get Create (RefClass(cComItems)) to hoItems10
						Set pvComObject of hoItems10 to voItems10
							Set ComBackgroundExt of hoItems10 to "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
							Variant voitem11
							Get ComAdd of hoItems10 "" 0 Nothing to voitem11
							Handle hoitem11
							Get Create (RefClass(cComitem)) to hoitem11
							Set pvComObject of hoitem11 to voitem11
								Set ComAllowEdit of hoitem11 to (OLEexItemEditVertical + OLEexItemEditSlider)
								Set ComItemHeight of hoitem11 to 76
								Set ComEditBorder of hoitem11 to OLEexEditBorderNone
								Set ComEditValue of hoitem11 to 25
							Send Destroy to hoitem11
							Variant voitem12
							Get ComAdd of hoItems10 "" 2 Nothing to voitem12
							Handle hoitem12
							Get Create (RefClass(cComitem)) to hoitem12
							Set pvComObject of hoitem12 to voitem12
								Set ComGroupPopup of hoitem12 to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
								Set ComCaption of hoitem12 to ""
								Variant voItems11
								Get ComItems of hoitem12 to voItems11
								Handle hoItems11
								Get Create (RefClass(cComItems)) to hoItems11
								Set pvComObject of hoItems11 to voItems11
									Variant voitem13
									Get ComAdd of hoItems11 "" 2 Nothing to voitem13
									Handle hoitem13
									Get Create (RefClass(cComitem)) to hoitem13
									Set pvComObject of hoitem13 to voitem13
										Set ComGroupPopup of hoitem13 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
										Variant voItems12
										Get ComItems of hoitem13 to voItems12
										Handle hoItems12
										Get Create (RefClass(cComItems)) to hoItems12
										Set pvComObject of hoItems12 to voItems12
											Variant voitem14
											Get ComAdd of hoItems12 "Button1" 2 Nothing to voitem14
											Handle hoitem14
											Get Create (RefClass(cComitem)) to hoitem14
											Set pvComObject of hoitem14 to voitem14
												Set ComShowAsButton of hoitem14 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
												Variant voItems13
												Get ComItems of hoitem14 to voItems13
												Handle hoItems13
												Get Create (RefClass(cComItems)) to hoItems13
												Set pvComObject of hoItems13 to voItems13
													Get ComAdd of hoItems13 "Item 1" Nothing Nothing to Nothing
													Get ComAdd of hoItems13 "Item 2" Nothing Nothing to Nothing
													Get ComAdd of hoItems13 "Item 3" Nothing Nothing to Nothing
												Send Destroy to hoItems13
											Send Destroy to hoitem14
											Variant voitem15
											Get ComAdd of hoItems12 "" 0 0 to voitem15
											Handle hoitem15
											Get Create (RefClass(cComitem)) to hoitem15
											Set pvComObject of hoitem15 to voitem15
												Set ComPadding of hoitem15 to "4,0,0,0"
											Send Destroy to hoitem15
											Variant voitem16
											Get ComAdd of hoItems12 "Button2" 2 Nothing to voitem16
											Handle hoitem16
											Get Create (RefClass(cComitem)) to hoitem16
											Set pvComObject of hoitem16 to voitem16
												Set ComShowAsButton of hoitem16 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
												Variant voItems14
												Get ComItems of hoitem16 to voItems14
												Handle hoItems14
												Get Create (RefClass(cComItems)) to hoItems14
												Set pvComObject of hoItems14 to voItems14
													Get ComAdd of hoItems14 "Item 4" Nothing Nothing to Nothing
													Get ComAdd of hoItems14 "Item 5" Nothing Nothing to Nothing
													Get ComAdd of hoItems14 "Item 6" Nothing Nothing to Nothing
												Send Destroy to hoItems14
											Send Destroy to hoitem16
										Send Destroy to hoItems12
									Send Destroy to hoitem13
									Variant voitem17
									Get ComAdd of hoItems11 "Popup" 2 Nothing to voitem17
									Handle hoitem17
									Get Create (RefClass(cComitem)) to hoitem17
									Set pvComObject of hoitem17 to voitem17
										Set ComAlignment of hoitem17 to OLEexCenter
										Variant voItems15
										Get ComItems of hoitem17 to voItems15
										Handle hoItems15
										Get Create (RefClass(cComItems)) to hoItems15
										Set pvComObject of hoItems15 to voItems15
											Variant voitem18
											Get ComAdd of hoItems15 "Item 7" Nothing Nothing to voitem18
											Handle hoitem18
											Get Create (RefClass(cComitem)) to hoitem18
											Set pvComObject of hoitem18 to voitem18
												Set ComCheck of hoitem18 to True
											Send Destroy to hoitem18
											Get ComAdd of hoItems15 "Item 8" Nothing Nothing to Nothing
											Variant voitem19
											Get ComAdd of hoItems15 "Item 9" 2 Nothing to voitem19
											Handle hoitem19
											Get Create (RefClass(cComitem)) to hoitem19
											Set pvComObject of hoitem19 to voitem19
												Variant voItems16
												Get ComItems of hoitem19 to voItems16
												Handle hoItems16
												Get Create (RefClass(cComItems)) to hoItems16
												Set pvComObject of hoItems16 to voItems16
													Get ComAdd of hoItems16 "Item 10" Nothing Nothing to Nothing
													Get ComAdd of hoItems16 "Item 11" Nothing Nothing to Nothing
													Get ComAdd of hoItems16 "Item 12" Nothing Nothing to Nothing
												Send Destroy to hoItems16
											Send Destroy to hoitem19
										Send Destroy to hoItems15
									Send Destroy to hoitem17
								Send Destroy to hoItems11
							Send Destroy to hoitem12
						Send Destroy to hoItems10
					Send Destroy to hoItems
				Variant var_item4
				Get ComAdd "New Page" Nothing Nothing to var_item4
					Set ComToString to "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])"
					Set ComID to 300
					Set ComCaption to "Page2"
					Variant voItems17
					Get ComItems to voItems17
					Handle hoItems17
					Get Create (RefClass(cComItems)) to hoItems17
					Set pvComObject of hoItems17 to voItems17
						Variant voitem20
						Get ComAdd of hoItems17 "S1" Nothing Nothing to voitem20
						Handle hoitem20
						Get Create (RefClass(cComitem)) to hoitem20
						Set pvComObject of hoitem20 to voitem20
							Set ComItemHeight of hoitem20 to 88
							Set ComAllowEdit of hoitem20 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
							Set ComEditValue of hoitem20 to 25
						Send Destroy to hoitem20
						Variant voitem21
						Get ComAdd of hoItems17 "S2" Nothing Nothing to voitem21
						Handle hoitem21
						Get Create (RefClass(cComitem)) to hoitem21
						Set pvComObject of hoitem21 to voitem21
							Set ComItemHeight of hoitem21 to 88
							Set ComAllowEdit of hoitem21 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
							Set ComEditValue of hoitem21 to 50
						Send Destroy to hoitem21
						Variant voitem22
						Get ComAdd of hoItems17 "S3" Nothing Nothing to voitem22
						Handle hoitem22
						Get Create (RefClass(cComitem)) to hoitem22
						Set pvComObject of hoitem22 to voitem22
							Set ComItemHeight of hoitem22 to 88
							Set ComAllowEdit of hoitem22 to (OLEexItemEditVertical + OLEexItemEditSpin + OLEexItemEditProgress)
							Set ComEditValue of hoitem22 to 75
						Send Destroy to hoitem22
					Send Destroy to hoItems17
				Variant voitem23
				Get ComAdd "" 0 0 to voitem23
				Handle hoitem23
				Get Create (RefClass(cComitem)) to hoitem23
				Set pvComObject of hoitem23 to voitem23
					Set ComPadding of hoitem23 to "8,0,0,0"
				Send Destroy to hoitem23
	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:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_background.ebn" to Nothing
		Get ComAdd of hoAppearance 2 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_groupt.ebn" to Nothing
		Get ComAdd of hoAppearance 3 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_groupo.ebn" to Nothing
		Get ComAdd of hoAppearance 4 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_grouphot.ebn" to Nothing
		Get ComAdd of hoAppearance 5 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_frameh.ebn" to Nothing
		Get ComAdd of hoAppearance 6 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_framehs.ebn" to Nothing
		Get ComAdd of hoAppearance 7 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_framehi.ebn" to Nothing
		Get ComAdd of hoAppearance 8 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_framehe.ebn" to Nothing
		Get ComAdd of hoAppearance 9 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_framevs.ebn" to Nothing
		Get ComAdd of hoAppearance 10 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_framevi.ebn" to Nothing
		Get ComAdd of hoAppearance 11 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_frameve.ebn" to Nothing
		Get ComAdd of hoAppearance 12 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_select.ebn" to Nothing
		Get ComAdd of hoAppearance 13 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_bordert.ebn" to Nothing
		Get ComAdd of hoAppearance 14 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_buttond.ebn" to Nothing
		Get ComAdd of hoAppearance 15 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_buttonu.ebn" to Nothing
		Get ComAdd of hoAppearance 16 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_tab.ebn" to Nothing
		Get ComAdd of hoAppearance 17 "CP:16 0 0 0 1" to Nothing
		Get ComAdd of hoAppearance 18 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_tabhot.ebn" to Nothing
		Get ComAdd of hoAppearance 19 "C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_tabselhot.ebn" to Nothing
		Get ComAdd of hoAppearance 20 "CP:19 0 0 0 1" to Nothing
	Send Destroy to hoAppearance
	Set ComForeColor to (RGB(21,66,139))
	Set ComSelBackColor to |CI$e000000
	Set ComLocalAppearance to OLEShadowBorder
	Set ComAppearance to |CI$1000000
	Set ComBackground OLEexToolTipAppearance to (ComAppearance(Self))
	Set ComBackground |CI$2 to |CI$d000000
	Set ComBackground OLEexGroupPopupFrameSingle to |CI$5000000
	Set ComBackground OLEexGroupPopupFrameHStart to |CI$6000000
	Set ComBackground OLEexGroupPopupFrameHIntermediate to |CI$7000000
	Set ComBackground OLEexGroupPopupFrameHEnd to |CI$8000000
	Set ComBackground OLEexGroupPopupFrameVStart to |CI$9000000
	Set ComBackground OLEexGroupPopupFrameVIntermediate to |CI$a000000
	Set ComBackground OLEexGroupPopupFrameVEnd to |CI$b000000
	Set ComBackground OLEexMenuHotBackColor to |CI$c000000
	Set ComBackground OLEexMenuSelHotBackColor to |CI$f000000
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
165:
How I can assign buttons to a tab

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComBackground OLEexMenuSelBorderColor to (RGB(240,240,240))
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[id=0][group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03](),[id=0][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-100]))"
		Variant voitem
		Get Comitem of hoItems -10 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voitem1
				Get ComAdd of hoItems1 "" 0 0 to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComPadding of hoitem1 to "8,0,0,0"
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoItems1 "New Page" Nothing Nothing to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComToString of hoitem2 to "[typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][group=0x03][tab=-100][pad=2,0,2,0]([id=50][group=0x03]([]))"
					Set ComCaption of hoitem2 to "Page<off -5><font ;5><b>1</b></font></off>"
					Variant voItems2
					Get ComItems of hoitem2 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voitem3
						Get ComAdd of hoItems2 "Button 1" Nothing Nothing to voitem3
						Handle hoitem3
						Get Create (RefClass(cComitem)) to hoitem3
						Set pvComObject of hoitem3 to voitem3
							Set ComShowAsButton of hoitem3 to (OLEexShowAsButtonAutoSize + OLEexShowAsButton)
						Send Destroy to hoitem3
						Variant voitem4
						Get ComAdd of hoItems2 "Button 2" Nothing Nothing to voitem4
						Handle hoitem4
						Get Create (RefClass(cComitem)) to hoitem4
						Set pvComObject of hoitem4 to voitem4
							Set ComShowAsButton of hoitem4 to (OLEexShowAsButtonAutoSize + OLEexShowAsButton)
						Send Destroy to hoitem4
						Variant voitem5
						Get ComAdd of hoItems2 "Button 3" Nothing Nothing to voitem5
						Handle hoitem5
						Get Create (RefClass(cComitem)) to hoitem5
						Set pvComObject of hoitem5 to voitem5
							Set ComShowAsButton of hoitem5 to (OLEexShowAsButtonAutoSize + OLEexShowAsButton)
						Send Destroy to hoitem5
					Send Destroy to hoItems2
				Send Destroy to hoitem2
				Variant voitem6
				Get ComAdd of hoItems1 "New Page" Nothing Nothing to voitem6
				Handle hoitem6
				Get Create (RefClass(cComitem)) to hoitem6
				Set pvComObject of hoitem6 to voitem6
					Set ComToString of hoitem6 to "[typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][group=0x03][tab=-100][pad=2,0,2,0]([id=50][group=0x03]([]))"
					Set ComCaption of hoitem6 to "Page<off -5><font ;5><b>2</b></font></off>"
					Variant voItems3
					Get ComItems of hoitem6 to voItems3
					Handle hoItems3
					Get Create (RefClass(cComItems)) to hoItems3
					Set pvComObject of hoItems3 to voItems3
						Variant voitem7
						Get ComAdd of hoItems3 "Button 3" Nothing Nothing to voitem7
						Handle hoitem7
						Get Create (RefClass(cComitem)) to hoitem7
						Set pvComObject of hoitem7 to voitem7
							Set ComShowAsButton of hoitem7 to (OLEexShowAsButtonAutoSize + OLEexShowAsButton)
						Send Destroy to hoitem7
						Variant voitem8
						Get ComAdd of hoItems3 "Button 4" Nothing Nothing to voitem8
						Handle hoitem8
						Get Create (RefClass(cComitem)) to hoitem8
						Set pvComObject of hoitem8 to voitem8
							Set ComShowAsButton of hoitem8 to (OLEexShowAsButtonAutoSize + OLEexShowAsButton)
						Send Destroy to hoitem8
					Send Destroy to hoItems3
				Send Destroy to hoitem6
				Variant voitem9
				Get ComAdd of hoItems1 "" 0 0 to voitem9
				Handle hoitem9
				Get Create (RefClass(cComitem)) to hoitem9
				Set pvComObject of hoitem9 to voitem9
					Set ComPadding of hoitem9 to "8,0,0,0"
				Send Destroy to hoitem9
			Send Destroy to hoItems1
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
164:
How can I hide an item

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item 1" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComVisible of hoitem to False
		Send Destroy to hoitem
		Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
163:
How do I get the item giving its caption

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item 1" 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
		Variant voitem1
		Get ComAdd of hoItems "Item 2" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComID of hoitem1 to 1001
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Variant voitem2
	Get Comitem "Item 1" to voitem2
	Handle hoitem2
	Get Create (RefClass(cComitem)) to hoitem2
	Set pvComObject of hoitem2 to voitem2
		Set ComBold of hoitem2 to True
	Send Destroy to hoitem2
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
162:
How do I get the item giving its identifier

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item 1" 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
		Variant voitem1
		Get ComAdd of hoItems "Item 2" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComID of hoitem1 to 1001
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Variant voitem2
	Get Comitem 1000 to voitem2
	Handle hoitem2
	Get Create (RefClass(cComitem)) to hoitem2
	Set pvComObject of hoitem2 to voitem2
		Set ComBold of hoitem2 to True
	Send Destroy to hoitem2
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
161:
Can I change the cursor where it hovers the item
Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComCursor to "exCross"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Item 1" Nothing Nothing to Nothing
		Variant voitem
		Get ComAdd of hoItems "Item 2" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComCursor of hoitem to "exNoDrop"
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
160:
I am using radio-buttons, the question is it possible to uncheck the radio-buttons, so no button is pressed in the group

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComAllowToggleRadio to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Radio 1" 1000 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComRadio of hoitem to True
			Set ComRadioGroup of hoitem to 100
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "Radio 2" 1001 to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComRadio of hoitem1 to True
			Set ComRadioGroup of hoitem1 to 100
		Send Destroy to hoitem1
		Variant voitem2
		Get ComAdd of hoItems "Radio 2" 1003 to voitem2
		Handle hoitem2
		Get Create (RefClass(cComitem)) to hoitem2
		Set pvComObject of hoitem2 to voitem2
			Set ComRadio of hoitem2 to True
			Set ComRadioGroup of hoitem2 to 100
		Send Destroy to hoitem2
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
159:
Is it possible to display the item's identifiers

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComDebug to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item 1" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComID of hoitem to 10001
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "Item 2" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComID of hoitem1 to 10002
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
158:
How do I disable showing the tooltip for all control (method 2)
Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComAllowToolTip to False
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComTooltip of hoitem to "this is a bit of text to be shown when cursor hovers it"
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "Item" 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 to be shown when cursor hovers it"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
157:
How can I disable the control

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item 1" 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
		Variant voitem1
		Get ComAdd of hoItems "Item 2" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComEnabled of hoitem1 to False
		Send Destroy to hoitem1
		Variant voitem2
		Get ComAdd of hoItems "Item 3" Nothing Nothing to voitem2
		Handle hoitem2
		Get Create (RefClass(cComitem)) to hoitem2
		Set pvComObject of hoitem2 to voitem2
			Set ComEnabled of hoitem2 to False
		Send Destroy to hoitem2
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
156:
How can I specify a different border/visual appearance for drop down portion of the select buttons/combobox (ebn)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	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 ComLocalAppearance to |CI$1000000
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voitem1
				Get ComAdd of hoItems1 "Button" 2 Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComShowAsButton of hoitem1 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
					Variant voItems2
					Get ComItems of hoitem1 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Get ComAdd of hoItems2 "Item 1" Nothing Nothing to Nothing
						Get ComAdd of hoItems2 "Item 2" Nothing Nothing to Nothing
						Get ComAdd of hoItems2 "Item 3" Nothing Nothing to Nothing
					Send Destroy to hoItems2
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoItems1 "Button" 2 Nothing to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComShowAsButton of hoitem2 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
					Variant voItems3
					Get ComItems of hoitem2 to voItems3
					Handle hoItems3
					Get Create (RefClass(cComItems)) to hoItems3
					Set pvComObject of hoItems3 to voItems3
						Get ComAdd of hoItems3 "Item 4" Nothing Nothing to Nothing
						Get ComAdd of hoItems3 "Item 5" Nothing Nothing to Nothing
						Get ComAdd of hoItems3 "Item 6" Nothing Nothing to Nothing
					Send Destroy to hoItems3
				Send Destroy to hoitem2
			Send Destroy to hoItems1
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
155:
How can I specify a different border for drop down portion of the select buttons/combobox

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComLocalAppearance to OLEShadowBorder
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voitem1
				Get ComAdd of hoItems1 "Button" 2 Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComShowAsButton of hoitem1 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
					Variant voItems2
					Get ComItems of hoitem1 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Get ComAdd of hoItems2 "Item 1" Nothing Nothing to Nothing
						Get ComAdd of hoItems2 "Item 2" Nothing Nothing to Nothing
						Get ComAdd of hoItems2 "Item 3" Nothing Nothing to Nothing
					Send Destroy to hoItems2
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoItems1 "Button" 2 Nothing to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComShowAsButton of hoitem2 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
					Variant voItems3
					Get ComItems of hoitem2 to voItems3
					Handle hoItems3
					Get Create (RefClass(cComItems)) to hoItems3
					Set pvComObject of hoItems3 to voItems3
						Get ComAdd of hoItems3 "Item 4" Nothing Nothing to Nothing
						Get ComAdd of hoItems3 "Item 5" Nothing Nothing to Nothing
						Get ComAdd of hoItems3 "Item 6" Nothing Nothing to Nothing
					Send Destroy to hoItems3
				Send Destroy to hoitem2
			Send Destroy to hoItems1
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
154:
How can I change the visual appearance for the entire control

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	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 ComAppearance to |CI$1000000
	Set ComShowCheckedAsSelected to OLEexDisplayItemCheckHighlight
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPadding of hoItems to "4,4,4,4"
		Variant voitem
		Get ComAdd of hoItems "Radio 1" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComRadio of hoitem to True
			Set ComChecked of hoitem to True
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "Radio 2" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComRadio of hoitem1 to True
		Send Destroy to hoitem1
		Variant voitem2
		Get ComAdd of hoItems "Radio 3" Nothing Nothing to voitem2
		Handle hoitem2
		Get Create (RefClass(cComitem)) to hoitem2
		Set pvComObject of hoitem2 to voitem2
			Set ComRadio of hoitem2 to True
		Send Destroy to hoitem2
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
153:
How can I show a border arround the control

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComAppearance to OLEFlatBorder
	Set ComShowCheckedAsSelected to OLEexDisplayItemCheckHighlight
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPadding of hoItems to "4,4,4,4"
		Variant voitem
		Get ComAdd of hoItems "Check 1" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComChecked of hoitem to True
			Set ComCheck of hoitem to True
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "Check 2" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComCheck of hoitem1 to True
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
152:
Is it possible to change the item's background color when check/uncheck the item

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComShowCheckedAsSelected to OLEexDisplayItemCheckHighlight
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPadding of hoItems to "4,4,4,4"
		Variant voitem
		Get ComAdd of hoItems "Check 1" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComChecked of hoitem to True
			Set ComCheck of hoitem to True
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "Check 2" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComCheck of hoitem1 to True
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
151:
How can I change the colors for hot/hover items

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComBackground OLEexMenuHotBackColor to (RGB(0,0,1))
	Set ComBackground OLEexMenuHotForeColor to (RGB(255,255,255))
	Set ComBackground OLEexMenuSelHotBackColor to (RGB(128,128,128))
	Set ComBackground OLEexMenuSelHotForeColor to (RGB(255,255,255))
	Set ComSelBackColor to (RGB(128,128,128))
	Set ComSelForeColor to (RGB(255,255,255))
	Set ComBackground OLEexMenuSelBorderColor to (RGB(128,128,128))
	Set ComShowCheckedAsSelected to OLEexDisplayItemCheckHighlight
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPadding of hoItems to "4,4,4,4"
		Variant voitem
		Get ComAdd of hoItems "" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComToString of hoitem to "[group=3](Item 1,Item 2)"
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "Check 1" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComChecked of hoitem1 to True
			Set ComCheck of hoitem1 to True
		Send Destroy to hoitem1
		Variant voitem2
		Get ComAdd of hoItems "Check 2" Nothing Nothing to voitem2
		Handle hoitem2
		Get Create (RefClass(cComitem)) to hoitem2
		Set pvComObject of hoitem2 to voitem2
			Set ComCheck of hoitem2 to True
		Send Destroy to hoitem2
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
150:
How do I change the visual appearance of the groups (vertical)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	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
		Get ComAdd of hoAppearance 2 "c:\exontrol\images\pushed.ebn" to Nothing
		Get ComAdd of hoAppearance 3 "c:\exontrol\images\hot.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexGroupPopupFrameSingle to |CI$1000000
	Set ComBackground OLEexGroupPopupFrameVStart to |CI$1000000
	Set ComBackground OLEexGroupPopupFrameVIntermediate to |CI$2000000
	Set ComBackground OLEexGroupPopupFrameVEnd to |CI$3000000
	Set ComBackground OLEexGroupPopupFrameSolid to (RGB(255,0,0))
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voitem1
				Get ComAdd of hoItems1 "Vertical" 2 Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComAlignment of hoitem1 to OLEexCenter
					Set ComGroupPopup of hoitem1 to (OLEexGroupPopupVertical + OLEexGroupPopup)
					Variant voItems2
					Get ComItems of hoitem1 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Get ComAdd of hoItems2 "Item 1" Nothing Nothing to Nothing
						Get ComAdd of hoItems2 "Item 2" Nothing Nothing to Nothing
						Get ComAdd of hoItems2 "Item 3" Nothing Nothing to Nothing
						Get ComAdd of hoItems2 "Item 4" Nothing Nothing to Nothing
						Get ComAdd of hoItems2 "Item 5" Nothing Nothing to Nothing
					Send Destroy to hoItems2
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoItems1 "" Nothing Nothing to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComCaptionWidth of hoitem2 to 12
				Send Destroy to hoitem2
				Variant voitem3
				Get ComAdd of hoItems1 "Vertical" 2 Nothing to voitem3
				Handle hoitem3
				Get Create (RefClass(cComitem)) to hoitem3
				Set pvComObject of hoitem3 to voitem3
					Set ComAlignment of hoitem3 to OLEexCenter
					Set ComGroupPopup of hoitem3 to (OLEexGroupPopupVertical + OLEexGroupPopupFrameThickBox + OLEexGroupPopupFrameSolidBox + OLEexGroupPopup)
					Variant voItems3
					Get ComItems of hoitem3 to voItems3
					Handle hoItems3
					Get Create (RefClass(cComItems)) to hoItems3
					Set pvComObject of hoItems3 to voItems3
						Get ComAdd of hoItems3 "Item 1" Nothing Nothing to Nothing
						Get ComAdd of hoItems3 "Item 2" Nothing Nothing to Nothing
						Get ComAdd of hoItems3 "Item 3" Nothing Nothing to Nothing
						Get ComAdd of hoItems3 "Item 4" Nothing Nothing to Nothing
						Get ComAdd of hoItems3 "Item 5" Nothing Nothing to Nothing
					Send Destroy to hoItems3
				Send Destroy to hoitem3
			Send Destroy to hoItems1
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
149:
How do I change the visual appearance of the groups (horizontal)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	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
		Get ComAdd of hoAppearance 2 "c:\exontrol\images\pushed.ebn" to Nothing
		Get ComAdd of hoAppearance 3 "c:\exontrol\images\hot.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexGroupPopupFrameSingle to |CI$1000000
	Set ComBackground OLEexGroupPopupFrameHStart to |CI$1000000
	Set ComBackground OLEexGroupPopupFrameHIntermediate to |CI$2000000
	Set ComBackground OLEexGroupPopupFrameHEnd to |CI$3000000
	Set ComBackground OLEexGroupPopupFrameSolid to (RGB(255,0,0))
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Horizontal Group" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to OLEexGroupPopup
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 4" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 5" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComToString of hoitem1 to "Horizontal Group[group=193](Item 1,Item 2,Item 3,Item 4,Item 5)"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
148:
How can I change the visual appearance of the separator item

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	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 OLEexMenuSeparatorItem to |CI$1000000
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComCaptionWidth of hoitem to 128
		Send Destroy to hoitem
		Get ComAdd of hoItems "" 1 Nothing to Nothing
		Variant voitem1
		Get ComAdd of hoItems "Item" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComCaptionWidth of hoitem1 to 128
		Send Destroy to hoitem1
		Variant voitem2
		Get ComAdd of hoItems "" Nothing Nothing to voitem2
		Handle hoitem2
		Get Create (RefClass(cComitem)) to hoitem2
		Set pvComObject of hoitem2 to voitem2
			Set ComToString of hoitem2 to "<font ;5>separator[sep]"
		Send Destroy to hoitem2
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
147:
How can I change the visual appearance of the flat portion of the drop down of the control

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	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 ComFlatBackColor to |CI$1000000
	Set ComBackground OLEexMenuFlatLineColor to (ComFlatBackColor(Self))
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Popup" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voitem1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComCheck of hoitem1 to True
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComCheck of hoitem2 to True
				Send Destroy to hoitem2
				Variant voitem3
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to voitem3
				Handle hoitem3
				Get Create (RefClass(cComitem)) to hoitem3
				Set pvComObject of hoitem3 to voitem3
					Set ComCheck of hoitem3 to True
				Send Destroy to hoitem3
			Send Destroy to hoItems1
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
146:
How can I change the visual appearance of the radio-buttons to be displayed in the context menu (ebn)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	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
		Get ComAdd of hoAppearance 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexRadioButtonState0 to |CI$1000000
	Set ComBackground OLEexRadioButtonState1 to |CI$2000000
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to OLEexGroupPopup
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voitem1
				Get ComAdd of hoItems1 "Radio 1" 1000 to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComRadio of hoitem1 to True
					Set ComRadioGroup of hoitem1 to 100
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoItems1 "Radio 2" 1001 to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComRadio of hoitem2 to True
					Set ComRadioGroup of hoitem2 to 100
				Send Destroy to hoitem2
				Variant voitem3
				Get ComAdd of hoItems1 "Radio 2" 1003 to voitem3
				Handle hoitem3
				Get Create (RefClass(cComitem)) to hoitem3
				Set pvComObject of hoitem3 to voitem3
					Set ComRadio of hoitem3 to True
					Set ComRadioGroup of hoitem3 to 100
				Send Destroy to hoitem3
				Variant voitem4
				Get Comitem of hoItems1 1000 to voitem4
				Handle hoitem4
				Get Create (RefClass(cComitem)) to hoitem4
				Set pvComObject of hoitem4 to voitem4
					Set ComChecked of hoitem4 to True
				Send Destroy to hoitem4
			Send Destroy to hoItems1
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
145:
How can I change the visual appearance of the check-boxes to be displayed in the context menu (ebn)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	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
		Get ComAdd of hoAppearance 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexCheckBoxState0 to |CI$1000000
	Set ComBackground OLEexCheckBoxState1 to |CI$2000000
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voitem1
				Get ComAdd of hoItems1 "Check 1" Nothing Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComCheck of hoitem1 to True
					Set ComChecked of hoitem1 to True
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoItems1 "Check 2" Nothing Nothing to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComCheck of hoitem2 to True
				Send Destroy to hoitem2
			Send Destroy to hoItems1
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
144:
How can I change the visual appearance of the tooltips to be displayed in the context menu (ebn)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	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
		Get ComAdd of hoAppearance 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComToolTipDelay to 1
	Set ComBackground OLEexToolTipAppearance to |CI$1000000
	Set ComBackground OLEexToolTipForeColor to (RGB(255,0,0))
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComTooltip of hoitem to "this is a bit of text to be shown when cursor hovers it"
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "Item" 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 to be shown when cursor hovers it"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
143:
Is it possible to change the visual appearance of the buttons to be displayed in the context menu (ebn)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	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
		Get ComAdd of hoAppearance 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground |CI$2 to |CI$1000000
	Set ComBackground |CI$3 to |CI$2000000
	Set ComBackground OLEexMenuSeparatorSelectButton to (RGB(255,0,0))
	Set ComBackground OLEexMenuSeparatorSelectButtonBottom to (RGB(0,0,255))
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPadding of hoItems to "4,4,4,4"
		Variant voitem
		Get ComAdd of hoItems "Button" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComShowAsButton of hoitem to (OLEexShowAsButtonAutoSize + OLEexShowAsButton)
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComEnabled of hoitem1 to False
			Set ComItemHeight of hoitem1 to 4
		Send Destroy to hoitem1
		Variant voitem2
		Get ComAdd of hoItems "Button" 2 Nothing to voitem2
		Handle hoitem2
		Get Create (RefClass(cComitem)) to hoitem2
		Set pvComObject of hoitem2 to voitem2
			Set ComShowAsButton of hoitem2 to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
			Variant voItems1
			Get ComItems of hoitem2 to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoitem2
		Variant voitem3
		Get ComAdd of hoItems "" Nothing Nothing to voitem3
		Handle hoitem3
		Get Create (RefClass(cComitem)) to hoitem3
		Set pvComObject of hoitem3 to voitem3
			Set ComEnabled of hoitem3 to False
			Set ComItemHeight of hoitem3 to 4
		Send Destroy to hoitem3
		Variant voitem4
		Get ComAdd of hoItems "Button" 2 Nothing to voitem4
		Handle hoitem4
		Get Create (RefClass(cComitem)) to hoitem4
		Set pvComObject of hoitem4 to voitem4
			Set ComShowAsButton of hoitem4 to (OLEexShowAsSelectButton + OLEexShowAsButtonAutoSize)
			Variant voItems2
			Get ComItems of hoitem4 to voItems2
			Handle hoItems2
			Get Create (RefClass(cComItems)) to hoItems2
			Set pvComObject of hoItems2 to voItems2
				Get ComAdd of hoItems2 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems2 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems2 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems2
		Send Destroy to hoitem4
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
142:
I've seen that the width of the tooltip is variable. Can I make it larger

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComToolTipWidth to 328
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComTooltip of hoitem to "this is a bit of text to be shown when cursor hovers it"
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "Item" 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 to be shown when cursor hovers it"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
141:
How do I disable showing the tooltip for all control (method 1)
Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComToolTipDelay to 0
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComTooltip of hoitem to "this is a bit of text to be shown when cursor hovers it"
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "Item" 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 to be shown when cursor hovers it"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
140:
How do I let the tooltip being displayed longer

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComToolTipPopDelay to 10000
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComTooltip of hoitem to "this is a bit of text to be shown when cursor hovers it"
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "Item" 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 to be shown when cursor hovers it"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
139:
How do I show the tooltip quicker

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComToolTipDelay to 1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComTooltip of hoitem to "this is a bit of text to be shown when cursor hovers it"
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "Item" 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 to be shown when cursor hovers it"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
138:
How can I get the version of the control I am running
Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Showln (ComVersion(Self))
End_Procedure
137:
How can I align the picture on the control's background
Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\card.png`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLEUpperRight
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
136:
Is it possible to place a picture on the control's background
Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\card.png`)" to vPicture
	Set ComPicture to (vPicture)
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
135:
How can I display the item using a different font/size

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComCaption of hoitem to "<font ;14>This is a bit of text"
		Send Destroy to hoitem
		Get ComAdd of hoItems "<font ;6>This is a bit of text" Nothing Nothing to Nothing
		Variant voitem1
		Get ComAdd of hoItems "" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComCaption of hoitem1 to "<font Times New Roman;22>This is a bit of text</font>. Default"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
134:
How can I use the Event event, available for /COM version

// Notifies the application once the control fires an event.
Procedure OnComEvent Integer   llEventID
	Forward Send OnComEvent llEventID
	Showln "Event" (ComEventParam(Self,-2))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Check" 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
		Variant voitem1
		Get ComAdd of hoItems "Slider" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComAllowEdit of hoitem1 to OLEexItemEditSlider
			Set ComEditWidth of hoitem1 to 128
			Set ComEditBorder of hoitem1 to OLEexEditBorderNone
			Set ComEditValue of hoitem1 to 25
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
133:
Is it possible to get notified once the user edits the field, or change the slider value

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln "EditChange event on Itm object"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComAllowEdit of hoitem to OLEexItemEditSlider
			Set ComEditWidth of hoitem to 128
			Set ComEditBorder of hoitem to OLEexEditBorderNone
			Set ComEditValue of hoitem to 25
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
132:
How do I get notified once I uncheck an item
// Occurs when the user unchecks the item.
Procedure OnComUncheckItem Variant   llItm
	Forward Send OnComUncheckItem llItm
	Showln "UncheckItem event on Itm object"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item" 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
		Variant voitem1
		Get ComAdd of hoItems "Item" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComCheck of hoitem1 to True
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
131:
How do I get notified once I check an item
// Occurs when the user checks the item.
Procedure OnComCheckItem Variant   llItm
	Forward Send OnComCheckItem llItm
	Showln "CheckItem event on Itm object"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item" 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
		Variant voitem1
		Get ComAdd of hoItems "Item" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComCheck of hoitem1 to True
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
130:
How do I get notified once I click/select an item
// Occurs when the user selects the item.
Procedure OnComSelectItem Variant   llItm
	Forward Send OnComSelectItem llItm
	Showln "SelectItem event on Itm object"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
129:
Does your control support padding for items

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComMenuAppearance to OLEexMenuNormal
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPadding of hoItems to "2,12,2,2"
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoitem
		Set ComBackColor of hoItems to (RGB(255,255,255))
		Set ComBackgroundExt of hoItems to "root[pattern=0x000,frame=RGB(128,128,128)](top[2],top[10,text=`<font ;6><fgcolor 808080> group </font></fgcolor>`,align=0x11])"
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
128:
How can I change the visual appearance for items, when cursor hovers it (hot,EBN)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	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
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComHotBackColor of hoItems1 to |CI$1000000
				Set ComPadding of hoItems1 to "4,8,4,8"
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComToString of hoitem1 to "[group=0x03][itemspad=4,8,4,8][itemsbghot=0x1000000](Item 1,Item 2,Item 3)"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
127:
How can I change the background color for items, when cursor hovers it (hot)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComHotBackColor of hoItems1 to (RGB(255,0,0))
				Set ComPadding of hoItems1 to "0,8,0,8"
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComToString of hoitem1 to "[group=0x03][itemspad=0,8,0,8][itemsbghot=RGB(255,0,0)](Item 1,Item 2,Item 3)"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
126:
How can I change the visual appearance for items (EBN)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	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
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComBackColor of hoItems1 to |CI$1000000
				Set ComPadding of hoItems1 to "4,8,4,8"
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComToString of hoitem1 to "[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
125:
How can I change the background color for items

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComBackColor of hoItems1 to (RGB(255,0,0))
				Set ComPadding of hoItems1 to "0,8,0,8"
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComToString of hoitem1 to "[group=0x03][itemspad=0,8,0,8][itemsbg=RGB(255,0,0)](Item 1,Item 2,Item 3)"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
124:
How do I hide the left gray portion to be shown on the drop down menu/popup (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComFlatImageWidth to 0
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Popup" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
123:
How do I hide the left gray portion to be shown on the drop down menu/popup (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComMenuAppearance to OLEexMenuNormal
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Popup" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
122:
How can I arrange the drop down item from left to right, rather than top to bottom

// Occurs when the user selects the item.
Procedure OnComSelectItem Variant   llItm
	Forward Send OnComSelectItem llItm
	Showln "Clicked"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComMenuAppearance to OLEexMenuNormal
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Button" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComShowAsButton of hoitem to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voitem1
				Get ComAdd of hoItems1 "" 2 Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComGroupPopup of hoitem1 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
					Variant voItems2
					Get ComItems of hoitem1 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Get ComAdd of hoItems2 "Item 1" Nothing Nothing to Nothing
						Get ComAdd of hoItems2 "Item 2" Nothing Nothing to Nothing
						Get ComAdd of hoItems2 "Item 3" Nothing Nothing to Nothing
					Send Destroy to hoItems2
				Send Destroy to hoitem1
			Send Destroy to hoItems1
		Send Destroy to hoitem
		Variant voitem2
		Get ComAdd of hoItems "" Nothing Nothing to voitem2
		Handle hoitem2
		Get Create (RefClass(cComitem)) to hoitem2
		Set pvComObject of hoitem2 to voitem2
			Set ComToString of hoitem2 to "Button[button=0x0113][popupapp=6]([group=0x03](Item 1,Item 2,Item 3))"
		Send Destroy to hoitem2
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
121:
How can I add a drop down button / combobox (method 2)

// Occurs when the user selects the item.
Procedure OnComSelectItem Variant   llItm
	Forward Send OnComSelectItem llItm
	Showln "Clicked"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Button" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComShowAsButton of hoitem to (OLEexShowAsSelectButtonBottom + OLEexShowAsButtonAutoSize)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComToString of hoitem1 to "Button[button=275][popupapp=6](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
120:
How can I add a drop down button / combobox (method 1)

// Occurs when the user selects the item.
Procedure OnComSelectItem Variant   llItm
	Forward Send OnComSelectItem llItm
	Showln "Clicked"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Button" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComShowAsButton of hoitem to (OLEexShowAsSelectButton + OLEexShowAsButtonAutoSize)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComToString of hoitem1 to "Button[button=0x13][popupapp=6](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
119:
I am using exShowAsSelectButton/exShowAsSelectButtonBottom but none of them works. What could be wrong

// Occurs when the user selects the item.
Procedure OnComSelectItem Variant   llItm
	Forward Send OnComSelectItem llItm
	Showln "Clicked"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Button" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComShowAsButton of hoitem to (OLEexShowAsSelectButton + OLEexShowAsButtonAutoSize)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
118:
How can I add a button (push button)

// Occurs when the user selects the item.
Procedure OnComSelectItem Variant   llItm
	Forward Send OnComSelectItem llItm
	Showln "Clicked"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Button" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComShowAsButton of hoitem to (OLEexShowAsButtonAutoSize + OLEexShowAsButton)
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComToString of hoitem1 to "Button[button=0x03]"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
117:
How can I display grouping items with no frame arround

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Horizontal Group" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexGroupPopupFrameThickBox + OLEexGroupPopupFrameSolidBox + OLEexGroupPopupEqualHeight + OLEexGroupPopupEqualWidth + OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voitem1
				Get ComAdd of hoItems1 "A" 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 hoItems1 "BC" Nothing Nothing to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComAlignment of hoitem2 to OLEexCenter
				Send Destroy to hoitem2
				Variant voitem3
				Get ComAdd of hoItems1 "D" Nothing Nothing to voitem3
				Handle hoitem3
				Get Create (RefClass(cComitem)) to hoitem3
				Set pvComObject of hoitem3 to voitem3
					Set ComAlignment of hoitem3 to OLEexCenter
				Send Destroy to hoitem3
			Send Destroy to hoItems1
		Send Destroy to hoitem
		Variant voitem4
		Get ComAdd of hoItems "" Nothing Nothing to voitem4
		Handle hoitem4
		Get Create (RefClass(cComitem)) to hoitem4
		Set pvComObject of hoitem4 to voitem4
			Set ComToString of hoitem4 to "Horizontal Group[group=243](A[id=20][align=1],BC[id=30][align=1],D[id=40][align=1])"
		Send Destroy to hoitem4
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
116:
How can I display grouping items of the same size/width/height

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Horizontal Group" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexGroupPopupFrameThickBox + OLEexGroupPopupFrameSolidBox + OLEexGroupPopupEqualHeight + OLEexGroupPopupEqualWidth + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voitem1
				Get ComAdd of hoItems1 "A" 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 hoItems1 "BC" Nothing Nothing to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComAlignment of hoitem2 to OLEexCenter
				Send Destroy to hoitem2
				Variant voitem3
				Get ComAdd of hoItems1 "D" Nothing Nothing to voitem3
				Handle hoitem3
				Get Create (RefClass(cComitem)) to hoitem3
				Set pvComObject of hoitem3 to voitem3
					Set ComAlignment of hoitem3 to OLEexCenter
				Send Destroy to hoitem3
			Send Destroy to hoItems1
		Send Destroy to hoitem
		Variant voitem4
		Get ComAdd of hoItems "" Nothing Nothing to voitem4
		Handle hoitem4
		Get Create (RefClass(cComitem)) to hoitem4
		Set pvComObject of hoitem4 to voitem4
			Set ComToString of hoitem4 to "Horizontal Group[group=0xF1](A[id=20][align=1],BC[id=30][align=1],D[id=40][align=1])"
		Send Destroy to hoitem4
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
115:
Is it possible to display a ticker frame arround grouping items

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Horizontal Group" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexGroupPopupFrameThickBox + OLEexGroupPopupFrameSolidBox + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComToString of hoitem1 to "Horizontal Group[group=193](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
114:
How do I display items horizontally arranged

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Horizontal Group" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to OLEexGroupPopup
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComToString of hoitem1 to "Horizontal Group[group=0x01](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
113:
Is it possible to expand an item when it is clicked (tree,group,vertical)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Expand" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Set ComCheck of hoitem to True
			Set ComShowPopupOnChecked of hoitem to True
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComPadding of hoItems1 to "22,0,0,0"
				Variant voitem1
				Get ComAdd of hoItems1 "Radio 1" Nothing Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComRadio of hoitem1 to True
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoItems1 "Radio 2" Nothing Nothing to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComRadio of hoitem2 to True
				Send Destroy to hoitem2
				Variant voitem3
				Get ComAdd of hoItems1 "Radio 3" Nothing Nothing to voitem3
				Handle hoitem3
				Get Create (RefClass(cComitem)) to hoitem3
				Set pvComObject of hoitem3 to voitem3
					Set ComRadio of hoitem3 to True
					Set ComChecked of hoitem3 to True
				Send Destroy to hoitem3
			Send Destroy to hoItems1
			Set ComChecked of hoitem to True
		Send Destroy to hoitem
		Variant voitem4
		Get ComAdd of hoItems "" Nothing Nothing to voitem4
		Handle hoitem4
		Get Create (RefClass(cComitem)) to hoitem4
		Set pvComObject of hoitem4 to voitem4
			Set ComToString of hoitem4 to "Expand[typ=1][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Radio 1[id=20][typ=2],Radio 2[id=30][typ=2],Radio 3[id=40][typ=2][chk=1])"
		Send Destroy to hoitem4
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
112:
Is it possible to expand an item when it is clicked (tree,group,vertical)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Expand" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Set ComCheck of hoitem to True
			Set ComShowPopupOnChecked of hoitem to True
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComPadding of hoItems1 to "22,0,0,0"
				Variant voitem1
				Get ComAdd of hoItems1 "Radio 1" Nothing Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComRadio of hoitem1 to True
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoItems1 "Radio 2" Nothing Nothing to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComRadio of hoitem2 to True
				Send Destroy to hoitem2
				Variant voitem3
				Get ComAdd of hoItems1 "Radio 3" Nothing Nothing to voitem3
				Handle hoitem3
				Get Create (RefClass(cComitem)) to hoitem3
				Set pvComObject of hoitem3 to voitem3
					Set ComRadio of hoitem3 to True
					Set ComChecked of hoitem3 to True
				Send Destroy to hoitem3
			Send Destroy to hoItems1
			Set ComChecked of hoitem to True
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
111:
Is it possible to expand an item when it is clicked (group)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Expand" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to OLEexGroupPopup
			Set ComItemHeight of hoitem to 24
			Set ComCheck of hoitem to True
			Set ComShowPopupOnChecked of hoitem to True
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
110:
Is it possible to extend an item when it is clicked

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Expand" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComCheck of hoitem to True
			Set ComShowPopupOnChecked of hoitem to True
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
109:
Does your control implement padding for item

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComBackColor of hoItems to (RGB(250,250,250))
		Variant voitem
		Get ComAdd of hoItems "Item" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComPadding of hoitem to "4,4,4,4"
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComToString of hoitem1 to "Item[pad=4,4,4,4]"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
108:
How can I add an empty item for a horizontal group

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Variant voitem1
				Get ComAdd of hoItems1 "" 2 Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComGroupPopup of hoitem1 to (OLEexGroupPopupCenter + OLEexGroupPopup)
					Set ComItemHeight of hoitem1 to 12
					Variant voItems2
					Get ComItems of hoitem1 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voitem2
						Get ComAdd of hoItems2 "" Nothing Nothing to voitem2
						Handle hoitem2
						Get Create (RefClass(cComitem)) to hoitem2
						Set pvComObject of hoitem2 to voitem2
							Set ComEnabled of hoitem2 to False
							Set ComItemHeight of hoitem2 to 8
							Set ComCaptionWidth of hoitem2 to 8
						Send Destroy to hoitem2
					Send Destroy to hoItems2
				Send Destroy to hoitem1
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
107:
How can I add an empty/separator item

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
		Variant voitem
		Get ComAdd of hoItems "" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComEnabled of hoitem to False
			Set ComItemHeight of hoitem to 2
			Set ComCaptionWidth of hoitem to 8
			Set ComBackColor of hoitem to (RGB(240,240,240))
		Send Destroy to hoitem
		Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
106:
How can I add an empty/frame item

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Item 1" Nothing Nothing to Nothing
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexGroupPopupCenter + OLEexGroupPopup)
			Set ComItemHeight of hoitem to 12
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voitem1
				Get ComAdd of hoItems1 "" Nothing Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComEnabled of hoitem1 to False
					Set ComItemHeight of hoitem1 to 8
					Set ComCaptionWidth of hoitem1 to 8
				Send Destroy to hoitem1
			Send Destroy to hoItems1
		Send Destroy to hoitem
		Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
105:
How can I specify the height of the item

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComBackColor of hoItems to (RGB(250,250,250))
		Variant voitem
		Get ComAdd of hoItems "Item" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComItemHeight of hoitem to 64
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComToString of hoitem1 to "Item[height=64]"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
104:
How can I specify the width of the item

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComBackColor of hoItems to (RGB(250,250,250))
		Variant voitem
		Get ComAdd of hoItems "Item" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComCaptionWidth of hoitem to 128
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComToString of hoitem1 to "Item[captionwidth=128]"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
103:
How do I align the item

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComBackColor of hoItems to (RGB(250,250,250))
		Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
		Variant voitem
		Get ComAdd of hoItems "Item" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComAlignment of hoitem to OLEexCenter
			Set ComCaptionWidth of hoitem to 128
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "Item" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComAlignment of hoitem1 to OLEexRight
			Set ComCaptionWidth of hoitem1 to 128
		Send Destroy to hoitem1
		Variant voitem2
		Get ComAdd of hoItems "" Nothing Nothing to voitem2
		Handle hoitem2
		Get Create (RefClass(cComitem)) to hoitem2
		Set pvComObject of hoitem2 to voitem2
			Set ComToString of hoitem2 to "Item[align=1]"
		Send Destroy to hoitem2
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
102:
How can I underline the item

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item" Nothing Nothing 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
		Get ComAdd of hoItems "<u>Item</u>" Nothing Nothing to Nothing
		Variant voitem1
		Get ComAdd of hoItems "" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComToString of hoitem1 to "Item[und]"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
101:
How can I show the item as strikeout

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item" Nothing Nothing 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
		Get ComAdd of hoItems "<s>Item</s>" Nothing Nothing to Nothing
		Variant voitem1
		Get ComAdd of hoItems "" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComToString of hoitem1 to "Item[stk]"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
100:
How can I show the item in italics

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item" Nothing Nothing 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
		Get ComAdd of hoItems "<i>Item</i>" Nothing Nothing to Nothing
		Variant voitem1
		Get ComAdd of hoItems "" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComToString of hoitem1 to "Item[itl]"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
99:
How can I show the item in bold

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item" Nothing Nothing 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
		Get ComAdd of hoItems "<b>Item</b>" Nothing Nothing to Nothing
		Variant voitem1
		Get ComAdd of hoItems "" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComToString of hoitem1 to "Item[bld]"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
98:
How can I show the item as disabled but still be able to select or use it

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComShowAsDisabled of hoitem to True
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComToString of hoitem1 to "Item[showdis=1]"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
97:
How can I enable or disable an item

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item" 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
		Variant voitem1
		Get ComAdd of hoItems "" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComToString of hoitem1 to "Item[dis]"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
96:
How can I add a separator item

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComCaptionWidth of hoitem to 128
		Send Destroy to hoitem
		Get ComAdd of hoItems "<font ;6>separator" 1 Nothing to Nothing
		Variant voitem1
		Get ComAdd of hoItems "Item" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComCaptionWidth of hoitem1 to 128
		Send Destroy to hoitem1
		Variant voitem2
		Get ComAdd of hoItems "" Nothing Nothing to voitem2
		Handle hoitem2
		Get Create (RefClass(cComitem)) to hoitem2
		Set pvComObject of hoitem2 to voitem2
			Set ComToString of hoitem2 to "<font ;6>separator[sep]"
		Send Destroy to hoitem2
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
95:
How can I change the item's foreground color

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComForeColor of hoitem to (RGB(255,0,0))
		Send Destroy to hoitem
		Get ComAdd of hoItems "<fgcolor FF0000>Item" Nothing Nothing to Nothing
		Variant voitem1
		Get ComAdd of hoItems "" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComToString of hoitem1 to "Item[fg=RGB(255,0,0)]"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
94:
How can I change the item's background/backcolor, when the item is selected/checked (radio-buttons)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voitem1
				Get ComAdd of hoItems1 "Radio 1" Nothing Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComHotBackColor of hoitem1 to (RGB(255,255,255))
					Set ComSelBackColor of hoitem1 to (RGB(255,0,0))
					Set ComSelHotBackColor of hoitem1 to (RGB(255,0,0))
					Set ComShowCheckedAsSelected of hoitem1 to OLEexDisplayItemHighlight
					Set ComRadio of hoitem1 to True
					Set ComRadioGroup of hoitem1 to 100
					Set ComChecked of hoitem1 to True
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoItems1 "Radio 2" Nothing Nothing to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComHotBackColor of hoitem2 to (RGB(255,255,255))
					Set ComSelBackColor of hoitem2 to (RGB(255,0,0))
					Set ComSelHotBackColor of hoitem2 to (RGB(255,0,0))
					Set ComShowCheckedAsSelected of hoitem2 to OLEexDisplayItemHighlight
					Set ComRadio of hoitem2 to True
					Set ComRadioGroup of hoitem2 to 100
				Send Destroy to hoitem2
				Variant voitem3
				Get ComAdd of hoItems1 "" Nothing Nothing to voitem3
				Handle hoitem3
				Get Create (RefClass(cComitem)) to hoitem3
				Set pvComObject of hoitem3 to voitem3
					Set ComToString of hoitem3 to "Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0)]"
				Send Destroy to hoitem3
			Send Destroy to hoItems1
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
93:
How can I change the item's background/backcolor, when the item is selected/checked (check-box)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Check 1" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComHotBackColor of hoitem to (RGB(255,255,255))
			Set ComSelBackColor of hoitem to (RGB(255,0,0))
			Set ComSelHotBackColor of hoitem to (RGB(255,0,0))
			Set ComShowCheckedAsSelected of hoitem to OLEexDisplayItemHighlight
			Set ComChecked of hoitem to True
			Set ComCheck of hoitem to True
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComToString of hoitem1 to "Check 2[typ=1][chk=0][show=1][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0)]"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
92:
How can I prevent showing the border for selected/highlight/hot items

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComBackground OLEexMenuSelBorderColor to (RGB(255,255,255))
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
91:
How can I change the item's background/backcolor, when the cursor hovers it (hot)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComHotBackColor of hoitem to (RGB(255,0,0))
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComToString of hoitem1 to "Item[bghot=RGB(255,0,0)]"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
90:
How can I change the item's background/backcolor

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	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
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComBackColor of hoitem to (RGB(255,0,0))
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "Item" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComBackColor of hoitem1 to |CI$1000000
		Send Destroy to hoitem1
		Variant voitem2
		Get ComAdd of hoItems "" Nothing Nothing to voitem2
		Handle hoitem2
		Get Create (RefClass(cComitem)) to hoitem2
		Set pvComObject of hoitem2 to voitem2
			Set ComToString of hoitem2 to "Item[bg=RGB(255,0,0)]"
		Send Destroy to hoitem2
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
89:
How can I specify/assign the item's identifier

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComDebug to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "ID 1" 0 1000 to Nothing
		Variant voitem
		Get ComAdd of hoItems "ID 2" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComID of hoitem to 1001
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComToString of hoitem1 to "ID 3[id=1002]"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
88:
How can I show a horizontal separator/line between groups (method 3,EBN color)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	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
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voitem1
				Get ComAdd of hoItems1 "" Nothing Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComAllowEdit of hoitem1 to OLEexItemEditSlider
					Set ComEditBorder of hoitem1 to OLEexEditBorderNone
					Set ComEditWidth of hoitem1 to -128
					Set ComEditValue of hoitem1 to 25
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoItems1 "" Nothing Nothing to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComEnabled of hoitem2 to False
					Set ComBackColor of hoitem2 to |CI$1000000
					Set ComItemHeight of hoitem2 to 8
					Set ComCaptionWidth of hoitem2 to 128
				Send Destroy to hoitem2
				Variant voitem3
				Get ComAdd of hoItems1 "" Nothing Nothing to voitem3
				Handle hoitem3
				Get Create (RefClass(cComitem)) to hoitem3
				Set pvComObject of hoitem3 to voitem3
					Set ComAllowEdit of hoitem3 to OLEexItemEditSlider
					Set ComEditBorder of hoitem3 to OLEexEditBorderNone
					Set ComEditWidth of hoitem3 to -128
					Set ComEditValue of hoitem3 to 25
				Send Destroy to hoitem3
			Send Destroy to hoItems1
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
87:
How can I show a horizontal separator/line between groups (method 2,solid color)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voitem1
				Get ComAdd of hoItems1 "" Nothing Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComAllowEdit of hoitem1 to OLEexItemEditSlider
					Set ComEditBorder of hoitem1 to OLEexEditBorderNone
					Set ComEditWidth of hoitem1 to -128
					Set ComEditValue of hoitem1 to 25
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoItems1 "" Nothing Nothing to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComEnabled of hoitem2 to False
					Set ComBackColor of hoitem2 to (RGB(128,128,128))
					Set ComItemHeight of hoitem2 to 8
					Set ComCaptionWidth of hoitem2 to 128
				Send Destroy to hoitem2
				Variant voitem3
				Get ComAdd of hoItems1 "" Nothing Nothing to voitem3
				Handle hoitem3
				Get Create (RefClass(cComitem)) to hoitem3
				Set pvComObject of hoitem3 to voitem3
					Set ComAllowEdit of hoitem3 to OLEexItemEditSlider
					Set ComEditBorder of hoitem3 to OLEexEditBorderNone
					Set ComEditWidth of hoitem3 to -128
					Set ComEditValue of hoitem3 to 25
				Send Destroy to hoitem3
			Send Destroy to hoItems1
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
86:
How can I show a horizontal separator/line between groups (method 1,pattern)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voitem1
				Get ComAdd of hoItems1 "" Nothing Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComAllowEdit of hoitem1 to OLEexItemEditSlider
					Set ComEditBorder of hoitem1 to OLEexEditBorderNone
					Set ComEditWidth of hoitem1 to -128
					Set ComEditValue of hoitem1 to 25
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoItems1 "" 2 Nothing to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComGroupPopup of hoitem2 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
					Variant voItems2
					Get ComItems of hoitem2 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voitem3
						Get ComAdd of hoItems2 "" Nothing Nothing to voitem3
						Handle hoitem3
						Get Create (RefClass(cComitem)) to hoitem3
						Set pvComObject of hoitem3 to voitem3
							Set ComEnabled of hoitem3 to False
							Set ComItemHeight of hoitem3 to 8
							Set ComCaptionWidth of hoitem3 to 128
						Send Destroy to hoitem3
						Set ComBackgroundExt of hoItems2 to "none[(0,50%-1,100%,2),pattern=0x006,patterncolor=RGB(128,128,128)]"
					Send Destroy to hoItems2
				Send Destroy to hoitem2
				Variant voitem4
				Get ComAdd of hoItems1 "" Nothing Nothing to voitem4
				Handle hoitem4
				Get Create (RefClass(cComitem)) to hoitem4
				Set pvComObject of hoitem4 to voitem4
					Set ComAllowEdit of hoitem4 to OLEexItemEditSlider
					Set ComEditBorder of hoitem4 to OLEexEditBorderNone
					Set ComEditWidth of hoitem4 to -128
					Set ComEditValue of hoitem4 to 25
				Send Destroy to hoitem4
			Send Destroy to hoItems1
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
85:
How can I show a vertical separator/line between groups (method 3,EBN color)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	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
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voitem1
				Get ComAdd of hoItems1 "" Nothing Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComItemHeight of hoitem1 to 128
					Set ComAllowEdit of hoitem1 to (OLEexItemEditVertical + OLEexItemEditSlider)
					Set ComEditBorder of hoitem1 to OLEexEditBorderNone
					Set ComEditWidth of hoitem1 to 32
					Set ComEditValue of hoitem1 to 25
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoItems1 "" Nothing Nothing to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComEnabled of hoitem2 to False
					Set ComBackColor of hoitem2 to |CI$1000000
					Set ComItemHeight of hoitem2 to 96
					Set ComCaptionWidth of hoitem2 to 8
				Send Destroy to hoitem2
				Variant voitem3
				Get ComAdd of hoItems1 "" Nothing Nothing to voitem3
				Handle hoitem3
				Get Create (RefClass(cComitem)) to hoitem3
				Set pvComObject of hoitem3 to voitem3
					Set ComItemHeight of hoitem3 to 128
					Set ComAllowEdit of hoitem3 to (OLEexItemEditVertical + OLEexItemEditSlider)
					Set ComEditBorder of hoitem3 to OLEexEditBorderNone
					Set ComEditWidth of hoitem3 to 32
					Set ComEditValue of hoitem3 to 25
				Send Destroy to hoitem3
			Send Destroy to hoItems1
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
84:
How can I show a vertical separator/line between groups (method 2,solid color)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voitem1
				Get ComAdd of hoItems1 "" Nothing Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComItemHeight of hoitem1 to 128
					Set ComAllowEdit of hoitem1 to (OLEexItemEditVertical + OLEexItemEditSlider)
					Set ComEditBorder of hoitem1 to OLEexEditBorderNone
					Set ComEditWidth of hoitem1 to 32
					Set ComEditValue of hoitem1 to 25
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoItems1 "" Nothing Nothing to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComEnabled of hoitem2 to False
					Set ComBackColor of hoitem2 to (RGB(128,128,128))
					Set ComItemHeight of hoitem2 to 96
					Set ComCaptionWidth of hoitem2 to 8
				Send Destroy to hoitem2
				Variant voitem3
				Get ComAdd of hoItems1 "" Nothing Nothing to voitem3
				Handle hoitem3
				Get Create (RefClass(cComitem)) to hoitem3
				Set pvComObject of hoitem3 to voitem3
					Set ComItemHeight of hoitem3 to 128
					Set ComAllowEdit of hoitem3 to (OLEexItemEditVertical + OLEexItemEditSlider)
					Set ComEditBorder of hoitem3 to OLEexEditBorderNone
					Set ComEditWidth of hoitem3 to 32
					Set ComEditValue of hoitem3 to 25
				Send Destroy to hoitem3
			Send Destroy to hoItems1
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
83:
How can I show a vertical separator/line between groups (method 1,pattern)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voitem1
				Get ComAdd of hoItems1 "" Nothing Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComItemHeight of hoitem1 to 128
					Set ComAllowEdit of hoitem1 to (OLEexItemEditVertical + OLEexItemEditSlider)
					Set ComEditBorder of hoitem1 to OLEexEditBorderNone
					Set ComEditWidth of hoitem1 to 32
					Set ComEditValue of hoitem1 to 25
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoItems1 "" 2 Nothing to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComGroupPopup of hoitem2 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
					Variant voItems2
					Get ComItems of hoitem2 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voitem3
						Get ComAdd of hoItems2 "" Nothing Nothing to voitem3
						Handle hoitem3
						Get Create (RefClass(cComitem)) to hoitem3
						Set pvComObject of hoitem3 to voitem3
							Set ComEnabled of hoitem3 to False
							Set ComItemHeight of hoitem3 to 96
							Set ComCaptionWidth of hoitem3 to 8
						Send Destroy to hoitem3
						Set ComBackgroundExt of hoItems2 to "none[(50%-1,0,2,100%),pattern=6,patterncolor=RGB(128,128,128)]"
					Send Destroy to hoItems2
				Send Destroy to hoitem2
				Variant voitem4
				Get ComAdd of hoItems1 "" Nothing Nothing to voitem4
				Handle hoitem4
				Get Create (RefClass(cComitem)) to hoitem4
				Set pvComObject of hoitem4 to voitem4
					Set ComItemHeight of hoitem4 to 128
					Set ComAllowEdit of hoitem4 to (OLEexItemEditVertical + OLEexItemEditSlider)
					Set ComEditBorder of hoitem4 to OLEexEditBorderNone
					Set ComEditWidth of hoitem4 to 32
					Set ComEditValue of hoitem4 to 25
				Send Destroy to hoitem4
			Send Destroy to hoItems1
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
82:
How can I show a pattern on the items

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoitem
		Set ComBackColor of hoItems to (RGB(255,255,255))
		Set ComPadding of hoItems to "2,2,2,12"
		Set ComBackgroundExt of hoItems to "root[pattern=0x006,patterncolor=RGB(128,128,128),frame=RGB(128,128,128)](bottom[2],bottom[12,text=`<font ;6><fgcolor 808080><off -2> clipboard </off></font></fgcolor>`,align=0x21])"
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
81:
How can I show a thick frame arround the items

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoitem
		Set ComBackColor of hoItems to (RGB(255,255,255))
		Set ComPadding of hoItems to "2,2,2,12"
		Set ComBackgroundExt of hoItems to "root[frame=RGB(128,128,128)](bottom[2],bottom[12,text=`<font ;6><fgcolor 808080><off -2> clipboard </off></font></fgcolor>`,align=0x21])"
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
80:
How can I add some additional icons on the background

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to OLEexGroupPopup
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoitem
		Set ComBackColor of hoItems to (RGB(255,255,255))
		Set ComPadding of hoItems to "0,0,0,16"
		Set ComBackgroundExt of hoItems to "root[text=`<img>2</img><font ;6><fgcolor 808080><off -2> clipboard </off></font></fgcolor><img>2</img>`,align=0x21]"
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
79:
How can I add some additional text on the background

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to OLEexGroupPopup
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoitem
		Set ComBackColor of hoItems to (RGB(255,255,255))
		Set ComPadding of hoItems to "0,0,0,8"
		Set ComBackgroundExt of hoItems to "root[text=`<font ;6><fgcolor 808080>clipboard`,align=0x21]"
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
78:
How can I assign a tooltip to an item (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComToString to "ToolTip[id=10][ttp=This is a bit of text that should be shown when cursor hovers the item]"
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
77:
How can I assign a tooltip to an item (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "ToolTip" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComTooltip of hoitem to "This is a bit of text that should be shown when cursor hovers the item"
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
76:
How can I assign a spin field to the item (method 2)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Spin" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComAllowEdit of hoitem to OLEexItemEditSpin
			Set ComEditWidth of hoitem to 16
			Set ComEditValue of hoitem to 15
			Set ComEditBorder of hoitem to OLEexEditBorderNone
			Set ComEditOption of hoitem OLEexEditMaxValue to 1000
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "Edit-Spin" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComAllowEdit of hoitem1 to (OLEexItemEditSpin + OLEexItemEditText)
			Set ComEditWidth of hoitem1 to -128
			Set ComEditValue of hoitem1 to 15
			Set ComEditOption of hoitem1 OLEexEditMaxValue to 1000
		Send Destroy to hoitem1
		Variant voitem2
		Get ComAdd of hoItems "Splider-Spin" Nothing Nothing to voitem2
		Handle hoitem2
		Get Create (RefClass(cComitem)) to hoitem2
		Set pvComObject of hoitem2 to voitem2
			Set ComAllowEdit of hoitem2 to (OLEexItemEditSpin + OLEexItemEditSlider)
			Set ComEditWidth of hoitem2 to -128
			Set ComEditValue of hoitem2 to 25
			Set ComEditBorder of hoitem2 to OLEexEditBorderNone
		Send Destroy to hoitem2
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
75:
How can I assign a spin field to the item (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComToString to "Spin[id=10][edittype=0x0200][edit=15][border=0][max=1000][editwidth=16],Edit-Spin[id=20][edittype=0x0201][edit=15][max=1000][editwidth=-128],Splider-Spin[id=30][edittype=0x0203][edit=25][border=0][editwidth=-128]"
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
74:
How can I add a vertical slider (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComToString to "Vertical[id=10][edittype=0x0403][edit=25][border=0][height=128]"
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
73:
How can I add a vertical slider (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Vertical" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComItemHeight of hoitem to 128
			Set ComAllowEdit of hoitem to (OLEexItemEditVertical + OLEexItemEditSlider)
			Set ComEditBorder of hoitem to OLEexEditBorderNone
			Set ComEditWidth of hoitem to 32
			Set ComEditValue of hoitem to 25
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
72:
How can I disable an editor (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComToString to "Disabled[id=10][dis][edittype=0x01][edit=text-box][editwidth=-128]"
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
71:
How can I disable an editor (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Disabled" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComAllowEdit of hoitem to OLEexItemEditText
			Set ComEditWidth of hoitem to -128
			Set ComEditValue of hoitem to "text-box"
			Set ComEnabled of hoitem to False
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
70:
How can I lock an editor (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComToString to "Locked[id=10][edittype=0x0101][edit=disabled text-box][editwidth=-128]"
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
69:
How can I lock an editor (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Locked" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComAllowEdit of hoitem to (OLEexItemEditReadOnly + OLEexItemEditText)
			Set ComEditWidth of hoitem to -128
			Set ComEditValue of hoitem to "disabled text-box"
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
68:
How can I assign a font field to the item (method 2)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Font" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComAllowEdit of hoitem to OLEexItemEditFont
			Set ComEditWidth of hoitem to -128
			Set ComEditValue of hoitem to "Tahoma"
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
67:
How can I assign a font field to the item (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComToString to "Font[id=10][edittype=0x07][edit=Tahoma][editwidth=-128]"
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
66:
How can I assign a color field to the item (method 2)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Color" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComAllowEdit of hoitem to OLEexItemEditColor
			Set ComEditBorder of hoitem to OLEexEditBorderNone
			Set ComEditWidth of hoitem to -128
			Set ComEditValue of hoitem to 255
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
65:
How can I assign a color field to the item (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComToString to "Color[id=10][edittype=0x06][edit=#FF0000][border=0][editwidth=-128]"
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
64:
How can I assign a scrollbar field to the item (method 2)
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "ScrollBar" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComAllowEdit of hoitem to OLEexItemEditScrollBar
			Set ComEditWidth of hoitem to -128
			Set ComEditValue of hoitem to "25"
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
63:
How can I assign a scrollbar field to the item (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComToString to "ScrollBar[id=10][edittype=0x05][edit=25][editwidth=-128]"
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
62:
Is it possible to change the tooltip beging shown when I change the slider/scroll/progress value

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Progress" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComAllowEdit of hoitem to OLEexItemEditProgress
			Set ComEditWidth of hoitem to -128
			Set ComEditValue of hoitem to 25
			Set ComEditOption of hoitem OLEexEditChangeToolTip to "`Current value is: ` + value"
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
61:
How can I hide the tooltip beging shown when I change the slider/scroll/progress value
// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Progress" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComAllowEdit of hoitem to OLEexItemEditProgress
			Set ComEditWidth of hoitem to -128
			Set ComEditValue of hoitem to 25
			Set ComEditOption of hoitem OLEexEditChangeToolTip to ""
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
60:
How can I assign a progress field to the item (method 2)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Progress" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComAllowEdit of hoitem to OLEexItemEditProgress
			Set ComEditWidth of hoitem to -128
			Set ComEditValue of hoitem to 25
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
59:
How can I assign a progress field to the item (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComToString to "Progress[id=10][edittype=0x04][edit=25][editwidth=-128]"
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
58:
How can I assign a slider field to the item (method 2)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Slider" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComAllowEdit of hoitem to OLEexItemEditSlider
			Set ComEditWidth of hoitem to -128
			Set ComEditValue of hoitem to 25
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "Slider" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComAllowEdit of hoitem1 to OLEexItemEditSlider
			Set ComEditBorder of hoitem1 to OLEexEditBorderNone
			Set ComEditWidth of hoitem1 to -128
			Set ComEditOption of hoitem1 OLEexEditMinValue to 50
			Set ComEditOption of hoitem1 OLEexEditMaxValue to 450
			Set ComEditOption of hoitem1 OLEexEditTickStyle to 2
			Set ComEditOption of hoitem1 OLEexEditTickFrequency to 50
			Set ComEditOption of hoitem1 OLEexEditTickLabel to "value = vmin ? '<br><font ;6><b>'+value : ( value = vmax ? '<br><font ;6><b>'+value : ( value = 200 ? '<br><font ;6><b><fgcolor FF0000>'+value : '' ) )"
			Set ComEditValue of hoitem1 to 345
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
57:
How can I assign a slider field to the item (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComToString to "Slider[id=10][edittype=0x03][edit=25][editwidth=-128],Slider[id=20][edittype=0x03][edit=345][border=0][min=50][max=450][tick=2][freq=50][ticklabel=value = vmin ? '<br><font ;6><b>'+value : ( value = vmax ? '<br><font ;6><b>'+value : ( value = 200 ? '<br><font ;6><b><fgcolor FF0000>'+value : '' ) )][editwidth=-128]"
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
56:
How can I assign a mask (time) field to the item (method 2)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Time" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComAllowEdit of hoitem to OLEexItemEditMask
			Set ComEditWidth of hoitem to -128
			Set ComEditMask of hoitem to "99:00:00;;0;overtype,warning=Invalid character"
			Set ComEditValue of hoitem to "123456"
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
55:
How can I assign a mask (time) field to the item (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComToString to "Time[id=10][edittype=0x02][edit=12:34:56][mask=99:00:00;;0;overtype,warning=Invalid character][editwidth=-128]"
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
54:
How can I assign a mask (license key) field to the item (method 2)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "License Key" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComAllowEdit of hoitem to OLEexItemEditMask
			Set ComEditWidth of hoitem to -128
			Set ComEditMask of hoitem to "AAAA-AAAA-AAAA-AAAA"
			Set ComEditValue of hoitem to "1234"
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
53:
How can I assign a mask (license key) field to the item (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComToString to "License Key[id=10][edittype=0x02][edit=1234-____-____-____][mask=AAAA-AAAA-AAAA-AAAA][editwidth=-128]"
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
52:
How can I assign a mask (IP address) field to the item (method 2)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "IP Address" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComAllowEdit of hoitem to OLEexItemEditMask
			Set ComEditWidth of hoitem to -128
			Set ComEditMask of hoitem to "{0,255}.{0,255}.{0,255}.{0,255}"
			Set ComEditValue of hoitem to "1.2.3.4"
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
51:
How can I assign a mask (IP address) field to the item (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComToString to "IP Address[id=10][edittype=0x02][edit=1.2.3.4][mask={0,255}.{0,255}.{0,255}.{0,255}][editwidth=-128]"
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
50:
How can I assign a mask (phone) field to the item (method 2)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Phone" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComAllowEdit of hoitem to OLEexItemEditMask
			Set ComEditWidth of hoitem to -128
			Set ComEditMask of hoitem to "!(9999) 000 000;;;empty,select=4,overtype,beep"
			Set ComEditValue of hoitem to "0771638317"
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
49:
How can I assign a mask (phone) field to the item (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComToString to "Phone[id=10][edittype=0x02][edit=(0771) 638 317][mask=!(9999) 000 000;;;empty,select=4,overtype,beep][editwidth=-128]"
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
48:
How can I assign a mask (date) field to the item (method 2)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComAllowEdit of hoitem to OLEexItemEditMask
			Set ComEditWidth of hoitem to -128
			Set ComEditMask of hoitem to "`Date: `{1,12}/{1,31}/{1950,2050};;;select=1"
			Set ComEditValue of hoitem to "2/15/2015"
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "Date" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComAllowEdit of hoitem1 to OLEexItemEditMask
			Set ComEditWidth of hoitem1 to -128
			Set ComEditMask of hoitem1 to "!00/00/0000;;0;empty,validateas=1,invalid=Invalid date!,warning=Invalid character!,select=4,overtype"
			Set ComEditValue of hoitem1 to "2/15/2015"
		Send Destroy to hoitem1
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
47:
How can I assign a mask (date) field to the item (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComToString to "[id=10][edittype=0x02][edit=Date: 2/15/2015][mask=`Date: `{1,12}/{1,31}/{1950,2050};;;select=1][editwidth=-128],Date[id=20][edittype=0x02][edit=02/15/2015][mask=!00/00/0000;;0;empty,validateas=1,invalid=Invalid date!,warning=Invalid character!,select=4,overtype][editwidth=-128]"
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
46:
How can I assign a mask (integer) field to the item (method 2)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Integer" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComAllowEdit of hoitem to OLEexItemEditMask
			Set ComEditWidth of hoitem to -128
			Set ComEditMask of hoitem to ";;;float,grouping=,digits=0"
			Set ComEditValue of hoitem to 1000
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "Integer-Grouping" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComAllowEdit of hoitem1 to OLEexItemEditMask
			Set ComEditWidth of hoitem1 to -128
			Set ComEditMask of hoitem1 to ";;;float,decimal=,digits=0,select=1"
			Set ComEditValue of hoitem1 to 1000
		Send Destroy to hoitem1
		Variant voitem2
		Get ComAdd of hoItems "Integer-In-Range" Nothing Nothing to voitem2
		Handle hoitem2
		Get Create (RefClass(cComitem)) to hoitem2
		Set pvComObject of hoitem2 to voitem2
			Set ComAllowEdit of hoitem2 to OLEexItemEditMask
			Set ComEditWidth of hoitem2 to -128
			Set ComEditMask of hoitem2 to "{0,2050}"
			Set ComEditValue of hoitem2 to 1000
		Send Destroy to hoitem2
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
45:
How can I assign a mask (integer) field to the item (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComToString to "Integer[id=10][edittype=0x02][edit=1000][mask=;;;float,grouping=,digits=0][editwidth=-128],Integer-Grouping[id=20][edittype=0x02][edit=1,000][mask=;;;float,decimal=,digits=0,select=1][editwidth=-128],Integer-In-Range[id=30][edittype=0x02][edit=1000][mask={0,2050}][editwidth=-128]"
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
44:
How can I assign a mask field to the item (method 2)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Mask" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComAllowEdit of hoitem to OLEexItemEditMask
			Set ComEditWidth of hoitem to -128
			Set ComEditMask of hoitem to ";;;float,select=1"
			Set ComEditValue of hoitem to 1000
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
43:
How can I assign a mask field to the item (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComToString to "Text-Box[id=10][edittype=0x02][edit=1,000][mask=;;;float,select=1][editwidth=-128]"
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
42:
How can I assign an edit / text-box to the item (method 2)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Mask" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComAllowEdit of hoitem to OLEexItemEditText
			Set ComEditValue of hoitem to "this is a text"
			Set ComEditWidth of hoitem to -128
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
41:
How can I assign an edit / text-box to the item (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComToString to "Text-Box[edit=this is a text][editwidth=-128]"
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
40:
How can I display a tab into the context menu (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComBackground OLEexMenuSelBorderColor to (RGB(240,240,240))
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[id=0][group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03](),[id=0][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-100]))"
		Variant voitem
		Get Comitem of hoItems -10 to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voitem1
				Get ComAdd of hoItems1 "" 0 0 to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComPadding of hoitem1 to "8,0,0,0"
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoItems1 "New Page" Nothing Nothing to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComToString of hoitem2 to "[typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][group=0x03][tab=-100][pad=2,0,2,0]([id=50][group=0x03]([]))"
					Set ComCaption of hoitem2 to "Page<off -5><font ;5><b>1</b></font></off>"
					Variant voItems2
					Get ComItems of hoitem2 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voitem3
						Get ComAdd of hoItems2 "add here fields for page 1" Nothing Nothing to voitem3
						Handle hoitem3
						Get Create (RefClass(cComitem)) to hoitem3
						Set pvComObject of hoitem3 to voitem3
							Set ComEnabled of hoitem3 to False
						Send Destroy to hoitem3
					Send Destroy to hoItems2
				Send Destroy to hoitem2
				Variant voitem4
				Get ComAdd of hoItems1 "New Page" Nothing Nothing to voitem4
				Handle hoitem4
				Get Create (RefClass(cComitem)) to hoitem4
				Set pvComObject of hoitem4 to voitem4
					Set ComToString of hoitem4 to "[typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][group=0x03][tab=-100][pad=2,0,2,0]([id=50][group=0x03]([]))"
					Set ComCaption of hoitem4 to "Page<off -5><font ;5><b>2</b></font></off>"
					Variant voItems3
					Get ComItems of hoitem4 to voItems3
					Handle hoItems3
					Get Create (RefClass(cComItems)) to hoItems3
					Set pvComObject of hoItems3 to voItems3
						Variant voitem5
						Get ComAdd of hoItems3 "add here fields for page 2" Nothing Nothing to voitem5
						Handle hoitem5
						Get Create (RefClass(cComitem)) to hoitem5
						Set pvComObject of hoitem5 to voitem5
							Set ComEnabled of hoitem5 to False
						Send Destroy to hoitem5
					Send Destroy to hoItems3
				Send Destroy to hoitem4
				Variant voitem6
				Get ComAdd of hoItems1 "" 0 0 to voitem6
				Handle hoitem6
				Get Create (RefClass(cComitem)) to hoitem6
				Set pvComObject of hoitem6 to voitem6
					Set ComPadding of hoitem6 to "8,0,0,0"
				Send Destroy to hoitem6
			Send Destroy to hoItems1
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
39:
How can I add check-buttons to items, without showing the check-box (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voitem1
				Get ComAdd of hoItems1 "Check 1" Nothing Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComCheck of hoitem1 to True
					Set ComChecked of hoitem1 to True
					Set ComShowCheckedAsSelected of hoitem1 to OLEexDisplayItemHighlight
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoItems1 "Check 2" Nothing Nothing to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComCheck of hoitem2 to True
					Set ComShowCheckedAsSelected of hoitem2 to OLEexDisplayItemHighlight
				Send Destroy to hoitem2
				Variant voitem3
				Get ComAdd of hoItems1 "Check 3" Nothing Nothing to voitem3
				Handle hoitem3
				Get Create (RefClass(cComitem)) to hoitem3
				Set pvComObject of hoitem3 to voitem3
					Set ComCheck of hoitem3 to True
					Set ComChecked of hoitem3 to True
					Set ComShowCheckedAsSelected of hoitem3 to OLEexDisplayItemHighlight
				Send Destroy to hoitem3
			Send Destroy to hoItems1
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
38:
How can I add check-buttons to items, without showing the check-box (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComToString to "[group=0x3](Check 1[chk=1][show=1],Check 2[chk=0][show=1],Check 3[chk=1][show=1])"
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
37:
How can I add radio buttons to items, without showing the radio-buttons (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voitem1
				Get ComAdd of hoItems1 "Radio 1" 1000 to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComShowCheckedAsSelected of hoitem1 to OLEexDisplayItemHighlight
					Set ComRadio of hoitem1 to True
					Set ComRadioGroup of hoitem1 to 100
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoItems1 "Radio 2" 1001 to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComShowCheckedAsSelected of hoitem2 to OLEexDisplayItemHighlight
					Set ComRadio of hoitem2 to True
					Set ComRadioGroup of hoitem2 to 100
				Send Destroy to hoitem2
				Variant voitem3
				Get ComAdd of hoItems1 "Radio 2" 1003 to voitem3
				Handle hoitem3
				Get Create (RefClass(cComitem)) to hoitem3
				Set pvComObject of hoitem3 to voitem3
					Set ComShowCheckedAsSelected of hoitem3 to OLEexDisplayItemHighlight
					Set ComRadio of hoitem3 to True
					Set ComRadioGroup of hoitem3 to 100
				Send Destroy to hoitem3
				Variant voitem4
				Get Comitem of hoItems1 1000 to voitem4
				Handle hoitem4
				Get Create (RefClass(cComitem)) to hoitem4
				Set pvComObject of hoitem4 to voitem4
					Set ComChecked of hoitem4 to True
				Send Destroy to hoitem4
			Send Destroy to hoItems1
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
36:
How can I add radio buttons to items, without showing the radio-buttons (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComToString to "[group=0x3](Radio 1[rad=1][show=1][grp=100][id=1000],Radio 2[rad=0][show=1][grp=100][id=1001],Radio 2[rad=0][show=1][grp=100][id=1002])"
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
35:
How can I add check-buttons to items (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voitem1
				Get ComAdd of hoItems1 "Check 1" Nothing Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComCheck of hoitem1 to True
					Set ComChecked of hoitem1 to True
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoItems1 "Check 2" Nothing Nothing to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComCheck of hoitem2 to True
				Send Destroy to hoitem2
			Send Destroy to hoItems1
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
34:
How can I add check-buttons to items (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComToString to "[group=0x3](Check 1[chk=1],Check 2[chk=0])"
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
33:
How can I add radio buttons to items (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to OLEexGroupPopup
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voitem1
				Get ComAdd of hoItems1 "Radio 1" 1000 to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComRadio of hoitem1 to True
					Set ComRadioGroup of hoitem1 to 100
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoItems1 "Radio 2" 1001 to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComRadio of hoitem2 to True
					Set ComRadioGroup of hoitem2 to 100
				Send Destroy to hoitem2
				Variant voitem3
				Get ComAdd of hoItems1 "Radio 2" 1003 to voitem3
				Handle hoitem3
				Get Create (RefClass(cComitem)) to hoitem3
				Set pvComObject of hoitem3 to voitem3
					Set ComRadio of hoitem3 to True
					Set ComRadioGroup of hoitem3 to 100
				Send Destroy to hoitem3
				Variant voitem4
				Get Comitem of hoItems1 1000 to voitem4
				Handle hoitem4
				Get Create (RefClass(cComitem)) to hoitem4
				Set pvComObject of hoitem4 to voitem4
					Set ComChecked of hoitem4 to True
				Send Destroy to hoitem4
			Send Destroy to hoItems1
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
32:
How can I add radio buttons to items (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComToString to "[group=0x1](Radio 1[rad=1][grp=100][id=1000],Radio 2[rad=0][grp=100][id=1001],Radio 2[rad=0][grp=100][id=1002])"
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
31:
How can I change the selection/highlighting color

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComSelBackColor to (RGB(0,0,0))
	Set ComBackground OLEexMenuSelBorderColor to (RGB(128,0,0))
	Set ComBackground OLEexMenuHotForeColor to (RGB(255,255,255))
	Set ComToString to "[group=3](Item 1[chk],Item 2[chk])"
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
30:
How can I prevent showing/hide the border on the selected/highlighted item

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComBackground OLEexMenuSelBorderColor to (ComSelBackColor(Self))
	Set ComToString to "Item 1,Item 2"
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
29:
How can I display a tab into the context menu (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComBackground OLEexMenuSelBorderColor to (RGB(240,240,240))
	Set ComToString to "[id=10][group=0x0103][itemspad=4,4,4,4]([id=20][group=0x03]([id=30][pad=8,0,0,0],Page<off -5><font ;5><b>1</b></font></off>[id=40][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][group=0x03][tab=9000][pad=2,0,2,0]([id=50][group=0x03](add here fields for page 1[dis])),Page<off -5><font ;5><b>2</b></font></off>[id=120][typ=2][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][group=0x03][tab=9000][pad=2,0,2,0]([id=130][group=0x03](add here fields for page 2[dis])),[id=180][pad=8,0,0,0]),[id=190][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=9000]))"
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
28:
How do I prevent highlighting the item (method 2.b)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "No highlight" 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
		Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
27:
How do I prevent highlighting the item (method 2.a)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "No highlight" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "" Nothing Nothing to Nothing
			Send Destroy to hoItems1
			Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
		Send Destroy to hoitem
		Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
26:
How do I prevent highlighting the item (method 1.b)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "No highlight[dis],Item 2,Item 3"
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
25:
How do I prevent highlighting the item (method 1.a)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "No highlight[group=0x3][arrow=0]([]),Item 2,Item 3"
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
24:
How can I can I assign pictures or images for the item (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComHTMLImage of hoitem to "pic1"
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "Item" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComHTMLImage of hoitem1 to "pic2"
		Send Destroy to hoitem1
		Get ComAdd of hoItems "" 1 Nothing to Nothing
		Get ComAdd of hoItems "Item <img>pic1</img>" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item <img>pic2</img>" Nothing Nothing to Nothing
		Get ComAdd of hoItems "" 1 Nothing to Nothing
		Get ComAdd of hoItems "<img>pic1</img> Item <img>pic2</img>" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
23:
How can I can I assign pictures or images for the item (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
	Set ComToString to "Item[himg=pic1],Item[himg=pic2],[sep],Item <img>pic1</img>,Item <img>pic2</img>,[sep],<img>pic1</img> Item <img>pic2</img>"
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
22:
How can I can I assign icons for the item (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Item" 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
		Variant voitem1
		Get ComAdd of hoItems "Item" Nothing Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Set ComImage of hoitem1 to 2
		Send Destroy to hoitem1
		Get ComAdd of hoItems "" 1 Nothing to Nothing
		Get ComAdd of hoItems "Item <img>1</img>" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item <img>2</img>" Nothing Nothing to Nothing
		Get ComAdd of hoItems "" 1 Nothing to Nothing
		Variant voitem2
		Get ComAdd of hoItems "Item <img>1</img>" Nothing Nothing to voitem2
		Handle hoitem2
		Get Create (RefClass(cComitem)) to hoitem2
		Set pvComObject of hoitem2 to voitem2
			Set ComImage of hoitem2 to 1
		Send Destroy to hoitem2
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
21:
How can I can I assign icons for the item (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item[img=1],Item[img=2],[sep],Item <img>1</img>,Item <img>2</img>,[sep],Item <img>1</img>[img=1]"
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
20:
How can I change the visual appearance / background color (EBN) for a collection of items/group (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	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
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPadding of hoItems to "2,2,2,2"
		Set ComBackColor of hoItems to |CI$1000000
		Get ComAdd of hoItems "Item 1" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
19:
How can I change the visual appearance / background color (EBN) for a collection of items/group (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	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
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[itemsbg=0x1000000][itemspad=2,2,2,2][group=0x103](Item 1,Item 2,Item 3)"
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
18:
How can I change the background color for a collection of items/group (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPadding of hoItems to "2,2,2,2"
		Set ComBackColor of hoItems to (RGB(255,0,0))
		Get ComAdd of hoItems "Item 1" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
17:
How can I change the background color for a collection of items/group (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[itemsbg=RGB(255,0,0)][itemspad=2,2,2,2][group=0x103](Item 1,Item 2,Item 3)"
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
16:
How can I change the visual appearance / background color (EBN) for a specified item (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	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
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Item 1" Nothing Nothing to Nothing
		Variant voitem
		Get ComAdd of hoItems "Item 2" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComBackColor of hoitem to |CI$1000000
		Send Destroy to hoitem
		Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
15:
How can I change the visual appearance / background color (EBN) for a specified item (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	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
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1,Item 2[bg=0x1000000],Item 3"
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
14:
How can I change the background color for a specified item (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Item 1" Nothing Nothing to Nothing
		Variant voitem
		Get ComAdd of hoItems "Item 2" Nothing Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComBackColor of hoitem to (RGB(255,0,0))
		Send Destroy to hoitem
		Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
13:
How can I change the background color for a specified item (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1,Item 2[bg=RGB(255,0,0)],Item 3"
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
12:
How do I add a popup or a sub-menu so it show when cursor hovers it (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "Popup" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
11:
How do I add a popup or a sub-menu so it show when cursor hovers it (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Popup(Item 1,Item 2,Item 3)"
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
10:
How can I arrange the items by grouping (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voitem1
				Get ComAdd of hoItems1 "Horizontal" 2 Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComGroupPopup of hoitem1 to OLEexGroupPopup
					Variant voItems2
					Get ComItems of hoitem1 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Get ComAdd of hoItems2 "Sub-Item <b>A</b>" Nothing Nothing to Nothing
						Get ComAdd of hoItems2 "Sub-Item <b>B</b>" Nothing Nothing to Nothing
						Get ComAdd of hoItems2 "Sub-Item <b>C</b>" Nothing Nothing to Nothing
					Send Destroy to hoItems2
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoItems1 "" Nothing Nothing to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComCaptionWidth of hoitem2 to 16
				Send Destroy to hoitem2
				Variant voitem3
				Get ComAdd of hoItems1 "Vertical" 2 Nothing to voitem3
				Handle hoitem3
				Get Create (RefClass(cComitem)) to hoitem3
				Set pvComObject of hoitem3 to voitem3
					Set ComAlignment of hoitem3 to OLEexCenter
					Set ComGroupPopup of hoitem3 to (OLEexGroupPopupVertical + OLEexGroupPopup)
					Variant voItems3
					Get ComItems of hoitem3 to voItems3
					Handle hoItems3
					Get Create (RefClass(cComItems)) to hoItems3
					Set pvComObject of hoItems3 to voItems3
						Get ComAdd of hoItems3 "Sub-Item <b>A</b>" Nothing Nothing to Nothing
						Get ComAdd of hoItems3 "Sub-Item <b>B</b>" Nothing Nothing to Nothing
						Get ComAdd of hoItems3 "Sub-Item <b>C</b>" Nothing Nothing to Nothing
					Send Destroy to hoItems3
				Send Destroy to hoitem3
				Variant voitem4
				Get ComAdd of hoItems1 "" Nothing Nothing to voitem4
				Handle hoitem4
				Get Create (RefClass(cComitem)) to hoitem4
				Set pvComObject of hoitem4 to voitem4
					Set ComCaptionWidth of hoitem4 to 16
				Send Destroy to hoitem4
				Variant voitem5
				Get ComAdd of hoItems1 "Popup" 2 Nothing to voitem5
				Handle hoitem5
				Get Create (RefClass(cComitem)) to hoitem5
				Set pvComObject of hoitem5 to voitem5
					Variant voItems4
					Get ComItems of hoitem5 to voItems4
					Handle hoItems4
					Get Create (RefClass(cComItems)) to hoItems4
					Set pvComObject of hoItems4 to voItems4
						Get ComAdd of hoItems4 "Sub-Item <b>A</b>" Nothing Nothing to Nothing
						Get ComAdd of hoItems4 "Sub-Item <b>B</b>" Nothing Nothing to Nothing
						Get ComAdd of hoItems4 "Sub-Item <b>C</b>" Nothing Nothing to Nothing
					Send Destroy to hoItems4
				Send Destroy to hoitem5
			Send Destroy to hoItems1
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
9:
How can I arrange the items by grouping (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[group=0x03](Horizontal[group=0x01](Sub-Item <b>A</b>,Sub-Item <b>B</b>,Sub-Item <b>C</b>),[captionwidth=16],Vertical[group=0x0101][align=1](Sub-Item <b>A</b>,Sub-Item <b>B</b>,Sub-Item <b>C</b>),[captionwidth=16],Popup(Sub-Item <b>A</b>,Sub-Item <b>B</b>,Sub-Item <b>C</b>),[captionwidth=160])"
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
8:
How can I arrange some items vertically, and some horizontally (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
			Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
		Send Destroy to hoitem
		Variant voitem1
		Get ComAdd of hoItems "" 2 Nothing to voitem1
		Handle hoitem1
		Get Create (RefClass(cComitem)) to hoitem1
		Set pvComObject of hoitem1 to voitem1
			Variant voItems2
			Get ComItems of hoitem1 to voItems2
			Handle hoItems2
			Get Create (RefClass(cComItems)) to hoItems2
			Set pvComObject of hoItems2 to voItems2
				Get ComAdd of hoItems2 "4" Nothing Nothing to Nothing
				Get ComAdd of hoItems2 "5" Nothing Nothing to Nothing
				Get ComAdd of hoItems2 "6" Nothing Nothing to Nothing
			Send Destroy to hoItems2
			Set ComGroupPopup of hoitem1 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
		Send Destroy to hoitem1
		Variant voitem2
		Get ComAdd of hoItems "" 2 Nothing to voitem2
		Handle hoitem2
		Get Create (RefClass(cComitem)) to hoitem2
		Set pvComObject of hoitem2 to voitem2
			Variant voItems3
			Get ComItems of hoitem2 to voItems3
			Handle hoItems3
			Get Create (RefClass(cComItems)) to hoItems3
			Set pvComObject of hoItems3 to voItems3
				Get ComAdd of hoItems3 "7" Nothing Nothing to Nothing
				Get ComAdd of hoItems3 "8" Nothing Nothing to Nothing
				Get ComAdd of hoItems3 "9" Nothing Nothing to Nothing
			Send Destroy to hoItems3
			Set ComGroupPopup of hoitem2 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
		Send Destroy to hoitem2
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
7:
How can I arrange some items vertically, and some horizontally (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[group=3](1,2,3),[group=3](4,5,6),[group=3](7,8,9)"
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
6:
How can I assign multiple-lines to an item (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voitem1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to voitem1
				Handle hoitem1
				Get Create (RefClass(cComitem)) to hoitem1
				Set pvComObject of hoitem1 to voitem1
					Set ComCaption of hoitem1 to "Item <br><c><b>1"
				Send Destroy to hoitem1
				Variant voitem2
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to voitem2
				Handle hoitem2
				Get Create (RefClass(cComitem)) to hoitem2
				Set pvComObject of hoitem2 to voitem2
					Set ComCaption of hoitem2 to "Item <br><c><b>2"
				Send Destroy to hoitem2
				Variant voitem3
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to voitem3
				Handle hoitem3
				Get Create (RefClass(cComitem)) to hoitem3
				Set pvComObject of hoitem3 to voitem3
					Set ComCaption of hoitem3 to "Item <br><c><b>3"
				Send Destroy to hoitem3
			Send Destroy to hoItems1
			Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
5:
How can I assign multiple-lines to an item (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[group=3](Item <br><c><b>1,Item <br><c><b>2,Item <br><c><b>3)"
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
4:
How can I add new items arranged horizontally to the context menu (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voitem
		Get ComAdd of hoItems "" 2 Nothing to voitem
		Handle hoitem
		Get Create (RefClass(cComitem)) to hoitem
		Set pvComObject of hoitem to voitem
			Variant voItems1
			Get ComItems of hoitem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
			Set ComGroupPopup of hoitem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
		Send Destroy to hoitem
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
3:
How can I add new items arranged horizontally to the context menu (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[group=3](Item 1,Item 2,Item 3)"
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
2:
How can I add new items to the context menu (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Item 1" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure
1:
How can I add new items to the context menu (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant oComExContextMenu1
	Get ComCreateObject "Exontrol.ContextMenu.1" to oComExContextMenu1

	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1,Item 2,Item 3"
	Send Destroy to hoItems
	Get ComSelect Nothing Nothing Nothing to Nothing
End_Procedure