176
How can I select an item using on its full part, not only on its icon or caption

// Occurs when the user presses and then releases the left mouse button over the control.
Procedure OnComClick 
	Forward Send OnComClick 
	Showln (ComItemFromPoint(Self,-1,-1))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComHighlightItemType to (OLEexFull + 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 <b>1</b>" 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 <b>2</b>" 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
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