21:
How do I get the caption of the cell/item from the point

// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Get ComGroupListFromPoint -1 -1 to Nothing
End_Procedure

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 ComHeaderVisible of hoGroup to True
			Variant voColumns
			Get ComColumns of hoGroup to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Send ComClear of hoColumns
			Send Destroy to hoColumns
			Variant voColumns1
			Get ComColumns of hoGroup to voColumns1
			Handle hoColumns1
			Get Create (RefClass(cComColumns)) to hoColumns1
			Set pvComObject of hoColumns1 to voColumns1
				Get ComAdd of hoColumns1 "Number" to Nothing
			Send Destroy to hoColumns1
			Variant voColumns2
			Get ComColumns of hoGroup to voColumns2
			Handle hoColumns2
			Get Create (RefClass(cComColumns)) to hoColumns2
			Set pvComObject of hoColumns2 to voColumns2
				Variant voColumn
				Get ComAdd of hoColumns2 "Round" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComComputedField of hoColumn to "round(%0)"
				Send Destroy to hoColumn
			Send Destroy to hoColumns2
			Variant voItems
			Get ComItems of hoGroup to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Get ComAddItem of hoItems "-1.98" to Nothing
				Get ComAddItem of hoItems "0.99" to Nothing
				Get ComAddItem of hoItems "1.23" to Nothing
				Get ComAddItem of hoItems "2.34" to Nothing
			Send Destroy to hoItems
			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
			Set ComHeaderVisible of hoGroup1 to True
			Variant voColumns3
			Get ComColumns of hoGroup1 to voColumns3
			Handle hoColumns3
			Get Create (RefClass(cComColumns)) to hoColumns3
			Set pvComObject of hoColumns3 to voColumns3
				Send ComClear of hoColumns3
			Send Destroy to hoColumns3
			Variant voColumns4
			Get ComColumns of hoGroup1 to voColumns4
			Handle hoColumns4
			Get Create (RefClass(cComColumns)) to hoColumns4
			Set pvComObject of hoColumns4 to voColumns4
				Get ComAdd of hoColumns4 "Number" to Nothing
			Send Destroy to hoColumns4
			Variant voColumns5
			Get ComColumns of hoGroup1 to voColumns5
			Handle hoColumns5
			Get Create (RefClass(cComColumns)) to hoColumns5
			Set pvComObject of hoColumns5 to voColumns5
				Variant voColumn1
				Get ComAdd of hoColumns5 "Round" to voColumn1
				Handle hoColumn1
				Get Create (RefClass(cComColumn)) to hoColumn1
				Set pvComObject of hoColumn1 to voColumn1
					Set ComComputedField of hoColumn1 to "round(%0)"
				Send Destroy to hoColumn1
			Send Destroy to hoColumns5
			Variant voItems1
			Get ComItems of hoGroup1 to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAddItem of hoItems1 "-1.98" to Nothing
				Get ComAddItem of hoItems1 "0.99" to Nothing
				Get ComAddItem of hoItems1 "1.23" to Nothing
				Get ComAddItem of hoItems1 "2.34" to Nothing
			Send Destroy to hoItems1
			Set ComExpanded of hoGroup1 to True
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Send ComEndUpdate
End_Procedure
20:
How can I ensure that a specified item is visible

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" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComExpanded of hoGroup to True
			Variant voItems
			Get ComItems of hoGroup to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Get ComAddItem of hoItems "Item" to Nothing
				Get ComAddItem of hoItems "Item" to Nothing
				Get ComAddItem of hoItems "Item" to Nothing
				Get ComAddItem of hoItems "Item" to Nothing
			Send Destroy to hoItems
			Send ComPutItems of hoGroup (ComGetItems(hoGroup,0)) 0
			Send ComPutItems of hoGroup (ComGetItems(hoGroup,0)) 0
			Variant voItems1
			Get ComItems of hoGroup to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAddItem of hoItems1 "Ensure" to Nothing
			Send Destroy to hoItems1
		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 ComItem of hoGroups1 0 to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Variant voItems2
			Get ComItems of hoGroup1 to voItems2
			Handle hoItems2
			Get Create (RefClass(cComItems)) to hoItems2
			Set pvComObject of hoItems2 to voItems2
				Variant h
				Get ComItemByIndex of hoItems2 16 to h
				Set ComItemBackColor of hoItems2 h to (RGB(255,255,0))
				Send ComEnsureVisibleItem of hoItems2 h
			Send Destroy to hoItems2
		Send Destroy to hoGroup1
	Send Destroy to hoGroups1
	Send ComEndUpdate
End_Procedure
19:
is it possible to display icons in the control's shortcut bar

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 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 A.1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComShortcut of hoGroup to "<img>1</img> First Group"
		Send Destroy to hoGroup
		Variant voGroup1
		Get ComAdd of hoGroups "Group A.2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Set ComShortcut of hoGroup1 to "<img>1</img> First Group"
		Send Destroy to hoGroup1
		Variant voGroup2
		Get ComAdd of hoGroups "Group B.1" to voGroup2
		Handle hoGroup2
		Get Create (RefClass(cComGroup)) to hoGroup2
		Set pvComObject of hoGroup2 to voGroup2
			Set ComShortcut of hoGroup2 to "<img>2</img> Second Group"
		Send Destroy to hoGroup2
		Variant voGroup3
		Get ComAdd of hoGroups "Group B.2" to voGroup3
		Handle hoGroup3
		Get Create (RefClass(cComGroup)) to hoGroup3
		Set pvComObject of hoGroup3 to voGroup3
			Set ComShortcut of hoGroup3 to "<img>2</img> Second Group"
		Send Destroy to hoGroup3
		Variant voGroup4
		Get ComAdd of hoGroups "Group B.3" to voGroup4
		Handle hoGroup4
		Get Create (RefClass(cComGroup)) to hoGroup4
		Set pvComObject of hoGroup4 to voGroup4
			Set ComShortcut of hoGroup4 to "<img>2</img> Second Group"
		Send Destroy to hoGroup4
	Send Destroy to hoGroups
	Send ComEndUpdate
End_Procedure
18:
How can I display the control's shortcut bar

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	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 A.1" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComShortcut of hoGroup to "A"
		Send Destroy to hoGroup
		Variant voGroup1
		Get ComAdd of hoGroups "Group A.2" to voGroup1
		Handle hoGroup1
		Get Create (RefClass(cComGroup)) to hoGroup1
		Set pvComObject of hoGroup1 to voGroup1
			Set ComShortcut of hoGroup1 to "A"
		Send Destroy to hoGroup1
		Variant voGroup2
		Get ComAdd of hoGroups "Group B.1" to voGroup2
		Handle hoGroup2
		Get Create (RefClass(cComGroup)) to hoGroup2
		Set pvComObject of hoGroup2 to voGroup2
			Set ComShortcut of hoGroup2 to "B"
		Send Destroy to hoGroup2
		Variant voGroup3
		Get ComAdd of hoGroups "Group B.2" to voGroup3
		Handle hoGroup3
		Get Create (RefClass(cComGroup)) to hoGroup3
		Set pvComObject of hoGroup3 to voGroup3
			Set ComShortcut of hoGroup3 to "B"
		Send Destroy to hoGroup3
		Variant voGroup4
		Get ComAdd of hoGroups "Group B.3" to voGroup4
		Handle hoGroup4
		Get Create (RefClass(cComGroup)) to hoGroup4
		Set pvComObject of hoGroup4 to voGroup4
			Set ComShortcut of hoGroup4 to "B"
		Send Destroy to hoGroup4
	Send Destroy to hoGroups
	Send ComEndUpdate
End_Procedure
17:
Can I display the cell's check box after the text

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 "Default" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComExpanded of hoGroup to True
			Variant voColumns
			Get ComColumns of hoGroup to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComItem of hoColumns 0 to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComDef of hoColumn OLEexCellHasCheckBox to True
					Set ComDef of hoColumn OLEexCellDrawPartsOrder to "caption,check"
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoGroup to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComCellHasCheckBox of hoItems (ComAddItem(hoItems,"Caption 1")) 0 to True
				Set ComCellHasCheckBox of hoItems (ComAddItem(hoItems,"Caption 2")) 0 to True
			Send Destroy to hoItems
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Send ComEndUpdate
End_Procedure
16:
Can I change the order of the parts in the cell, as checkbox after the text, and so on

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="
	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 "Default" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComExpanded of hoGroup to True
			Variant voColumns
			Get ComColumns of hoGroup to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComItem of hoColumns 0 to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComDef of hoColumn OLEexCellDrawPartsOrder to "caption,check,icon,icons,picture"
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoGroup to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant h
				Get ComAddItem of hoItems "Text" to h
				Set ComCellImage of hoItems h 0 to 1
				Set ComCellHasCheckBox of hoItems h 0 to True
			Send Destroy to hoItems
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Send ComEndUpdate
End_Procedure
15:
Can I have an image displayed after the text. Can I get that effect without using HTML content

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="
	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 "Default" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComExpanded of hoGroup to True
			Variant voColumns
			Get ComColumns of hoGroup to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComItem of hoColumns 0 to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComDef of hoColumn OLEexCellDrawPartsOrder to "caption,icon,check,icons,picture"
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoGroup to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant h
				Get ComAddItem of hoItems "Text" to h
				Set ComCellImage of hoItems h 0 to 1
			Send Destroy to hoItems
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Send ComEndUpdate
End_Procedure
14:
How do I enable the filter prompt feature

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
		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 ComAutoHeight of hoGroup to True
			Set ComHeaderVisible of hoGroup to True
			Variant voColumns
			Get ComColumns of hoGroup to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Send ComClear of hoColumns
			Send Destroy to hoColumns
			Set ComColumnAutoResize of hoGroup to True
			Set ComContinueColumnScroll of hoGroup to False
			Set ComMarkSearchColumn of hoGroup to False
			Set ComSearchColumnIndex of hoGroup to 1
			Set ComFilterBarPromptVisible of hoGroup to True
			Variant voColumns1
			Get ComColumns of hoGroup to voColumns1
			Handle hoColumns1
			Get Create (RefClass(cComColumns)) to hoColumns1
			Set pvComObject of hoColumns1 to voColumns1
				Variant voColumn
				Get ComAdd of hoColumns1 "Name" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComWidth of hoColumn to 96
				Send Destroy to hoColumn
				Variant voColumn1
				Get ComAdd of hoColumns1 "Title" to voColumn1
				Handle hoColumn1
				Get Create (RefClass(cComColumn)) to hoColumn1
				Set pvComObject of hoColumn1 to voColumn1
					Set ComWidth of hoColumn1 to 96
				Send Destroy to hoColumn1
				Get ComAdd of hoColumns1 "City" to Nothing
			Send Destroy to hoColumns1
			Variant voItems
			Get ComItems of hoGroup to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant h0
				Get ComAddItem of hoItems "Nancy Davolio" to h0
				Set ComCellCaption of hoItems h0 1 to "Sales Representative"
				Set ComCellCaption of hoItems h0 2 to "Seattle"
				Get ComAddItem of hoItems "Andrew Fuller" to h0
				Set ComCellCaption of hoItems h0 1 to "Vice President, Sales"
				Set ComCellCaption of hoItems h0 2 to "Tacoma"
				Set ComSelectItem of hoItems h0 to True
				Get ComAddItem of hoItems "Janet Leverling" to h0
				Set ComCellCaption of hoItems h0 1 to "Sales Representative"
				Set ComCellCaption of hoItems h0 2 to "Kirkland"
				Get ComAddItem of hoItems "Margaret Peacock" to h0
				Set ComCellCaption of hoItems h0 1 to "Sales Representative"
				Set ComCellCaption of hoItems h0 2 to "Redmond"
				Get ComAddItem of hoItems "Steven Buchanan" to h0
				Set ComCellCaption of hoItems h0 1 to "Sales Manager"
				Set ComCellCaption of hoItems h0 2 to "London"
				Get ComAddItem of hoItems "Michael Suyama" to h0
				Set ComCellCaption of hoItems h0 1 to "Sales Representative"
				Set ComCellCaption of hoItems h0 2 to "London"
				Get ComAddItem of hoItems "Robert King" to h0
				Set ComCellCaption of hoItems h0 1 to "Sales Representative"
				Set ComCellCaption of hoItems h0 2 to "London"
				Get ComAddItem of hoItems "Laura Callahan" to h0
				Set ComCellCaption of hoItems h0 1 to "Inside Sales Coordinator"
				Set ComCellCaption of hoItems h0 2 to "Seattle"
				Get ComAddItem of hoItems "Anne Dodsworth" to h0
				Set ComCellCaption of hoItems h0 1 to "Sales Representative"
				Set ComCellCaption of hoItems h0 2 to "London"
			Send Destroy to hoItems
			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
	Send ComEndUpdate
End_Procedure
13:
Can I specify unsortable items

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 "Default" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComAutoHeight of hoGroup to True
			Set ComHeaderVisible of hoGroup to True
			Variant voColumns
			Get ComColumns of hoGroup to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Send ComClear of hoColumns
			Send Destroy to hoColumns
			Set ComHasLines of hoGroup to OLEexNoLine
			Set ComScrollBySingleLine of hoGroup to True
			Set ComMarkSearchColumn of hoGroup to False
			Variant voColumns1
			Get ComColumns of hoGroup to voColumns1
			Handle hoColumns1
			Get Create (RefClass(cComColumns)) to hoColumns1
			Set pvComObject of hoColumns1 to voColumns1
				Get ComAdd of hoColumns1 "Name" to Nothing
				Get ComAdd of hoColumns1 "A" to Nothing
				Get ComAdd of hoColumns1 "B" to Nothing
				Get ComAdd of hoColumns1 "C" to Nothing
			Send Destroy to hoColumns1
			Variant voItems
			Get ComItems of hoGroup to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant h
				Get ComAddItem of hoItems "Group 1" to h
				Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
				Set ComItemDivider of hoItems h to 0
				Set ComItemDividerLineAlignment of hoItems h to OLEDividerBoth
				Set ComItemHeight of hoItems h to 24
				Set ComSortableItem of hoItems h to False
				Variant h1
				Get ComInsertItem of hoItems h "Child 1" to h1
				Set ComCellCaption of hoItems h1 1 to 1
				Set ComCellCaption of hoItems h1 2 to 2
				Set ComCellCaption of hoItems h1 3 to 3
				Get ComInsertItem of hoItems h "Child 2" to h1
				Set ComCellCaption of hoItems h1 1 to 4
				Set ComCellCaption of hoItems h1 2 to 5
				Set ComCellCaption of hoItems h1 3 to 6
				Set ComExpandItem of hoItems h to True
				Get ComAddItem of hoItems "Group 2" to h
				Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
				Set ComItemDivider of hoItems h to 0
				Set ComItemDividerLineAlignment of hoItems h to OLEDividerBoth
				Set ComItemHeight of hoItems h to 24
				Set ComSortableItem of hoItems h to False
				Get ComInsertItem of hoItems h "Child 1" to h1
				Set ComCellCaption of hoItems h1 1 to 1
				Set ComCellCaption of hoItems h1 2 to 2
				Set ComCellCaption of hoItems h1 3 to 3
				Get ComInsertItem of hoItems h "Child 2" to h1
				Set ComCellCaption of hoItems h1 1 to 4
				Set ComCellCaption of hoItems h1 2 to 5
				Set ComCellCaption of hoItems h1 3 to 6
				Set ComExpandItem of hoItems h to True
			Send Destroy to hoItems
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Send ComEndUpdate
End_Procedure
12:
Can I change the style of the line being displayed by a divider 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 "Default" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComHeaderVisible of hoGroup to True
			Variant voColumns
			Get ComColumns of hoGroup to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Send ComClear of hoColumns
			Send Destroy to hoColumns
			Set ComMarkSearchColumn of hoGroup to False
			Set ComTreeColumnIndex of hoGroup to -1
			Set ComScrollBySingleLine of hoGroup to False
			Variant voColumns1
			Get ComColumns of hoGroup to voColumns1
			Handle hoColumns1
			Get Create (RefClass(cComColumns)) to hoColumns1
			Set pvComObject of hoColumns1 to voColumns1
				Get ComAdd of hoColumns1 "C1" to Nothing
			Send Destroy to hoColumns1
			Variant voColumns2
			Get ComColumns of hoGroup to voColumns2
			Handle hoColumns2
			Get Create (RefClass(cComColumns)) to hoColumns2
			Set pvComObject of hoColumns2 to voColumns2
				Get ComAdd of hoColumns2 "C2" to Nothing
			Send Destroy to hoColumns2
			Set ComSelBackMode of hoGroup to OLEexTransparent
			Variant voItems
			Get ComItems of hoGroup to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant h
				Get ComAddItem of hoItems "Cell 1" to h
				Set ComCellCaption of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
				Set ComCellSingleLine of hoItems h 1 to False
				Get ComAddItem of hoItems "This is bit of text that's displayed on the entire item, divider." to h
				Set ComItemDivider of hoItems h to 0
				Set ComItemDividerLine of hoItems h to OLEDoubleDotLine
				Set ComItemDividerLineAlignment of hoItems h to OLEDividerBoth
				Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
				Set ComItemHeight of hoItems h to 24
			Send Destroy to hoItems
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Send ComEndUpdate
End_Procedure
11:
How can I expand all items

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 "Default" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComHeaderVisible of hoGroup to True
			Variant voColumns
			Get ComColumns of hoGroup to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Send ComClear of hoColumns
			Send Destroy to hoColumns
			Set ComLinesAtRoot of hoGroup to OLEexLinesAtRoot
			Variant voColumns1
			Get ComColumns of hoGroup to voColumns1
			Handle hoColumns1
			Get Create (RefClass(cComColumns)) to hoColumns1
			Set pvComObject of hoColumns1 to voColumns1
				Get ComAdd of hoColumns1 "Items" to Nothing
			Send Destroy to hoColumns1
			Variant voItems
			Get ComItems of hoGroup to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant h
				Get ComAddItem of hoItems "Root 1" to h
				Get ComInsertItem of hoItems h "Child 1" to Nothing
				Get ComInsertItem of hoItems h "Child 2" to Nothing
				Get ComAddItem of hoItems "Root 2" to h
				Get ComInsertItem of hoItems h "Child 1" to Nothing
				Get ComInsertItem of hoItems h "Child 2" to Nothing
				Set ComExpandItem of hoItems 0 to True
			Send Destroy to hoItems
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Send ComEndUpdate
End_Procedure
10:
Is it possible display numbers in the same format no matter of regional settings in the control panel

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 "Default" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComHeaderVisible of hoGroup to True
			Variant voColumns
			Get ComColumns of hoGroup to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Send ComClear of hoColumns
			Send Destroy to hoColumns
			Variant voColumns1
			Get ComColumns of hoGroup to voColumns1
			Handle hoColumns1
			Get Create (RefClass(cComColumns)) to hoColumns1
			Set pvComObject of hoColumns1 to voColumns1
				Variant voColumn
				Get ComAdd of hoColumns1 "Def" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComDef of hoColumn OLEexCellCaptionFormat to 1
				Send Destroy to hoColumn
			Send Destroy to hoColumns1
			Variant voItems
			Get ComItems of hoGroup to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant h
				Get ComAddItem of hoItems 100000.27 to h
				Set ComFormatCell of hoItems h 0 to "(value format '') +  ' <fgcolor=808080>(default positive)'"
				Get ComAddItem of hoItems 100000.27 to h
				Set ComFormatCell of hoItems h 0 to "(value format '2|.|3|,|1|1')"
				Get ComAddItem of hoItems -100000.27 to h
				Set ComFormatCell of hoItems h 0 to "(value format '') +  ' <fgcolor=808080>(default negative)'"
				Get ComAddItem of hoItems -100000.27 to h
				Set ComFormatCell of hoItems h 0 to "(value format '2|.|3|,|1|1')"
			Send Destroy to hoItems
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
9:
Is it possible to format numbers

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 "Default" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComHeaderVisible of hoGroup to True
			Set ComMarkSearchColumn of hoGroup to False
			Variant voColumns
			Get ComColumns of hoGroup to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Send ComClear of hoColumns
			Send Destroy to hoColumns
			Variant voColumns1
			Get ComColumns of hoGroup to voColumns1
			Handle hoColumns1
			Get Create (RefClass(cComColumns)) to hoColumns1
			Set pvComObject of hoColumns1 to voColumns1
				Get ComAdd of hoColumns1 "Name" to Nothing
				Variant voColumn
				Get ComAdd of hoColumns1 "A" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComSortType of hoColumn to OLESortNumeric
					Set ComAllowSizing of hoColumn to False
					Set ComWidth of hoColumn to 36
					Set ComFormatColumn of hoColumn to "len(value) ? value + ' +'"
				Send Destroy to hoColumn
				Variant voColumn1
				Get ComAdd of hoColumns1 "B" to voColumn1
				Handle hoColumn1
				Get Create (RefClass(cComColumn)) to hoColumn1
				Set pvComObject of hoColumn1 to voColumn1
					Set ComSortType of hoColumn1 to OLESortNumeric
					Set ComAllowSizing of hoColumn1 to False
					Set ComWidth of hoColumn1 to 36
					Set ComFormatColumn of hoColumn1 to "len(value) ? value + ' +'"
				Send Destroy to hoColumn1
				Variant voColumn2
				Get ComAdd of hoColumns1 "C" to voColumn2
				Handle hoColumn2
				Get Create (RefClass(cComColumn)) to hoColumn2
				Set pvComObject of hoColumn2 to voColumn2
					Set ComSortType of hoColumn2 to OLESortNumeric
					Set ComAllowSizing of hoColumn2 to False
					Set ComWidth of hoColumn2 to 36
					Set ComFormatColumn of hoColumn2 to "len(value) ? value + ' ='"
				Send Destroy to hoColumn2
				Variant voColumn3
				Get ComAdd of hoColumns1 "A+B+C" to voColumn3
				Handle hoColumn3
				Get Create (RefClass(cComColumn)) to hoColumn3
				Set pvComObject of hoColumn3 to voColumn3
					Set ComSortType of hoColumn3 to OLESortNumeric
					Set ComWidth of hoColumn3 to 64
					Set ComComputedField of hoColumn3 to "dbl(%1)+dbl(%2)+dbl(%3)"
					Set ComFormatColumn of hoColumn3 to "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=0000FF>+'+(value format '2|.|3|,' ): '0.00') )"
					Set ComDef of hoColumn3 OLEexCellCaptionFormat to 1
				Send Destroy to hoColumn3
			Send Destroy to hoColumns1
			Variant voItems
			Get ComItems of hoGroup to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant h
				Get ComAddItem of hoItems "Root" to h
				Set ComCellCaptionFormat of hoItems h 4 to OLEexComputedField
				Variant h1
				Get ComInsertItem of hoItems h "Child 1" to h1
				Set ComCellCaption of hoItems h1 1 to 7
				Set ComCellCaption of hoItems h1 2 to 3
				Set ComCellCaption of hoItems h1 3 to 1
				Get ComInsertItem of hoItems h "Child 2" to h1
				Set ComCellCaption of hoItems h1 1 to -2
				Set ComCellCaption of hoItems h1 2 to -2
				Set ComCellCaption of hoItems h1 3 to -4
				Get ComInsertItem of hoItems h "Child 3" to h1
				Set ComCellCaption of hoItems h1 1 to 2
				Set ComCellCaption of hoItems h1 2 to 2
				Set ComCellCaption of hoItems h1 3 to -4
				Set ComExpandItem of hoItems h to True
			Send Destroy to hoItems
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Send ComEndUpdate
End_Procedure
8:
Is there any function to round the values base on the .5 value

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 "Default" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComHeaderVisible of hoGroup to True
			Variant voColumns
			Get ComColumns of hoGroup to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Send ComClear of hoColumns
			Send Destroy to hoColumns
			Variant voColumns1
			Get ComColumns of hoGroup to voColumns1
			Handle hoColumns1
			Get Create (RefClass(cComColumns)) to hoColumns1
			Set pvComObject of hoColumns1 to voColumns1
				Get ComAdd of hoColumns1 "Number" to Nothing
			Send Destroy to hoColumns1
			Variant voColumns2
			Get ComColumns of hoGroup to voColumns2
			Handle hoColumns2
			Get Create (RefClass(cComColumns)) to hoColumns2
			Set pvComObject of hoColumns2 to voColumns2
				Variant voColumn
				Get ComAdd of hoColumns2 "Round" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComComputedField of hoColumn to "round(%0)"
				Send Destroy to hoColumn
			Send Destroy to hoColumns2
			Variant voItems
			Get ComItems of hoGroup to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Get ComAddItem of hoItems "-1.98" to Nothing
				Get ComAddItem of hoItems "0.99" to Nothing
				Get ComAddItem of hoItems "1.23" to Nothing
				Get ComAddItem of hoItems "2.34" to Nothing
			Send Destroy to hoItems
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
7:
How can I show a column that adds values in the cells

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 "Default" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Variant voColumns
			Get ComColumns of hoGroup to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Send ComClear of hoColumns
			Send Destroy to hoColumns
			Set ComHeaderVisible of hoGroup to True
			Variant voColumns1
			Get ComColumns of hoGroup to voColumns1
			Handle hoColumns1
			Get Create (RefClass(cComColumns)) to hoColumns1
			Set pvComObject of hoColumns1 to voColumns1
				Get ComAdd of hoColumns1 "A" to Nothing
			Send Destroy to hoColumns1
			Variant voColumns2
			Get ComColumns of hoGroup to voColumns2
			Handle hoColumns2
			Get Create (RefClass(cComColumns)) to hoColumns2
			Set pvComObject of hoColumns2 to voColumns2
				Get ComAdd of hoColumns2 "B" to Nothing
			Send Destroy to hoColumns2
			Variant voColumns3
			Get ComColumns of hoGroup to voColumns3
			Handle hoColumns3
			Get Create (RefClass(cComColumns)) to hoColumns3
			Set pvComObject of hoColumns3 to voColumns3
				Variant voColumn
				Get ComAdd of hoColumns3 "A+B" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComComputedField of hoColumn to "dbl(%0) + dbl(%1)"
				Send Destroy to hoColumn
			Send Destroy to hoColumns3
			Variant voItems
			Get ComItems of hoGroup to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Set ComCellCaption of hoItems (ComAddItem(hoItems,1)) 1 to 2
			Send Destroy to hoItems
			Variant voItems1
			Get ComItems of hoGroup to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComCellCaption of hoItems1 (ComAddItem(hoItems1,10)) 1 to 20
			Send Destroy to hoItems1
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
6:
How do I change the item's background color for numbers less than a value

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 "Default" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Variant voConditionalFormats
			Get ComConditionalFormats of hoGroup to voConditionalFormats
			Handle hoConditionalFormats
			Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
			Set pvComObject of hoConditionalFormats to voConditionalFormats
				Variant voConditionalFormat
				Get ComAdd of hoConditionalFormats "dbl(%0) < 10" Nothing to voConditionalFormat
				Handle hoConditionalFormat
				Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
				Set pvComObject of hoConditionalFormat to voConditionalFormat
					Set ComBackColor of hoConditionalFormat to (RGB(255,0,0))
				Send Destroy to hoConditionalFormat
			Send Destroy to hoConditionalFormats
			Variant voItems
			Get ComItems of hoGroup to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Get ComAddItem of hoItems 1 to Nothing
			Send Destroy to hoItems
			Variant voItems1
			Get ComItems of hoGroup to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAddItem of hoItems1 2 to Nothing
			Send Destroy to hoItems1
			Variant voItems2
			Get ComItems of hoGroup to voItems2
			Handle hoItems2
			Get Create (RefClass(cComItems)) to hoItems2
			Set pvComObject of hoItems2 to voItems2
				Get ComAddItem of hoItems2 10 to Nothing
			Send Destroy to hoItems2
			Variant voItems3
			Get ComItems of hoGroup to voItems3
			Handle hoItems3
			Get Create (RefClass(cComItems)) to hoItems3
			Set pvComObject of hoItems3 to voItems3
				Get ComAddItem of hoItems3 20 to Nothing
			Send Destroy to hoItems3
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
5:
How do I highlight in bold the numbers greater than a value

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 "Default" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Variant voConditionalFormats
			Get ComConditionalFormats of hoGroup to voConditionalFormats
			Handle hoConditionalFormats
			Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
			Set pvComObject of hoConditionalFormats to voConditionalFormats
				Variant voConditionalFormat
				Get ComAdd of hoConditionalFormats "dbl(%0) >= 10" Nothing to voConditionalFormat
				Handle hoConditionalFormat
				Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
				Set pvComObject of hoConditionalFormat to voConditionalFormat
					Set ComBold of hoConditionalFormat to True
				Send Destroy to hoConditionalFormat
			Send Destroy to hoConditionalFormats
			Variant voItems
			Get ComItems of hoGroup to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Get ComAddItem of hoItems 1 to Nothing
			Send Destroy to hoItems
			Variant voItems1
			Get ComItems of hoGroup to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAddItem of hoItems1 2 to Nothing
			Send Destroy to hoItems1
			Variant voItems2
			Get ComItems of hoGroup to voItems2
			Handle hoItems2
			Get Create (RefClass(cComItems)) to hoItems2
			Set pvComObject of hoItems2 to voItems2
				Get ComAddItem of hoItems2 10 to Nothing
			Send Destroy to hoItems2
			Variant voItems3
			Get ComItems of hoGroup to voItems3
			Handle hoItems3
			Get Create (RefClass(cComItems)) to hoItems3
			Set pvComObject of hoItems3 to voItems3
				Get ComAddItem of hoItems3 20 to Nothing
			Send Destroy to hoItems3
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
4:
How do I change the caption being displayed in the control's filter bar

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 "Default" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComFilterBarCaption of hoGroup to "your filter caption"
			Variant voColumns
			Get ComColumns of hoGroup to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "Column" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComDisplayFilterButton of hoColumn to True
					Set ComFilterType of hoColumn to OLEexBlanks
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Send ComApplyFilter of hoGroup
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
End_Procedure
3:
Is it possible to change the style for the vertical or horizontal grid lines, in the list area

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 "Default" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComAutoHeight of hoGroup to True
			Set ComDrawGridLines of hoGroup to OLEexAllLines
			Set ComGridLineStyle of hoGroup to (OLEexGridLinesVSolid + OLEexGridLinesHDot4)
			Set ComColumnAutoResize of hoGroup to False
			Variant voColumns
			Get ComColumns of hoGroup to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComItem of hoColumns 0 to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComCaption of hoColumn to "C1"
					Set ComWidth of hoColumn to 64
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voColumns1
			Get ComColumns of hoGroup to voColumns1
			Handle hoColumns1
			Get Create (RefClass(cComColumns)) to hoColumns1
			Set pvComObject of hoColumns1 to voColumns1
				Get ComAdd of hoColumns1 "C2" to Nothing
			Send Destroy to hoColumns1
			Variant voColumns2
			Get ComColumns of hoGroup to voColumns2
			Handle hoColumns2
			Get Create (RefClass(cComColumns)) to hoColumns2
			Set pvComObject of hoColumns2 to voColumns2
				Get ComAdd of hoColumns2 "C3" to Nothing
			Send Destroy to hoColumns2
			Set ComColumnAutoResize of hoGroup to True
			Variant voItems
			Get ComItems of hoGroup to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant h
				Get ComAddItem of hoItems "Item 1" to h
				Set ComCellCaption of hoItems h 1 to "SubItem 1.2"
				Set ComCellCaption of hoItems h 2 to "SubItem 1.3"
				Get ComAddItem of hoItems "Item 2" to h
				Set ComCellCaption of hoItems h 1 to "SubItem 2.2"
				Set ComCellCaption of hoItems h 2 to "SubItem 2.3"
				Get ComAddItem of hoItems "Item 3" to h
				Set ComCellCaption of hoItems h 1 to "SubItem 3.2"
				Set ComCellCaption of hoItems h 2 to "SubItem 3.3"
			Send Destroy to hoItems
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Send ComEndUpdate
End_Procedure
2:
Is it possible to change the style for the grid lines, for instance to be solid not dotted

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 "Default" to voGroup
		Handle hoGroup
		Get Create (RefClass(cComGroup)) to hoGroup
		Set pvComObject of hoGroup to voGroup
			Set ComDrawGridLines of hoGroup to OLEexAllLines
			Set ComGridLineStyle of hoGroup to OLEexGridLinesSolid
			Set ComExpanded of hoGroup to True
		Send Destroy to hoGroup
	Send Destroy to hoGroups
	Send ComEndUpdate
End_Procedure
1:
How can I change the visual appearance for the groups, using your EBN files

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	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
		Get ComAdd of hoGroups "Group 2" to Nothing
		Get ComAdd of hoGroups "Group 3" to Nothing
	Send Destroy to hoGroups
	Send ComEndUpdate
End_Procedure