43:
How do I add Start/End columns

// Notifies the application once the host fires an event.
Procedure OnComHostEvent OLEHostEventEnum   llEventID
	Forward Send OnComHostEvent llEventID
	Showln (ComHostEventParam(Self,-2))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComHostReadOnly to (OLEexHostReadWrite + OLEexHostAllowAddEmptyItem)
	Variant voG2antt
	Get ComHost to voG2antt
	Handle hoG2antt
	Get Create (RefClass(cComG2antt)) to hoG2antt
	Set pvComObject of hoG2antt to voG2antt
		Set ComSingleSel of hoG2antt to False
		Set ComOnResizeControl of hoG2antt to OLEexResizeChart
		Set ComScrollBars of hoG2antt to (|CI$800 + OLEexDisableNoVertical)
		Variant voColumns
		Get ComColumns of hoG2antt to voColumns
		Handle hoColumns
		Get Create (RefClass(cComColumns)) to hoColumns
		Set pvComObject of hoColumns to voColumns
			Variant voColumn
			Get ComAdd of hoColumns "Start" to voColumn
			Handle hoColumn
			Get Create (RefClass(cComColumn)) to hoColumn
			Set pvComObject of hoColumn to voColumn
				Set ComAllowSizing of hoColumn to False
				Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
				Variant voEditor
				Get ComEditor of hoColumn to voEditor
				Handle hoEditor
				Get Create (RefClass(cComEditor)) to hoEditor
				Set pvComObject of hoEditor to voEditor
					Set ComEditType of hoEditor to OLEDateType
				Send Destroy to hoEditor
			Send Destroy to hoColumn
		Send Destroy to hoColumns
		Variant voColumns1
		Get ComColumns of hoG2antt to voColumns1
		Handle hoColumns1
		Get Create (RefClass(cComColumns)) to hoColumns1
		Set pvComObject of hoColumns1 to voColumns1
			Variant voColumn1
			Get ComAdd of hoColumns1 "End" to voColumn1
			Handle hoColumn1
			Get Create (RefClass(cComColumn)) to hoColumn1
			Set pvComObject of hoColumn1 to voColumn1
				Set ComAllowSizing of hoColumn1 to False
				Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
				Variant voEditor1
				Get ComEditor of hoColumn1 to voEditor1
				Handle hoEditor1
				Get Create (RefClass(cComEditor)) to hoEditor1
				Set pvComObject of hoEditor1 to voEditor1
					Set ComEditType of hoEditor1 to OLEDateType
				Send Destroy to hoEditor1
			Send Destroy to hoColumn1
		Send Destroy to hoColumns1
		Variant voItems
		Get ComItems of hoG2antt to voItems
		Handle hoItems
		Get Create (RefClass(cComItems)) to hoItems
		Set pvComObject of hoItems to voItems
			Set ComAllowCellValueToItemBar of hoItems to True
		Send Destroy to hoItems
		Variant voChart
		Get ComChart of hoG2antt to voChart
		Handle hoChart
		Get Create (RefClass(cComChart)) to hoChart
		Set pvComObject of hoChart to voChart
			Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
			Set ComPaneWidth of hoChart False to 256
			Variant voBars
			Get ComBars of hoChart to voBars
			Handle hoBars
			Get Create (RefClass(cComBars)) to hoBars
			Set pvComObject of hoBars to voBars
				Variant voBar
				Get ComItem of hoBars "Task" to voBar
				Handle hoBar
				Get Create (RefClass(cComBar)) to hoBar
				Set pvComObject of hoBar to voBar
					Set ComOverlaidType of hoBar to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
				Send Destroy to hoBar
			Send Destroy to hoBars
		Send Destroy to hoChart
	Send Destroy to hoG2antt
End_Procedure
42:
How do I hide the left/items/columns part of the control

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voG2antt
	Get ComHost to voG2antt
	Handle hoG2antt
	Get Create (RefClass(cComG2antt)) to hoG2antt
	Set pvComObject of hoG2antt to voG2antt
		Variant voChart
		Get ComChart of hoG2antt to voChart
		Handle hoChart
		Get Create (RefClass(cComChart)) to hoChart
		Set pvComObject of hoChart to voChart
			Variant voBars
			Get ComBars of hoChart to voBars
			Handle hoBars
			Get Create (RefClass(cComBars)) to hoBars
			Set pvComObject of hoBars to voBars
				Variant voBar
				Get ComItem of hoBars "Task" to voBar
				Handle hoBar
				Get Create (RefClass(cComBar)) to hoBar
				Set pvComObject of hoBar to voBar
					Variant voBar1
					Get ComItem of hoBar "Task" to voBar1
					Handle hoBar1
					Get Create (RefClass(cComBar)) to hoBar1
					Set pvComObject of hoBar1 to voBar1
						Set ComPattern of hoBar1 to OLEexPatternSolid
						Set ComColor of hoBar1 to (RGB(0,0,255))
						Set ComDef of hoBar1 OLEexBarTransparent to 50
					Send Destroy to hoBar1
				Send Destroy to hoBar
			Send Destroy to hoBars
		Send Destroy to hoChart
	Send Destroy to hoG2antt
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
	Set ComDataMember "Items" to "Employees"
	Set ComDataField OLEexItemsDataSource to "Items"
	Set ComDataField OLEexItemsID to "EmployeeID"
	Set ComDataField OLEexItemsParentID to "ReportsTo"
	Set ComDataSource "Tasks" to (ComDataSource(Self,"Items"))
	Set ComDataMember "Tasks" to "EmployeeDetails"
	Set ComDataField OLEexTasksDataSource to "Tasks"
	Set ComDataField OLEexTasksItemID to "EmployeeID"
	Set ComDataField OLEexTasksStart to "DateStart"
	Set ComDataField OLEexTasksEnd to "DateEnd"
	Set ComDataField OLEexTasksID to "TaskID"
	Set ComDataField OLEexTasksColor to "Color"
	Set ComDataField OLEexTasksCaption to "TaskName"
	Variant voG2antt1
	Get ComHost to voG2antt1
	Handle hoG2antt1
	Get Create (RefClass(cComG2antt)) to hoG2antt1
	Set pvComObject of hoG2antt1 to voG2antt1
		Variant voItems
		Get ComItems of hoG2antt1 to voItems
		Handle hoItems
		Get Create (RefClass(cComItems)) to hoItems
		Set pvComObject of hoItems to voItems
			Set ComExpandItem of hoItems 0 to True
		Send Destroy to hoItems
	Send Destroy to hoG2antt1
	Set ComHostReadOnly to (OLEexHostReadWrite + OLEexHostAllowAddEmptyItem)
	Variant voG2antt2
	Get ComHost to voG2antt2
	Handle hoG2antt2
	Get Create (RefClass(cComG2antt)) to hoG2antt2
	Set pvComObject of hoG2antt2 to voG2antt2
		Set ComOnResizeControl of hoG2antt2 to (OLEexDisableSplitter + OLEexResizeChart)
		Variant voChart1
		Get ComChart of hoG2antt2 to voChart1
		Handle hoChart1
		Get Create (RefClass(cComChart)) to hoChart1
		Set pvComObject of hoChart1 to voChart1
			Set ComColumnsFormatLevel of hoChart1 to "1"
			Set ComPaneWidth of hoChart1 False to 0
			Send ComScrollTo of hoChart1 "5/27/2017" 1
		Send Destroy to hoChart1
	Send Destroy to hoG2antt2
End_Procedure
41:
How do I hide the right/chart/tasks part of the control

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voG2antt
	Get ComHost to voG2antt
	Handle hoG2antt
	Get Create (RefClass(cComG2antt)) to hoG2antt
	Set pvComObject of hoG2antt to voG2antt
		Variant voChart
		Get ComChart of hoG2antt to voChart
		Handle hoChart
		Get Create (RefClass(cComChart)) to hoChart
		Set pvComObject of hoChart to voChart
			Variant voBars
			Get ComBars of hoChart to voBars
			Handle hoBars
			Get Create (RefClass(cComBars)) to hoBars
			Set pvComObject of hoBars to voBars
				Variant voBar
				Get ComItem of hoBars "Task" to voBar
				Handle hoBar
				Get Create (RefClass(cComBar)) to hoBar
				Set pvComObject of hoBar to voBar
					Variant voBar1
					Get ComItem of hoBar "Task" to voBar1
					Handle hoBar1
					Get Create (RefClass(cComBar)) to hoBar1
					Set pvComObject of hoBar1 to voBar1
						Set ComPattern of hoBar1 to OLEexPatternSolid
						Set ComColor of hoBar1 to (RGB(0,0,255))
						Set ComDef of hoBar1 OLEexBarTransparent to 50
					Send Destroy to hoBar1
				Send Destroy to hoBar
			Send Destroy to hoBars
		Send Destroy to hoChart
	Send Destroy to hoG2antt
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
	Set ComDataMember "Items" to "Employees"
	Set ComDataField OLEexItemsDataSource to "Items"
	Set ComDataField OLEexItemsID to "EmployeeID"
	Set ComDataField OLEexItemsParentID to "ReportsTo"
	Set ComDataSource "Tasks" to (ComDataSource(Self,"Items"))
	Set ComDataMember "Tasks" to "EmployeeDetails"
	Set ComDataField OLEexTasksDataSource to "Tasks"
	Set ComDataField OLEexTasksItemID to "EmployeeID"
	Set ComDataField OLEexTasksStart to "DateStart"
	Set ComDataField OLEexTasksEnd to "DateEnd"
	Set ComDataField OLEexTasksID to "TaskID"
	Set ComDataField OLEexTasksColor to "Color"
	Set ComDataField OLEexTasksCaption to "TaskName"
	Variant voG2antt1
	Get ComHost to voG2antt1
	Handle hoG2antt1
	Get Create (RefClass(cComG2antt)) to hoG2antt1
	Set pvComObject of hoG2antt1 to voG2antt1
		Variant voItems
		Get ComItems of hoG2antt1 to voItems
		Handle hoItems
		Get Create (RefClass(cComItems)) to hoItems
		Set pvComObject of hoItems to voItems
			Set ComExpandItem of hoItems 0 to True
		Send Destroy to hoItems
	Send Destroy to hoG2antt1
	Variant voG2antt2
	Get ComHost to voG2antt2
	Handle hoG2antt2
	Get Create (RefClass(cComG2antt)) to hoG2antt2
	Set pvComObject of hoG2antt2 to voG2antt2
		Variant voChart1
		Get ComChart of hoG2antt2 to voChart1
		Handle hoChart1
		Get Create (RefClass(cComChart)) to hoChart1
		Set pvComObject of hoChart1 to voChart1
			Set ComPaneWidth of hoChart1 True to 0
			Set ComOverviewVisible of hoChart1 to OLEexOverviewHidden
		Send Destroy to hoChart1
	Send Destroy to hoG2antt2
End_Procedure
40:
How do hide the top/overview part of the control

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
	Set ComDataMember "Items" to "Employees"
	Set ComDataField OLEexItemsDataSource to "Items"
	Set ComDataField OLEexItemsID to "EmployeeID"
	Set ComDataField OLEexItemsParentID to "ReportsTo"
	Set ComDataField OLEexTasksDataSource to (ComDataField(Self,OLEexItemsDataSource))
	Set ComDataField OLEexTasksStart to "BirthDate"
	Set ComDataField OLEexTasksEnd to "HireDate"
	Variant voG2antt
	Get ComHost to voG2antt
	Handle hoG2antt
	Get Create (RefClass(cComG2antt)) to hoG2antt
	Set pvComObject of hoG2antt to voG2antt
		Variant voChart
		Get ComChart of hoG2antt to voChart
		Handle hoChart
		Get Create (RefClass(cComChart)) to hoChart
		Set pvComObject of hoChart to voChart
			Set ComOverviewVisible of hoChart to OLEexOverviewHidden
			Set ComPaneWidth of hoChart False to 256
			Send ComScrollTo of hoChart "4/27/1969" 1
		Send Destroy to hoChart
	Send Destroy to hoG2antt
End_Procedure
39:
How do I resize the panels

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voG2antt
	Get ComHost to voG2antt
	Handle hoG2antt
	Get Create (RefClass(cComG2antt)) to hoG2antt
	Set pvComObject of hoG2antt to voG2antt
		Variant voAppearance
		Get ComVisualAppearance of hoG2antt to voAppearance
		Handle hoAppearance
		Get Create (RefClass(cComAppearance)) to hoAppearance
		Set pvComObject of hoAppearance to voAppearance
			Get ComAdd of hoAppearance 1 "C:\Program Files\Exontrol\ExG2Host\Sample\EBN\Assorted\wbs-ass.ebn" to Nothing
		Send Destroy to hoAppearance
		Variant voChart
		Get ComChart of hoG2antt to voChart
		Handle hoChart
		Get Create (RefClass(cComChart)) to hoChart
		Set pvComObject of hoChart to voChart
			Variant voBars
			Get ComBars of hoChart to voBars
			Handle hoBars
			Get Create (RefClass(cComBars)) to hoBars
			Set pvComObject of hoBars to voBars
				Variant voBar
				Get ComItem of hoBars "Task" to voBar
				Handle hoBar
				Get Create (RefClass(cComBar)) to hoBar
				Set pvComObject of hoBar to voBar
					Variant voBar1
					Get ComItem of hoBar "Task" to voBar1
					Handle hoBar1
					Get Create (RefClass(cComBar)) to hoBar1
					Set pvComObject of hoBar1 to voBar1
						Set ComHeight of hoBar1 to 15
						Set ComColor of hoBar1 to |CI$1ff0000
						Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
						Set ComOverlaidGroup of hoBar1 to "Task,Progress"
					Send Destroy to hoBar1
				Send Destroy to hoBar
			Send Destroy to hoBars
		Send Destroy to hoChart
	Send Destroy to hoG2antt
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
	Set ComDataMember "Items" to "Employees"
	Set ComDataField OLEexItemsDataSource to "Items"
	Set ComDataField OLEexItemsID to "EmployeeID"
	Set ComDataField OLEexItemsParentID to "ReportsTo"
	Set ComDataSource "Tasks" to (ComDataSource(Self,"Items"))
	Set ComDataMember "Tasks" to "EmployeeDetails"
	Set ComDataField OLEexTasksDataSource to "Tasks"
	Set ComDataField OLEexTasksItemID to "EmployeeID"
	Set ComDataField OLEexTasksStart to "DateStart"
	Set ComDataField OLEexTasksEnd to "DateEnd"
	Set ComDataField OLEexTasksID to "TaskID"
	Set ComDataField OLEexTasksColor to "Color"
	Set ComDataField OLEexTasksCaption to "TaskName"
	Variant voG2antt1
	Get ComHost to voG2antt1
	Handle hoG2antt1
	Get Create (RefClass(cComG2antt)) to hoG2antt1
	Set pvComObject of hoG2antt1 to voG2antt1
		Variant voItems
		Get ComItems of hoG2antt1 to voItems
		Handle hoItems
		Get Create (RefClass(cComItems)) to hoItems
		Set pvComObject of hoItems to voItems
			Set ComExpandItem of hoItems 0 to True
		Send Destroy to hoItems
	Send Destroy to hoG2antt1
	Variant voG2antt2
	Get ComHost to voG2antt2
	Handle hoG2antt2
	Get Create (RefClass(cComG2antt)) to hoG2antt2
	Set pvComObject of hoG2antt2 to voG2antt2
		Variant voChart1
		Get ComChart of hoG2antt2 to voChart1
		Handle hoChart1
		Get Create (RefClass(cComChart)) to hoChart1
		Set pvComObject of hoChart1 to voChart1
			Set ComPaneWidth of hoChart1 False to 128
			Send ComScrollTo of hoChart1 "5/27/2017" 1
		Send Destroy to hoChart1
	Send Destroy to hoG2antt2
End_Procedure
38:
How do I lock the first column

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
	Set ComDataMember "Items" to "Employees"
	Set ComDataField OLEexItemsDataSource to "Items"
	Variant voG2antt
	Get ComHost to voG2antt
	Handle hoG2antt
	Get Create (RefClass(cComG2antt)) to hoG2antt
	Set pvComObject of hoG2antt to voG2antt
		Set ComCountLockedColumns of hoG2antt to 1
		Set ComBackColorLock of hoG2antt to (ComBackColorAlternate(hoG2antt))
	Send Destroy to hoG2antt
End_Procedure
37:
How do I specify a different color for the tasks ( EBN color )

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voG2antt
	Get ComHost to voG2antt
	Handle hoG2antt
	Get Create (RefClass(cComG2antt)) to hoG2antt
	Set pvComObject of hoG2antt to voG2antt
		Variant voAppearance
		Get ComVisualAppearance of hoG2antt to voAppearance
		Handle hoAppearance
		Get Create (RefClass(cComAppearance)) to hoAppearance
		Set pvComObject of hoAppearance to voAppearance
			Get ComAdd of hoAppearance 1 "C:\Program Files\Exontrol\ExG2Host\Sample\EBN\Assorted\wbs-ass.ebn" to Nothing
		Send Destroy to hoAppearance
		Variant voChart
		Get ComChart of hoG2antt to voChart
		Handle hoChart
		Get Create (RefClass(cComChart)) to hoChart
		Set pvComObject of hoChart to voChart
			Variant voBars
			Get ComBars of hoChart to voBars
			Handle hoBars
			Get Create (RefClass(cComBars)) to hoBars
			Set pvComObject of hoBars to voBars
				Variant voBar
				Get ComItem of hoBars "Task" to voBar
				Handle hoBar
				Get Create (RefClass(cComBar)) to hoBar
				Set pvComObject of hoBar to voBar
					Variant voBar1
					Get ComItem of hoBar "Task" to voBar1
					Handle hoBar1
					Get Create (RefClass(cComBar)) to hoBar1
					Set pvComObject of hoBar1 to voBar1
						Set ComHeight of hoBar1 to 15
						Set ComColor of hoBar1 to |CI$1ff0000
						Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
						Set ComOverlaidGroup of hoBar1 to "Task,Progress"
					Send Destroy to hoBar1
				Send Destroy to hoBar
			Send Destroy to hoBars
		Send Destroy to hoChart
	Send Destroy to hoG2antt
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
	Set ComDataMember "Items" to "Employees"
	Set ComDataField OLEexItemsDataSource to "Items"
	Set ComDataField OLEexItemsID to "EmployeeID"
	Set ComDataField OLEexItemsParentID to "ReportsTo"
	Set ComDataSource "Tasks" to (ComDataSource(Self,"Items"))
	Set ComDataMember "Tasks" to "EmployeeDetails"
	Set ComDataField OLEexTasksDataSource to "Tasks"
	Set ComDataField OLEexTasksItemID to "EmployeeID"
	Set ComDataField OLEexTasksStart to "DateStart"
	Set ComDataField OLEexTasksEnd to "DateEnd"
	Set ComDataField OLEexTasksID to "TaskID"
	Set ComDataField OLEexTasksColor to "Color"
	Set ComDataField OLEexTasksCaption to "TaskName"
	Variant voG2antt1
	Get ComHost to voG2antt1
	Handle hoG2antt1
	Get Create (RefClass(cComG2antt)) to hoG2antt1
	Set pvComObject of hoG2antt1 to voG2antt1
		Variant voItems
		Get ComItems of hoG2antt1 to voItems
		Handle hoItems
		Get Create (RefClass(cComItems)) to hoItems
		Set pvComObject of hoItems to voItems
			Set ComExpandItem of hoItems 0 to True
		Send Destroy to hoItems
	Send Destroy to hoG2antt1
	Variant voG2antt2
	Get ComHost to voG2antt2
	Handle hoG2antt2
	Get Create (RefClass(cComG2antt)) to hoG2antt2
	Set pvComObject of hoG2antt2 to voG2antt2
		Variant voChart1
		Get ComChart of hoG2antt2 to voChart1
		Handle hoChart1
		Get Create (RefClass(cComChart)) to hoChart1
		Set pvComObject of hoChart1 to voChart1
			Set ComPaneWidth of hoChart1 False to 256
		Send Destroy to hoChart1
	Send Destroy to hoG2antt2
	Variant voG2antt3
	Get ComHost to voG2antt3
	Handle hoG2antt3
	Get Create (RefClass(cComG2antt)) to hoG2antt3
	Set pvComObject of hoG2antt3 to voG2antt3
		Variant voChart2
		Get ComChart of hoG2antt3 to voChart2
		Handle hoChart2
		Get Create (RefClass(cComChart)) to hoChart2
		Set pvComObject of hoChart2 to voChart2
			Send ComScrollTo of hoChart2 "5/27/2017" 1
		Send Destroy to hoChart2
	Send Destroy to hoG2antt3
End_Procedure
36:
How do I specify a different color for the tasks ( solid color, transparent )

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voG2antt
	Get ComHost to voG2antt
	Handle hoG2antt
	Get Create (RefClass(cComG2antt)) to hoG2antt
	Set pvComObject of hoG2antt to voG2antt
		Variant voChart
		Get ComChart of hoG2antt to voChart
		Handle hoChart
		Get Create (RefClass(cComChart)) to hoChart
		Set pvComObject of hoChart to voChart
			Variant voBars
			Get ComBars of hoChart to voBars
			Handle hoBars
			Get Create (RefClass(cComBars)) to hoBars
			Set pvComObject of hoBars to voBars
				Variant voBar
				Get ComItem of hoBars "Task" to voBar
				Handle hoBar
				Get Create (RefClass(cComBar)) to hoBar
				Set pvComObject of hoBar to voBar
					Variant voBar1
					Get ComItem of hoBar "Task" to voBar1
					Handle hoBar1
					Get Create (RefClass(cComBar)) to hoBar1
					Set pvComObject of hoBar1 to voBar1
						Set ComPattern of hoBar1 to OLEexPatternSolid
						Set ComColor of hoBar1 to (RGB(0,0,255))
						Set ComDef of hoBar1 OLEexBarTransparent to 50
					Send Destroy to hoBar1
				Send Destroy to hoBar
			Send Destroy to hoBars
		Send Destroy to hoChart
	Send Destroy to hoG2antt
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
	Set ComDataMember "Items" to "Employees"
	Set ComDataField OLEexItemsDataSource to "Items"
	Set ComDataField OLEexItemsID to "EmployeeID"
	Set ComDataField OLEexItemsParentID to "ReportsTo"
	Set ComDataSource "Tasks" to (ComDataSource(Self,"Items"))
	Set ComDataMember "Tasks" to "EmployeeDetails"
	Set ComDataField OLEexTasksDataSource to "Tasks"
	Set ComDataField OLEexTasksItemID to "EmployeeID"
	Set ComDataField OLEexTasksStart to "DateStart"
	Set ComDataField OLEexTasksEnd to "DateEnd"
	Set ComDataField OLEexTasksID to "TaskID"
	Set ComDataField OLEexTasksColor to "Color"
	Set ComDataField OLEexTasksCaption to "TaskName"
	Variant voG2antt1
	Get ComHost to voG2antt1
	Handle hoG2antt1
	Get Create (RefClass(cComG2antt)) to hoG2antt1
	Set pvComObject of hoG2antt1 to voG2antt1
		Variant voItems
		Get ComItems of hoG2antt1 to voItems
		Handle hoItems
		Get Create (RefClass(cComItems)) to hoItems
		Set pvComObject of hoItems to voItems
			Set ComExpandItem of hoItems 0 to True
		Send Destroy to hoItems
	Send Destroy to hoG2antt1
	Variant voG2antt2
	Get ComHost to voG2antt2
	Handle hoG2antt2
	Get Create (RefClass(cComG2antt)) to hoG2antt2
	Set pvComObject of hoG2antt2 to voG2antt2
		Variant voChart1
		Get ComChart of hoG2antt2 to voChart1
		Handle hoChart1
		Get Create (RefClass(cComChart)) to hoChart1
		Set pvComObject of hoChart1 to voChart1
			Set ComPaneWidth of hoChart1 False to 256
		Send Destroy to hoChart1
	Send Destroy to hoG2antt2
	Variant voG2antt3
	Get ComHost to voG2antt3
	Handle hoG2antt3
	Get Create (RefClass(cComG2antt)) to hoG2antt3
	Set pvComObject of hoG2antt3 to voG2antt3
		Variant voChart2
		Get ComChart of hoG2antt3 to voChart2
		Handle hoChart2
		Get Create (RefClass(cComChart)) to hoChart2
		Set pvComObject of hoChart2 to voChart2
			Send ComScrollTo of hoChart2 "5/27/2017" 1
		Send Destroy to hoChart2
	Send Destroy to hoG2antt3
End_Procedure
35:
GroupBy

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
	Set ComDataMember "Items" to "Employees"
	Set ComDataField OLEexItemsDataSource to "Items"
	Set ComDataField OLEexItemsID to "EmployeeID"
	Set ComDataSource "Tasks" to (ComDataSource(Self,"Items"))
	Set ComDataMember "Tasks" to "EmployeeDetails"
	Set ComDataField OLEexTasksDataSource to "Tasks"
	Set ComDataField OLEexTasksItemID to "EmployeeID"
	Set ComDataField OLEexTasksStart to "DateStart"
	Set ComDataField OLEexTasksEnd to "DateEnd"
	Set ComDataField OLEexTasksID to "TaskID"
	Set ComDataSource "Links" to (ComDataSource(Self,"Items"))
	Set ComDataMember "Links" to "EmployeeLinks"
	Set ComDataField OLEexLinksDataSource to "Links"
	Set ComDataField OLEexLinksStart to "Start"
	Set ComDataField OLEexLinksEnd to "End"
	Variant voG2antt
	Get ComHost to voG2antt
	Handle hoG2antt
	Get Create (RefClass(cComG2antt)) to hoG2antt
	Set pvComObject of hoG2antt to voG2antt
		Set ComAllowGroupBy of hoG2antt to True
		Set ComSortBarVisible of hoG2antt to True
		Variant v
			Variant voG2antt1
			Get ComHost to voG2antt1
			Handle hoG2antt1
			Get Create (RefClass(cComG2antt)) to hoG2antt1
			Set pvComObject of hoG2antt1 to voG2antt1
				Get ComBackColor of hoG2antt1 to v
			Send Destroy to hoG2antt1
		Set ComBackColorSortBar of hoG2antt to v
		Set ComBackColorSortBarCaption of hoG2antt to (ComBackColorSortBar(hoG2antt))
		Set ComSortBarCaption of hoG2antt to "<sha ;;0><fgcolor=FF0000>Drag a <b>column</b> header here to sort by that column."
		Variant voChart
		Get ComChart of hoG2antt to voChart
		Handle hoChart
		Get Create (RefClass(cComChart)) to hoChart
		Set pvComObject of hoChart to voChart
			Variant voBars
			Get ComBars of hoChart to voBars
			Handle hoBars
			Get Create (RefClass(cComBars)) to hoBars
			Set pvComObject of hoBars to voBars
				Variant voBar
				Get ComItem of hoBars "Task" to voBar
				Handle hoBar
				Get Create (RefClass(cComBar)) to hoBar
				Set pvComObject of hoBar to voBar
					Variant voBar1
					Get ComItem of hoBar "Task" to voBar1
					Handle hoBar1
					Get Create (RefClass(cComBar)) to hoBar1
					Set pvComObject of hoBar1 to voBar1
						Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
						Set ComOverlaidGroup of hoBar1 to "Task,Progress"
					Send Destroy to hoBar1
				Send Destroy to hoBar
			Send Destroy to hoBars
		Send Destroy to hoChart
		Variant voItems
		Get ComItems of hoG2antt to voItems
		Handle hoItems
		Get Create (RefClass(cComItems)) to hoItems
		Set pvComObject of hoItems to voItems
			Set ComExpandItem of hoItems 0 to True
		Send Destroy to hoItems
		Set ComCountLockedColumns of hoG2antt to 1
		Set ComBackColorLock of hoG2antt to (ComBackColorAlternate(hoG2antt))
		Variant voColumns
		Get ComColumns of hoG2antt to voColumns
		Handle hoColumns
		Get Create (RefClass(cComColumns)) to hoColumns
		Set pvComObject of hoColumns to voColumns
			Variant voColumn
			Get ComItem of hoColumns "EmployeeID" to voColumn
			Handle hoColumn
			Get Create (RefClass(cComColumn)) to hoColumn
			Set pvComObject of hoColumn to voColumn
				Set ComAllowGroupBy of hoColumn to False
				Variant v1
					Variant voG2antt2
					Get ComHost to voG2antt2
					Handle hoG2antt2
					Get Create (RefClass(cComG2antt)) to hoG2antt2
					Set pvComObject of hoG2antt2 to voG2antt2
						Get ComBackColorAlternate of hoG2antt2 to v1
					Send Destroy to hoG2antt2
				Set ComDef of hoColumn OLEexHeaderBackColor to v1
			Send Destroy to hoColumn
		Send Destroy to hoColumns
		Variant voColumns1
		Get ComColumns of hoG2antt to voColumns1
		Handle hoColumns1
		Get Create (RefClass(cComColumns)) to hoColumns1
		Set pvComObject of hoColumns1 to voColumns1
			Variant voColumn1
			Get ComItem of hoColumns1 "Title" to voColumn1
			Handle hoColumn1
			Get Create (RefClass(cComColumn)) to hoColumn1
			Set pvComObject of hoColumn1 to voColumn1
				Set ComSortOrder of hoColumn1 to OLESortAscending
			Send Destroy to hoColumn1
		Send Destroy to hoColumns1
	Send Destroy to hoG2antt
	Variant voG2antt3
	Get ComHost to voG2antt3
	Handle hoG2antt3
	Get Create (RefClass(cComG2antt)) to hoG2antt3
	Set pvComObject of hoG2antt3 to voG2antt3
		Variant voChart1
		Get ComChart of hoG2antt3 to voChart1
		Handle hoChart1
		Get Create (RefClass(cComChart)) to hoChart1
		Set pvComObject of hoChart1 to voChart1
			Send ComScrollTo of hoChart1 "5/27/2017" 1
		Send Destroy to hoChart1
	Send Destroy to hoG2antt3
End_Procedure
34:
How can I hide a column
// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
	Set ComDataMember "Items" to "Employees"
	Set ComDataField OLEexItemsDataSource to "Items"
	Set ComDataField OLEexItemsID to "EmployeeID"
	Variant voG2antt
	Get ComHost to voG2antt
	Handle hoG2antt
	Get Create (RefClass(cComG2antt)) to hoG2antt
	Set pvComObject of hoG2antt to voG2antt
		Variant voColumns
		Get ComColumns of hoG2antt 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
				Variant voColumn1
				Get ComItem of hoColumn 0 to voColumn1
				Handle hoColumn1
				Get Create (RefClass(cComColumn)) to hoColumn1
				Set pvComObject of hoColumn1 to voColumn1
					Set ComVisible of hoColumn1 to False
				Send Destroy to hoColumn1
			Send Destroy to hoColumn
		Send Destroy to hoColumns
	Send Destroy to hoG2antt
End_Procedure
33:
Can row errors being highligted until the user correct them, not to clear them as soon a change occurs

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
	Set ComDataMember "Items" to "Employees"
	Set ComDataField OLEexItemsDataSource to "Items"
	Set ComDataField OLEexItemsID to "EmployeeID"
	Set ComHostDef OLEexErrorClearOnChange to False
End_Procedure
32:
No error is highligthed

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
	Set ComDataMember "Items" to "Employees"
	Set ComDataField OLEexItemsDataSource to "Items"
	Set ComDataField OLEexItemsID to "EmployeeID"
End_Procedure
31:
I've noticed that rows with errors are shown in red. Is it possible to change the colors

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
	Set ComDataMember "Items" to "Employees"
	Set ComDataField OLEexItemsDataSource to "Items"
	Set ComDataField OLEexItemsID to "EmployeeID"
	Set ComHostDef OLEexErrorBackColor to 0
	Set ComHostDef OLEexErrorForeColor to 16777215
End_Procedure
30:
Is it possible to rename the (New) to something else

Procedure OnCreate
	Forward Send OnCreate
	Set ComHostDef OLEexNew to "*"
	Variant voG2antt
	Get ComHost to voG2antt
	Handle hoG2antt
	Get Create (RefClass(cComG2antt)) to hoG2antt
	Set pvComObject of hoG2antt to voG2antt
		Send ComBeginUpdate of hoG2antt
		Variant voItems
		Get ComItems of hoG2antt to voItems
		Handle hoItems
		Get Create (RefClass(cComItems)) to hoItems
		Set pvComObject of hoItems to voItems
			Get ComAddItem of hoItems "A" to Nothing
		Send Destroy to hoItems
		Variant voItems1
		Get ComItems of hoG2antt to voItems1
		Handle hoItems1
		Get Create (RefClass(cComItems)) to hoItems1
		Set pvComObject of hoItems1 to voItems1
			Get ComAddItem of hoItems1 "B" to Nothing
		Send Destroy to hoItems1
		Send ComEndUpdate of hoG2antt
	Send Destroy to hoG2antt
	Send ComRefresh
End_Procedure
29:
How can I hide the (New) item (sample 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComHostReadOnly to (OLEexHostAllowUpdate + OLEexHostAllowDelete)
	Variant voG2antt
	Get ComHost to voG2antt
	Handle hoG2antt
	Get Create (RefClass(cComG2antt)) to hoG2antt
	Set pvComObject of hoG2antt to voG2antt
		Send ComBeginUpdate of hoG2antt
		Variant voItems
		Get ComItems of hoG2antt to voItems
		Handle hoItems
		Get Create (RefClass(cComItems)) to hoItems
		Set pvComObject of hoItems to voItems
			Get ComAddItem of hoItems "A" to Nothing
		Send Destroy to hoItems
		Variant voItems1
		Get ComItems of hoG2antt to voItems1
		Handle hoItems1
		Get Create (RefClass(cComItems)) to hoItems1
		Set pvComObject of hoItems1 to voItems1
			Get ComAddItem of hoItems1 "B" to Nothing
		Send Destroy to hoItems1
		Send ComEndUpdate of hoG2antt
	Send Destroy to hoG2antt
End_Procedure
28:
How can I hide the (New) item (sample 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComHostDef OLEexNew to ""
	Variant voG2antt
	Get ComHost to voG2antt
	Handle hoG2antt
	Get Create (RefClass(cComG2antt)) to hoG2antt
	Set pvComObject of hoG2antt to voG2antt
		Send ComBeginUpdate of hoG2antt
		Variant voItems
		Get ComItems of hoG2antt to voItems
		Handle hoItems
		Get Create (RefClass(cComItems)) to hoItems
		Set pvComObject of hoItems to voItems
			Get ComAddItem of hoItems "A" to Nothing
		Send Destroy to hoItems
		Variant voItems1
		Get ComItems of hoG2antt to voItems1
		Handle hoItems1
		Get Create (RefClass(cComItems)) to hoItems1
		Set pvComObject of hoItems1 to voItems1
			Get ComAddItem of hoItems1 "B" to Nothing
		Send Destroy to hoItems1
		Send ComEndUpdate of hoG2antt
	Send Destroy to hoG2antt
	Send ComRefresh
End_Procedure
27:
Read-Only

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
	Set ComDataMember "Items" to "Employees"
	Set ComDataField OLEexItemsDataSource to "Items"
	Set ComHostReadOnly to OLEexHostReadOnly
End_Procedure
26:
How can I prevent user create new /delete tasks ( only move or resize then )
// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
	Set ComDataMember "Items" to "Employees"
	Set ComDataField OLEexItemsDataSource to "Items"
	Set ComDataField OLEexItemsID to "EmployeeID"
	Set ComDataSource "Tasks" to (ComDataSource(Self,"Items"))
	Set ComDataMember "Tasks" to "EmployeeDetails"
	Set ComDataField OLEexTasksDataSource to "Tasks"
	Set ComDataField OLEexTasksItemID to "EmployeeID"
	Set ComDataField OLEexTasksStart to "DateStart"
	Set ComDataField OLEexTasksEnd to "DateEnd"
	Set ComDataField OLEexTasksID to "TaskID"
	Set ComDataSource "Links" to (ComDataSource(Self,"Items"))
	Set ComDataMember "Links" to "EmployeeLinks"
	Set ComDataField OLEexLinksDataSource to "Links"
	Set ComDataField OLEexLinksStart to "Start"
	Set ComDataField OLEexLinksEnd to "End"
	Variant voG2antt
	Get ComHost to voG2antt
	Handle hoG2antt
	Get Create (RefClass(cComG2antt)) to hoG2antt
	Set pvComObject of hoG2antt to voG2antt
		Variant voChart
		Get ComChart of hoG2antt to voChart
		Handle hoChart
		Get Create (RefClass(cComChart)) to hoChart
		Set pvComObject of hoChart to voChart
			Variant voBars
			Get ComBars of hoChart to voBars
			Handle hoBars
			Get Create (RefClass(cComBars)) to hoBars
			Set pvComObject of hoBars to voBars
				Variant voBar
				Get ComItem of hoBars "Task" to voBar
				Handle hoBar
				Get Create (RefClass(cComBar)) to hoBar
				Set pvComObject of hoBar to voBar
					Variant voBar1
					Get ComItem of hoBar "Task" to voBar1
					Handle hoBar1
					Get Create (RefClass(cComBar)) to hoBar1
					Set pvComObject of hoBar1 to voBar1
						Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
						Set ComOverlaidGroup of hoBar1 to "Task,Progress"
					Send Destroy to hoBar1
				Send Destroy to hoBar
			Send Destroy to hoBars
		Send Destroy to hoChart
	Send Destroy to hoG2antt
	Variant voG2antt1
	Get ComHost to voG2antt1
	Handle hoG2antt1
	Get Create (RefClass(cComG2antt)) to hoG2antt1
	Set pvComObject of hoG2antt1 to voG2antt1
		Variant voItems
		Get ComItems of hoG2antt1 to voItems
		Handle hoItems
		Get Create (RefClass(cComItems)) to hoItems
		Set pvComObject of hoItems to voItems
			Set ComExpandItem of hoItems 0 to True
		Send Destroy to hoItems
	Send Destroy to hoG2antt1
	Set ComHostReadOnly to OLEexHostAllowUpdate
	Variant voG2antt2
	Get ComHost to voG2antt2
	Handle hoG2antt2
	Get Create (RefClass(cComG2antt)) to hoG2antt2
	Set pvComObject of hoG2antt2 to voG2antt2
		Variant voChart1
		Get ComChart of hoG2antt2 to voChart1
		Handle hoChart1
		Get Create (RefClass(cComChart)) to hoChart1
		Set pvComObject of hoChart1 to voChart1
			Send ComScrollTo of hoChart1 "5/27/2017" 1
		Send Destroy to hoChart1
	Send Destroy to hoG2antt2
End_Procedure
25:
How do I get the row/item/task/link from the cursor

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

// Notifies the application once the host fires an event.
Procedure OnComHostEvent OLEHostEventEnum   llEventID
	Forward Send OnComHostEvent llEventID
	Variant v
	Variant voHostContext
	Get ComHostContext to voHostContext
	Handle hoHostContext
	Get Create (RefClass(cComHostContext)) to hoHostContext
	Set pvComObject of hoHostContext to voHostContext
		Get ComToString of hoHostContext to v
	Send Destroy to hoHostContext
	Showln v
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
	Set ComDataMember "Items" to "Employees"
	Set ComDataField OLEexItemsDataSource to "Items"
	Set ComHostReadOnly to (OLEexHostAllowUpdate + OLEexHostAllowAddNew)
End_Procedure
24:
Disable Delete
// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
	Set ComDataMember "Items" to "Employees"
	Set ComDataField OLEexItemsDataSource to "Items"
	Set ComHostReadOnly to (OLEexHostAllowUpdate + OLEexHostAllowAddNew)
End_Procedure
23:
Disable AddNew

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
	Set ComDataMember "Items" to "Employees"
	Set ComDataField OLEexItemsDataSource to "Items"
	Set ComHostReadOnly to (OLEexHostAllowUpdate + OLEexHostAllowDelete)
End_Procedure
22:
ACCDB sample ( file )

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
	Set ComDataMember "Items" to "Employees"
	Set ComDataField OLEexItemsDataSource to "Items"
	Set ComDataField OLEexItemsID to "EmployeeID"
	Set ComDataField OLEexItemsParentID to "ReportsTo"
	Set ComDataSource "Tasks" to (ComDataSource(Self,"Items"))
	Set ComDataMember "Tasks" to "EmployeeDetails"
	Set ComDataField OLEexTasksDataSource to "Tasks"
	Set ComDataField OLEexTasksItemID to "EmployeeID"
	Set ComDataField OLEexTasksStart to "DateStart"
	Set ComDataField OLEexTasksEnd to "DateEnd"
	Set ComDataField OLEexTasksID to "TaskID"
	Set ComDataSource "Links" to (ComDataSource(Self,"Items"))
	Set ComDataMember "Links" to "EmployeeLinks"
	Set ComDataField OLEexLinksDataSource to "Links"
	Set ComDataField OLEexLinksStart to "Start"
	Set ComDataField OLEexLinksEnd to "End"
	Variant voG2antt
	Get ComHost to voG2antt
	Handle hoG2antt
	Get Create (RefClass(cComG2antt)) to hoG2antt
	Set pvComObject of hoG2antt to voG2antt
		Variant voChart
		Get ComChart of hoG2antt to voChart
		Handle hoChart
		Get Create (RefClass(cComChart)) to hoChart
		Set pvComObject of hoChart to voChart
			Variant voBars
			Get ComBars of hoChart to voBars
			Handle hoBars
			Get Create (RefClass(cComBars)) to hoBars
			Set pvComObject of hoBars to voBars
				Variant voBar
				Get ComItem of hoBars "Task" to voBar
				Handle hoBar
				Get Create (RefClass(cComBar)) to hoBar
				Set pvComObject of hoBar to voBar
					Variant voBar1
					Get ComItem of hoBar "Task" to voBar1
					Handle hoBar1
					Get Create (RefClass(cComBar)) to hoBar1
					Set pvComObject of hoBar1 to voBar1
						Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
						Set ComOverlaidGroup of hoBar1 to "Task,Progress"
					Send Destroy to hoBar1
				Send Destroy to hoBar
			Send Destroy to hoBars
		Send Destroy to hoChart
	Send Destroy to hoG2antt
	Variant voG2antt1
	Get ComHost to voG2antt1
	Handle hoG2antt1
	Get Create (RefClass(cComG2antt)) to hoG2antt1
	Set pvComObject of hoG2antt1 to voG2antt1
		Variant voItems
		Get ComItems of hoG2antt1 to voItems
		Handle hoItems
		Get Create (RefClass(cComItems)) to hoItems
		Set pvComObject of hoItems to voItems
			Set ComExpandItem of hoItems 0 to True
		Send Destroy to hoItems
	Send Destroy to hoG2antt1
	Variant voG2antt2
	Get ComHost to voG2antt2
	Handle hoG2antt2
	Get Create (RefClass(cComG2antt)) to hoG2antt2
	Set pvComObject of hoG2antt2 to voG2antt2
		Variant voChart1
		Get ComChart of hoG2antt2 to voChart1
		Handle hoChart1
		Get Create (RefClass(cComChart)) to hoChart1
		Set pvComObject of hoChart1 to voChart1
			Send ComScrollTo of hoChart1 "5/27/2017" 1
		Send Destroy to hoChart1
	Send Destroy to hoG2antt2
End_Procedure
21:
MDB sample ( file )

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.mdb"
	Set ComDataMember "Items" to "Employees"
	Set ComDataField OLEexItemsDataSource to "Items"
	Set ComDataField OLEexItemsID to "EmployeeID"
	Set ComDataField OLEexItemsParentID to "ReportsTo"
	Set ComDataSource "Tasks" to (ComDataSource(Self,"Items"))
	Set ComDataMember "Tasks" to "EmployeeDetails"
	Set ComDataField OLEexTasksDataSource to "Tasks"
	Set ComDataField OLEexTasksItemID to "EmployeeID"
	Set ComDataField OLEexTasksStart to "DateStart"
	Set ComDataField OLEexTasksEnd to "DateEnd"
	Set ComDataField OLEexTasksID to "TaskID"
	Set ComDataSource "Links" to (ComDataSource(Self,"Items"))
	Set ComDataMember "Links" to "EmployeeLinks"
	Set ComDataField OLEexLinksDataSource to "Links"
	Set ComDataField OLEexLinksStart to "Start"
	Set ComDataField OLEexLinksEnd to "End"
	Variant voG2antt
	Get ComHost to voG2antt
	Handle hoG2antt
	Get Create (RefClass(cComG2antt)) to hoG2antt
	Set pvComObject of hoG2antt to voG2antt
		Variant voChart
		Get ComChart of hoG2antt to voChart
		Handle hoChart
		Get Create (RefClass(cComChart)) to hoChart
		Set pvComObject of hoChart to voChart
			Variant voBars
			Get ComBars of hoChart to voBars
			Handle hoBars
			Get Create (RefClass(cComBars)) to hoBars
			Set pvComObject of hoBars to voBars
				Variant voBar
				Get ComItem of hoBars "Task" to voBar
				Handle hoBar
				Get Create (RefClass(cComBar)) to hoBar
				Set pvComObject of hoBar to voBar
					Variant voBar1
					Get ComItem of hoBar "Task" to voBar1
					Handle hoBar1
					Get Create (RefClass(cComBar)) to hoBar1
					Set pvComObject of hoBar1 to voBar1
						Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
						Set ComOverlaidGroup of hoBar1 to "Task,Progress"
					Send Destroy to hoBar1
				Send Destroy to hoBar
			Send Destroy to hoBars
		Send Destroy to hoChart
	Send Destroy to hoG2antt
	Variant voG2antt1
	Get ComHost to voG2antt1
	Handle hoG2antt1
	Get Create (RefClass(cComG2antt)) to hoG2antt1
	Set pvComObject of hoG2antt1 to voG2antt1
		Variant voItems
		Get ComItems of hoG2antt1 to voItems
		Handle hoItems
		Get Create (RefClass(cComItems)) to hoItems
		Set pvComObject of hoItems to voItems
			Set ComExpandItem of hoItems 0 to True
		Send Destroy to hoItems
	Send Destroy to hoG2antt1
	Variant voG2antt2
	Get ComHost to voG2antt2
	Handle hoG2antt2
	Get Create (RefClass(cComG2antt)) to hoG2antt2
	Set pvComObject of hoG2antt2 to voG2antt2
		Variant voChart1
		Get ComChart of hoG2antt2 to voChart1
		Handle hoChart1
		Get Create (RefClass(cComChart)) to hoChart1
		Set pvComObject of hoChart1 to voChart1
			Send ComScrollTo of hoChart1 "5/27/2017" 1
		Send Destroy to hoChart1
	Send Destroy to hoG2antt2
End_Procedure
20:
DBF sample ( file )

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.dbf"
	Set ComDataField OLEexItemsDataSource to "Items"
End_Procedure
19:
DAO sample ( object, DAO.DBEngine.120, multiple tasks, multiple tables )

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Handle hoPrivDBEngine
	Get Create (RefClass(cComPrivDBEngine)) to hoPrivDBEngine // Import the 'Microsoft Office 12.0 Access database engine Object Library' library
		Variant voDatabase
		Get ComOpenDatabase of hoPrivDBEngine "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb" Nothing Nothing Nothing to voDatabase
		Handle hoDatabase
		Get Create (RefClass(cComDatabase)) to hoDatabase
		Set pvComObject of hoDatabase to voDatabase
			Variant rsEmployees
			Get ComOpenRecordset of hoDatabase "Employees" Nothing Nothing Nothing to rsEmployees
			Variant rsTasks
			Get ComOpenRecordset of hoDatabase "EmployeeDetails" Nothing Nothing Nothing to rsTasks
			Variant rsLinks
			Get ComOpenRecordset of hoDatabase "EmployeeLinks" Nothing Nothing Nothing to rsLinks
		Send Destroy to hoDatabase
	Send Destroy to hoPrivDBEngine
	Set ComDataSource "Items" to rsEmployees
	Set ComDataMember "Items" to "Employees"
	Set ComDataField OLEexItemsDataSource to "Items"
	Set ComDataField OLEexItemsID to "EmployeeID"
	Set ComDataField OLEexItemsParentID to "ReportsTo"
	Set ComDataSource "Tasks" to rsTasks
	Set ComDataField OLEexTasksDataSource to "Tasks"
	Set ComDataField OLEexTasksItemID to "EmployeeID"
	Set ComDataField OLEexTasksStart to "DateStart"
	Set ComDataField OLEexTasksEnd to "DateEnd"
	Set ComDataField OLEexTasksID to "TaskID"
	Set ComDataSource "Links" to rsLinks
	Set ComDataField OLEexLinksDataSource to "Links"
	Set ComDataField OLEexLinksStart to "Start"
	Set ComDataField OLEexLinksEnd to "End"
	Variant voG2antt
	Get ComHost to voG2antt
	Handle hoG2antt
	Get Create (RefClass(cComG2antt)) to hoG2antt
	Set pvComObject of hoG2antt to voG2antt
		Variant voChart
		Get ComChart of hoG2antt to voChart
		Handle hoChart
		Get Create (RefClass(cComChart)) to hoChart
		Set pvComObject of hoChart to voChart
			Variant voBars
			Get ComBars of hoChart to voBars
			Handle hoBars
			Get Create (RefClass(cComBars)) to hoBars
			Set pvComObject of hoBars to voBars
				Variant voBar
				Get ComItem of hoBars "Task" to voBar
				Handle hoBar
				Get Create (RefClass(cComBar)) to hoBar
				Set pvComObject of hoBar to voBar
					Variant voBar1
					Get ComItem of hoBar "Task" to voBar1
					Handle hoBar1
					Get Create (RefClass(cComBar)) to hoBar1
					Set pvComObject of hoBar1 to voBar1
						Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
						Set ComOverlaidGroup of hoBar1 to "Task,Progress"
					Send Destroy to hoBar1
				Send Destroy to hoBar
			Send Destroy to hoBars
		Send Destroy to hoChart
	Send Destroy to hoG2antt
	Variant voG2antt1
	Get ComHost to voG2antt1
	Handle hoG2antt1
	Get Create (RefClass(cComG2antt)) to hoG2antt1
	Set pvComObject of hoG2antt1 to voG2antt1
		Variant voItems
		Get ComItems of hoG2antt1 to voItems
		Handle hoItems
		Get Create (RefClass(cComItems)) to hoItems
		Set pvComObject of hoItems to voItems
			Set ComExpandItem of hoItems 0 to True
		Send Destroy to hoItems
	Send Destroy to hoG2antt1
	Variant voG2antt2
	Get ComHost to voG2antt2
	Handle hoG2antt2
	Get Create (RefClass(cComG2antt)) to hoG2antt2
	Set pvComObject of hoG2antt2 to voG2antt2
		Variant voChart1
		Get ComChart of hoG2antt2 to voChart1
		Handle hoChart1
		Get Create (RefClass(cComChart)) to hoChart1
		Set pvComObject of hoChart1 to voChart1
			Send ComScrollTo of hoChart1 "5/27/2017" 1
		Send Destroy to hoChart1
	Send Destroy to hoG2antt2
End_Procedure
18:
DAO sample ( file, multiple tasks, multiple tables )

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDataTechnology "Items" to "DAO.DBEngine.120;DAO.DBEngine.36"
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
	Set ComDataMember "Items" to "Employees"
	Set ComDataField OLEexItemsDataSource to "Items"
	Set ComDataField OLEexItemsID to "EmployeeID"
	Set ComDataField OLEexItemsParentID to "ReportsTo"
	Set ComDataTechnology "Tasks" to "DAO.DBEngine.120;DAO.DBEngine.36"
	Set ComDataSource "Tasks" to (ComDataSource(Self,"Items"))
	Set ComDataMember "Tasks" to "EmployeeDetails"
	Set ComDataField OLEexTasksDataSource to "Tasks"
	Set ComDataField OLEexTasksItemID to "EmployeeID"
	Set ComDataField OLEexTasksStart to "DateStart"
	Set ComDataField OLEexTasksEnd to "DateEnd"
	Set ComDataField OLEexTasksID to "TaskID"
	Set ComDataTechnology "Links" to "DAO.DBEngine.120;DAO.DBEngine.36"
	Set ComDataSource "Links" to (ComDataSource(Self,"Items"))
	Set ComDataMember "Links" to "EmployeeLinks"
	Set ComDataField OLEexLinksDataSource to "Links"
	Set ComDataField OLEexLinksStart to "Start"
	Set ComDataField OLEexLinksEnd to "End"
	Variant voG2antt
	Get ComHost to voG2antt
	Handle hoG2antt
	Get Create (RefClass(cComG2antt)) to hoG2antt
	Set pvComObject of hoG2antt to voG2antt
		Variant voChart
		Get ComChart of hoG2antt to voChart
		Handle hoChart
		Get Create (RefClass(cComChart)) to hoChart
		Set pvComObject of hoChart to voChart
			Variant voBars
			Get ComBars of hoChart to voBars
			Handle hoBars
			Get Create (RefClass(cComBars)) to hoBars
			Set pvComObject of hoBars to voBars
				Variant voBar
				Get ComItem of hoBars "Task" to voBar
				Handle hoBar
				Get Create (RefClass(cComBar)) to hoBar
				Set pvComObject of hoBar to voBar
					Variant voBar1
					Get ComItem of hoBar "Task" to voBar1
					Handle hoBar1
					Get Create (RefClass(cComBar)) to hoBar1
					Set pvComObject of hoBar1 to voBar1
						Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
						Set ComOverlaidGroup of hoBar1 to "Task,Progress"
					Send Destroy to hoBar1
				Send Destroy to hoBar
			Send Destroy to hoBars
		Send Destroy to hoChart
	Send Destroy to hoG2antt
	Variant voG2antt1
	Get ComHost to voG2antt1
	Handle hoG2antt1
	Get Create (RefClass(cComG2antt)) to hoG2antt1
	Set pvComObject of hoG2antt1 to voG2antt1
		Variant voItems
		Get ComItems of hoG2antt1 to voItems
		Handle hoItems
		Get Create (RefClass(cComItems)) to hoItems
		Set pvComObject of hoItems to voItems
			Set ComExpandItem of hoItems 0 to True
		Send Destroy to hoItems
	Send Destroy to hoG2antt1
	Variant voG2antt2
	Get ComHost to voG2antt2
	Handle hoG2antt2
	Get Create (RefClass(cComG2antt)) to hoG2antt2
	Set pvComObject of hoG2antt2 to voG2antt2
		Variant voChart1
		Get ComChart of hoG2antt2 to voChart1
		Handle hoChart1
		Get Create (RefClass(cComChart)) to hoChart1
		Set pvComObject of hoChart1 to voChart1
			Send ComScrollTo of hoChart1 "5/27/2017" 1
		Send Destroy to hoChart1
	Send Destroy to hoG2antt2
End_Procedure
17:
DAO sample ( object, DAO.DBEngine.120, single task, single table )

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Handle hoPrivDBEngine
	Get Create (RefClass(cComPrivDBEngine)) to hoPrivDBEngine // Import the 'Microsoft Office 12.0 Access database engine Object Library' library
		Variant voDatabase
		Get ComOpenDatabase of hoPrivDBEngine "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb" Nothing Nothing Nothing to voDatabase
		Handle hoDatabase
		Get Create (RefClass(cComDatabase)) to hoDatabase
		Set pvComObject of hoDatabase to voDatabase
			Variant rsEmployees
			Get ComOpenRecordset of hoDatabase "Employees" Nothing Nothing Nothing to rsEmployees
			Variant rsLinks
			Get ComOpenRecordset of hoDatabase "EmployeeLinks" Nothing Nothing Nothing to rsLinks
		Send Destroy to hoDatabase
	Send Destroy to hoPrivDBEngine
	Set ComDataSource "Items" to rsEmployees
	Set ComDataField OLEexItemsDataSource to "Items"
	Set ComDataField OLEexItemsID to "EmployeeID"
	Set ComDataField OLEexItemsParentID to "ReportsTo"
	Set ComDataField OLEexTasksDataSource to (ComDataField(Self,OLEexItemsDataSource))
	Set ComDataField OLEexTasksStart to "BirthDate"
	Set ComDataField OLEexTasksEnd to "HireDate"
	Set ComDataSource "Links" to rsLinks
	Set ComDataField OLEexLinksDataSource to "Links"
	Set ComDataField OLEexLinksStart to "Start"
	Set ComDataField OLEexLinksEnd to "End"
End_Procedure
16:
DAO sample ( file, single task, single table )

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDataTechnology "Items" to "DAO.DBEngine.120;DAO.DBEngine.36"
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
	Set ComDataMember "Items" to "Employees"
	Set ComDataField OLEexItemsDataSource to "Items"
	Set ComDataField OLEexItemsID to "EmployeeID"
	Set ComDataField OLEexItemsParentID to "ReportsTo"
	Set ComDataField OLEexTasksDataSource to (ComDataField(Self,OLEexItemsDataSource))
	Set ComDataField OLEexTasksStart to "BirthDate"
	Set ComDataField OLEexTasksEnd to "HireDate"
	Set ComDataTechnology "Links" to "DAO.DBEngine.120;DAO.DBEngine.36"
	Set ComDataSource "Links" to (ComDataSource(Self,"Items"))
	Set ComDataMember "Links" to "EmployeeLinks"
	Set ComDataField OLEexLinksDataSource to "Links"
	Set ComDataField OLEexLinksStart to "Start"
	Set ComDataField OLEexLinksEnd to "End"
End_Procedure
15:
DAO sample ( tree recordset )

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDataTechnology "Items" to "DAO.DBEngine.120;DAO.DBEngine.36"
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
	Set ComDataMember "Items" to "Employees"
	Set ComDataField OLEexItemsDataSource to "Items"
	Set ComDataField OLEexItemsID to "EmployeeID"
	Set ComDataField OLEexItemsParentID to "ReportsTo"
End_Procedure
14:
DAO sample ( flat recordset )

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Handle hoPrivDBEngine
	Get Create (RefClass(cComPrivDBEngine)) to hoPrivDBEngine // Import the 'Microsoft Office 12.0 Access database engine Object Library' library
		Variant voDatabase
		Get ComOpenDatabase of hoPrivDBEngine "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb" Nothing Nothing Nothing to voDatabase
		Handle hoDatabase
		Get Create (RefClass(cComDatabase)) to hoDatabase
		Set pvComObject of hoDatabase to voDatabase
			Variant rsEmployees
			Get ComOpenRecordset of hoDatabase "Employees" Nothing Nothing Nothing to rsEmployees
		Send Destroy to hoDatabase
	Send Destroy to hoPrivDBEngine
	Set ComDataSource "Items" to rsEmployees
	Set ComDataField OLEexItemsDataSource to "Items"
End_Procedure
13:
DAO sample ( flat )

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDataTechnology "Items" to "DAO.DBEngine.120;DAO.DBEngine.36"
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
	Set ComDataMember "Items" to "Employees"
	Set ComDataField OLEexItemsDataSource to "Items"
End_Procedure
12:
ADO sample ( object, ADODB.Recordset, multiple tasks )

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant rsEmployees
	Get Comcreateobject "ADODB.Recordset" to rsEmployees
		Send ComOpen "Employees" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
	Set ComDataSource "Items" to rsEmployees
	Set ComDataField OLEexItemsDataSource to "Items"
	Set ComDataField OLEexItemsID to "EmployeeID"
	Set ComDataField OLEexItemsParentID to "ReportsTo"
	Variant rsTasks
	Get Comcreateobject "ADODB.Recordset" to rsTasks
		Send ComOpen "EmployeeDetails" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
	Set ComDataSource "Tasks" to rstasks
	Set ComDataField OLEexTasksDataSource to "Tasks"
	Set ComDataField OLEexTasksItemID to "EmployeeID"
	Set ComDataField OLEexTasksStart to "DateStart"
	Set ComDataField OLEexTasksEnd to "DateEnd"
	Set ComDataField OLEexTasksID to "TaskID"
	Variant rsLinks
	Get Comcreateobject "ADODB.Recordset" to rsLinks
		Send ComOpen "EmployeeLinks" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
	Set ComDataSource "Links" to rsLinks
	Set ComDataField OLEexLinksDataSource to "Links"
	Set ComDataField OLEexLinksStart to "Start"
	Set ComDataField OLEexLinksEnd to "End"
	Variant voG2antt
	Get ComHost to voG2antt
	Handle hoG2antt
	Get Create (RefClass(cComG2antt)) to hoG2antt
	Set pvComObject of hoG2antt to voG2antt
		Variant voChart
		Get ComChart of hoG2antt to voChart
		Handle hoChart
		Get Create (RefClass(cComChart)) to hoChart
		Set pvComObject of hoChart to voChart
			Variant voBars
			Get ComBars of hoChart to voBars
			Handle hoBars
			Get Create (RefClass(cComBars)) to hoBars
			Set pvComObject of hoBars to voBars
				Variant voBar
				Get ComItem of hoBars "Task" to voBar
				Handle hoBar
				Get Create (RefClass(cComBar)) to hoBar
				Set pvComObject of hoBar to voBar
					Variant voBar1
					Get ComItem of hoBar "Task" to voBar1
					Handle hoBar1
					Get Create (RefClass(cComBar)) to hoBar1
					Set pvComObject of hoBar1 to voBar1
						Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
						Set ComOverlaidGroup of hoBar1 to "Task,Progress"
					Send Destroy to hoBar1
				Send Destroy to hoBar
			Send Destroy to hoBars
		Send Destroy to hoChart
	Send Destroy to hoG2antt
	Variant voG2antt1
	Get ComHost to voG2antt1
	Handle hoG2antt1
	Get Create (RefClass(cComG2antt)) to hoG2antt1
	Set pvComObject of hoG2antt1 to voG2antt1
		Variant voItems
		Get ComItems of hoG2antt1 to voItems
		Handle hoItems
		Get Create (RefClass(cComItems)) to hoItems
		Set pvComObject of hoItems to voItems
			Set ComExpandItem of hoItems 0 to True
		Send Destroy to hoItems
	Send Destroy to hoG2antt1
	Variant voG2antt2
	Get ComHost to voG2antt2
	Handle hoG2antt2
	Get Create (RefClass(cComG2antt)) to hoG2antt2
	Set pvComObject of hoG2antt2 to voG2antt2
		Variant voChart1
		Get ComChart of hoG2antt2 to voChart1
		Handle hoChart1
		Get Create (RefClass(cComChart)) to hoChart1
		Set pvComObject of hoChart1 to voChart1
			Send ComScrollTo of hoChart1 "5/27/2017" 1
		Send Destroy to hoChart1
	Send Destroy to hoG2antt2
End_Procedure
11:
ADO sample ( file, multiple tasks, multiple tables )

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDataTechnology "Items" to "ADODB.Recordset;ADOR.Recordset"
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
	Set ComDataMember "Items" to "Employees"
	Set ComDataField OLEexItemsDataSource to "Items"
	Set ComDataField OLEexItemsID to "EmployeeID"
	Set ComDataField OLEexItemsParentID to "ReportsTo"
	Set ComDataTechnology "Tasks" to "ADODB.Recordset;ADOR.Recordset"
	Set ComDataSource "Tasks" to (ComDataSource(Self,"Items"))
	Set ComDataMember "Tasks" to "EmployeeDetails"
	Set ComDataField OLEexTasksDataSource to "Tasks"
	Set ComDataField OLEexTasksItemID to "EmployeeID"
	Set ComDataField OLEexTasksStart to "DateStart"
	Set ComDataField OLEexTasksEnd to "DateEnd"
	Set ComDataField OLEexTasksID to "TaskID"
	Set ComDataTechnology "Links" to "ADODB.Recordset;ADOR.Recordset"
	Set ComDataSource "Links" to (ComDataSource(Self,"Items"))
	Set ComDataMember "Links" to "EmployeeLinks"
	Set ComDataField OLEexLinksDataSource to "Links"
	Set ComDataField OLEexLinksStart to "Start"
	Set ComDataField OLEexLinksEnd to "End"
	Variant voG2antt
	Get ComHost to voG2antt
	Handle hoG2antt
	Get Create (RefClass(cComG2antt)) to hoG2antt
	Set pvComObject of hoG2antt to voG2antt
		Variant voChart
		Get ComChart of hoG2antt to voChart
		Handle hoChart
		Get Create (RefClass(cComChart)) to hoChart
		Set pvComObject of hoChart to voChart
			Variant voBars
			Get ComBars of hoChart to voBars
			Handle hoBars
			Get Create (RefClass(cComBars)) to hoBars
			Set pvComObject of hoBars to voBars
				Variant voBar
				Get ComItem of hoBars "Task" to voBar
				Handle hoBar
				Get Create (RefClass(cComBar)) to hoBar
				Set pvComObject of hoBar to voBar
					Variant voBar1
					Get ComItem of hoBar "Task" to voBar1
					Handle hoBar1
					Get Create (RefClass(cComBar)) to hoBar1
					Set pvComObject of hoBar1 to voBar1
						Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
						Set ComOverlaidGroup of hoBar1 to "Task,Progress"
					Send Destroy to hoBar1
				Send Destroy to hoBar
			Send Destroy to hoBars
		Send Destroy to hoChart
	Send Destroy to hoG2antt
	Variant voG2antt1
	Get ComHost to voG2antt1
	Handle hoG2antt1
	Get Create (RefClass(cComG2antt)) to hoG2antt1
	Set pvComObject of hoG2antt1 to voG2antt1
		Variant voItems
		Get ComItems of hoG2antt1 to voItems
		Handle hoItems
		Get Create (RefClass(cComItems)) to hoItems
		Set pvComObject of hoItems to voItems
			Set ComExpandItem of hoItems 0 to True
		Send Destroy to hoItems
	Send Destroy to hoG2antt1
	Variant voG2antt2
	Get ComHost to voG2antt2
	Handle hoG2antt2
	Get Create (RefClass(cComG2antt)) to hoG2antt2
	Set pvComObject of hoG2antt2 to voG2antt2
		Variant voChart1
		Get ComChart of hoG2antt2 to voChart1
		Handle hoChart1
		Get Create (RefClass(cComChart)) to hoChart1
		Set pvComObject of hoChart1 to voChart1
			Send ComScrollTo of hoChart1 "5/27/2017" 1
		Send Destroy to hoChart1
	Send Destroy to hoG2antt2
End_Procedure
10:
ADO sample ( object, ADODB.Recordset, single task, single table )

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant rsEmployees
	Get Comcreateobject "ADODB.Recordset" to rsEmployees
		Send ComOpen "Employees" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
	Set ComDataSource "Items" to rsEmployees
	Set ComDataField OLEexItemsDataSource to "Items"
	Set ComDataField OLEexItemsID to "EmployeeID"
	Set ComDataField OLEexItemsParentID to "ReportsTo"
	Set ComDataField OLEexTasksDataSource to (ComDataField(Self,OLEexItemsDataSource))
	Set ComDataField OLEexTasksStart to "BirthDate"
	Set ComDataField OLEexTasksEnd to "HireDate"
	Variant rsLinks
	Get Comcreateobject "ADODB.Recordset" to rsLinks
		Send ComOpen "EmployeeLinks" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
	Set ComDataSource "Links" to rsLinks
	Set ComDataField OLEexLinksDataSource to "Links"
	Set ComDataField OLEexLinksStart to "Start"
	Set ComDataField OLEexLinksEnd to "End"
End_Procedure
9:
ADO sample ( file, single task, single table )

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDataTechnology "Items" to "ADODB.Recordset;ADOR.Recordset"
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
	Set ComDataMember "Items" to "Employees"
	Set ComDataField OLEexItemsDataSource to "Items"
	Set ComDataField OLEexItemsID to "EmployeeID"
	Set ComDataField OLEexItemsParentID to "ReportsTo"
	Set ComDataField OLEexTasksDataSource to (ComDataField(Self,OLEexItemsDataSource))
	Set ComDataField OLEexTasksStart to "BirthDate"
	Set ComDataField OLEexTasksEnd to "HireDate"
	Set ComDataTechnology "Links" to "ADODB.Recordset;ADOR.Recordset"
	Set ComDataSource "Links" to (ComDataSource(Self,"Items"))
	Set ComDataMember "Links" to "EmployeeLinks"
	Set ComDataField OLEexLinksDataSource to "Links"
	Set ComDataField OLEexLinksStart to "Start"
	Set ComDataField OLEexLinksEnd to "End"
End_Procedure
8:
ADO sample ( tree recordset )

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDataTechnology "Items" to "ADODB.Recordset;ADOR.Recordset"
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
	Set ComDataMember "Items" to "Employees"
	Set ComDataField OLEexItemsDataSource to "Items"
	Set ComDataField OLEexItemsID to "EmployeeID"
	Set ComDataField OLEexItemsParentID to "ReportsTo"
End_Procedure
7:
ADO sample ( flat recordset )

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant rsEmployees
	Get Comcreateobject "ADODB.Recordset" to rsEmployees
		Send ComOpen "Employees" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
	Set ComDataSource "Items" to rsEmployees
	Set ComDataField OLEexItemsDataSource to "Items"
End_Procedure
6:
ADO sample ( flat table )

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDataTechnology "Items" to "ADODB.Recordset;ADOR.Recordset"
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.accdb"
	Set ComDataMember "Items" to "Employees"
	Set ComDataField OLEexItemsDataSource to "Items"
End_Procedure
5:
XML sample ( object, MSXML.DOMDocument )

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant xml
	Get Comcreateobject "MSXML.DOMDocument" to xml
		Set Comasync to False
		Get Comload "C:\Program Files\Exontrol\ExG2Host\Sample\sample.xml" to Nothing
	Set ComDataSource "Items" to xml
	Set ComDataField OLEexItemsDataSource to "Items"
	Variant voG2antt
	Get ComHost to voG2antt
	Handle hoG2antt
	Get Create (RefClass(cComG2antt)) to hoG2antt
	Set pvComObject of hoG2antt to voG2antt
		Set ComLinesAtRoot of hoG2antt to OLEexLinesAtRoot
		Set ComSingleSel of hoG2antt to False
		Set ComAutoDrag of hoG2antt to OLEexAutoDragPositionAny
	Send Destroy to hoG2antt
End_Procedure
4:
XML sample ( file tree )

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComDataTechnology "Items" to "MSXML.DOMDocument"
	Set ComDataSource "Items" to "C:\Program Files\Exontrol\ExG2Host\Sample\sample.xml"
	Set ComDataField OLEexItemsDataSource to "Items"
	Variant voG2antt
	Get ComHost to voG2antt
	Handle hoG2antt
	Get Create (RefClass(cComG2antt)) to hoG2antt
	Set pvComObject of hoG2antt to voG2antt
		Set ComLinesAtRoot of hoG2antt to OLEexLinesAtRoot
		Set ComSingleSel of hoG2antt to False
		Set ComAutoDrag of hoG2antt to OLEexAutoDragPositionAny
	Send Destroy to hoG2antt
End_Procedure
3:
How can I let user create new items/bars when clicking the empty area of the control
// Notifies the application once the host fires an event.
Procedure OnComHostEvent OLEHostEventEnum   llEventID
	Forward Send OnComHostEvent llEventID
	Showln (ComHostEventParam(Self,-2))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComHostReadOnly to (OLEexHostReadWrite + OLEexHostAllowAddEmptyItem)
	Variant voG2antt
	Get ComHost to voG2antt
	Handle hoG2antt
	Get Create (RefClass(cComG2antt)) to hoG2antt
	Set pvComObject of hoG2antt to voG2antt
		Set ComScrollBars of hoG2antt to (|CI$800 + OLEexDisableNoVertical)
		Variant voChart
		Get ComChart of hoG2antt to voChart
		Handle hoChart
		Get Create (RefClass(cComChart)) to hoChart
		Set pvComObject of hoChart to voChart
			Set ComPaneWidth of hoChart False to 128
			Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
		Send Destroy to hoChart
	Send Destroy to hoG2antt
End_Procedure
2:
How do I handle events of the host

// Notifies the application once the host fires an event.
Procedure OnComHostEvent OLEHostEventEnum   llEventID
	Forward Send OnComHostEvent llEventID
	Showln (ComHostEventParam(Self,-2))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voG2antt
	Get ComHost to voG2antt
	Handle hoG2antt
	Get Create (RefClass(cComG2antt)) to hoG2antt
	Set pvComObject of hoG2antt to voG2antt
		Send ComBeginUpdate of hoG2antt
		Variant voColumns
		Get ComColumns of hoG2antt to voColumns
		Handle hoColumns
		Get Create (RefClass(cComColumns)) to hoColumns
		Set pvComObject of hoColumns to voColumns
			Get ComAdd of hoColumns "new column" to Nothing
		Send Destroy to hoColumns
		Send ComEndUpdate of hoG2antt
	Send Destroy to hoG2antt
End_Procedure
1:
How can I get the version of the host/exg2antt control

Procedure OnCreate
	Forward Send OnCreate
	Showln (ComVersion(Self))
	Variant v
	Variant voG2antt
	Get ComHost to voG2antt
	Handle hoG2antt
	Get Create (RefClass(cComG2antt)) to hoG2antt
	Set pvComObject of hoG2antt to voG2antt
		Get ComVersion of hoG2antt to v
	Send Destroy to hoG2antt
	Showln "Host" v
End_Procedure