175:
How can I change the group's color
Procedure OnCreate
	Forward Send OnCreate
	Set ComBackColorGroup to (RGB(255,0,0))
	Set ComBackColorGroup2 to (ComBackColorGroup(Self))
	Set ComGroupAppearance to OLEexNone
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
		Get ComAdd of hoGroups "Group 2" to Nothing
	Send Destroy to hoGroups
End_Procedure
174:
How can remove the group's appearance
Procedure OnCreate
	Forward Send OnCreate
	Set ComBackColorGroup to (ComBackColor(Self))
	Set ComBackColorGroup2 to (ComBackColor(Self))
	Set ComGroupAppearance to OLEexSingle
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
		Get ComAdd of hoGroups "Group 2" to Nothing
	Send Destroy to hoGroups
End_Procedure
173:
How can I align the group/item
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComAlignment of hoGroup to OLEexLeft
			Variant voItem
			Get ComAddItem of hoGroup "Item 1" Nothing to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComAlignment of hoItem to OLEexLeft
			Send Destroy to hoItem
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Send ComEndUpdate
End_Procedure
172:
Just seen the BackgroundExt property. Not sure what I can do with that

// Occurs when a new group is added to collection.
Procedure OnComAddGroup Variant llGroup
	Forward Send OnComAddGroup llGroup
	Move to Group
End_Procedure

// Occurs when a new item is added to a group.
Procedure OnComAddItem Variant llItem
	Forward Send OnComAddItem llItem
	Move to Item
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLEexNone
	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 "CP:1 48 12 -24 0" to Nothing
		Get ComAdd of hoAppearance 3 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComHTMLPicture "uk" to "c:\exontrol\images\zipdisk.gif"
	Set ComHTMLPicture "brazil" to "c:\exontrol\images\auction.gif"
	Set ComHTMLPicture "sweden" to "c:\exontrol\images\colorize.gif"
	Set ComBackColorGroup to |CI$2000000
	Set ComBackColorGroup2 to (ComBackColorGroup(Self))
	Set ComGroupHeight to 40
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "<b><font ;18><fgcolor FFFFFF><sha 0;;0>United Kingdom" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComBackgroundExtValue of hoGroup OLEexIndexExt2 OLEexTextExt to "<img>uk:44</img>"
			Get ComAddItem of hoGroup "London Eye" Nothing to Nothing
			Get ComAddItem of hoGroup "Tower of London" Nothing to Nothing
			Get ComAddItem of hoGroup "Buckingham Palace" Nothing to Nothing
			Get ComAddItem of hoGroup "River Thames" Nothing to Nothing
			Get ComAddItem of hoGroup "Stonehenge" Nothing to Nothing
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "<b><font ;18><fgcolor FFFFFF><sha 0;;0>Brazil" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Set ComBackgroundExtValue of hoGroup1 OLEexIndexExt2 OLEexTextExt to "<img>brazil:44</img>"
			Get ComAddItem of hoGroup1 "Cristo Redentor" Nothing to Nothing
			Get ComAddItem of hoGroup1 "Copacabana" Nothing to Nothing
			Get ComAddItem of hoGroup1 "Ipanema, Rio de Janeiro" Nothing to Nothing
			Get ComAddItem of hoGroup1 "Iguazu Falls" Nothing to Nothing
			Get ComAddItem of hoGroup1 "Sugarloaf Mountain" Nothing to Nothing
			Set ComExpanded of hoGroup1 to True
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Variant voGroup2
		Get ComAdd of hoGroups2 "<b><font ;18><fgcolor FFFFFF><sha 0;;0>Sweden" to voGroup2
		Handle hoGroup2
		Get Create (RefClass(cComGroup)) to hoGroup2
		Set pvComObject of hoGroup2 to voGroup2
			Set ComBackgroundExtValue of hoGroup2 OLEexIndexExt2 OLEexTextExt to "<img>sweden:44</img>"
			Get ComAddItem of hoGroup2 "Gamla stan" Nothing to Nothing
			Get ComAddItem of hoGroup2 "Vasa Museum" Nothing to Nothing
			Get ComAddItem of hoGroup2 "Stockholm Palace" Nothing to Nothing
			Get ComAddItem of hoGroup2 "Skansen" Nothing to Nothing
			Get ComAddItem of hoGroup2 "Djurgården" Nothing to Nothing
		Send Destroy to hoGroup2
	Send Destroy to hoGroups2
	Send ComEndUpdate
End_Procedure
171:
Can I specify a different colors for groups using your EBN files

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackColorGroup to |CI$1000000
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup
		Get ComAdd of hoGroups1 "Group 2" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComBackColor of hoGroup to |CI$100aabb
		Send Destroy to hoGroup
	Send Destroy to hoGroups1
End_Procedure
170:
Can I change the color of the control's border (EBN files)

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComAppearance to (|CI$1aabbc8 + OLEexDrop)
End_Procedure
169:
How can I make the items visible automatically, or how can I ensure an item is visible or it is shown in the control's client area
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComGroupHeight to 48
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
		Get ComAdd of hoGroups "Group 2" to Nothing
		Get ComAdd of hoGroups "Group 3" to Nothing
		Get ComAdd of hoGroups "Group 4" to Nothing
		Get ComAdd of hoGroups "Group 5" to Nothing
		Get ComAdd of hoGroups "Group 6" to Nothing
		Get ComAdd of hoGroups "Group 7" to Nothing
		Get ComAdd of hoGroups "Group 8" to Nothing
		Get ComAdd of hoGroups "Group 9" to Nothing
		Get ComAdd of hoGroups "Group 10" to Nothing
		Get ComAdd of hoGroups "Group 11" to Nothing
		Variant voGroup
		Get ComAdd of hoGroups "Group 12" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup 0 Nothing to Nothing
			Get ComAddItem of hoGroup 1 Nothing to Nothing
			Get ComAddItem of hoGroup 2 Nothing to Nothing
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Send ComEnsureVisible 11 2 Nothing
	Send ComEndUpdate
End_Procedure
168:
How can I scroll to the end of the groups

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComGroupHeight to 48
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
		Get ComAdd of hoGroups "Group 2" to Nothing
		Get ComAdd of hoGroups "Group 3" to Nothing
		Get ComAdd of hoGroups "Group 4" to Nothing
		Get ComAdd of hoGroups "Group 5" to Nothing
		Get ComAdd of hoGroups "Group 6" to Nothing
		Get ComAdd of hoGroups "Group 7" to Nothing
		Get ComAdd of hoGroups "Group 8" to Nothing
		Get ComAdd of hoGroups "Group 9" to Nothing
		Get ComAdd of hoGroups "Group 10" to Nothing
		Get ComAdd of hoGroups "Group 11" to Nothing
		Get ComAdd of hoGroups "Group 12" to Nothing
	Send Destroy to hoGroups
	Send ComEnsureVisible 11 Nothing Nothing
	Send ComEndUpdate
End_Procedure
167:
How can I display an item by multiple lines

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "SingleLine" Nothing to Nothing
			Variant voItem
			Get ComAddItem of hoGroup "This is bit of text that should break the lines, and so <b>multiple</b> lines are displayed" Nothing to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComAlignment of hoItem to OLEexLeft
				Set ComCaptionFormat of hoItem to OLEexHTML
				Set ComSingleLine of hoItem to False
			Send Destroy to hoItem
			Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
166:
How can I indent an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Variant voItem
			Get ComAddItem of hoGroup "Item 1" Nothing to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComAlignment of hoItem to OLEexLeft
			Send Destroy to hoItem
			Variant voItem1
			Get ComAddItem of hoGroup "Sub Item <b>1</b>" Nothing to voItem1
			Handle hoItem1
			Get Create (RefClass(cComItem)) to hoItem1
			Set pvComObject of hoItem1 to voItem1
				Set ComCaptionFormat of hoItem1 to OLEexHTML
				Set ComAlignment of hoItem1 to OLEexLeft
				Set ComIndent of hoItem1 to 12
			Send Destroy to hoItem1
			Variant voItem2
			Get ComAddItem of hoGroup "Sub Item <b>2</b>" Nothing to voItem2
			Handle hoItem2
			Get Create (RefClass(cComItem)) to hoItem2
			Set pvComObject of hoItem2 to voItem2
				Set ComCaptionFormat of hoItem2 to OLEexHTML
				Set ComAlignment of hoItem2 to OLEexLeft
				Set ComIndent of hoItem2 to 12
			Send Destroy to hoItem2
			Variant voItem3
			Get ComAddItem of hoGroup "Sub Item <b>3</b>" Nothing to voItem3
			Handle hoItem3
			Get Create (RefClass(cComItem)) to hoItem3
			Set pvComObject of hoItem3 to voItem3
				Set ComCaptionFormat of hoItem3 to OLEexHTML
				Set ComAlignment of hoItem3 to OLEexLeft
				Set ComIndent of hoItem3 to 12
			Send Destroy to hoItem3
			Variant voItem4
			Get ComAddItem of hoGroup "Sub Sub Item <b>3</b>" Nothing to voItem4
			Handle hoItem4
			Get Create (RefClass(cComItem)) to hoItem4
			Set pvComObject of hoItem4 to voItem4
				Set ComCaptionFormat of hoItem4 to OLEexHTML
				Set ComAlignment of hoItem4 to OLEexLeft
				Set ComIndent of hoItem4 to 24
			Send Destroy to hoItem4
			Variant voItem5
			Get ComAddItem of hoGroup "Item 2" Nothing to voItem5
			Handle hoItem5
			Get Create (RefClass(cComItem)) to hoItem5
			Set pvComObject of hoItem5 to voItem5
				Set ComAlignment of hoItem5 to OLEexLeft
			Send Destroy to hoItem5
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
165:
How can I use HTML format to display my item

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Variant voItem
			Get ComAddItem of hoGroup "<font Tahoma;11>T</font>his is an HTML <b>item</b> assigned to a <fgcolor=FF0000>group</fgcolor>" Nothing to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComCaptionFormat of hoItem to OLEexHTML
			Send Destroy to hoItem
			Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
164:
How can I assign a tooltip to an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Variant voItem
			Get ComAddItem of hoGroup "ToolTip" Nothing to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComToolTip of hoItem to "This is bit of text that should appear when the cursor hovers the <b>item</b>."
			Send Destroy to hoItem
			Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
163:
How can I show or hide an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Variant voItem
			Get ComAddItem of hoGroup "Item 2" 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 ComAddItem of hoGroup "Item 3" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
162:
How can I align an icon for an item

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Variant voItem
			Get ComAddItem of hoGroup "Item 1" Nothing to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComImage of hoItem to 1
				Set ComImageAlignment of hoItem to OLEexLeft
			Send Destroy to hoItem
			Variant voItem1
			Get ComAddItem of hoGroup "Item 2" Nothing to voItem1
			Handle hoItem1
			Get Create (RefClass(cComItem)) to hoItem1
			Set pvComObject of hoItem1 to voItem1
				Set ComImage of hoItem1 to 2
				Set ComImageAlignment of hoItem1 to OLEexRight
			Send Destroy to hoItem1
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
161:
How can I stop highlighting an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Variant voItem
			Get ComAddItem of hoGroup "Item 2 - no " Nothing to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComAllowHighLight of hoItem to False
			Send Destroy to hoItem
			Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
160:
How can I change the item's background color

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Variant voItem
			Get ComAddItem of hoGroup "Item 2" 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))
				Set ComBackColor2 of hoItem to (RGB(255,255,255))
			Send Destroy to hoItem
			Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
159:
How can I change the item's background color

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Variant voItem
			Get ComAddItem of hoGroup "<bgcolor=FF0000>Item</bgcolor> 2" Nothing to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComCaptionFormat of hoItem to OLEexHTML
			Send Destroy to hoItem
			Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
158:
How can I change the item's foreground color

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Variant voItem
			Get ComAddItem of hoGroup "Item 2" 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 ComAddItem of hoGroup "Item 3" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
157:
How can I change the visual appearance of the item using your EBN files

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Variant voItem
			Get ComAddItem of hoGroup "Item 2" 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 ComAddItem of hoGroup "Item 3" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
156:
How can I change the item's background color

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Variant voItem
			Get ComAddItem of hoGroup "Item 2" 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 ComAddItem of hoGroup "Item 3" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
155:
How can I get the group of the item

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Variant voItem
			Get ComAddItem of hoGroup "Item 2" Nothing to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Variant voGroup1
				Get ComGroup of hoItem to voGroup1
				Handle hoGroup1
				Get Create (RefClass(cComGroup)) to hoGroup1
				Set pvComObject of hoGroup1 to voGroup1
					Set ComBold of hoGroup1 to True
				Send Destroy to hoGroup1
			Send Destroy to hoItem
			Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
154:
How can I get the index of the item

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Variant voItem
			Get ComAddItem of hoGroup "Item 1" Nothing to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComCaption of hoItem to (ComIndex(hoItem))
			Send Destroy to hoItem
			Variant voItem1
			Get ComAddItem of hoGroup "Item 2" Nothing to voItem1
			Handle hoItem1
			Get Create (RefClass(cComItem)) to hoItem1
			Set pvComObject of hoItem1 to voItem1
				Set ComCaption of hoItem1 to (ComIndex(hoItem1))
			Send Destroy to hoItem1
			Variant voItem2
			Get ComAddItem of hoGroup "Item 3" Nothing to voItem2
			Handle hoItem2
			Get Create (RefClass(cComItem)) to hoItem2
			Set pvComObject of hoItem2 to voItem2
				Set ComCaption of hoItem2 to (ComIndex(hoItem2))
			Send Destroy to hoItem2
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
153:
How can I draw underlined an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Variant voItem
			Get ComAddItem of hoGroup "<u>Item</u> 2" Nothing to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComCaptionFormat of hoItem to OLEexHTML
			Send Destroy to hoItem
			Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
152:
How can I draw underlined an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Variant voItem
			Get ComAddItem of hoGroup "Item 2" 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 ComAddItem of hoGroup "Item 3" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
151:
How can I draw as strikeout an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Variant voItem
			Get ComAddItem of hoGroup "<s>Item</s> 2" Nothing to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComCaptionFormat of hoItem to OLEexHTML
			Send Destroy to hoItem
			Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
150:
How can I draw as strikeout an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Variant voItem
			Get ComAddItem of hoGroup "Item 2" 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 ComAddItem of hoGroup "Item 3" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
149:
How can I draw as italic an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Variant voItem
			Get ComAddItem of hoGroup "<i>Item</i> 2" Nothing to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComCaptionFormat of hoItem to OLEexHTML
			Send Destroy to hoItem
			Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
148:
How can I draw as italic an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Variant voItem
			Get ComAddItem of hoGroup "Item 2" 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 ComAddItem of hoGroup "Item 3" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
147:
How can I add a anchor or a hyperlink

Procedure OnCreate
	Forward Send OnCreate
	Set ComHighlightItemType to OLEexNoHighlight
	Set ComHandCursor to False
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Variant voItem
			Get ComAddItem of hoGroup "Link <a1><b>1</b></a>" Nothing to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComCaptionFormat of hoItem to OLEexHTML
			Send Destroy to hoItem
			Variant voItem1
			Get ComAddItem of hoGroup "Link <a2><b>2</b></a>" Nothing to voItem1
			Handle hoItem1
			Get Create (RefClass(cComItem)) to hoItem1
			Set pvComObject of hoItem1 to voItem1
				Set ComCaptionFormat of hoItem1 to OLEexHTML
			Send Destroy to hoItem1
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
146:
How do I bold an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Variant voItem
			Get ComAddItem of hoGroup "<b>Item</a> 2" Nothing to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComCaptionFormat of hoItem to OLEexHTML
			Send Destroy to hoItem
			Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
145:
How do I bold an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Variant voItem
			Get ComAddItem of hoGroup "Item 2" 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 ComAddItem of hoGroup "Item 3" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
144:
How can I align an item

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComItemHeight of hoGroup to 28
			Variant voItem
			Get ComAddItem of hoGroup "Left" 1 to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComAlignment of hoItem to OLEexLeft
			Send Destroy to hoItem
			Variant voItem1
			Get ComAddItem of hoGroup "Center" 2 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 ComAddItem of hoGroup "Right" 3 to voItem2
			Handle hoItem2
			Get Create (RefClass(cComItem)) to hoItem2
			Set pvComObject of hoItem2 to voItem2
				Set ComAlignment of hoItem2 to OLEexRight
			Send Destroy to hoItem2
			Variant voItem3
			Get ComAddItem of hoGroup "Middle" 1 to voItem3
			Handle hoItem3
			Get Create (RefClass(cComItem)) to hoItem3
			Set pvComObject of hoItem3 to voItem3
				Set ComAlignment of hoItem3 to OLEexMiddle
			Send Destroy to hoItem3
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
143:
How can I assign some extra data to an item

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Variant voItem
			Get ComAddItem of hoGroup "Item 1" Nothing to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComUserData of hoItem to "your data"
			Send Destroy to hoItem
			Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
			Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
142:
How can I assign or display an icon for an item

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Variant voItem
			Get ComAddItem of hoGroup "Item <img>1</img> text <img>2</img>" Nothing to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComCaptionFormat of hoItem to OLEexHTML
			Send Destroy to hoItem
			Variant voItem1
			Get ComAddItem of hoGroup "Item 2" 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
			Variant voItem2
			Get ComAddItem of hoGroup "Item 3" Nothing to voItem2
			Handle hoItem2
			Get Create (RefClass(cComItem)) to hoItem2
			Set pvComObject of hoItem2 to voItem2
				Set ComImage of hoItem2 to 3
			Send Destroy to hoItem2
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
141:
How can I assign or display an icon for an item

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Variant voItem
			Get ComAddItem of hoGroup "Item 1" 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 ComAddItem of hoGroup "Item 2" 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
			Variant voItem2
			Get ComAddItem of hoGroup "Item 3" Nothing to voItem2
			Handle hoItem2
			Get Create (RefClass(cComItem)) to hoItem2
			Set pvComObject of hoItem2 to voItem2
				Set ComImage of hoItem2 to 3
			Send Destroy to hoItem2
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
140:
How can I assign or display an icon for an item

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" 1 to Nothing
			Get ComAddItem of hoGroup "Item 2" 2 to Nothing
			Get ComAddItem of hoGroup "Item 3" 3 to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
139:
How can I change the item's position

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
			Variant voItem
			Get ComAddItem of hoGroup "Item 3" Nothing to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComPosition of hoItem to 0
			Send Destroy to hoItem
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
138:
How can I change the item's caption

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Variant voItem
			Get ComAddItem of hoGroup "Item 2" Nothing to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComCaption of hoItem to "new caption"
			Send Destroy to hoItem
			Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
137:
How do I add new items

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Variant voItem
			Get ComAddItem of hoGroup "Item 1" 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
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
136:
How do I assign a group to a set in the shortcut bar

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComShowShortcutBar to True
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComShortcut of hoGroup to "Set <img>1</img>"
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Set ComShortcut of hoGroup1 to "Set <img>1</img>"
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Variant voGroup2
		Get ComAdd of hoGroups2 "Group 3" to voGroup2
		Handle hoGroup2
		Get Create (RefClass(cComGroup)) to hoGroup2
		Set pvComObject of hoGroup2 to voGroup2
			Set ComShortcut of hoGroup2 to "Set <img>2</img>"
		Send Destroy to hoGroup2
	Send Destroy to hoGroups2
	Variant voGroups3
	Get ComGroups to voGroups3
	Handle hoGroups3
	Get Create (RefClass(cComGroups)) to hoGroups3
	Set pvComObject of hoGroups3 to voGroups3
		Variant voGroup3
		Get ComAdd of hoGroups3 "Group 4" to voGroup3
		Handle hoGroup3
		Get Create (RefClass(cComGroup)) to hoGroup3
		Set pvComObject of hoGroup3 to voGroup3
			Set ComShortcut of hoGroup3 to "Set <img>2</img>"
		Send Destroy to hoGroup3
	Send Destroy to hoGroups3
End_Procedure
135:
How can I show or hide the expanding or collapsing button

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2, expanding/collapsing button is missing " to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Get ComAddItem of hoGroup1 "Item 1" Nothing to Nothing
			Get ComAddItem of hoGroup1 "Item 2" Nothing to Nothing
			Set ComExpanded of hoGroup1 to True
			Set ComAllowExpand of hoGroup1 to False
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Variant voGroup2
		Get ComAdd of hoGroups2 "Group 3" to voGroup2
		Handle hoGroup2
		Get Create (RefClass(cComGroup)) to hoGroup2
		Set pvComObject of hoGroup2 to voGroup2
			Get ComAddItem of hoGroup2 "Item 1" Nothing to Nothing
		Send Destroy to hoGroup2
	Send Destroy to hoGroups2
End_Procedure
134:
How can I avoid expanding or collapsing a group

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Get ComAddItem of hoGroup1 "Item 1" Nothing to Nothing
			Get ComAddItem of hoGroup1 "Item 2" Nothing to Nothing
			Set ComExpanded of hoGroup1 to True
			Set ComAllowExpand of hoGroup1 to False
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Variant voGroup2
		Get ComAdd of hoGroups2 "Group 3" to voGroup2
		Handle hoGroup2
		Get Create (RefClass(cComGroup)) to hoGroup2
		Set pvComObject of hoGroup2 to voGroup2
			Get ComAddItem of hoGroup2 "Item 1" Nothing to Nothing
		Send Destroy to hoGroup2
	Send Destroy to hoGroups2
End_Procedure
133:
How can I assign a tooltip to a group

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "ToolTip" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComToolTip of hoGroup to "This is a bit of text that's shown when the cursor hovers the <b>group</b>."
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
132:
How can I display HTML text in the group's caption

Procedure OnCreate
	Forward Send OnCreate
	Set ComGroupHeight to 44
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "<img>pic1</img> <s>HTML</s> <img>1</img> <b>format</b>" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComCaptionFormat of hoGroup to OLEexHTML
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
131:
How can I disable scrolling the group's list when it is expanded or collapsed

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup
		Get ComAdd of hoGroups1 "Group 2" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
			Set ComExpanded of hoGroup to True
			Set ComAllowScroll of hoGroup to False
		Send Destroy to hoGroup
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Get ComAdd of hoGroups2 "Group 3" to Nothing
	Send Destroy to hoGroups2
End_Procedure
130:
How can I change the group's background color ( gradient )

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup
		Get ComAdd of hoGroups1 "Group 2" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComBackColor of hoGroup to (RGB(255,0,0))
			Set ComBackColor2 of hoGroup to (RGB(255,255,255))
		Send Destroy to hoGroup
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Get ComAdd of hoGroups2 "Group 3" to Nothing
	Send Destroy to hoGroups2
End_Procedure
129:
How can I access the bounding rectangle of the group's area

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup
		Get ComAdd of hoGroups1 "Group 2" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
			Get ComAddItem of hoGroup (ComTop(hoGroup)) Nothing to Nothing
			Get ComAddItem of hoGroup (ComLeft(hoGroup)) Nothing to Nothing
			Get ComAddItem of hoGroup (ComWidth(hoGroup)) Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Get ComAdd of hoGroups2 "Group 3" to Nothing
	Send Destroy to hoGroups2
End_Procedure
128:
How can I expand or collapse a group

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup
		Get ComAdd of hoGroups1 "Group 2" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Get ComAdd of hoGroups2 "Group 3" to Nothing
	Send Destroy to hoGroups2
End_Procedure
127:
How can I specify the height of the items

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup
		Get ComAdd of hoGroups1 "Group 2" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
			Set ComItemHeight of hoGroup to 13
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Get ComAdd of hoGroups2 "Group 3" to Nothing
	Send Destroy to hoGroups2
End_Procedure
126:
How do I put a picture on the group's background
Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup
		Get ComAdd of hoGroups1 "Group 2" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
			Variant vPicture
			Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
			Set ComPicture of hoGroup to (vPicture)
			Set ComPictureDisplay of hoGroup to OLEUpperRight
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Get ComAdd of hoGroups2 "Group 3" to Nothing
	Send Destroy to hoGroups2
End_Procedure
125:
How do I put a picture on the group's background
Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup
		Get ComAdd of hoGroups1 "Group 2" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
			Variant vPicture
			Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
			Set ComPicture of hoGroup to (vPicture)
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Get ComAdd of hoGroups2 "Group 3" to Nothing
	Send Destroy to hoGroups2
End_Procedure
124:
How can I change the foreground color for items

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup
		Get ComAdd of hoGroups1 "Group 2" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
			Set ComForeColorList of hoGroup to (RGB(255,0,0))
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Get ComAdd of hoGroups2 "Group 3" to Nothing
	Send Destroy to hoGroups2
End_Procedure
123:
How can I change the background color for the items

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup
		Get ComAdd of hoGroups1 "Group 2" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
			Set ComBackColorList of hoGroup to (RGB(255,0,0))
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Get ComAdd of hoGroups2 "Group 3" to Nothing
	Send Destroy to hoGroups2
End_Procedure
122:
How can I change the group's foreground color

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup
		Get ComAdd of hoGroups1 "<fgcolor=FF0000>Group</fgcolor> 2" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComCaptionFormat of hoGroup to OLEexHTML
		Send Destroy to hoGroup
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Get ComAdd of hoGroups2 "Group 3" to Nothing
	Send Destroy to hoGroups2
End_Procedure
121:
How can I change the group's foreground color

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup
		Get ComAdd of hoGroups1 "Group 2" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComForeColor of hoGroup to (RGB(255,0,0))
		Send Destroy to hoGroup
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Get ComAdd of hoGroups2 "Group 3" to Nothing
	Send Destroy to hoGroups2
End_Procedure
120:
How can I change the group's background color

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup
		Get ComAdd of hoGroups1 "<bgcolor=FF0000>Group</bgcolor> 2" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComCaptionFormat of hoGroup to OLEexHTML
		Send Destroy to hoGroup
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Get ComAdd of hoGroups2 "Group 3" to Nothing
	Send Destroy to hoGroups2
End_Procedure
119:
How can I change the visual appearance of the group, using EBN files

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComGroupAppearance to OLEexSingle
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup
		Get ComAdd of hoGroups1 "Group 2" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComBackColor of hoGroup to |CI$1000000
		Send Destroy to hoGroup
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Get ComAdd of hoGroups2 "Group 3" to Nothing
	Send Destroy to hoGroups2
End_Procedure
118:
How can I change the group's background color

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup
		Get ComAdd of hoGroups1 "Group 2" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComBackColor of hoGroup to (RGB(255,0,0))
		Send Destroy to hoGroup
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Get ComAdd of hoGroups2 "Group 3" to Nothing
	Send Destroy to hoGroups2
End_Procedure
117:
How do I get the index of the group

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComCaption of hoGroup to (ComIndex(hoGroup))
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Set ComCaption of hoGroup1 to (ComIndex(hoGroup1))
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Variant voGroup2
		Get ComAdd of hoGroups2 "Group 3" to voGroup2
		Handle hoGroup2
		Get Create (RefClass(cComGroup)) to hoGroup2
		Set pvComObject of hoGroup2 to voGroup2
			Set ComCaption of hoGroup2 to (ComIndex(hoGroup2))
		Send Destroy to hoGroup2
	Send Destroy to hoGroups2
End_Procedure
116:
How can I underline the group's name

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "<u>Group</u> 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComCaptionFormat of hoGroup to OLEexHTML
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
115:
How can I underline the group's name

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup
		Get ComAdd of hoGroups1 "Group 2" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComUnderline of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Get ComAdd of hoGroups2 "Group 3" to Nothing
	Send Destroy to hoGroups2
End_Procedure
114:
How can I show the group's name as strikeout

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "<s>Group</s> 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComCaptionFormat of hoGroup to OLEexHTML
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
113:
How can I show the group's name as strikeout

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup
		Get ComAdd of hoGroups1 "Group 2" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComStrikeOut of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Get ComAdd of hoGroups2 "Group 3" to Nothing
	Send Destroy to hoGroups2
End_Procedure
112:
How can I draw as italic the group's name

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "<i>Group</i> 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComCaptionFormat of hoGroup to OLEexHTML
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
111:
How do I draw italic the group's name

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup
		Get ComAdd of hoGroups1 "Group 2" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComItalic of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Get ComAdd of hoGroups2 "Group 3" to Nothing
	Send Destroy to hoGroups2
End_Procedure
110:
How do I bold the group's name

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "<b>Group</b> 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComCaptionFormat of hoGroup to OLEexHTML
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
109:
How do I bold the group's name

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup
		Get ComAdd of hoGroups1 "Group 2" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComBold of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Get ComAdd of hoGroups2 "Group 3" to Nothing
	Send Destroy to hoGroups2
End_Procedure
108:
How can I align the icon in the group's caption

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComImage of hoGroup to 1
			Set ComImageAlignment of hoGroup to OLEexRight
			Set ComAlignment of hoGroup to OLEexRight
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
107:
How can I align the group's name

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComAlignment of hoGroup to OLEexRight
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
106:
How can I align the group's name

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComAlignment of hoGroup to OLEexLeft
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
105:
How can I assign some extra data to a group

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComUserData of hoGroup to "your data"
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
104:
How can I display an icon in the group's caption

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group <img>1</img> text <img>2</img>" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComCaptionFormat of hoGroup to OLEexHTML
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
103:
How can I display an icon in the group's caption

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComImage of hoGroup to 1
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
102:
How can I access an item by its position

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
			Variant voItem
			Get ComAddItem of hoGroup "Item 3" Nothing to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComPosition of hoItem to 0
			Send Destroy to hoItem
			Variant voItem1
			Get ComItemByPos of hoGroup 1 to voItem1
			Handle hoItem1
			Get Create (RefClass(cComItem)) to hoItem1
			Set pvComObject of hoItem1 to voItem1
				Set ComBold of hoItem1 to True
			Send Destroy to hoItem1
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
101:
How can I change the position of a group

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Get ComAdd of hoGroups1 "Group 2" to Nothing
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Variant voGroup
		Get ComAdd of hoGroups2 "Group 3" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComPosition of hoGroup to 0
		Send Destroy to hoGroup
	Send Destroy to hoGroups2
End_Procedure
100:
How can I change the group's caption

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
			Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
			Set ComCaption of hoGroup to "new caption"
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
99:
How can I get the number or count of items in a group

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
			Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
			Get ComAddItem of hoGroup (ComCount(hoGroup)) Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
98:
How can I access an item in a group

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
			Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
			Variant voItem
			Get ComItem of hoGroup 1 to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComBold of hoItem to True
			Send Destroy to hoItem
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
97:
How can I remove all items, from a group
Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
			Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
			Send ComClear of hoGroup
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
96:
How can I remove an item, from a group

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
			Get ComAddItem of hoGroup "Item 3" Nothing to Nothing
			Send ComRemoveItem of hoGroup 1
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
95:
How can I add a new item to a group

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" 1 to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
94:
How can I add a new item to a group

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
93:
How can I add a new item to a group

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
92:
How can I get the groups as they are listed
Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
		Get ComAdd of hoGroups "Group 2" to Nothing
		Get ComAdd of hoGroups "Group 3" to Nothing
	Send Destroy to hoGroups
End_Procedure
91:
How can I access a group by position

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
		Get ComAdd of hoGroups "Group 2" to Nothing
		Get ComAdd of hoGroups "Group 3" to Nothing
		Variant voGroup
		Get ComItemByPos of hoGroups 1 to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComBold of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
90:
How can I access a group

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
		Get ComAdd of hoGroups "Group 2" to Nothing
		Get ComAdd of hoGroups "Group 3" to Nothing
		Variant voGroup
		Get ComItem of hoGroups 1 to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComBold of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
89:
How can I clear the groups collection
Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
		Get ComAdd of hoGroups "Group 2" to Nothing
		Get ComAdd of hoGroups "Group 3" to Nothing
		Send ComClear of hoGroups
	Send Destroy to hoGroups
End_Procedure
88:
How can I remove a group

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
		Get ComAdd of hoGroups "Group 2" to Nothing
		Get ComAdd of hoGroups "Group 3" to Nothing
		Send ComRemove of hoGroups 1
	Send Destroy to hoGroups
End_Procedure
87:
How can I add a group

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
86:
How do I count the number of groups
Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
		Get ComAdd of hoGroups "Group 2" to Nothing
		Get ComAdd of hoGroups "Group 3" to Nothing
		Get ComAdd of hoGroups (ComCount(hoGroups)) to Nothing
	Send Destroy to hoGroups
End_Procedure
85:
How can I display pictures with a custom size, instead icons, in the shortcut bar

Procedure OnCreate
	Forward Send OnCreate
	Set ComShowShortcutBar to True
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComShortcut of hoGroup to "Set 1"
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Set ComShortcut of hoGroup1 to "Set 1"
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Variant voGroup2
		Get ComAdd of hoGroups2 "Group 3" to voGroup2
		Handle hoGroup2
		Get Create (RefClass(cComGroup)) to hoGroup2
		Set pvComObject of hoGroup2 to voGroup2
			Set ComShortcut of hoGroup2 to "Set 2"
		Send Destroy to hoGroup2
	Send Destroy to hoGroups2
	Variant voGroups3
	Get ComGroups to voGroups3
	Handle hoGroups3
	Get Create (RefClass(cComGroups)) to hoGroups3
	Set pvComObject of hoGroups3 to voGroups3
		Variant voGroup3
		Get ComAdd of hoGroups3 "Group 4" to voGroup3
		Handle hoGroup3
		Get Create (RefClass(cComGroup)) to hoGroup3
		Set pvComObject of hoGroup3 to voGroup3
			Set ComShortcut of hoGroup3 to "Set 2"
		Send Destroy to hoGroup3
	Send Destroy to hoGroups3
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComShortcutPicture "Set 1" to (vPicture)
	Variant vPicture1
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\auction.gif`)" to vPicture1
	Set ComShortcutPicture "Set 2" to (vPicture1)
	Set ComShortcutPictureWidth to 32
	Set ComShortcutPictureHeight to 32
	Set ComShortcutBarHeight to 32
End_Procedure
84:
How can I display pictures instead icons, in the shortcut bar

Procedure OnCreate
	Forward Send OnCreate
	Set ComShowShortcutBar to True
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComShortcut of hoGroup to "Set 1"
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Set ComShortcut of hoGroup1 to "Set 1"
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Variant voGroup2
		Get ComAdd of hoGroups2 "Group 3" to voGroup2
		Handle hoGroup2
		Get Create (RefClass(cComGroup)) to hoGroup2
		Set pvComObject of hoGroup2 to voGroup2
			Set ComShortcut of hoGroup2 to "Set 2"
		Send Destroy to hoGroup2
	Send Destroy to hoGroups2
	Variant voGroups3
	Get ComGroups to voGroups3
	Handle hoGroups3
	Get Create (RefClass(cComGroups)) to hoGroups3
	Set pvComObject of hoGroups3 to voGroups3
		Variant voGroup3
		Get ComAdd of hoGroups3 "Group 4" to voGroup3
		Handle hoGroup3
		Get Create (RefClass(cComGroup)) to hoGroup3
		Set pvComObject of hoGroup3 to voGroup3
			Set ComShortcut of hoGroup3 to "Set 2"
		Send Destroy to hoGroup3
	Send Destroy to hoGroups3
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComShortcutPicture "Set 1" to (vPicture)
	Variant vPicture1
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\auction.gif`)" to vPicture1
	Set ComShortcutPicture "Set 2" to (vPicture1)
	Set ComShortcutBarHeight to 44
End_Procedure
83:
How can I change the visual appearance of the shortcut bar, using EBN files

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance1
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComShowShortcutBar to True
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComShortcut of hoGroup to "Set <img>1</img>"
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Set ComShortcut of hoGroup1 to "Set <img>1</img>"
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Variant voGroup2
		Get ComAdd of hoGroups2 "Group 3" to voGroup2
		Handle hoGroup2
		Get Create (RefClass(cComGroup)) to hoGroup2
		Set pvComObject of hoGroup2 to voGroup2
			Set ComShortcut of hoGroup2 to "Set <img>2</img>"
		Send Destroy to hoGroup2
	Send Destroy to hoGroups2
	Variant voGroups3
	Get ComGroups to voGroups3
	Handle hoGroups3
	Get Create (RefClass(cComGroups)) to hoGroups3
	Set pvComObject of hoGroups3 to voGroups3
		Variant voGroup3
		Get ComAdd of hoGroups3 "Group 4" to voGroup3
		Handle hoGroup3
		Get Create (RefClass(cComGroup)) to hoGroup3
		Set pvComObject of hoGroup3 to voGroup3
			Set ComShortcut of hoGroup3 to "Set <img>2</img>"
		Send Destroy to hoGroup3
	Send Destroy to hoGroups3
	Set ComShortcutResizeBackColor to |CI$2000000
	Set ComShortcutBarSelCaptionBackColor to |CI$1000000
	Set ComShortcutBarSelBackColor to |CI$1000000
	Set ComBackColorGroup to |CI$1000000
End_Procedure
82:
How can I change the visual appearance of the separator between groups and the shortcut bar, using your EBN files

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComShowShortcutBar to True
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComShortcut of hoGroup to "Set <img>1</img>"
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Set ComShortcut of hoGroup1 to "Set <img>1</img>"
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Variant voGroup2
		Get ComAdd of hoGroups2 "Group 3" to voGroup2
		Handle hoGroup2
		Get Create (RefClass(cComGroup)) to hoGroup2
		Set pvComObject of hoGroup2 to voGroup2
			Set ComShortcut of hoGroup2 to "Set <img>2</img>"
		Send Destroy to hoGroup2
	Send Destroy to hoGroups2
	Variant voGroups3
	Get ComGroups to voGroups3
	Handle hoGroups3
	Get Create (RefClass(cComGroups)) to hoGroups3
	Set pvComObject of hoGroups3 to voGroups3
		Variant voGroup3
		Get ComAdd of hoGroups3 "Group 4" to voGroup3
		Handle hoGroup3
		Get Create (RefClass(cComGroup)) to hoGroup3
		Set pvComObject of hoGroup3 to voGroup3
			Set ComShortcut of hoGroup3 to "Set <img>2</img>"
		Send Destroy to hoGroup3
	Send Destroy to hoGroups3
	Set ComShortcutResizeBackColor to |CI$1000000
	Set ComExpandShortcutCount to 1
End_Procedure
81:
How do I change the background color of the separator between groups and the shortcut bar

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComShowShortcutBar to True
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComShortcut of hoGroup to "Set <img>1</img>"
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Set ComShortcut of hoGroup1 to "Set <img>1</img>"
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Variant voGroup2
		Get ComAdd of hoGroups2 "Group 3" to voGroup2
		Handle hoGroup2
		Get Create (RefClass(cComGroup)) to hoGroup2
		Set pvComObject of hoGroup2 to voGroup2
			Set ComShortcut of hoGroup2 to "Set <img>2</img>"
		Send Destroy to hoGroup2
	Send Destroy to hoGroups2
	Variant voGroups3
	Get ComGroups to voGroups3
	Handle hoGroups3
	Get Create (RefClass(cComGroups)) to hoGroups3
	Set pvComObject of hoGroups3 to voGroups3
		Variant voGroup3
		Get ComAdd of hoGroups3 "Group 4" to voGroup3
		Handle hoGroup3
		Get Create (RefClass(cComGroup)) to hoGroup3
		Set pvComObject of hoGroup3 to voGroup3
			Set ComShortcut of hoGroup3 to "Set <img>2</img>"
		Send Destroy to hoGroup3
	Send Destroy to hoGroups3
	Set ComShortcutResizeBackColor to (RGB(255,0,0))
	Set ComExpandShortcutCount to 1
End_Procedure
80:
How can I change the visual appearance of the shortcut bar, using your EBN files

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComShowShortcutBar to True
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComShortcut of hoGroup to "Set <img>1</img>"
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Set ComShortcut of hoGroup1 to "Set <img>1</img>"
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Variant voGroup2
		Get ComAdd of hoGroups2 "Group 3" to voGroup2
		Handle hoGroup2
		Get Create (RefClass(cComGroup)) to hoGroup2
		Set pvComObject of hoGroup2 to voGroup2
			Set ComShortcut of hoGroup2 to "Set <img>2</img>"
		Send Destroy to hoGroup2
	Send Destroy to hoGroups2
	Variant voGroups3
	Get ComGroups to voGroups3
	Handle hoGroups3
	Get Create (RefClass(cComGroups)) to hoGroups3
	Set pvComObject of hoGroups3 to voGroups3
		Variant voGroup3
		Get ComAdd of hoGroups3 "Group 4" to voGroup3
		Handle hoGroup3
		Get Create (RefClass(cComGroup)) to hoGroup3
		Set pvComObject of hoGroup3 to voGroup3
			Set ComShortcut of hoGroup3 to "Set <img>2</img>"
		Send Destroy to hoGroup3
	Send Destroy to hoGroups3
	Set ComShortcutBarSelCaptionBackColor to |CI$1000000
	Set ComExpandShortcutCount to 1
End_Procedure
79:
How do I change the selection background color in the shortcut bar

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComShowShortcutBar to True
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComShortcut of hoGroup to "Set <img>1</img>"
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Set ComShortcut of hoGroup1 to "Set <img>1</img>"
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Variant voGroup2
		Get ComAdd of hoGroups2 "Group 3" to voGroup2
		Handle hoGroup2
		Get Create (RefClass(cComGroup)) to hoGroup2
		Set pvComObject of hoGroup2 to voGroup2
			Set ComShortcut of hoGroup2 to "Set <img>2</img>"
		Send Destroy to hoGroup2
	Send Destroy to hoGroups2
	Variant voGroups3
	Get ComGroups to voGroups3
	Handle hoGroups3
	Get Create (RefClass(cComGroups)) to hoGroups3
	Set pvComObject of hoGroups3 to voGroups3
		Variant voGroup3
		Get ComAdd of hoGroups3 "Group 4" to voGroup3
		Handle hoGroup3
		Get Create (RefClass(cComGroup)) to hoGroup3
		Set pvComObject of hoGroup3 to voGroup3
			Set ComShortcut of hoGroup3 to "Set <img>2</img>"
		Send Destroy to hoGroup3
	Send Destroy to hoGroups3
	Set ComShortcutBarSelCaptionBackColor to (RGB(255,0,0))
	Set ComExpandShortcutCount to 1
End_Procedure
78:
How can I change the visual appearance of the shortcut bar, using your EBN files

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComShowShortcutBar to True
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComShortcut of hoGroup to "Set <img>1</img>"
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Set ComShortcut of hoGroup1 to "Set <img>1</img>"
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Variant voGroup2
		Get ComAdd of hoGroups2 "Group 3" to voGroup2
		Handle hoGroup2
		Get Create (RefClass(cComGroup)) to hoGroup2
		Set pvComObject of hoGroup2 to voGroup2
			Set ComShortcut of hoGroup2 to "Set <img>2</img>"
		Send Destroy to hoGroup2
	Send Destroy to hoGroups2
	Variant voGroups3
	Get ComGroups to voGroups3
	Handle hoGroups3
	Get Create (RefClass(cComGroups)) to hoGroups3
	Set pvComObject of hoGroups3 to voGroups3
		Variant voGroup3
		Get ComAdd of hoGroups3 "Group 4" to voGroup3
		Handle hoGroup3
		Get Create (RefClass(cComGroup)) to hoGroup3
		Set pvComObject of hoGroup3 to voGroup3
			Set ComShortcut of hoGroup3 to "Set <img>2</img>"
		Send Destroy to hoGroup3
	Send Destroy to hoGroups3
	Set ComShortcutBarSelBackColor to |CI$1000000
End_Procedure
77:
How do I change the selection background color in the shortcut bar

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComShowShortcutBar to True
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComShortcut of hoGroup to "Set <img>1</img>"
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Set ComShortcut of hoGroup1 to "Set <img>1</img>"
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Variant voGroup2
		Get ComAdd of hoGroups2 "Group 3" to voGroup2
		Handle hoGroup2
		Get Create (RefClass(cComGroup)) to hoGroup2
		Set pvComObject of hoGroup2 to voGroup2
			Set ComShortcut of hoGroup2 to "Set <img>2</img>"
		Send Destroy to hoGroup2
	Send Destroy to hoGroups2
	Variant voGroups3
	Get ComGroups to voGroups3
	Handle hoGroups3
	Get Create (RefClass(cComGroups)) to hoGroups3
	Set pvComObject of hoGroups3 to voGroups3
		Variant voGroup3
		Get ComAdd of hoGroups3 "Group 4" to voGroup3
		Handle hoGroup3
		Get Create (RefClass(cComGroup)) to hoGroup3
		Set pvComObject of hoGroup3 to voGroup3
			Set ComShortcut of hoGroup3 to "Set <img>2</img>"
		Send Destroy to hoGroup3
	Send Destroy to hoGroups3
	Set ComShortcutBarSelBackColor to (RGB(255,0,0))
End_Procedure
76:
How can I change the visual appearance of the shortcut bar, using your EBN files

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComShowShortcutBar to True
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComShortcut of hoGroup to "Set <img>1</img>"
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Set ComShortcut of hoGroup1 to "Set <img>1</img>"
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Variant voGroup2
		Get ComAdd of hoGroups2 "Group 3" to voGroup2
		Handle hoGroup2
		Get Create (RefClass(cComGroup)) to hoGroup2
		Set pvComObject of hoGroup2 to voGroup2
			Set ComShortcut of hoGroup2 to "Set <img>2</img>"
		Send Destroy to hoGroup2
	Send Destroy to hoGroups2
	Variant voGroups3
	Get ComGroups to voGroups3
	Handle hoGroups3
	Get Create (RefClass(cComGroups)) to hoGroups3
	Set pvComObject of hoGroups3 to voGroups3
		Variant voGroup3
		Get ComAdd of hoGroups3 "Group 4" to voGroup3
		Handle hoGroup3
		Get Create (RefClass(cComGroup)) to hoGroup3
		Set pvComObject of hoGroup3 to voGroup3
			Set ComShortcut of hoGroup3 to "Set <img>2</img>"
		Send Destroy to hoGroup3
	Send Destroy to hoGroups3
	Set ComShortcutBarBackColor to |CI$1000000
End_Procedure
75:
How do I change the background color in the shortcut bar

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComShowShortcutBar to True
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComShortcut of hoGroup to "Set <img>1</img>"
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Set ComShortcut of hoGroup1 to "Set <img>1</img>"
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Variant voGroup2
		Get ComAdd of hoGroups2 "Group 3" to voGroup2
		Handle hoGroup2
		Get Create (RefClass(cComGroup)) to hoGroup2
		Set pvComObject of hoGroup2 to voGroup2
			Set ComShortcut of hoGroup2 to "Set <img>2</img>"
		Send Destroy to hoGroup2
	Send Destroy to hoGroups2
	Variant voGroups3
	Get ComGroups to voGroups3
	Handle hoGroups3
	Get Create (RefClass(cComGroups)) to hoGroups3
	Set pvComObject of hoGroups3 to voGroups3
		Variant voGroup3
		Get ComAdd of hoGroups3 "Group 4" to voGroup3
		Handle hoGroup3
		Get Create (RefClass(cComGroup)) to hoGroup3
		Set pvComObject of hoGroup3 to voGroup3
			Set ComShortcut of hoGroup3 to "Set <img>2</img>"
		Send Destroy to hoGroup3
	Send Destroy to hoGroups3
	Set ComShortcutBarBackColor to (RGB(255,0,0))
End_Procedure
74:
How can I programmatically change expand or collapse the shortcut bar

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComShowShortcutBar to True
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComShortcut of hoGroup to "Set <img>1</img>"
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Set ComShortcut of hoGroup1 to "Set <img>1</img>"
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Variant voGroup2
		Get ComAdd of hoGroups2 "Group 3" to voGroup2
		Handle hoGroup2
		Get Create (RefClass(cComGroup)) to hoGroup2
		Set pvComObject of hoGroup2 to voGroup2
			Set ComShortcut of hoGroup2 to "Set <img>2</img>"
		Send Destroy to hoGroup2
	Send Destroy to hoGroups2
	Variant voGroups3
	Get ComGroups to voGroups3
	Handle hoGroups3
	Get Create (RefClass(cComGroups)) to hoGroups3
	Set pvComObject of hoGroups3 to voGroups3
		Variant voGroup3
		Get ComAdd of hoGroups3 "Group 4" to voGroup3
		Handle hoGroup3
		Get Create (RefClass(cComGroup)) to hoGroup3
		Set pvComObject of hoGroup3 to voGroup3
			Set ComShortcut of hoGroup3 to "Set <img>2</img>"
		Send Destroy to hoGroup3
	Send Destroy to hoGroups3
	Set ComExpandShortcutCount to 1
End_Procedure
73:
How do I change the icon for the expanding or collapsing the shortcut bar

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComShowShortcutBar to True
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComShortcut of hoGroup to "Set <img>1</img>"
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Set ComShortcut of hoGroup1 to "Set <img>1</img>"
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Variant voGroup2
		Get ComAdd of hoGroups2 "Group 3" to voGroup2
		Handle hoGroup2
		Get Create (RefClass(cComGroup)) to hoGroup2
		Set pvComObject of hoGroup2 to voGroup2
			Set ComShortcut of hoGroup2 to "Set <img>2</img>"
		Send Destroy to hoGroup2
	Send Destroy to hoGroups2
	Variant voGroups3
	Get ComGroups to voGroups3
	Handle hoGroups3
	Get Create (RefClass(cComGroups)) to hoGroups3
	Set pvComObject of hoGroups3 to voGroups3
		Variant voGroup3
		Get ComAdd of hoGroups3 "Group 4" to voGroup3
		Handle hoGroup3
		Get Create (RefClass(cComGroup)) to hoGroup3
		Set pvComObject of hoGroup3 to voGroup3
			Set ComShortcut of hoGroup3 to "Set <img>2</img>"
		Send Destroy to hoGroup3
	Send Destroy to hoGroups3
	Set ComExpandShortcutImage to 3
End_Procedure
72:
How can I enable or disable resizing the shortcut bar

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComShowShortcutBar to True
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComShortcut of hoGroup to "Set <img>1</img>"
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Set ComShortcut of hoGroup1 to "Set <img>1</img>"
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Variant voGroup2
		Get ComAdd of hoGroups2 "Group 3" to voGroup2
		Handle hoGroup2
		Get Create (RefClass(cComGroup)) to hoGroup2
		Set pvComObject of hoGroup2 to voGroup2
			Set ComShortcut of hoGroup2 to "Set <img>2</img>"
		Send Destroy to hoGroup2
	Send Destroy to hoGroups2
	Variant voGroups3
	Get ComGroups to voGroups3
	Handle hoGroups3
	Get Create (RefClass(cComGroups)) to hoGroups3
	Set pvComObject of hoGroups3 to voGroups3
		Variant voGroup3
		Get ComAdd of hoGroups3 "Group 4" to voGroup3
		Handle hoGroup3
		Get Create (RefClass(cComGroup)) to hoGroup3
		Set pvComObject of hoGroup3 to voGroup3
			Set ComShortcut of hoGroup3 to "Set <img>2</img>"
		Send Destroy to hoGroup3
	Send Destroy to hoGroups3
	Set ComExpandShortcutCount to 1
	Set ComAllowResizeShortcutBar to False
End_Procedure
71:
How do I specify the height of the shortcut bar

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComShowShortcutBar to True
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComShortcut of hoGroup to "Set <img>1</img>"
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Set ComShortcut of hoGroup1 to "Set <img>1</img>"
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Variant voGroup2
		Get ComAdd of hoGroups2 "Group 3" to voGroup2
		Handle hoGroup2
		Get Create (RefClass(cComGroup)) to hoGroup2
		Set pvComObject of hoGroup2 to voGroup2
			Set ComShortcut of hoGroup2 to "Set <img>2</img>"
		Send Destroy to hoGroup2
	Send Destroy to hoGroups2
	Variant voGroups3
	Get ComGroups to voGroups3
	Handle hoGroups3
	Get Create (RefClass(cComGroups)) to hoGroups3
	Set pvComObject of hoGroups3 to voGroups3
		Variant voGroup3
		Get ComAdd of hoGroups3 "Group 4" to voGroup3
		Handle hoGroup3
		Get Create (RefClass(cComGroup)) to hoGroup3
		Set pvComObject of hoGroup3 to voGroup3
			Set ComShortcut of hoGroup3 to "Set <img>2</img>"
		Send Destroy to hoGroup3
	Send Destroy to hoGroups3
	Set ComExpandShortcutCount to 1
	Set ComShortcutBarHeight to 16
End_Procedure
70:
How do I select a shortcut

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComShowShortcutBar to True
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComShortcut of hoGroup to "Set <img>1</img>"
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Set ComShortcut of hoGroup1 to "Set <img>1</img>"
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Variant voGroup2
		Get ComAdd of hoGroups2 "Group 3" to voGroup2
		Handle hoGroup2
		Get Create (RefClass(cComGroup)) to hoGroup2
		Set pvComObject of hoGroup2 to voGroup2
			Set ComShortcut of hoGroup2 to "Set <img>2</img>"
		Send Destroy to hoGroup2
	Send Destroy to hoGroups2
	Variant voGroups3
	Get ComGroups to voGroups3
	Handle hoGroups3
	Get Create (RefClass(cComGroups)) to hoGroups3
	Set pvComObject of hoGroups3 to voGroups3
		Variant voGroup3
		Get ComAdd of hoGroups3 "Group 4" to voGroup3
		Handle hoGroup3
		Get Create (RefClass(cComGroup)) to hoGroup3
		Set pvComObject of hoGroup3 to voGroup3
			Set ComShortcut of hoGroup3 to "Set <img>2</img>"
		Send Destroy to hoGroup3
	Send Destroy to hoGroups3
	Set ComExpandShortcutCount to 1
	Set ComSelectShortcut to "Set <img>2</img>"
End_Procedure
69:
How do I show or hide the shortcut bar

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComShowShortcutBar to True
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComShortcut of hoGroup to "Set <img>1</img>"
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Set ComShortcut of hoGroup1 to "Set <img>1</img>"
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Variant voGroups2
	Get ComGroups to voGroups2
	Handle hoGroups2
	Get Create (RefClass(cComGroups)) to hoGroups2
	Set pvComObject of hoGroups2 to voGroups2
		Variant voGroup2
		Get ComAdd of hoGroups2 "Group 3" to voGroup2
		Handle hoGroup2
		Get Create (RefClass(cComGroup)) to hoGroup2
		Set pvComObject of hoGroup2 to voGroup2
			Set ComShortcut of hoGroup2 to "Set <img>2</img>"
		Send Destroy to hoGroup2
	Send Destroy to hoGroups2
	Variant voGroups3
	Get ComGroups to voGroups3
	Handle hoGroups3
	Get Create (RefClass(cComGroups)) to hoGroups3
	Set pvComObject of hoGroups3 to voGroups3
		Variant voGroup3
		Get ComAdd of hoGroups3 "Group 4" to voGroup3
		Handle hoGroup3
		Get Create (RefClass(cComGroup)) to hoGroup3
		Set pvComObject of hoGroup3 to voGroup3
			Set ComShortcut of hoGroup3 to "Set <img>2</img>"
		Send Destroy to hoGroup3
	Send Destroy to hoGroups3
	Set ComExpandShortcutCount to 1
End_Procedure
68:
How do I access the groups collection
Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
	Send Destroy to hoGroups
End_Procedure
67:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

Procedure OnCreate
	Forward Send OnCreate
	Set ComFormatAnchor False to "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
	Set ComHighlightItemType to OLEexNoHighlight
	Set ComHandCursor to False
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group <a1><b>1</b></a>" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComCaptionFormat of hoGroup to OLEexHTML
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
66:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

Procedure OnCreate
	Forward Send OnCreate
	Set ComFormatAnchor False to "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
	Set ComHighlightItemType to OLEexNoHighlight
	Set ComHandCursor to False
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Variant voItem
			Get ComAddItem of hoGroup "Item <a1><b>1</b></a>" Nothing to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComCaptionFormat of hoItem to OLEexHTML
			Send Destroy to hoItem
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
65:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

Procedure OnCreate
	Forward Send OnCreate
	Set ComHighlightItemType to OLEexNoHighlight
	Set ComHandCursor to False
	Set ComFormatAnchor True to "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group <a1><b>1</b></a>" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComCaptionFormat of hoGroup to OLEexHTML
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
64:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

Procedure OnCreate
	Forward Send OnCreate
	Set ComHighlightItemType to OLEexNoHighlight
	Set ComHandCursor to False
	Set ComFormatAnchor True to "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Variant voItem
			Get ComAddItem of hoGroup "Item <a1><b>1</b></a>" Nothing to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComCaptionFormat of hoItem to OLEexHTML
			Send Destroy to hoItem
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
63:
How can I add several pictures and icons to an item

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComItemHeight of hoGroup to 48
			Variant voItem
			Get ComAddItem of hoGroup "<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>" Nothing to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComImage of hoItem to 2
				Set ComCaptionFormat of hoItem to OLEexHTML
			Send Destroy to hoItem
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
62:
How can I add several pictures and icons to an item
Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComItemHeight of hoGroup to 48
			Variant voItem
			Get ComAddItem of hoGroup "<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>" Nothing to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComImage of hoItem to 2
				Set ComCaptionFormat of hoItem to OLEexHTML
			Send Destroy to hoItem
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
61:
How can I add several pictures to an item

Procedure OnCreate
	Forward Send OnCreate
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComItemHeight of hoGroup to 48
			Variant voItem
			Get ComAddItem of hoGroup "<img>pic1</img> text <img>pic2</img>" Nothing to voItem
			Handle hoItem
			Get Create (RefClass(cComItem)) to hoItem
			Set pvComObject of hoItem to voItem
				Set ComCaptionFormat of hoItem to OLEexHTML
			Send Destroy to hoItem
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
60:
How can I add several pictures to a group

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
	Set ComGroupHeight to 48
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComImage of hoGroup to 2
			Set ComCaptionFormat of hoGroup to OLEexHTML
			Variant vPicture
			Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\colorize.gif`)" to vPicture
			Set ComPicture of hoGroup to (vPicture)
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
59:
How can I add several pictures and icons to a group

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
	Set ComGroupHeight to 48
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComCaptionFormat of hoGroup to OLEexHTML
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
58:
How can I add several pictures to a group

Procedure OnCreate
	Forward Send OnCreate
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
	Set ComGroupHeight to 48
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "<img>pic1</img> text <img>pic2</img>" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComCaptionFormat of hoGroup to OLEexHTML
			Variant vPicture
			Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\colorize.gif`)" to vPicture
			Set ComPicture of hoGroup to (vPicture)
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
57:
How can I add several pictures to a group

Procedure OnCreate
	Forward Send OnCreate
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
	Set ComGroupHeight to 48
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "<img>pic1</img> text <img>pic2</img>" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComCaptionFormat of hoGroup to OLEexHTML
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
56:
How do I force refreshing the control
Procedure OnCreate
	Forward Send OnCreate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComExpanded of hoGroup to True
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Send ComRefresh
End_Procedure
55:
How can show or hide the focus rectangle

Procedure OnCreate
	Forward Send OnCreate
	Set ComShowFocusRect to False
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComExpanded of hoGroup to True
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
54:
I've seen that the width of the tooltip is variable. Can I make it larger

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipWidth to 328
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "ToolTip" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComToolTip of hoGroup to "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
53:
How do I let the tooltip being displayed longer

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipPopDelay to 10000
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "ToolTip" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComToolTip of hoGroup to "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
52:
Can I change the default border of the tooltip, using your EBN files

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Set ComToolTipWidth to 364
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexToolTipAppearance to |CI$1000000
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "ToolTip" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComToolTip of hoGroup to "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
51:
Can I change the background color for the tooltip

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Set ComToolTipWidth to 364
	Set ComBackground OLEexToolTipBackColor to (RGB(255,0,0))
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "ToolTip" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComToolTip of hoGroup to "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
50:
Does the tooltip support HTML format

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Set ComToolTipWidth to 364
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "ToolTip" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComToolTip of hoGroup to "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>group</fgcolor>"
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
49:
Can I change the forecolor for the tooltip

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Set ComToolTipWidth to 364
	Set ComBackground OLEexToolTipForeColor to (RGB(255,0,0))
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "ToolTip" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComToolTip of hoGroup to "This is a bit of text that's shown when the cursor hovers the group."
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
48:
Can I change the foreground color for the tooltip

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Set ComToolTipWidth to 364
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "ToolTip" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComToolTip of hoGroup to "<fgcolor=FF0000>This is a bit of text that's shown when the cursor hovers the group.</fgcolor>"
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
47:
Can I change the font for the tooltip

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Set ComToolTipWidth to 364
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "ToolTip" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComToolTip of hoGroup to "<font Tahoma>This is a bit of text that's shown when the cursor hovers the group.</font> Back to the normal font"
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
46:
Can I change the font for the tooltip

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Variant voStdFont
	Get ComToolTipFont to voStdFont
	Handle hoStdFont
	Get Create (RefClass(cComStdFont)) to hoStdFont
	Set pvComObject of hoStdFont to voStdFont
		Set ComName of hoStdFont to "Tahoma"
		Set ComSize of hoStdFont to 14
	Send Destroy to hoStdFont
	Set ComToolTipWidth to 364
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "ToolTip" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComToolTip of hoGroup to "This is a bit of text that's shown when the cursor hovers the group."
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
45:
How do I disable showing the tooltip for all control
Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 0
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "ToolTip" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComToolTip of hoGroup to "This is a bit of text that's shown when the cursor hovers the group."
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
44:
How do I show the tooltip quicker
Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "ToolTip" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComToolTip of hoGroup to "This is a bit of text that's shown when the cursor hovers the group."
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
43:
How do I call your x-script language

Procedure OnCreate
	Forward Send OnCreate
	Variant voGroup
	Get ComExecuteTemplate "Groups.Add(`Group 1`)" to voGroup
	Handle hoGroup
	Get Create (RefClass(cComGroup)) to hoGroup
	Set pvComObject of hoGroup to voGroup
		Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
		Set ComExpanded of hoGroup to True
	Send Destroy to hoGroup
End_Procedure
42:
How do I call your x-script language

Procedure OnCreate
	Forward Send OnCreate
	Set ComTemplate to "BackColor = RGB(255,0,0)"
End_Procedure
41:
How can I hide a tooltip when the item exceeds its area, so ... are displayed
Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowTooltip to False
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComExpanded of hoGroup to True
			Get ComAddItem of hoGroup "This isa very long text that should break the control in several pieces" Nothing to Nothing
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
40:
How can I show a tooltip when the item exceeds its area, so ... are displayed

Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowTooltip to True
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComExpanded of hoGroup to True
			Get ComAddItem of hoGroup "This isa very long text that should break the control in several pieces" Nothing to Nothing
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
39:
How do I specify the distance between two groups

Procedure OnCreate
	Forward Send OnCreate
	Set ComBorderGroupHeight to 0
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup
		Get ComAdd of hoGroups1 "Group 2" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 2" Nothing to Nothing
		Send Destroy to hoGroup
	Send Destroy to hoGroups1
End_Procedure
38:
How can I change the expand / collapse buttons

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComExpandIcon True to 1
	Set ComExpandIcon False to 2
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Get ComAddItem of hoGroup1 "Item 2" Nothing to Nothing
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Send ComEndUpdate
End_Procedure
37:
How do I enable or disable the control
Procedure OnCreate
	Forward Send OnCreate
	Set ComEnabled to False
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Variant voItem
			Get ComAddItem of hoGroup "Item 1" 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
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Get ComAddItem of hoGroup1 "Item 2" Nothing to Nothing
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
End_Procedure
36:
How do I hide the icons in the right side of the group, the expand / collapse buttons

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDisplayExpandIcon to False
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Variant voItem
			Get ComAddItem of hoGroup "Item 1" 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
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Get ComAddItem of hoGroup1 "Item 2" Nothing to Nothing
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Send ComEndUpdate
End_Procedure
35:
Is there any option to stop using the hand shape cursor, when the cursor hovers an item
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHandCursor to False
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComHighlightItemType to OLEexNoHighlight
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Variant voItem
			Get ComAddItem of hoGroup "Item 1" 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
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Get ComAddItem of hoGroup1 "Item 2" Nothing to Nothing
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Send ComEndUpdate
End_Procedure
34:
How do I specify the color to highlight the item
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComHyperLinkColor to (RGB(255,0,0))
	Set ComHighlightItemType to OLEexHyperLink
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Variant voItem
			Get ComAddItem of hoGroup "Item 1" 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
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Get ComAddItem of hoGroup1 "Item 2" Nothing to Nothing
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Send ComEndUpdate
End_Procedure
33:
How can I expand or collapse a group when I click only its right icon
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpandOnClick to False
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComHighlightItemType to OLEexHyperLink
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Variant voItem
			Get ComAddItem of hoGroup "Item 1" 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
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Get ComAddItem of hoGroup1 "Item 2" Nothing to Nothing
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Send ComEndUpdate
End_Procedure
32:
How do I remove the control's borders
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLEexNone
	Set ComBorderWidth to 0
	Set ComBorderHeight to 0
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComHighlightItemType to OLEexHyperLink
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Variant voItem
			Get ComAddItem of hoGroup "Item 1" 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
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Get ComAddItem of hoGroup1 "Item 2" Nothing to Nothing
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Send ComEndUpdate
End_Procedure
31:
How do I specify width or the height of the control's borders
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLEexNone
	Set ComBorderWidth to 0
	Set ComBorderHeight to 0
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComHighlightItemType to OLEexHyperLink
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Variant voItem
			Get ComAddItem of hoGroup "Item 1" 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
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Get ComAddItem of hoGroup1 "Item 2" Nothing to Nothing
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Send ComEndUpdate
End_Procedure
28:
How do I specify to highlight the items in the group, when the cursor hovers the item
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComHighlightItemType to OLEexHyperLink
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Variant voItem
			Get ComAddItem of hoGroup "Item 1" 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
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Get ComAddItem of hoGroup1 "Item 2" Nothing to Nothing
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Send ComEndUpdate
End_Procedure
27:
How do I specify to highlight the items in the group, when the cursor hovers the item
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComHighlightItemType to OLEexUnion
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Variant voItem
			Get ComAddItem of hoGroup "Item 1" 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
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Get ComAddItem of hoGroup1 "Item 2" Nothing to Nothing
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Send ComEndUpdate
End_Procedure
26:
How do I specify to highlight the items in the group, when the cursor hovers the item
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComHighlightItemType to OLEexIcon
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Variant voItem
			Get ComAddItem of hoGroup "Item 1" 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
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Get ComAddItem of hoGroup1 "Item 2" Nothing to Nothing
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Send ComEndUpdate
End_Procedure
25:
How do I specify to highlight the items in the group, when the cursor hovers the item
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComHighlightItemType to OLEexCaption
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Variant voItem
			Get ComAddItem of hoGroup "Item 1" 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
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Get ComAddItem of hoGroup1 "Item 2" Nothing to Nothing
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Send ComEndUpdate
End_Procedure
24:
How do I specify the way the control highlight the items in the group
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHighlightItemType to OLEexNoHighlight
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Get ComAddItem of hoGroup1 "Item 2" Nothing to Nothing
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Send ComEndUpdate
End_Procedure
23:
Is there any function to avoid painting the control while adding multiple items and groups
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Get ComAddItem of hoGroup1 "Item 2" Nothing to Nothing
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Send ComEndUpdate
End_Procedure
22:
How do I decrease the delay to scroll a group
Procedure OnCreate
	Forward Send OnCreate
	Set ComDelayScroll to 0
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Variant voGroup1
		Get ComAdd of hoGroups1 "Group 2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Get ComAddItem of hoGroup1 "Item 2" Nothing to Nothing
			Set ComExpanded of hoGroup1 to True
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
End_Procedure
21:
How do I display icons

Procedure OnCreate
	Forward Send OnCreate
	Set ComSmallIcons to True
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComImage of hoGroup to 1
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
20:
How do I display 32x32 icons

Procedure OnCreate
	Forward Send OnCreate
	Set ComSmallIcons to False
	Set ComGroupHeight to 36
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComImage of hoGroup to 1
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
19:
How do I specify the height of the groups

Procedure OnCreate
	Forward Send OnCreate
	Set ComGroupHeight to 40
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Get ComAdd of hoGroups1 "Group 2" to Nothing
	Send Destroy to hoGroups1
End_Procedure
18:
How do I change the visual appearance of the groups
Procedure OnCreate
	Forward Send OnCreate
	Set ComGroupAppearance to OLEexSingle
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Get ComAdd of hoGroups1 "Group 2" to Nothing
	Send Destroy to hoGroups1
End_Procedure
17:
How do I change the visual appearance of the groups, using your EBN files

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackColorGroup to |CI$1000000
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Get ComAdd of hoGroups1 "Group 2" to Nothing
	Send Destroy to hoGroups1
End_Procedure
16:
How do I change the background color for the groups
Procedure OnCreate
	Forward Send OnCreate
	Set ComBackColorGroup to (RGB(255,0,0))
	Set ComBackColorGroup2 to (RGB(255,0,0))
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
	Send Destroy to hoGroups
End_Procedure
15:
How do I change the background color for the groups

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackColorGroup to (RGB(255,0,0))
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
	Send Destroy to hoGroups
End_Procedure
14:
How do I change the control's foreground color

Procedure OnCreate
	Forward Send OnCreate
	Set ComForeColor to (RGB(0,0,255))
	Set ComForeColorGroup to (RGB(255,0,0))
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Variant voGroups1
	Get ComGroups to voGroups1
	Handle hoGroups1
	Get Create (RefClass(cComGroups)) to hoGroups1
	Set pvComObject of hoGroups1 to voGroups1
		Get ComAdd of hoGroups1 "Group 2" to Nothing
	Send Destroy to hoGroups1
End_Procedure
13:
How can I change the control's font

Procedure OnCreate
	Forward Send OnCreate
	Variant voStdFont
	Get ComFont to voStdFont
	Handle hoStdFont
	Get Create (RefClass(cComStdFont)) to hoStdFont
	Set pvComObject of hoStdFont to voStdFont
		Set ComName of hoStdFont to "Tahoma"
	Send Destroy to hoStdFont
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Get ComAdd of hoGroups "Group 1" to Nothing
	Send Destroy to hoGroups
End_Procedure
12:
How do I change the control's foreground color

Procedure OnCreate
	Forward Send OnCreate
	Set ComForeColor to (RGB(255,0,0))
	Variant voGroups
	Get ComGroups to voGroups
	Handle hoGroups
	Get Create (RefClass(cComGroups)) to hoGroups
	Set pvComObject of hoGroups to voGroups
		Variant voGroup
		Get ComAdd of hoGroups "Group 1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Get ComAddItem of hoGroup "Item 1" Nothing to Nothing
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
11:
How do I change the control's background color

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackColor to (RGB(200,200,200))
End_Procedure
10:
How do I change the control's border, using your EBN files

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComAppearance to |CI$1000000
End_Procedure
9:
How do I remove the control's border
Procedure OnCreate
	Forward Send OnCreate
	Set ComAppearance to OLEexNone
End_Procedure
8:
How do I put a picture on the center of the control
Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLEMiddleCenter
End_Procedure
7:
How do I resize/stretch a picture on the control's background
Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLEStretch
End_Procedure
6:
How do I put a picture on the control's center right bottom side

Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLELowerRight
End_Procedure
5:
How do I put a picture on the control's center left bottom side
Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLELowerLeft
End_Procedure
4:
How do I put a picture on the control's center top side
Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLEUpperCenter
End_Procedure
3:
How do I put a picture on the control's right top corner
Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLEUpperRight
End_Procedure
2:
How do I put a picture on the control's left top corner
Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLEUpperLeft
End_Procedure
1:
How do I put a picture on the control's background
Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
End_Procedure