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

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	local var_Object as USUAL
	var_Object := oDCOCX_Exontrol1:[GroupListFromPoint,-1,-1]
RETURN NIL

local var_Group,var_Group1 as IGroup
local var_Items,var_Items1 as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 1")
	var_Group:HeaderVisible := true
	var_Group:Columns:Clear()
	var_Group:Columns:Add("Number")
	IColumn{var_Group:Columns:Add("Round")}:ComputedField := "round(%0)"
	var_Items := var_Group:Items
		var_Items:AddItem("-1.98")
		var_Items:AddItem("0.99")
		var_Items:AddItem("1.23")
		var_Items:AddItem("2.34")
	var_Group:Expanded := true
var_Group1 := oDCOCX_Exontrol1:Groups:Add("Group 2")
	var_Group1:HeaderVisible := true
	var_Group1:Columns:Clear()
	var_Group1:Columns:Add("Number")
	IColumn{var_Group1:Columns:Add("Round")}:ComputedField := "round(%0)"
	var_Items1 := var_Group1:Items
		var_Items1:AddItem("-1.98")
		var_Items1:AddItem("0.99")
		var_Items1:AddItem("1.23")
		var_Items1:AddItem("2.34")
	var_Group1:Expanded := true
oDCOCX_Exontrol1:EndUpdate()

20:
How can I ensure that a specified item is visible

local var_Group as IGroup
local var_Groups as IGroups
local var_Items,var_Items1 as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Groups := oDCOCX_Exontrol1:Groups
	var_Group := var_Groups:Add("Group")
		var_Group:Expanded := true
		var_Items := var_Group:Items
			var_Items:AddItem("Item")
			var_Items:AddItem("Item")
			var_Items:AddItem("Item")
			var_Items:AddItem("Item")
		var_Group:PutItems(var_Group:GetItems(0),0)
		var_Group:PutItems(var_Group:GetItems(0),0)
		var_Group:Items:AddItem("Ensure")
var_Items1 := oDCOCX_Exontrol1:Groups:[Item,0]:Items
	h := var_Items1:[ItemByIndex,16]
	var_Items1:[ItemBackColor,h] := RGB(255,255,0)
	var_Items1:EnsureVisibleItem(h)
oDCOCX_Exontrol1:EndUpdate()

19:
is it possible to display icons in the control's shortcut bar

local var_Groups as IGroups

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:ShowShortcutBar := true
var_Groups := oDCOCX_Exontrol1:Groups
	var_Groups:Add("Group A.1"):Shortcut := "<img>1</img> First Group"
	var_Groups:Add("Group A.2"):Shortcut := "<img>1</img> First Group"
	var_Groups:Add("Group B.1"):Shortcut := "<img>2</img> Second Group"
	var_Groups:Add("Group B.2"):Shortcut := "<img>2</img> Second Group"
	var_Groups:Add("Group B.3"):Shortcut := "<img>2</img> Second Group"
oDCOCX_Exontrol1:EndUpdate()

18:
How can I display the control's shortcut bar

local var_Groups as IGroups

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ShowShortcutBar := true
var_Groups := oDCOCX_Exontrol1:Groups
	var_Groups:Add("Group A.1"):Shortcut := "A"
	var_Groups:Add("Group A.2"):Shortcut := "A"
	var_Groups:Add("Group B.1"):Shortcut := "B"
	var_Groups:Add("Group B.2"):Shortcut := "B"
	var_Groups:Add("Group B.3"):Shortcut := "B"
oDCOCX_Exontrol1:EndUpdate()

17:
Can I display the cell's check box after the text

local var_Column as IColumn
local var_Group as IGroup
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Group := oDCOCX_Exontrol1:Groups:Add("Default")
	var_Group:Expanded := true
	var_Column := var_Group:Columns:[Item,0]
		var_Column:[Def,exCellHasCheckBox] := true
		var_Column:[Def,exCellDrawPartsOrder] := "caption,check"
	var_Items := var_Group:Items
		var_Items:[CellHasCheckBox,var_Items:AddItem("Caption 1"),0] := true
		var_Items:[CellHasCheckBox,var_Items:AddItem("Caption 2"),0] := true
oDCOCX_Exontrol1:EndUpdate()

16:
Can I change the order of the parts in the cell, as checkbox after the text, and so on

local var_Group as IGroup
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:BeginUpdate()
var_Group := oDCOCX_Exontrol1:Groups:Add("Default")
	var_Group:Expanded := true
	var_Group:Columns:[Item,0]:[Def,exCellDrawPartsOrder] := "caption,check,icon,icons,picture"
	var_Items := var_Group:Items
		h := var_Items:AddItem("Text")
		var_Items:[CellImage,h,0] := 1
		var_Items:[CellHasCheckBox,h,0] := true
oDCOCX_Exontrol1:EndUpdate()

15:
Can I have an image displayed after the text. Can I get that effect without using HTML content

local var_Group as IGroup
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:BeginUpdate()
var_Group := oDCOCX_Exontrol1:Groups:Add("Default")
	var_Group:Expanded := true
	var_Group:Columns:[Item,0]:[Def,exCellDrawPartsOrder] := "caption,icon,check,icons,picture"
	var_Items := var_Group:Items
		h := var_Items:AddItem("Text")
		var_Items:[CellImage,h,0] := 1
oDCOCX_Exontrol1:EndUpdate()

14:
How do I enable the filter prompt feature

local var_Columns as IColumns
local var_Group as IGroup
local var_Items as IItems
local h0 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Groups:Add("Group 1")
var_Group := oDCOCX_Exontrol1:Groups:Add("Group 2")
	var_Group:AutoHeight := true
	var_Group:HeaderVisible := true
	var_Group:Columns:Clear()
	var_Group:ColumnAutoResize := true
	var_Group:ContinueColumnScroll := false
	var_Group:MarkSearchColumn := false
	var_Group:SearchColumnIndex := 1
	var_Group:FilterBarPromptVisible := true
	var_Columns := var_Group:Columns
		IColumn{var_Columns:Add("Name")}:Width := 96
		IColumn{var_Columns:Add("Title")}:Width := 96
		var_Columns:Add("City")
	var_Items := var_Group:Items
		h0 := var_Items:AddItem("Nancy Davolio")
		var_Items:[CellCaption,h0,1] := "Sales Representative"
		var_Items:[CellCaption,h0,2] := "Seattle"
		h0 := var_Items:AddItem("Andrew Fuller")
		var_Items:[CellCaption,h0,1] := "Vice President, Sales"
		var_Items:[CellCaption,h0,2] := "Tacoma"
		var_Items:[SelectItem,h0] := true
		h0 := var_Items:AddItem("Janet Leverling")
		var_Items:[CellCaption,h0,1] := "Sales Representative"
		var_Items:[CellCaption,h0,2] := "Kirkland"
		h0 := var_Items:AddItem("Margaret Peacock")
		var_Items:[CellCaption,h0,1] := "Sales Representative"
		var_Items:[CellCaption,h0,2] := "Redmond"
		h0 := var_Items:AddItem("Steven Buchanan")
		var_Items:[CellCaption,h0,1] := "Sales Manager"
		var_Items:[CellCaption,h0,2] := "London"
		h0 := var_Items:AddItem("Michael Suyama")
		var_Items:[CellCaption,h0,1] := "Sales Representative"
		var_Items:[CellCaption,h0,2] := "London"
		h0 := var_Items:AddItem("Robert King")
		var_Items:[CellCaption,h0,1] := "Sales Representative"
		var_Items:[CellCaption,h0,2] := "London"
		h0 := var_Items:AddItem("Laura Callahan")
		var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
		var_Items:[CellCaption,h0,2] := "Seattle"
		h0 := var_Items:AddItem("Anne Dodsworth")
		var_Items:[CellCaption,h0,1] := "Sales Representative"
		var_Items:[CellCaption,h0,2] := "London"
	var_Group:Expanded := true
oDCOCX_Exontrol1:Groups:Add("Group 3")
oDCOCX_Exontrol1:EndUpdate()

13:
Can I specify unsortable items

local var_Columns as IColumns
local var_Group as IGroup
local var_Items as IItems
local h,h1 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Group := oDCOCX_Exontrol1:Groups:Add("Default")
	var_Group:AutoHeight := true
	var_Group:HeaderVisible := true
	var_Group:Columns:Clear()
	var_Group:HasLines := exNoLine
	var_Group:ScrollBySingleLine := true
	var_Group:MarkSearchColumn := false
	var_Columns := var_Group:Columns
		var_Columns:Add("Name")
		var_Columns:Add("A")
		var_Columns:Add("B")
		var_Columns:Add("C")
	var_Items := var_Group:Items
		h := var_Items:AddItem("Group 1")
		var_Items:[CellHAlignment,h,0] := CenterAlignment
		var_Items:[ItemDivider,h] := 0
		var_Items:[ItemDividerLineAlignment,h] := DividerBoth
		var_Items:[ItemHeight,h] := 24
		var_Items:[SortableItem,h] := false
		h1 := var_Items:InsertItem(h,nil,"Child 1")
		var_Items:[CellCaption,h1,1] := 1
		var_Items:[CellCaption,h1,2] := 2
		var_Items:[CellCaption,h1,3] := 3
		h1 := var_Items:InsertItem(h,nil,"Child 2")
		var_Items:[CellCaption,h1,1] := 4
		var_Items:[CellCaption,h1,2] := 5
		var_Items:[CellCaption,h1,3] := 6
		var_Items:[ExpandItem,h] := true
		h := var_Items:AddItem("Group 2")
		var_Items:[CellHAlignment,h,0] := CenterAlignment
		var_Items:[ItemDivider,h] := 0
		var_Items:[ItemDividerLineAlignment,h] := DividerBoth
		var_Items:[ItemHeight,h] := 24
		var_Items:[SortableItem,h] := false
		h1 := var_Items:InsertItem(h,nil,"Child 1")
		var_Items:[CellCaption,h1,1] := 1
		var_Items:[CellCaption,h1,2] := 2
		var_Items:[CellCaption,h1,3] := 3
		h1 := var_Items:InsertItem(h,nil,"Child 2")
		var_Items:[CellCaption,h1,1] := 4
		var_Items:[CellCaption,h1,2] := 5
		var_Items:[CellCaption,h1,3] := 6
		var_Items:[ExpandItem,h] := true
	var_Group:Expanded := true
oDCOCX_Exontrol1:EndUpdate()

12:
Can I change the style of the line being displayed by a divider item

local var_Group as IGroup
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Group := oDCOCX_Exontrol1:Groups:Add("Default")
	var_Group:HeaderVisible := true
	var_Group:Columns:Clear()
	var_Group:MarkSearchColumn := false
	var_Group:TreeColumnIndex := -1
	var_Group:ScrollBySingleLine := false
	var_Group:Columns:Add("C1")
	var_Group:Columns:Add("C2")
	var_Group:SelBackMode := exTransparent
	var_Items := var_Group:Items
		h := var_Items:AddItem("Cell 1")
		var_Items:[CellCaption,h,1] := "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
		var_Items:[CellSingleLine,h,1] := false
		h := var_Items:AddItem("This is bit of text that's displayed on the entire item, divider.")
		var_Items:[ItemDivider,h] := 0
		var_Items:[ItemDividerLine,h] := DoubleDotLine
		var_Items:[ItemDividerLineAlignment,h] := DividerBoth
		var_Items:[CellHAlignment,h,0] := CenterAlignment
		var_Items:[ItemHeight,h] := 24
	var_Group:Expanded := true
oDCOCX_Exontrol1:EndUpdate()

11:
How can I expand all items

local var_Group as IGroup
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Group := oDCOCX_Exontrol1:Groups:Add("Default")
	var_Group:HeaderVisible := true
	var_Group:Columns:Clear()
	var_Group:LinesAtRoot := exLinesAtRoot
	var_Group:Columns:Add("Items")
	var_Items := var_Group:Items
		h := var_Items:AddItem("Root 1")
		var_Items:InsertItem(h,nil,"Child 1")
		var_Items:InsertItem(h,nil,"Child 2")
		h := var_Items:AddItem("Root 2")
		var_Items:InsertItem(h,nil,"Child 1")
		var_Items:InsertItem(h,nil,"Child 2")
		var_Items:[ExpandItem,0] := true
	var_Group:Expanded := true
oDCOCX_Exontrol1:EndUpdate()

10:
Is it possible display numbers in the same format no matter of regional settings in the control panel

local var_Group as IGroup
local var_Items as IItems
local h as USUAL

var_Group := oDCOCX_Exontrol1:Groups:Add("Default")
	var_Group:HeaderVisible := true
	var_Group:Columns:Clear()
	IColumn{var_Group:Columns:Add("Def")}:[Def,exCellCaptionFormat] := 1
	var_Items := var_Group:Items
		h := var_Items:AddItem(100000.27)
		var_Items:[FormatCell,h,0] := "(value format '') +  ' <fgcolor=808080>(default positive)'"
		h := var_Items:AddItem(100000.27)
		var_Items:[FormatCell,h,0] := "(value format '2|.|3|,|1|1')"
		h := var_Items:AddItem(-100000.27)
		var_Items:[FormatCell,h,0] := "(value format '') +  ' <fgcolor=808080>(default negative)'"
		h := var_Items:AddItem(-100000.27)
		var_Items:[FormatCell,h,0] := "(value format '2|.|3|,|1|1')"
	var_Group:Expanded := true

9:
Is it possible to format numbers

local var_Column,var_Column1,var_Column2,var_Column3 as IColumn
local var_Columns as IColumns
local var_Group as IGroup
local var_Items as IItems
local h,h1 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Group := oDCOCX_Exontrol1:Groups:Add("Default")
	var_Group:HeaderVisible := true
	var_Group:MarkSearchColumn := false
	var_Group:Columns:Clear()
	var_Columns := var_Group:Columns
		var_Columns:Add("Name")
		var_Column := IColumn{var_Columns:Add("A")}
			var_Column:SortType := SortNumeric
			var_Column:AllowSizing := false
			var_Column:Width := 36
			var_Column:FormatColumn := "len(value) ? value + ' +'"
		var_Column1 := IColumn{var_Columns:Add("B")}
			var_Column1:SortType := SortNumeric
			var_Column1:AllowSizing := false
			var_Column1:Width := 36
			var_Column1:FormatColumn := "len(value) ? value + ' +'"
		var_Column2 := IColumn{var_Columns:Add("C")}
			var_Column2:SortType := SortNumeric
			var_Column2:AllowSizing := false
			var_Column2:Width := 36
			var_Column2:FormatColumn := "len(value) ? value + ' ='"
		var_Column3 := IColumn{var_Columns:Add("A+B+C")}
			var_Column3:SortType := SortNumeric
			var_Column3:Width := 64
			var_Column3:ComputedField := "dbl(%1)+dbl(%2)+dbl(%3)"
			var_Column3:FormatColumn := "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') )"
			var_Column3:[Def,exCellCaptionFormat] := 1
	var_Items := var_Group:Items
		h := var_Items:AddItem("Root")
		var_Items:[CellCaptionFormat,h,4] := exComputedField
		h1 := var_Items:InsertItem(h,nil,"Child 1")
		var_Items:[CellCaption,h1,1] := 7
		var_Items:[CellCaption,h1,2] := 3
		var_Items:[CellCaption,h1,3] := 1
		h1 := var_Items:InsertItem(h,nil,"Child 2")
		var_Items:[CellCaption,h1,1] := -2
		var_Items:[CellCaption,h1,2] := -2
		var_Items:[CellCaption,h1,3] := -4
		h1 := var_Items:InsertItem(h,nil,"Child 3")
		var_Items:[CellCaption,h1,1] := 2
		var_Items:[CellCaption,h1,2] := 2
		var_Items:[CellCaption,h1,3] := -4
		var_Items:[ExpandItem,h] := true
	var_Group:Expanded := true
oDCOCX_Exontrol1:EndUpdate()

8:
Is there any function to round the values base on the .5 value

local var_Group as IGroup
local var_Items as IItems

var_Group := oDCOCX_Exontrol1:Groups:Add("Default")
	var_Group:HeaderVisible := true
	var_Group:Columns:Clear()
	var_Group:Columns:Add("Number")
	IColumn{var_Group:Columns:Add("Round")}:ComputedField := "round(%0)"
	var_Items := var_Group:Items
		var_Items:AddItem("-1.98")
		var_Items:AddItem("0.99")
		var_Items:AddItem("1.23")
		var_Items:AddItem("2.34")
	var_Group:Expanded := true

7:
How can I show a column that adds values in the cells

local var_Group as IGroup
local var_Items,var_Items1 as IItems

var_Group := oDCOCX_Exontrol1:Groups:Add("Default")
	var_Group:Columns:Clear()
	var_Group:HeaderVisible := true
	var_Group:Columns:Add("A")
	var_Group:Columns:Add("B")
	IColumn{var_Group:Columns:Add("A+B")}:ComputedField := "dbl(%0) + dbl(%1)"
	var_Items := var_Group:Items
		var_Items:[CellCaption,var_Items:AddItem(1),1] := 2
	var_Items1 := var_Group:Items
		var_Items1:[CellCaption,var_Items1:AddItem(10),1] := 20
	var_Group:Expanded := true

6:
How do I change the item's background color for numbers less than a value

local var_Group as IGroup

var_Group := oDCOCX_Exontrol1:Groups:Add("Default")
	var_Group:ConditionalFormats:Add("dbl(%0) < 10",nil):BackColor := RGB(255,0,0)
	var_Group:Items:AddItem(1)
	var_Group:Items:AddItem(2)
	var_Group:Items:AddItem(10)
	var_Group:Items:AddItem(20)
	var_Group:Expanded := true

5:
How do I highlight in bold the numbers greater than a value

local var_Group as IGroup

var_Group := oDCOCX_Exontrol1:Groups:Add("Default")
	var_Group:ConditionalFormats:Add("dbl(%0) >= 10",nil):Bold := true
	var_Group:Items:AddItem(1)
	var_Group:Items:AddItem(2)
	var_Group:Items:AddItem(10)
	var_Group:Items:AddItem(20)
	var_Group:Expanded := true

4:
How do I change the caption being displayed in the control's filter bar

local var_Column as IColumn
local var_Group as IGroup

var_Group := oDCOCX_Exontrol1:Groups:Add("Default")
	var_Group:FilterBarCaption := "your filter caption"
	var_Column := IColumn{var_Group:Columns:Add("Column")}
		var_Column:DisplayFilterButton := true
		var_Column:FilterType := exBlanks
	var_Group:ApplyFilter()
	var_Group:Expanded := true

3:
Is it possible to change the style for the vertical or horizontal grid lines, in the list area

local var_Column as IColumn
local var_Group as IGroup
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Group := oDCOCX_Exontrol1:Groups:Add("Default")
	var_Group:AutoHeight := true
	var_Group:DrawGridLines := exAllLines
	var_Group:GridLineStyle := exGridLinesVSolid | exGridLinesHDot4
	var_Group:ColumnAutoResize := false
	var_Column := var_Group:Columns:[Item,0]
		var_Column:Caption := "C1"
		var_Column:Width := 64
	var_Group:Columns:Add("C2")
	var_Group:Columns:Add("C3")
	var_Group:ColumnAutoResize := true
	var_Items := var_Group:Items
		h := var_Items:AddItem("Item 1")
		var_Items:[CellCaption,h,1] := "SubItem 1.2"
		var_Items:[CellCaption,h,2] := "SubItem 1.3"
		h := var_Items:AddItem("Item 2")
		var_Items:[CellCaption,h,1] := "SubItem 2.2"
		var_Items:[CellCaption,h,2] := "SubItem 2.3"
		h := var_Items:AddItem("Item 3")
		var_Items:[CellCaption,h,1] := "SubItem 3.2"
		var_Items:[CellCaption,h,2] := "SubItem 3.3"
	var_Group:Expanded := true
oDCOCX_Exontrol1:EndUpdate()

2:
Is it possible to change the style for the grid lines, for instance to be solid not dotted

local var_Group as IGroup

oDCOCX_Exontrol1:BeginUpdate()
var_Group := oDCOCX_Exontrol1:Groups:Add("Default")
	var_Group:DrawGridLines := exAllLines
	var_Group:GridLineStyle := exGridLinesSolid
	var_Group:Expanded := true
oDCOCX_Exontrol1:EndUpdate()

1:
How can I change the visual appearance for the groups, using your EBN files

local var_Groups as IGroups

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:BackColorGroup := 0x1000000
var_Groups := oDCOCX_Exontrol1:Groups
	var_Groups:Add("Group 1")
	var_Groups:Add("Group 2")
	var_Groups:Add("Group 3")
oDCOCX_Exontrol1:EndUpdate()