53:
I am using the reserve-neighbors feature, the question is how to shift left/right the neighbors instead of up/down
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAllowMoveNeighbors to OLEexMoveNeighborsHorizontally
	Set ComDefArrange OLEexDefArrangeDir to 1
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Get ComAdd of hoElements "Element <sha ;;0>A" Nothing Nothing to Nothing
		Get ComAdd of hoElements "Element <sha ;;0>B ( move it )" 16 32 to Nothing
		Get ComAdd of hoElements "Element <sha ;;0>C" 128 0 to Nothing
	Send Destroy to hoElements
	Send ComEndUpdate
End_Procedure
52:
I am using the reserve-neighbors feature, the question is if possible to specify the distance between neighbors
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAllowMoveNeighbors to OLEexMoveNeighborsVertically
	Set ComDefArrange OLEexDefArrangeDX to 0
	Set ComDefArrange OLEexDefArrangeDY to 0
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Get ComAdd of hoElements "Element <sha ;;0>A" Nothing Nothing to Nothing
		Get ComAdd of hoElements "Element <sha ;;0>B ( move it )" 0 32 to Nothing
		Get ComAdd of hoElements "Element <sha ;;0>C" 0 64 to Nothing
	Send Destroy to hoElements
	Send ComEndUpdate
End_Procedure
51:
How do I enable the reserve-neighbors feature
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAllowMoveNeighbors to OLEexMoveNeighborsVertically
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Get ComAdd of hoElements "Element <sha ;;0>A" Nothing Nothing to Nothing
		Get ComAdd of hoElements "Element <sha ;;0>B ( move it )" 0 32 to Nothing
		Get ComAdd of hoElements "Element <sha ;;0>C" 0 64 to Nothing
	Send Destroy to hoElements
	Send ComEndUpdate
End_Procedure
50:
I've noticed that recently, the elements get compacted once the Arrange method is performed. How can I prevent that

Procedure OnCreate
	Forward Send OnCreate
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Variant voElement
		Get ComAdd of hoElements "Element A" Nothing Nothing to voElement
		Handle hoElement
		Get Create (RefClass(cComElement)) to hoElement
		Set pvComObject of hoElement to voElement
			Set ComID of hoElement to "A"
		Send Destroy to hoElement
		Variant voElement1
		Get ComAdd of hoElements "Element B" Nothing Nothing to voElement1
		Handle hoElement1
		Get Create (RefClass(cComElement)) to hoElement1
		Set pvComObject of hoElement1 to voElement1
			Set ComID of hoElement1 to "B"
		Send Destroy to hoElement1
		Variant voElement2
		Get ComAdd of hoElements "Element C" Nothing Nothing to voElement2
		Handle hoElement2
		Get Create (RefClass(cComElement)) to hoElement2
		Set pvComObject of hoElement2 to voElement2
			Set ComID of hoElement2 to "C"
		Send Destroy to hoElement2
		Variant voElement3
		Get ComAdd of hoElements "Element D" Nothing Nothing to voElement3
		Handle hoElement3
		Get Create (RefClass(cComElement)) to hoElement3
		Set pvComObject of hoElement3 to voElement3
			Set ComID of hoElement3 to "D"
		Send Destroy to hoElement3
		Variant voElement4
		Get ComAdd of hoElements "Element E" Nothing Nothing to voElement4
		Handle hoElement4
		Get Create (RefClass(cComElement)) to hoElement4
		Set pvComObject of hoElement4 to voElement4
			Set ComID of hoElement4 to "E"
		Send Destroy to hoElement4
		Variant voElement5
		Get ComAdd of hoElements "Element E" Nothing Nothing to voElement5
		Handle hoElement5
		Get Create (RefClass(cComElement)) to hoElement5
		Set pvComObject of hoElement5 to voElement5
			Set ComID of hoElement5 to "F"
		Send Destroy to hoElement5
	Send Destroy to hoElements
	Variant voLinks
	Get ComLinks to voLinks
	Handle hoLinks
	Get Create (RefClass(cComLinks)) to hoLinks
	Set pvComObject of hoLinks to voLinks
		Variant vFrom
			Variant voElements1
			Get ComElements to voElements1
			Handle hoElements1
			Get Create (RefClass(cComElements)) to hoElements1
			Set pvComObject of hoElements1 to voElements1
				Get Comitem of hoElements1 "A" to vFrom
			Send Destroy to hoElements1
Variant vTo
			Variant voElements2
			Get ComElements to voElements2
			Handle hoElements2
			Get Create (RefClass(cComElements)) to hoElements2
			Set pvComObject of hoElements2 to voElements2
				Get Comitem of hoElements2 "B" to vTo
			Send Destroy to hoElements2
		Get ComAdd of hoLinks vFrom vTo Nothing to Nothing
		Variant vFrom1
			Variant voElements3
			Get ComElements to voElements3
			Handle hoElements3
			Get Create (RefClass(cComElements)) to hoElements3
			Set pvComObject of hoElements3 to voElements3
				Get Comitem of hoElements3 "A" to vFrom1
			Send Destroy to hoElements3
Variant vTo1
			Variant voElements4
			Get ComElements to voElements4
			Handle hoElements4
			Get Create (RefClass(cComElements)) to hoElements4
			Set pvComObject of hoElements4 to voElements4
				Get Comitem of hoElements4 "C" to vTo1
			Send Destroy to hoElements4
		Get ComAdd of hoLinks vFrom1 vTo1 Nothing to Nothing
		Variant vFrom2
			Variant voElements5
			Get ComElements to voElements5
			Handle hoElements5
			Get Create (RefClass(cComElements)) to hoElements5
			Set pvComObject of hoElements5 to voElements5
				Get Comitem of hoElements5 "B" to vFrom2
			Send Destroy to hoElements5
Variant vTo2
			Variant voElements6
			Get ComElements to voElements6
			Handle hoElements6
			Get Create (RefClass(cComElements)) to hoElements6
			Set pvComObject of hoElements6 to voElements6
				Get Comitem of hoElements6 "D" to vTo2
			Send Destroy to hoElements6
		Get ComAdd of hoLinks vFrom2 vTo2 Nothing to Nothing
		Variant vFrom3
			Variant voElements7
			Get ComElements to voElements7
			Handle hoElements7
			Get Create (RefClass(cComElements)) to hoElements7
			Set pvComObject of hoElements7 to voElements7
				Get Comitem of hoElements7 "B" to vFrom3
			Send Destroy to hoElements7
Variant vTo3
			Variant voElements8
			Get ComElements to voElements8
			Handle hoElements8
			Get Create (RefClass(cComElements)) to hoElements8
			Set pvComObject of hoElements8 to voElements8
				Get Comitem of hoElements8 "C" to vTo3
			Send Destroy to hoElements8
		Get ComAdd of hoLinks vFrom3 vTo3 Nothing to Nothing
		Variant vFrom4
			Variant voElements9
			Get ComElements to voElements9
			Handle hoElements9
			Get Create (RefClass(cComElements)) to hoElements9
			Set pvComObject of hoElements9 to voElements9
				Get Comitem of hoElements9 "A" to vFrom4
			Send Destroy to hoElements9
Variant vTo4
			Variant voElements10
			Get ComElements to voElements10
			Handle hoElements10
			Get Create (RefClass(cComElements)) to hoElements10
			Set pvComObject of hoElements10 to voElements10
				Get Comitem of hoElements10 "E" to vTo4
			Send Destroy to hoElements10
		Get ComAdd of hoLinks vFrom4 vTo4 Nothing to Nothing
		Variant vFrom5
			Variant voElements11
			Get ComElements to voElements11
			Handle hoElements11
			Get Create (RefClass(cComElements)) to hoElements11
			Set pvComObject of hoElements11 to voElements11
				Get Comitem of hoElements11 "A" to vFrom5
			Send Destroy to hoElements11
Variant vTo5
			Variant voElements12
			Get ComElements to voElements12
			Handle hoElements12
			Get Create (RefClass(cComElements)) to hoElements12
			Set pvComObject of hoElements12 to voElements12
				Get Comitem of hoElements12 "F" to vTo5
			Send Destroy to hoElements12
		Get ComAdd of hoLinks vFrom5 vTo5 Nothing to Nothing
	Send Destroy to hoLinks
	Set ComDefArrange OLEexDefArrangeCompact to False
	Send ComArrange Nothing
End_Procedure
49:
How can I move an element to a specified lane/phase/pool

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefPoolHeaderCaptionFormat True to "<fgcolor 808080>Faza <off -4><b><font ;6>%i"
	Set ComDefPoolHeaderCaptionFormat False to "<fgcolor 808080>Culoar <off -4><b><font ;6>%i"
	Variant voPools
	Get ComPools to voPools
	Handle hoPools
	Get Create (RefClass(cComPools)) to hoPools
	Set pvComObject of hoPools to voPools
		Variant voPool
		Get ComAdd of hoPools -100 -100 250 180 to voPool
		Handle hoPool
		Get Create (RefClass(cComPool)) to hoPool
		Set pvComObject of hoPool to voPool
			Variant voLane
			Get ComLane of hoPool OLEexLaneHorizontal to voLane
			Handle hoLane
			Get Create (RefClass(cComLane)) to hoLane
			Set pvComObject of hoLane to voLane
				Variant voLanes
				Get ComChildren of hoLane to voLanes
				Handle hoLanes
				Get Create (RefClass(cComLanes)) to hoLanes
				Set pvComObject of hoLanes to voLanes
					Set ComCount of hoLanes to 3
				Send Destroy to hoLanes
			Send Destroy to hoLane
			Variant voLane1
			Get ComLane of hoPool OLEexLaneVertical to voLane1
			Handle hoLane1
			Get Create (RefClass(cComLane)) to hoLane1
			Set pvComObject of hoLane1 to voLane1
				Variant voLanes1
				Get ComChildren of hoLane1 to voLanes1
				Handle hoLanes1
				Get Create (RefClass(cComLanes)) to hoLanes1
				Set pvComObject of hoLanes1 to voLanes1
					Set ComCount of hoLanes1 to 3
				Send Destroy to hoLanes1
			Send Destroy to hoLane1
			Variant voLane2
			Get ComLane of hoPool OLEexLaneVertical to voLane2
			Handle hoLane2
			Get Create (RefClass(cComLane)) to hoLane2
			Set pvComObject of hoLane2 to voLane2
				Variant voLanes2
				Get ComChildren of hoLane2 to voLanes2
				Handle hoLanes2
				Get Create (RefClass(cComLanes)) to hoLanes2
				Set pvComObject of hoLanes2 to voLanes2
					Variant voLane3
					Get Comitem of hoLanes2 1 to voLane3
					Handle hoLane3
					Get Create (RefClass(cComLane)) to hoLane3
					Set pvComObject of hoLane3 to voLane3
						Variant voHeaderLane
						Get ComHeader of hoLane3 to voHeaderLane
						Handle hoHeaderLane
						Get Create (RefClass(cComHeaderLane)) to hoHeaderLane
						Set pvComObject of hoHeaderLane to voHeaderLane
							Set ComCaption of hoHeaderLane to "<fgcolor FF0000><b>NEW"
						Send Destroy to hoHeaderLane
					Send Destroy to hoLane3
				Send Destroy to hoLanes2
			Send Destroy to hoLane2
		Send Destroy to hoPool
	Send Destroy to hoPools
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Variant voElement
		Get ComAdd of hoElements "element 1" 200 200 to voElement
		Handle hoElement
		Get Create (RefClass(cComElement)) to hoElement
		Set pvComObject of hoElement to voElement
			Set ComLaneID of hoElement True to "0:H.0,0:V.0"
		Send Destroy to hoElement
	Send Destroy to hoElements
	Variant voElements1
	Get ComElements to voElements1
	Handle hoElements1
	Get Create (RefClass(cComElements)) to hoElements1
	Set pvComObject of hoElements1 to voElements1
		Variant voElement1
		Get ComAdd of hoElements1 "element 2" 200 200 to voElement1
		Handle hoElement1
		Get Create (RefClass(cComElement)) to hoElement1
		Set pvComObject of hoElement1 to voElement1
			Set ComLaneID of hoElement1 True to "0:H.2,0:V.2"
		Send Destroy to hoElement1
	Send Destroy to hoElements1
	Send ComEndUpdate
End_Procedure
48:
Is it possible to add a link to show from bottom/down to top/up, rather that right to left (method-2)

// A new link has been added to the links collection.
Procedure OnComAddLink Variant   llLink
	Forward Send OnComAddLink llLink
	Move to Link
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Get ComAdd of hoElements "Element <sha ;;0>A" Nothing Nothing to Nothing
		Get ComAdd of hoElements "Element <sha ;;0>B" 48 48 to Nothing
	Send Destroy to hoElements
	Variant voLinks
	Get ComLinks to voLinks
	Handle hoLinks
	Get Create (RefClass(cComLinks)) to hoLinks
	Set pvComObject of hoLinks to voLinks
		Variant vFrom
			Variant voElements1
			Get ComElements to voElements1
			Handle hoElements1
			Get Create (RefClass(cComElements)) to hoElements1
			Set pvComObject of hoElements1 to voElements1
				Get Comitem of hoElements1 1 to vFrom
			Send Destroy to hoElements1
Variant vTo
			Variant voElements2
			Get ComElements to voElements2
			Handle hoElements2
			Get Create (RefClass(cComElements)) to hoElements2
			Set pvComObject of hoElements2 to voElements2
				Get Comitem of hoElements2 2 to vTo
			Send Destroy to hoElements2
		Get ComAdd of hoLinks vFrom vTo Nothing to Nothing
	Send Destroy to hoLinks
End_Procedure
47:
Is it possible to add a link to show from bottom/down to top/up, rather that right to left (method-1)

Procedure OnCreate
	Forward Send OnCreate
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Get ComAdd of hoElements "Element <sha ;;0>A" Nothing Nothing to Nothing
		Get ComAdd of hoElements "Element <sha ;;0>B" 48 48 to Nothing
	Send Destroy to hoElements
	Variant voLinks
	Get ComLinks to voLinks
	Handle hoLinks
	Get Create (RefClass(cComLinks)) to hoLinks
	Set pvComObject of hoLinks to voLinks
Variant vFrom
			Variant voElements1
			Get ComElements to voElements1
			Handle hoElements1
			Get Create (RefClass(cComElements)) to hoElements1
			Set pvComObject of hoElements1 to voElements1
				Get Comitem of hoElements1 1 to vFrom
			Send Destroy to hoElements1
Variant vTo
			Variant voElements2
			Get ComElements to voElements2
			Handle hoElements2
			Get Create (RefClass(cComElements)) to hoElements2
			Set pvComObject of hoElements2 to voElements2
				Get Comitem of hoElements2 2 to vTo
			Send Destroy to hoElements2
				Variant voLink
		Get ComAdd of hoLinks vFrom vTo Nothing to voLink
		Handle hoLink
		Get Create (RefClass(cComLink)) to hoLink
		Set pvComObject of hoLink to voLink
			Set ComStartPos of hoLink to OLEDownAlignment
			Set ComEndPos of hoLink to OLEUpAlignment
		Send Destroy to hoLink
	Send Destroy to hoLinks
End_Procedure
46:
How do I enable the cross link support ( mixed )

Procedure OnCreate
	Forward Send OnCreate
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Get ComAdd of hoElements "Element <sha ;;0>A" Nothing Nothing to Nothing
		Get ComAdd of hoElements "Element <sha ;;0>B" 0 76 to Nothing
		Variant voElement
		Get ComAdd of hoElements "Element <sha ;;0>C" -76 32 to voElement
		Handle hoElement
		Get Create (RefClass(cComElement)) to hoElement
		Set pvComObject of hoElement to voElement
			Set ComAutoSize of hoElement to False
			Set ComHeight of hoElement to 32
		Send Destroy to hoElement
		Variant voElement1
		Get ComAdd of hoElements "Element <sha ;;0>D" 76 32 to voElement1
		Handle hoElement1
		Get Create (RefClass(cComElement)) to hoElement1
		Set pvComObject of hoElement1 to voElement1
			Set ComAutoSize of hoElement1 to False
			Set ComHeight of hoElement1 to 32
		Send Destroy to hoElement1
	Send Destroy to hoElements
	Variant voLinks
	Get ComLinks to voLinks
	Handle hoLinks
	Get Create (RefClass(cComLinks)) to hoLinks
	Set pvComObject of hoLinks to voLinks
Variant vFrom
			Variant voElements1
			Get ComElements to voElements1
			Handle hoElements1
			Get Create (RefClass(cComElements)) to hoElements1
			Set pvComObject of hoElements1 to voElements1
				Get Comitem of hoElements1 1 to vFrom
			Send Destroy to hoElements1
Variant vTo
			Variant voElements2
			Get ComElements to voElements2
			Handle hoElements2
			Get Create (RefClass(cComElements)) to hoElements2
			Set pvComObject of hoElements2 to voElements2
				Get Comitem of hoElements2 2 to vTo
			Send Destroy to hoElements2
				Variant voLink
		Get ComAdd of hoLinks vFrom vTo Nothing to voLink
		Handle hoLink
		Get Create (RefClass(cComLink)) to hoLink
		Set pvComObject of hoLink to voLink
			Set ComStartPos of hoLink to OLECenterAlignment
			Set ComEndPos of hoLink to OLECenterAlignment
		Send Destroy to hoLink
Variant vFrom1
			Variant voElements3
			Get ComElements to voElements3
			Handle hoElements3
			Get Create (RefClass(cComElements)) to hoElements3
			Set pvComObject of hoElements3 to voElements3
				Get Comitem of hoElements3 2 to vFrom1
			Send Destroy to hoElements3
Variant vTo1
			Variant voElements4
			Get ComElements to voElements4
			Handle hoElements4
			Get Create (RefClass(cComElements)) to hoElements4
			Set pvComObject of hoElements4 to voElements4
				Get Comitem of hoElements4 1 to vTo1
			Send Destroy to hoElements4
				Variant voLink1
		Get ComAdd of hoLinks vFrom1 vTo1 Nothing to voLink1
		Handle hoLink1
		Get Create (RefClass(cComLink)) to hoLink1
		Set pvComObject of hoLink1 to voLink1
			Set ComStartPos of hoLink1 to OLECenterAlignment
			Set ComEndPos of hoLink1 to OLECenterAlignment
		Send Destroy to hoLink1
		Variant vFrom2
			Variant voElements5
			Get ComElements to voElements5
			Handle hoElements5
			Get Create (RefClass(cComElements)) to hoElements5
			Set pvComObject of hoElements5 to voElements5
				Get Comitem of hoElements5 3 to vFrom2
			Send Destroy to hoElements5
Variant vTo2
			Variant voElements6
			Get ComElements to voElements6
			Handle hoElements6
			Get Create (RefClass(cComElements)) to hoElements6
			Set pvComObject of hoElements6 to voElements6
				Get Comitem of hoElements6 4 to vTo2
			Send Destroy to hoElements6
		Get ComAdd of hoLinks vFrom2 vTo2 Nothing to Nothing
Variant vFrom3
			Variant voElements7
			Get ComElements to voElements7
			Handle hoElements7
			Get Create (RefClass(cComElements)) to hoElements7
			Set pvComObject of hoElements7 to voElements7
				Get Comitem of hoElements7 4 to vFrom3
			Send Destroy to hoElements7
Variant vTo3
			Variant voElements8
			Get ComElements to voElements8
			Handle hoElements8
			Get Create (RefClass(cComElements)) to hoElements8
			Set pvComObject of hoElements8 to voElements8
				Get Comitem of hoElements8 3 to vTo3
			Send Destroy to hoElements8
				Variant voLink2
		Get ComAdd of hoLinks vFrom3 vTo3 Nothing to voLink2
		Handle hoLink2
		Get Create (RefClass(cComLink)) to hoLink2
		Set pvComObject of hoLink2 to voLink2
			Set ComStartPos of hoLink2 to OLELeftAlignment
			Set ComEndPos of hoLink2 to OLERightAlignment
		Send Destroy to hoLink2
	Send Destroy to hoLinks
	Set ComShowLinks to (OLEexShowCrossLinksMixt + OLEexShowExtendedLinks)
End_Procedure
45:
How do I enable the cross link support ( triangular )

Procedure OnCreate
	Forward Send OnCreate
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Get ComAdd of hoElements "Element <sha ;;0>A" Nothing Nothing to Nothing
		Get ComAdd of hoElements "Element <sha ;;0>B" 0 76 to Nothing
		Variant voElement
		Get ComAdd of hoElements "Element <sha ;;0>C" -76 32 to voElement
		Handle hoElement
		Get Create (RefClass(cComElement)) to hoElement
		Set pvComObject of hoElement to voElement
			Set ComAutoSize of hoElement to False
			Set ComHeight of hoElement to 32
		Send Destroy to hoElement
		Variant voElement1
		Get ComAdd of hoElements "Element <sha ;;0>D" 76 32 to voElement1
		Handle hoElement1
		Get Create (RefClass(cComElement)) to hoElement1
		Set pvComObject of hoElement1 to voElement1
			Set ComAutoSize of hoElement1 to False
			Set ComHeight of hoElement1 to 32
		Send Destroy to hoElement1
	Send Destroy to hoElements
	Variant voLinks
	Get ComLinks to voLinks
	Handle hoLinks
	Get Create (RefClass(cComLinks)) to hoLinks
	Set pvComObject of hoLinks to voLinks
Variant vFrom
			Variant voElements1
			Get ComElements to voElements1
			Handle hoElements1
			Get Create (RefClass(cComElements)) to hoElements1
			Set pvComObject of hoElements1 to voElements1
				Get Comitem of hoElements1 1 to vFrom
			Send Destroy to hoElements1
Variant vTo
			Variant voElements2
			Get ComElements to voElements2
			Handle hoElements2
			Get Create (RefClass(cComElements)) to hoElements2
			Set pvComObject of hoElements2 to voElements2
				Get Comitem of hoElements2 2 to vTo
			Send Destroy to hoElements2
				Variant voLink
		Get ComAdd of hoLinks vFrom vTo Nothing to voLink
		Handle hoLink
		Get Create (RefClass(cComLink)) to hoLink
		Set pvComObject of hoLink to voLink
			Set ComStartPos of hoLink to OLECenterAlignment
			Set ComEndPos of hoLink to OLECenterAlignment
		Send Destroy to hoLink
Variant vFrom1
			Variant voElements3
			Get ComElements to voElements3
			Handle hoElements3
			Get Create (RefClass(cComElements)) to hoElements3
			Set pvComObject of hoElements3 to voElements3
				Get Comitem of hoElements3 2 to vFrom1
			Send Destroy to hoElements3
Variant vTo1
			Variant voElements4
			Get ComElements to voElements4
			Handle hoElements4
			Get Create (RefClass(cComElements)) to hoElements4
			Set pvComObject of hoElements4 to voElements4
				Get Comitem of hoElements4 1 to vTo1
			Send Destroy to hoElements4
				Variant voLink1
		Get ComAdd of hoLinks vFrom1 vTo1 Nothing to voLink1
		Handle hoLink1
		Get Create (RefClass(cComLink)) to hoLink1
		Set pvComObject of hoLink1 to voLink1
			Set ComStartPos of hoLink1 to OLECenterAlignment
			Set ComEndPos of hoLink1 to OLECenterAlignment
		Send Destroy to hoLink1
		Variant vFrom2
			Variant voElements5
			Get ComElements to voElements5
			Handle hoElements5
			Get Create (RefClass(cComElements)) to hoElements5
			Set pvComObject of hoElements5 to voElements5
				Get Comitem of hoElements5 3 to vFrom2
			Send Destroy to hoElements5
Variant vTo2
			Variant voElements6
			Get ComElements to voElements6
			Handle hoElements6
			Get Create (RefClass(cComElements)) to hoElements6
			Set pvComObject of hoElements6 to voElements6
				Get Comitem of hoElements6 4 to vTo2
			Send Destroy to hoElements6
		Get ComAdd of hoLinks vFrom2 vTo2 Nothing to Nothing
Variant vFrom3
			Variant voElements7
			Get ComElements to voElements7
			Handle hoElements7
			Get Create (RefClass(cComElements)) to hoElements7
			Set pvComObject of hoElements7 to voElements7
				Get Comitem of hoElements7 4 to vFrom3
			Send Destroy to hoElements7
Variant vTo3
			Variant voElements8
			Get ComElements to voElements8
			Handle hoElements8
			Get Create (RefClass(cComElements)) to hoElements8
			Set pvComObject of hoElements8 to voElements8
				Get Comitem of hoElements8 3 to vTo3
			Send Destroy to hoElements8
				Variant voLink2
		Get ComAdd of hoLinks vFrom3 vTo3 Nothing to voLink2
		Handle hoLink2
		Get Create (RefClass(cComLink)) to hoLink2
		Set pvComObject of hoLink2 to voLink2
			Set ComStartPos of hoLink2 to OLELeftAlignment
			Set ComEndPos of hoLink2 to OLERightAlignment
		Send Destroy to hoLink2
	Send Destroy to hoLinks
	Set ComShowLinks to (OLEexShowCrossLinksTriangle + OLEexShowExtendedLinks)
End_Procedure
44:
How do I enable the cross link support ( rectangular )

Procedure OnCreate
	Forward Send OnCreate
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Get ComAdd of hoElements "Element <sha ;;0>A" Nothing Nothing to Nothing
		Get ComAdd of hoElements "Element <sha ;;0>B" 0 76 to Nothing
		Variant voElement
		Get ComAdd of hoElements "Element <sha ;;0>C" -76 32 to voElement
		Handle hoElement
		Get Create (RefClass(cComElement)) to hoElement
		Set pvComObject of hoElement to voElement
			Set ComAutoSize of hoElement to False
			Set ComHeight of hoElement to 32
		Send Destroy to hoElement
		Variant voElement1
		Get ComAdd of hoElements "Element <sha ;;0>D" 76 32 to voElement1
		Handle hoElement1
		Get Create (RefClass(cComElement)) to hoElement1
		Set pvComObject of hoElement1 to voElement1
			Set ComAutoSize of hoElement1 to False
			Set ComHeight of hoElement1 to 32
		Send Destroy to hoElement1
	Send Destroy to hoElements
	Variant voLinks
	Get ComLinks to voLinks
	Handle hoLinks
	Get Create (RefClass(cComLinks)) to hoLinks
	Set pvComObject of hoLinks to voLinks
Variant vFrom
			Variant voElements1
			Get ComElements to voElements1
			Handle hoElements1
			Get Create (RefClass(cComElements)) to hoElements1
			Set pvComObject of hoElements1 to voElements1
				Get Comitem of hoElements1 1 to vFrom
			Send Destroy to hoElements1
Variant vTo
			Variant voElements2
			Get ComElements to voElements2
			Handle hoElements2
			Get Create (RefClass(cComElements)) to hoElements2
			Set pvComObject of hoElements2 to voElements2
				Get Comitem of hoElements2 2 to vTo
			Send Destroy to hoElements2
				Variant voLink
		Get ComAdd of hoLinks vFrom vTo Nothing to voLink
		Handle hoLink
		Get Create (RefClass(cComLink)) to hoLink
		Set pvComObject of hoLink to voLink
			Set ComStartPos of hoLink to OLECenterAlignment
			Set ComEndPos of hoLink to OLECenterAlignment
		Send Destroy to hoLink
Variant vFrom1
			Variant voElements3
			Get ComElements to voElements3
			Handle hoElements3
			Get Create (RefClass(cComElements)) to hoElements3
			Set pvComObject of hoElements3 to voElements3
				Get Comitem of hoElements3 2 to vFrom1
			Send Destroy to hoElements3
Variant vTo1
			Variant voElements4
			Get ComElements to voElements4
			Handle hoElements4
			Get Create (RefClass(cComElements)) to hoElements4
			Set pvComObject of hoElements4 to voElements4
				Get Comitem of hoElements4 1 to vTo1
			Send Destroy to hoElements4
				Variant voLink1
		Get ComAdd of hoLinks vFrom1 vTo1 Nothing to voLink1
		Handle hoLink1
		Get Create (RefClass(cComLink)) to hoLink1
		Set pvComObject of hoLink1 to voLink1
			Set ComStartPos of hoLink1 to OLECenterAlignment
			Set ComEndPos of hoLink1 to OLECenterAlignment
		Send Destroy to hoLink1
		Variant vFrom2
			Variant voElements5
			Get ComElements to voElements5
			Handle hoElements5
			Get Create (RefClass(cComElements)) to hoElements5
			Set pvComObject of hoElements5 to voElements5
				Get Comitem of hoElements5 3 to vFrom2
			Send Destroy to hoElements5
Variant vTo2
			Variant voElements6
			Get ComElements to voElements6
			Handle hoElements6
			Get Create (RefClass(cComElements)) to hoElements6
			Set pvComObject of hoElements6 to voElements6
				Get Comitem of hoElements6 4 to vTo2
			Send Destroy to hoElements6
		Get ComAdd of hoLinks vFrom2 vTo2 Nothing to Nothing
Variant vFrom3
			Variant voElements7
			Get ComElements to voElements7
			Handle hoElements7
			Get Create (RefClass(cComElements)) to hoElements7
			Set pvComObject of hoElements7 to voElements7
				Get Comitem of hoElements7 4 to vFrom3
			Send Destroy to hoElements7
Variant vTo3
			Variant voElements8
			Get ComElements to voElements8
			Handle hoElements8
			Get Create (RefClass(cComElements)) to hoElements8
			Set pvComObject of hoElements8 to voElements8
				Get Comitem of hoElements8 3 to vTo3
			Send Destroy to hoElements8
				Variant voLink2
		Get ComAdd of hoLinks vFrom3 vTo3 Nothing to voLink2
		Handle hoLink2
		Get Create (RefClass(cComLink)) to hoLink2
		Set pvComObject of hoLink2 to voLink2
			Set ComStartPos of hoLink2 to OLELeftAlignment
			Set ComEndPos of hoLink2 to OLERightAlignment
		Send Destroy to hoLink2
	Send Destroy to hoLinks
	Set ComShowLinks to (OLEexShowCrossLinksRect + OLEexShowExtendedLinks)
End_Procedure
43:
How do I show a link frmo bottom to top, or reverse, not from left to right

Procedure OnCreate
	Forward Send OnCreate
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Get ComAdd of hoElements "Element <sha ;;0>A" Nothing Nothing to Nothing
		Get ComAdd of hoElements "Element <sha ;;0>B" 0 64 to Nothing
	Send Destroy to hoElements
	Variant voLinks
	Get ComLinks to voLinks
	Handle hoLinks
	Get Create (RefClass(cComLinks)) to hoLinks
	Set pvComObject of hoLinks to voLinks
Variant vFrom
			Variant voElements1
			Get ComElements to voElements1
			Handle hoElements1
			Get Create (RefClass(cComElements)) to hoElements1
			Set pvComObject of hoElements1 to voElements1
				Get Comitem of hoElements1 1 to vFrom
			Send Destroy to hoElements1
Variant vTo
			Variant voElements2
			Get ComElements to voElements2
			Handle hoElements2
			Get Create (RefClass(cComElements)) to hoElements2
			Set pvComObject of hoElements2 to voElements2
				Get Comitem of hoElements2 2 to vTo
			Send Destroy to hoElements2
				Variant voLink
		Get ComAdd of hoLinks vFrom vTo Nothing to voLink
		Handle hoLink
		Get Create (RefClass(cComLink)) to hoLink
		Set pvComObject of hoLink to voLink
			Set ComStartPos of hoLink to OLECenterAlignment
			Set ComEndPos of hoLink to OLECenterAlignment
		Send Destroy to hoLink
	Send Destroy to hoLinks
End_Procedure
42:
Is it possible to control the links, so that they are always centered

Procedure OnCreate
	Forward Send OnCreate
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Variant voElement
		Get ComAdd of hoElements "Element A" Nothing Nothing to voElement
		Handle hoElement
		Get Create (RefClass(cComElement)) to hoElement
		Set pvComObject of hoElement to voElement
			Set ComID of hoElement to "A"
		Send Destroy to hoElement
		Variant voElement1
		Get ComAdd of hoElements "Element B" Nothing Nothing to voElement1
		Handle hoElement1
		Get Create (RefClass(cComElement)) to hoElement1
		Set pvComObject of hoElement1 to voElement1
			Set ComID of hoElement1 to "B"
		Send Destroy to hoElement1
		Variant voElement2
		Get ComAdd of hoElements "Element C" Nothing Nothing to voElement2
		Handle hoElement2
		Get Create (RefClass(cComElement)) to hoElement2
		Set pvComObject of hoElement2 to voElement2
			Set ComID of hoElement2 to "C"
		Send Destroy to hoElement2
		Variant voElement3
		Get ComAdd of hoElements "Element D" Nothing Nothing to voElement3
		Handle hoElement3
		Get Create (RefClass(cComElement)) to hoElement3
		Set pvComObject of hoElement3 to voElement3
			Set ComID of hoElement3 to "D"
		Send Destroy to hoElement3
	Send Destroy to hoElements
	Variant voLinks
	Get ComLinks to voLinks
	Handle hoLinks
	Get Create (RefClass(cComLinks)) to hoLinks
	Set pvComObject of hoLinks to voLinks
		Variant vFrom
			Variant voElements1
			Get ComElements to voElements1
			Handle hoElements1
			Get Create (RefClass(cComElements)) to hoElements1
			Set pvComObject of hoElements1 to voElements1
				Get Comitem of hoElements1 "A" to vFrom
			Send Destroy to hoElements1
Variant vTo
			Variant voElements2
			Get ComElements to voElements2
			Handle hoElements2
			Get Create (RefClass(cComElements)) to hoElements2
			Set pvComObject of hoElements2 to voElements2
				Get Comitem of hoElements2 "B" to vTo
			Send Destroy to hoElements2
		Get ComAdd of hoLinks vFrom vTo Nothing to Nothing
		Variant vFrom1
			Variant voElements3
			Get ComElements to voElements3
			Handle hoElements3
			Get Create (RefClass(cComElements)) to hoElements3
			Set pvComObject of hoElements3 to voElements3
				Get Comitem of hoElements3 "A" to vFrom1
			Send Destroy to hoElements3
Variant vTo1
			Variant voElements4
			Get ComElements to voElements4
			Handle hoElements4
			Get Create (RefClass(cComElements)) to hoElements4
			Set pvComObject of hoElements4 to voElements4
				Get Comitem of hoElements4 "C" to vTo1
			Send Destroy to hoElements4
		Get ComAdd of hoLinks vFrom1 vTo1 Nothing to Nothing
		Variant vFrom2
			Variant voElements5
			Get ComElements to voElements5
			Handle hoElements5
			Get Create (RefClass(cComElements)) to hoElements5
			Set pvComObject of hoElements5 to voElements5
				Get Comitem of hoElements5 "B" to vFrom2
			Send Destroy to hoElements5
Variant vTo2
			Variant voElements6
			Get ComElements to voElements6
			Handle hoElements6
			Get Create (RefClass(cComElements)) to hoElements6
			Set pvComObject of hoElements6 to voElements6
				Get Comitem of hoElements6 "D" to vTo2
			Send Destroy to hoElements6
		Get ComAdd of hoLinks vFrom2 vTo2 Nothing to Nothing
		Variant vFrom3
			Variant voElements7
			Get ComElements to voElements7
			Handle hoElements7
			Get Create (RefClass(cComElements)) to hoElements7
			Set pvComObject of hoElements7 to voElements7
				Get Comitem of hoElements7 "B" to vFrom3
			Send Destroy to hoElements7
Variant vTo3
			Variant voElements8
			Get ComElements to voElements8
			Handle hoElements8
			Get Create (RefClass(cComElements)) to hoElements8
			Set pvComObject of hoElements8 to voElements8
				Get Comitem of hoElements8 "C" to vTo3
			Send Destroy to hoElements8
		Get ComAdd of hoLinks vFrom3 vTo3 Nothing to Nothing
	Send Destroy to hoLinks
	Set ComShowLinks to OLEexShowLinks
	Set ComDefArrange OLEexDefArrangeDir to 1
	Send ComArrange Nothing
End_Procedure
41:
What options to align the elements do I have if I use Arrange method

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComShowGridLines to True
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Variant v
		Variant voElement
		Get ComAdd of hoElements "Top Alignment" Nothing Nothing to voElement
		Handle hoElement
		Get Create (RefClass(cComElement)) to hoElement
		Set pvComObject of hoElement to voElement
			Get ComID of hoElement to v
		Send Destroy to hoElement
		Variant h1
		Move v to h1
		Get ComAdd of hoElements "Element" Nothing Nothing to Nothing
		Get ComAdd of hoElements "Element" Nothing Nothing to Nothing
		Get ComAdd of hoElements "Element" Nothing Nothing to Nothing
		Variant v1
		Variant voElement1
		Get ComAdd of hoElements "Center Alignment" 96 to voElement1
		Handle hoElement1
		Get Create (RefClass(cComElement)) to hoElement1
		Set pvComObject of hoElement1 to voElement1
			Get ComID of hoElement1 to v1
		Send Destroy to hoElement1
		Variant h2
		Move v1 to h2
		Get ComAdd of hoElements "Element" 96 to Nothing
		Get ComAdd of hoElements "Element" 96 to Nothing
		Get ComAdd of hoElements "Element" 96 to Nothing
		Variant v2
		Variant voElement2
		Get ComAdd of hoElements "Bottom Alignment" 178 to voElement2
		Handle hoElement2
		Get Create (RefClass(cComElement)) to hoElement2
		Set pvComObject of hoElement2 to voElement2
			Get ComID of hoElement2 to v2
		Send Destroy to hoElement2
		Variant h3
		Move v2 to h3
		Get ComAdd of hoElements "Element" 192 to Nothing
		Get ComAdd of hoElements "Element" 192 to Nothing
		Get ComAdd of hoElements "Element" 192 to Nothing
	Send Destroy to hoElements
	Variant voLinks
	Get ComLinks to voLinks
	Handle hoLinks
	Get Create (RefClass(cComLinks)) to hoLinks
	Set pvComObject of hoLinks to voLinks
		Variant vFrom
			Variant voElements1
			Get ComElements to voElements1
			Handle hoElements1
			Get Create (RefClass(cComElements)) to hoElements1
			Set pvComObject of hoElements1 to voElements1
				Get Comitem of hoElements1 1 to vFrom
			Send Destroy to hoElements1
Variant vTo
			Variant voElements2
			Get ComElements to voElements2
			Handle hoElements2
			Get Create (RefClass(cComElements)) to hoElements2
			Set pvComObject of hoElements2 to voElements2
				Get Comitem of hoElements2 2 to vTo
			Send Destroy to hoElements2
		Get ComAdd of hoLinks vFrom vTo Nothing to Nothing
		Variant vFrom1
			Variant voElements3
			Get ComElements to voElements3
			Handle hoElements3
			Get Create (RefClass(cComElements)) to hoElements3
			Set pvComObject of hoElements3 to voElements3
				Get Comitem of hoElements3 1 to vFrom1
			Send Destroy to hoElements3
Variant vTo1
			Variant voElements4
			Get ComElements to voElements4
			Handle hoElements4
			Get Create (RefClass(cComElements)) to hoElements4
			Set pvComObject of hoElements4 to voElements4
				Get Comitem of hoElements4 3 to vTo1
			Send Destroy to hoElements4
		Get ComAdd of hoLinks vFrom1 vTo1 Nothing to Nothing
		Variant vFrom2
			Variant voElements5
			Get ComElements to voElements5
			Handle hoElements5
			Get Create (RefClass(cComElements)) to hoElements5
			Set pvComObject of hoElements5 to voElements5
				Get Comitem of hoElements5 2 to vFrom2
			Send Destroy to hoElements5
Variant vTo2
			Variant voElements6
			Get ComElements to voElements6
			Handle hoElements6
			Get Create (RefClass(cComElements)) to hoElements6
			Set pvComObject of hoElements6 to voElements6
				Get Comitem of hoElements6 4 to vTo2
			Send Destroy to hoElements6
		Get ComAdd of hoLinks vFrom2 vTo2 Nothing to Nothing
		Variant vFrom3
			Variant voElements7
			Get ComElements to voElements7
			Handle hoElements7
			Get Create (RefClass(cComElements)) to hoElements7
			Set pvComObject of hoElements7 to voElements7
				Get Comitem of hoElements7 2 to vFrom3
			Send Destroy to hoElements7
Variant vTo3
			Variant voElements8
			Get ComElements to voElements8
			Handle hoElements8
			Get Create (RefClass(cComElements)) to hoElements8
			Set pvComObject of hoElements8 to voElements8
				Get Comitem of hoElements8 3 to vTo3
			Send Destroy to hoElements8
		Get ComAdd of hoLinks vFrom3 vTo3 Nothing to Nothing
		Variant vFrom4
			Variant voElements9
			Get ComElements to voElements9
			Handle hoElements9
			Get Create (RefClass(cComElements)) to hoElements9
			Set pvComObject of hoElements9 to voElements9
				Get Comitem of hoElements9 5 to vFrom4
			Send Destroy to hoElements9
Variant vTo4
			Variant voElements10
			Get ComElements to voElements10
			Handle hoElements10
			Get Create (RefClass(cComElements)) to hoElements10
			Set pvComObject of hoElements10 to voElements10
				Get Comitem of hoElements10 6 to vTo4
			Send Destroy to hoElements10
		Get ComAdd of hoLinks vFrom4 vTo4 Nothing to Nothing
		Variant vFrom5
			Variant voElements11
			Get ComElements to voElements11
			Handle hoElements11
			Get Create (RefClass(cComElements)) to hoElements11
			Set pvComObject of hoElements11 to voElements11
				Get Comitem of hoElements11 5 to vFrom5
			Send Destroy to hoElements11
Variant vTo5
			Variant voElements12
			Get ComElements to voElements12
			Handle hoElements12
			Get Create (RefClass(cComElements)) to hoElements12
			Set pvComObject of hoElements12 to voElements12
				Get Comitem of hoElements12 7 to vTo5
			Send Destroy to hoElements12
		Get ComAdd of hoLinks vFrom5 vTo5 Nothing to Nothing
		Variant vFrom6
			Variant voElements13
			Get ComElements to voElements13
			Handle hoElements13
			Get Create (RefClass(cComElements)) to hoElements13
			Set pvComObject of hoElements13 to voElements13
				Get Comitem of hoElements13 6 to vFrom6
			Send Destroy to hoElements13
Variant vTo6
			Variant voElements14
			Get ComElements to voElements14
			Handle hoElements14
			Get Create (RefClass(cComElements)) to hoElements14
			Set pvComObject of hoElements14 to voElements14
				Get Comitem of hoElements14 8 to vTo6
			Send Destroy to hoElements14
		Get ComAdd of hoLinks vFrom6 vTo6 Nothing to Nothing
		Variant vFrom7
			Variant voElements15
			Get ComElements to voElements15
			Handle hoElements15
			Get Create (RefClass(cComElements)) to hoElements15
			Set pvComObject of hoElements15 to voElements15
				Get Comitem of hoElements15 6 to vFrom7
			Send Destroy to hoElements15
Variant vTo7
			Variant voElements16
			Get ComElements to voElements16
			Handle hoElements16
			Get Create (RefClass(cComElements)) to hoElements16
			Set pvComObject of hoElements16 to voElements16
				Get Comitem of hoElements16 7 to vTo7
			Send Destroy to hoElements16
		Get ComAdd of hoLinks vFrom7 vTo7 Nothing to Nothing
		Variant vFrom8
			Variant voElements17
			Get ComElements to voElements17
			Handle hoElements17
			Get Create (RefClass(cComElements)) to hoElements17
			Set pvComObject of hoElements17 to voElements17
				Get Comitem of hoElements17 9 to vFrom8
			Send Destroy to hoElements17
Variant vTo8
			Variant voElements18
			Get ComElements to voElements18
			Handle hoElements18
			Get Create (RefClass(cComElements)) to hoElements18
			Set pvComObject of hoElements18 to voElements18
				Get Comitem of hoElements18 10 to vTo8
			Send Destroy to hoElements18
		Get ComAdd of hoLinks vFrom8 vTo8 Nothing to Nothing
		Variant vFrom9
			Variant voElements19
			Get ComElements to voElements19
			Handle hoElements19
			Get Create (RefClass(cComElements)) to hoElements19
			Set pvComObject of hoElements19 to voElements19
				Get Comitem of hoElements19 9 to vFrom9
			Send Destroy to hoElements19
Variant vTo9
			Variant voElements20
			Get ComElements to voElements20
			Handle hoElements20
			Get Create (RefClass(cComElements)) to hoElements20
			Set pvComObject of hoElements20 to voElements20
				Get Comitem of hoElements20 11 to vTo9
			Send Destroy to hoElements20
		Get ComAdd of hoLinks vFrom9 vTo9 Nothing to Nothing
		Variant vFrom10
			Variant voElements21
			Get ComElements to voElements21
			Handle hoElements21
			Get Create (RefClass(cComElements)) to hoElements21
			Set pvComObject of hoElements21 to voElements21
				Get Comitem of hoElements21 10 to vFrom10
			Send Destroy to hoElements21
Variant vTo10
			Variant voElements22
			Get ComElements to voElements22
			Handle hoElements22
			Get Create (RefClass(cComElements)) to hoElements22
			Set pvComObject of hoElements22 to voElements22
				Get Comitem of hoElements22 12 to vTo10
			Send Destroy to hoElements22
		Get ComAdd of hoLinks vFrom10 vTo10 Nothing to Nothing
		Variant vFrom11
			Variant voElements23
			Get ComElements to voElements23
			Handle hoElements23
			Get Create (RefClass(cComElements)) to hoElements23
			Set pvComObject of hoElements23 to voElements23
				Get Comitem of hoElements23 10 to vFrom11
			Send Destroy to hoElements23
Variant vTo11
			Variant voElements24
			Get ComElements to voElements24
			Handle hoElements24
			Get Create (RefClass(cComElements)) to hoElements24
			Set pvComObject of hoElements24 to voElements24
				Get Comitem of hoElements24 11 to vTo11
			Send Destroy to hoElements24
		Get ComAdd of hoLinks vFrom11 vTo11 Nothing to Nothing
	Send Destroy to hoLinks
	Set ComDefArrange OLEexDefArrangeAlign to 0
	Send ComArrange h1
	Set ComDefArrange OLEexDefArrangeAlign to 1
	Send ComArrange h2
	Set ComDefArrange OLEexDefArrangeAlign to 2
	Send ComArrange h3
	Send ComEndUpdate
End_Procedure
40:
Is there an auto-arrange feature that will display the flow-chart centered and zoomed correctly after we are finished building it

Procedure OnCreate
	Forward Send OnCreate
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Variant voElement
		Get ComAdd of hoElements "Element A" Nothing Nothing to voElement
		Handle hoElement
		Get Create (RefClass(cComElement)) to hoElement
		Set pvComObject of hoElement to voElement
			Set ComID of hoElement to "A"
		Send Destroy to hoElement
		Variant voElement1
		Get ComAdd of hoElements "Element B" Nothing Nothing to voElement1
		Handle hoElement1
		Get Create (RefClass(cComElement)) to hoElement1
		Set pvComObject of hoElement1 to voElement1
			Set ComID of hoElement1 to "B"
		Send Destroy to hoElement1
		Variant voElement2
		Get ComAdd of hoElements "Element C" Nothing Nothing to voElement2
		Handle hoElement2
		Get Create (RefClass(cComElement)) to hoElement2
		Set pvComObject of hoElement2 to voElement2
			Set ComID of hoElement2 to "C"
		Send Destroy to hoElement2
		Variant voElement3
		Get ComAdd of hoElements "Element D" Nothing Nothing to voElement3
		Handle hoElement3
		Get Create (RefClass(cComElement)) to hoElement3
		Set pvComObject of hoElement3 to voElement3
			Set ComID of hoElement3 to "D"
		Send Destroy to hoElement3
	Send Destroy to hoElements
	Variant voLinks
	Get ComLinks to voLinks
	Handle hoLinks
	Get Create (RefClass(cComLinks)) to hoLinks
	Set pvComObject of hoLinks to voLinks
		Variant vFrom
			Variant voElements1
			Get ComElements to voElements1
			Handle hoElements1
			Get Create (RefClass(cComElements)) to hoElements1
			Set pvComObject of hoElements1 to voElements1
				Get Comitem of hoElements1 "A" to vFrom
			Send Destroy to hoElements1
Variant vTo
			Variant voElements2
			Get ComElements to voElements2
			Handle hoElements2
			Get Create (RefClass(cComElements)) to hoElements2
			Set pvComObject of hoElements2 to voElements2
				Get Comitem of hoElements2 "B" to vTo
			Send Destroy to hoElements2
		Get ComAdd of hoLinks vFrom vTo Nothing to Nothing
		Variant vFrom1
			Variant voElements3
			Get ComElements to voElements3
			Handle hoElements3
			Get Create (RefClass(cComElements)) to hoElements3
			Set pvComObject of hoElements3 to voElements3
				Get Comitem of hoElements3 "A" to vFrom1
			Send Destroy to hoElements3
Variant vTo1
			Variant voElements4
			Get ComElements to voElements4
			Handle hoElements4
			Get Create (RefClass(cComElements)) to hoElements4
			Set pvComObject of hoElements4 to voElements4
				Get Comitem of hoElements4 "C" to vTo1
			Send Destroy to hoElements4
		Get ComAdd of hoLinks vFrom1 vTo1 Nothing to Nothing
		Variant vFrom2
			Variant voElements5
			Get ComElements to voElements5
			Handle hoElements5
			Get Create (RefClass(cComElements)) to hoElements5
			Set pvComObject of hoElements5 to voElements5
				Get Comitem of hoElements5 "B" to vFrom2
			Send Destroy to hoElements5
Variant vTo2
			Variant voElements6
			Get ComElements to voElements6
			Handle hoElements6
			Get Create (RefClass(cComElements)) to hoElements6
			Set pvComObject of hoElements6 to voElements6
				Get Comitem of hoElements6 "D" to vTo2
			Send Destroy to hoElements6
		Get ComAdd of hoLinks vFrom2 vTo2 Nothing to Nothing
		Variant vFrom3
			Variant voElements7
			Get ComElements to voElements7
			Handle hoElements7
			Get Create (RefClass(cComElements)) to hoElements7
			Set pvComObject of hoElements7 to voElements7
				Get Comitem of hoElements7 "B" to vFrom3
			Send Destroy to hoElements7
Variant vTo3
			Variant voElements8
			Get ComElements to voElements8
			Handle hoElements8
			Get Create (RefClass(cComElements)) to hoElements8
			Set pvComObject of hoElements8 to voElements8
				Get Comitem of hoElements8 "C" to vTo3
			Send Destroy to hoElements8
		Get ComAdd of hoLinks vFrom3 vTo3 Nothing to Nothing
	Send Destroy to hoLinks
	Send ComArrange Nothing
End_Procedure
39:
Is it possible to change the distance between elements, when calling the Arrange method

Procedure OnCreate
	Forward Send OnCreate
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Variant voElement
		Get ComAdd of hoElements "Element A" Nothing Nothing to voElement
		Handle hoElement
		Get Create (RefClass(cComElement)) to hoElement
		Set pvComObject of hoElement to voElement
			Set ComID of hoElement to "A"
		Send Destroy to hoElement
		Variant voElement1
		Get ComAdd of hoElements "Element B" Nothing Nothing to voElement1
		Handle hoElement1
		Get Create (RefClass(cComElement)) to hoElement1
		Set pvComObject of hoElement1 to voElement1
			Set ComID of hoElement1 to "B"
		Send Destroy to hoElement1
		Variant voElement2
		Get ComAdd of hoElements "Element C" Nothing Nothing to voElement2
		Handle hoElement2
		Get Create (RefClass(cComElement)) to hoElement2
		Set pvComObject of hoElement2 to voElement2
			Set ComID of hoElement2 to "C"
		Send Destroy to hoElement2
		Variant voElement3
		Get ComAdd of hoElements "Element D" Nothing Nothing to voElement3
		Handle hoElement3
		Get Create (RefClass(cComElement)) to hoElement3
		Set pvComObject of hoElement3 to voElement3
			Set ComID of hoElement3 to "D"
		Send Destroy to hoElement3
	Send Destroy to hoElements
	Variant voLinks
	Get ComLinks to voLinks
	Handle hoLinks
	Get Create (RefClass(cComLinks)) to hoLinks
	Set pvComObject of hoLinks to voLinks
		Variant vFrom
			Variant voElements1
			Get ComElements to voElements1
			Handle hoElements1
			Get Create (RefClass(cComElements)) to hoElements1
			Set pvComObject of hoElements1 to voElements1
				Get Comitem of hoElements1 "A" to vFrom
			Send Destroy to hoElements1
Variant vTo
			Variant voElements2
			Get ComElements to voElements2
			Handle hoElements2
			Get Create (RefClass(cComElements)) to hoElements2
			Set pvComObject of hoElements2 to voElements2
				Get Comitem of hoElements2 "B" to vTo
			Send Destroy to hoElements2
		Get ComAdd of hoLinks vFrom vTo Nothing to Nothing
		Variant vFrom1
			Variant voElements3
			Get ComElements to voElements3
			Handle hoElements3
			Get Create (RefClass(cComElements)) to hoElements3
			Set pvComObject of hoElements3 to voElements3
				Get Comitem of hoElements3 "A" to vFrom1
			Send Destroy to hoElements3
Variant vTo1
			Variant voElements4
			Get ComElements to voElements4
			Handle hoElements4
			Get Create (RefClass(cComElements)) to hoElements4
			Set pvComObject of hoElements4 to voElements4
				Get Comitem of hoElements4 "C" to vTo1
			Send Destroy to hoElements4
		Get ComAdd of hoLinks vFrom1 vTo1 Nothing to Nothing
		Variant vFrom2
			Variant voElements5
			Get ComElements to voElements5
			Handle hoElements5
			Get Create (RefClass(cComElements)) to hoElements5
			Set pvComObject of hoElements5 to voElements5
				Get Comitem of hoElements5 "B" to vFrom2
			Send Destroy to hoElements5
Variant vTo2
			Variant voElements6
			Get ComElements to voElements6
			Handle hoElements6
			Get Create (RefClass(cComElements)) to hoElements6
			Set pvComObject of hoElements6 to voElements6
				Get Comitem of hoElements6 "D" to vTo2
			Send Destroy to hoElements6
		Get ComAdd of hoLinks vFrom2 vTo2 Nothing to Nothing
		Variant vFrom3
			Variant voElements7
			Get ComElements to voElements7
			Handle hoElements7
			Get Create (RefClass(cComElements)) to hoElements7
			Set pvComObject of hoElements7 to voElements7
				Get Comitem of hoElements7 "B" to vFrom3
			Send Destroy to hoElements7
Variant vTo3
			Variant voElements8
			Get ComElements to voElements8
			Handle hoElements8
			Get Create (RefClass(cComElements)) to hoElements8
			Set pvComObject of hoElements8 to voElements8
				Get Comitem of hoElements8 "C" to vTo3
			Send Destroy to hoElements8
		Get ComAdd of hoLinks vFrom3 vTo3 Nothing to Nothing
	Send Destroy to hoLinks
	Set ComDefArrange OLEexDefArrangeDX to 0
	Set ComDefArrange OLEexDefArrangeDY to 0
	Send ComArrange Nothing
End_Procedure
38:
How do I organize vertically the elements

Procedure OnCreate
	Forward Send OnCreate
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Variant voElement
		Get ComAdd of hoElements "Element A" Nothing Nothing to voElement
		Handle hoElement
		Get Create (RefClass(cComElement)) to hoElement
		Set pvComObject of hoElement to voElement
			Set ComID of hoElement to "A"
		Send Destroy to hoElement
		Variant voElement1
		Get ComAdd of hoElements "Element B" Nothing Nothing to voElement1
		Handle hoElement1
		Get Create (RefClass(cComElement)) to hoElement1
		Set pvComObject of hoElement1 to voElement1
			Set ComID of hoElement1 to "B"
		Send Destroy to hoElement1
		Variant voElement2
		Get ComAdd of hoElements "Element C" Nothing Nothing to voElement2
		Handle hoElement2
		Get Create (RefClass(cComElement)) to hoElement2
		Set pvComObject of hoElement2 to voElement2
			Set ComID of hoElement2 to "C"
		Send Destroy to hoElement2
		Variant voElement3
		Get ComAdd of hoElements "Element D" Nothing Nothing to voElement3
		Handle hoElement3
		Get Create (RefClass(cComElement)) to hoElement3
		Set pvComObject of hoElement3 to voElement3
			Set ComID of hoElement3 to "D"
		Send Destroy to hoElement3
	Send Destroy to hoElements
	Variant voLinks
	Get ComLinks to voLinks
	Handle hoLinks
	Get Create (RefClass(cComLinks)) to hoLinks
	Set pvComObject of hoLinks to voLinks
		Variant vFrom
			Variant voElements1
			Get ComElements to voElements1
			Handle hoElements1
			Get Create (RefClass(cComElements)) to hoElements1
			Set pvComObject of hoElements1 to voElements1
				Get Comitem of hoElements1 "A" to vFrom
			Send Destroy to hoElements1
Variant vTo
			Variant voElements2
			Get ComElements to voElements2
			Handle hoElements2
			Get Create (RefClass(cComElements)) to hoElements2
			Set pvComObject of hoElements2 to voElements2
				Get Comitem of hoElements2 "B" to vTo
			Send Destroy to hoElements2
		Get ComAdd of hoLinks vFrom vTo Nothing to Nothing
		Variant vFrom1
			Variant voElements3
			Get ComElements to voElements3
			Handle hoElements3
			Get Create (RefClass(cComElements)) to hoElements3
			Set pvComObject of hoElements3 to voElements3
				Get Comitem of hoElements3 "A" to vFrom1
			Send Destroy to hoElements3
Variant vTo1
			Variant voElements4
			Get ComElements to voElements4
			Handle hoElements4
			Get Create (RefClass(cComElements)) to hoElements4
			Set pvComObject of hoElements4 to voElements4
				Get Comitem of hoElements4 "C" to vTo1
			Send Destroy to hoElements4
		Get ComAdd of hoLinks vFrom1 vTo1 Nothing to Nothing
		Variant vFrom2
			Variant voElements5
			Get ComElements to voElements5
			Handle hoElements5
			Get Create (RefClass(cComElements)) to hoElements5
			Set pvComObject of hoElements5 to voElements5
				Get Comitem of hoElements5 "B" to vFrom2
			Send Destroy to hoElements5
Variant vTo2
			Variant voElements6
			Get ComElements to voElements6
			Handle hoElements6
			Get Create (RefClass(cComElements)) to hoElements6
			Set pvComObject of hoElements6 to voElements6
				Get Comitem of hoElements6 "D" to vTo2
			Send Destroy to hoElements6
		Get ComAdd of hoLinks vFrom2 vTo2 Nothing to Nothing
		Variant vFrom3
			Variant voElements7
			Get ComElements to voElements7
			Handle hoElements7
			Get Create (RefClass(cComElements)) to hoElements7
			Set pvComObject of hoElements7 to voElements7
				Get Comitem of hoElements7 "B" to vFrom3
			Send Destroy to hoElements7
Variant vTo3
			Variant voElements8
			Get ComElements to voElements8
			Handle hoElements8
			Get Create (RefClass(cComElements)) to hoElements8
			Set pvComObject of hoElements8 to voElements8
				Get Comitem of hoElements8 "C" to vTo3
			Send Destroy to hoElements8
		Get ComAdd of hoLinks vFrom3 vTo3 Nothing to Nothing
	Send Destroy to hoLinks
	Set ComShowLinksType to OLEexLinkStraight
	Set ComDefArrange OLEexDefArrangeDir to 1
	Send ComArrange Nothing
End_Procedure
37:
How can I add programatically a link

Procedure OnCreate
	Forward Send OnCreate
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Get ComAdd of hoElements "Element <sha ;;0>A" Nothing Nothing to Nothing
		Get ComAdd of hoElements "Element <sha ;;0>B" 96 24 to Nothing
	Send Destroy to hoElements
	Variant voLinks
	Get ComLinks to voLinks
	Handle hoLinks
	Get Create (RefClass(cComLinks)) to hoLinks
	Set pvComObject of hoLinks to voLinks
		Variant vFrom
			Variant voElements1
			Get ComElements to voElements1
			Handle hoElements1
			Get Create (RefClass(cComElements)) to hoElements1
			Set pvComObject of hoElements1 to voElements1
				Get Comitem of hoElements1 1 to vFrom
			Send Destroy to hoElements1
Variant vTo
			Variant voElements2
			Get ComElements to voElements2
			Handle hoElements2
			Get Create (RefClass(cComElements)) to hoElements2
			Set pvComObject of hoElements2 to voElements2
				Get Comitem of hoElements2 2 to vTo
			Send Destroy to hoElements2
		Get ComAdd of hoLinks vFrom vTo Nothing to Nothing
	Send Destroy to hoLinks
End_Procedure
36:
How do I get the link from the cursor
// 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
	Variant l
	Get ComLinkFromPoint -1 -1 to l
	Showln l
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Get ComAdd of hoElements "Element <sha ;;0>A" Nothing Nothing to Nothing
		Get ComAdd of hoElements "Element <sha ;;0>B" 96 24 to Nothing
	Send Destroy to hoElements
	Variant voLinks
	Get ComLinks to voLinks
	Handle hoLinks
	Get Create (RefClass(cComLinks)) to hoLinks
	Set pvComObject of hoLinks to voLinks
		Variant vFrom
			Variant voElements1
			Get ComElements to voElements1
			Handle hoElements1
			Get Create (RefClass(cComElements)) to hoElements1
			Set pvComObject of hoElements1 to voElements1
				Get Comitem of hoElements1 1 to vFrom
			Send Destroy to hoElements1
Variant vTo
			Variant voElements2
			Get ComElements to voElements2
			Handle hoElements2
			Get Create (RefClass(cComElements)) to hoElements2
			Set pvComObject of hoElements2 to voElements2
				Get Comitem of hoElements2 2 to vTo
			Send Destroy to hoElements2
		Get ComAdd of hoLinks vFrom vTo Nothing to Nothing
	Send Destroy to hoLinks
End_Procedure
35:
Is there a way to create a link which has the same start and end element

Procedure OnCreate
	Forward Send OnCreate
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Get ComAdd of hoElements "Element" Nothing Nothing to Nothing
	Send Destroy to hoElements
	Variant voLinks
	Get ComLinks to voLinks
	Handle hoLinks
	Get Create (RefClass(cComLinks)) to hoLinks
	Set pvComObject of hoLinks to voLinks
		Variant vFrom
			Variant voElements1
			Get ComElements to voElements1
			Handle hoElements1
			Get Create (RefClass(cComElements)) to hoElements1
			Set pvComObject of hoElements1 to voElements1
				Get Comitem of hoElements1 1 to vFrom
			Send Destroy to hoElements1
Variant vTo
			Variant voElements2
			Get ComElements to voElements2
			Handle hoElements2
			Get Create (RefClass(cComElements)) to hoElements2
			Set pvComObject of hoElements2 to voElements2
				Get Comitem of hoElements2 1 to vTo
			Send Destroy to hoElements2
		Get ComAdd of hoLinks vFrom vTo Nothing to Nothing
	Send Destroy to hoLinks
End_Procedure
34:
How can I show the pool's caption not-rotated or mirrored

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAllowDesignHeader to OLEexDesignHeaderSingle
	Variant voPools
	Get ComPools to voPools
	Handle hoPools
	Get Create (RefClass(cComPools)) to hoPools
	Set pvComObject of hoPools to voPools
		Variant voPool
		Get ComAdd of hoPools -150 -150 300 150 to voPool
		Handle hoPool
		Get Create (RefClass(cComPool)) to hoPool
		Set pvComObject of hoPool to voPool
			Set ComHeaderCaptionSupportRotate of hoPool to False
			Set ComHeaderSize of hoPool OLEexHeaderLeft to 48
			Set ComHeaderSize of hoPool OLEexHeaderRight to 48
			Variant voLane
			Get ComLane of hoPool OLEexLaneHorizontal to voLane
			Handle hoLane
			Get Create (RefClass(cComLane)) to hoLane
			Set pvComObject of hoLane to voLane
				Variant voLanes
				Get ComChildren of hoLane to voLanes
				Handle hoLanes
				Get Create (RefClass(cComLanes)) to hoLanes
				Set pvComObject of hoLanes to voLanes
					Set ComCount of hoLanes to 3
				Send Destroy to hoLanes
			Send Destroy to hoLane
		Send Destroy to hoPool
	Send Destroy to hoPools
	Send ComEndUpdate
End_Procedure
33:
How can I prevent creating sub-lanes or sub-phases

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAllowDesignHeader to OLEexDesignHeaderSingle
	Variant voPools
	Get ComPools to voPools
	Handle hoPools
	Get Create (RefClass(cComPools)) to hoPools
	Set pvComObject of hoPools to voPools
		Variant voPool
		Get ComAdd of hoPools -150 -150 300 150 to voPool
		Handle hoPool
		Get Create (RefClass(cComPool)) to hoPool
		Set pvComObject of hoPool to voPool
			Set ComHeaderSize of hoPool OLEexHeaderLeft to 32
			Set ComHeaderSize of hoPool OLEexHeaderRight to 32
			Variant voLane
			Get ComLane of hoPool OLEexLaneHorizontal to voLane
			Handle hoLane
			Get Create (RefClass(cComLane)) to hoLane
			Set pvComObject of hoLane to voLane
				Variant voLanes
				Get ComChildren of hoLane to voLanes
				Handle hoLanes
				Get Create (RefClass(cComLanes)) to hoLanes
				Set pvComObject of hoLanes to voLanes
					Set ComCount of hoLanes to 3
				Send Destroy to hoLanes
			Send Destroy to hoLane
		Send Destroy to hoPool
	Send Destroy to hoPools
	Send ComEndUpdate
End_Procedure
32:
How do I show a complete frame/border around the header

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voPools
	Get ComPools to voPools
	Handle hoPools
	Get Create (RefClass(cComPools)) to hoPools
	Set pvComObject of hoPools to voPools
		Variant voPool
		Get ComAdd of hoPools -150 -150 300 150 to voPool
		Handle hoPool
		Get Create (RefClass(cComPool)) to hoPool
		Set pvComObject of hoPool to voPool
			Set ComHeaderSize of hoPool OLEexHeaderTop to 32
			Set ComHeaderSize of hoPool OLEexHeaderBottom to 32
			Variant voLane
			Get ComLane of hoPool OLEexLaneVertical to voLane
			Handle hoLane
			Get Create (RefClass(cComLane)) to hoLane
			Set pvComObject of hoLane to voLane
				Variant voLanes
				Get ComChildren of hoLane to voLanes
				Handle hoLanes
				Get Create (RefClass(cComLanes)) to hoLanes
				Set pvComObject of hoLanes to voLanes
					Set ComCount of hoLanes to 3
					Variant voLane1
					Get Comitem of hoLanes 1 to voLane1
					Handle hoLane1
					Get Create (RefClass(cComLane)) to hoLane1
					Set pvComObject of hoLane1 to voLane1
						Variant voHeaderLane
						Get ComHeader of hoLane1 to voHeaderLane
						Handle hoHeaderLane
						Get Create (RefClass(cComHeaderLane)) to hoHeaderLane
						Set pvComObject of hoHeaderLane to voHeaderLane
							Variant voPattern
							Get ComPattern of hoHeaderLane to voPattern
							Handle hoPattern
							Get Create (RefClass(cComPattern)) to hoPattern
							Set pvComObject of hoPattern to voPattern
								Set ComType of hoPattern to OLEexPatternFrameThick
							Send Destroy to hoPattern
						Send Destroy to hoHeaderLane
					Send Destroy to hoLane1
				Send Destroy to hoLanes
			Send Destroy to hoLane
		Send Destroy to hoPool
	Send Destroy to hoPools
	Send ComEndUpdate
End_Procedure
31:
How do I show a complete frame/border around the lane

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voPools
	Get ComPools to voPools
	Handle hoPools
	Get Create (RefClass(cComPools)) to hoPools
	Set pvComObject of hoPools to voPools
		Variant voPool
		Get ComAdd of hoPools -150 -150 300 150 to voPool
		Handle hoPool
		Get Create (RefClass(cComPool)) to hoPool
		Set pvComObject of hoPool to voPool
			Set ComHeaderSize of hoPool OLEexHeaderTop to 32
			Set ComHeaderSize of hoPool OLEexHeaderBottom to 32
			Variant voLane
			Get ComLane of hoPool OLEexLaneVertical to voLane
			Handle hoLane
			Get Create (RefClass(cComLane)) to hoLane
			Set pvComObject of hoLane to voLane
				Variant voLanes
				Get ComChildren of hoLane to voLanes
				Handle hoLanes
				Get Create (RefClass(cComLanes)) to hoLanes
				Set pvComObject of hoLanes to voLanes
					Set ComCount of hoLanes to 3
					Variant voLane1
					Get Comitem of hoLanes 1 to voLane1
					Handle hoLane1
					Get Create (RefClass(cComLane)) to hoLane1
					Set pvComObject of hoLane1 to voLane1
						Variant voPattern
						Get ComPattern of hoLane1 to voPattern
						Handle hoPattern
						Get Create (RefClass(cComPattern)) to hoPattern
						Set pvComObject of hoPattern to voPattern
							Set ComType of hoPattern to OLEexPatternFrameThick
						Send Destroy to hoPattern
					Send Destroy to hoLane1
				Send Destroy to hoLanes
			Send Destroy to hoLane
		Send Destroy to hoPool
	Send Destroy to hoPools
	Send ComEndUpdate
End_Procedure
30:
How can I define sub-lanes

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voPools
	Get ComPools to voPools
	Handle hoPools
	Get Create (RefClass(cComPools)) to hoPools
	Set pvComObject of hoPools to voPools
		Variant voPool
		Get ComAdd of hoPools -150 -150 300 250 to voPool
		Handle hoPool
		Get Create (RefClass(cComPool)) to hoPool
		Set pvComObject of hoPool to voPool
			Set ComHeaderSize of hoPool OLEexHeaderTop to 32
			Set ComHeaderSize of hoPool OLEexHeaderBottom to 32
			Variant voLane
			Get ComLane of hoPool OLEexLaneVertical to voLane
			Handle hoLane
			Get Create (RefClass(cComLane)) to hoLane
			Set pvComObject of hoLane to voLane
				Variant voLanes
				Get ComChildren of hoLane to voLanes
				Handle hoLanes
				Get Create (RefClass(cComLanes)) to hoLanes
				Set pvComObject of hoLanes to voLanes
					Set ComCount of hoLanes to 3
					Variant voLane1
					Get Comitem of hoLanes 1 to voLane1
					Handle hoLane1
					Get Create (RefClass(cComLane)) to hoLane1
					Set pvComObject of hoLane1 to voLane1
						Variant voLanes1
						Get ComChildren of hoLane1 to voLanes1
						Handle hoLanes1
						Get Create (RefClass(cComLanes)) to hoLanes1
						Set pvComObject of hoLanes1 to voLanes1
							Set ComCount of hoLanes1 to 2
						Send Destroy to hoLanes1
					Send Destroy to hoLane1
				Send Destroy to hoLanes
			Send Destroy to hoLane
		Send Destroy to hoPool
	Send Destroy to hoPools
	Send ComEndUpdate
End_Procedure
29:
How can I add default lanes when the user creates a new pool
// A new pool has been added to the surface.
Procedure OnComAddPool Variant   llPool
	Forward Send OnComAddPool llPool
	// Pool.HeaderSize(1) = 24
	// Pool.HeaderVisible(0) = False
	// Pool.HeaderVisible(1) = True
	// Pool.HeaderVisible(2) = False
	// Pool.HeaderVisible(3) = False
	// Pool.Lane(1).Children.Count = 2
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voPools
	Get ComPools to voPools
	Handle hoPools
	Get Create (RefClass(cComPools)) to hoPools
	Set pvComObject of hoPools to voPools
		Get ComAdd of hoPools -100 -100 250 250 to Nothing
	Send Destroy to hoPools
	Send ComEndUpdate
End_Procedure
28:
How do I prevent showing headers when the user creates new pools

// A new pool has been added to the surface.
Procedure OnComAddPool Variant   llPool
	Forward Send OnComAddPool llPool
	Move to Pool
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voPools
	Get ComPools to voPools
	Handle hoPools
	Get Create (RefClass(cComPools)) to hoPools
	Set pvComObject of hoPools to voPools
		Variant voPool
		Get ComAdd of hoPools -100 -100 250 250 to voPool
		Handle hoPool
		Get Create (RefClass(cComPool)) to hoPool
		Set pvComObject of hoPool to voPool
			Variant voLane
			Get ComLane of hoPool OLEexLaneHorizontal to voLane
			Handle hoLane
			Get Create (RefClass(cComLane)) to hoLane
			Set pvComObject of hoLane to voLane
				Variant voLanes
				Get ComChildren of hoLane to voLanes
				Handle hoLanes
				Get Create (RefClass(cComLanes)) to hoLanes
				Set pvComObject of hoLanes to voLanes
					Set ComCount of hoLanes to 3
				Send Destroy to hoLanes
			Send Destroy to hoLane
		Send Destroy to hoPool
	Send Destroy to hoPools
	Send ComEndUpdate
End_Procedure
27:
How can I display icons on headers

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="
	Variant voPools
	Get ComPools to voPools
	Handle hoPools
	Get Create (RefClass(cComPools)) to hoPools
	Set pvComObject of hoPools to voPools
		Variant voPool
		Get ComAdd of hoPools -100 -100 250 250 to voPool
		Handle hoPool
		Get Create (RefClass(cComPool)) to hoPool
		Set pvComObject of hoPool to voPool
			Set ComHeaderVisible of hoPool OLEexHeaderLeft to False
			Set ComHeaderVisible of hoPool OLEexHeaderRight to False
			Set ComHeaderVisible of hoPool OLEexHeaderBottom to False
			Set ComHeaderSize of hoPool OLEexHeaderTop to 24
			Variant voLane
			Get ComLane of hoPool OLEexLaneVertical to voLane
			Handle hoLane
			Get Create (RefClass(cComLane)) to hoLane
			Set pvComObject of hoLane to voLane
				Variant voLanes
				Get ComChildren of hoLane to voLanes
				Handle hoLanes
				Get Create (RefClass(cComLanes)) to hoLanes
				Set pvComObject of hoLanes to voLanes
					Set ComCount of hoLanes to 3
					Variant voLane1
					Get Comitem of hoLanes 0 to voLane1
					Handle hoLane1
					Get Create (RefClass(cComLane)) to hoLane1
					Set pvComObject of hoLane1 to voLane1
						Variant voHeaderLane
						Get ComHeader of hoLane1 to voHeaderLane
						Handle hoHeaderLane
						Get Create (RefClass(cComHeaderLane)) to hoHeaderLane
						Set pvComObject of hoHeaderLane to voHeaderLane
							Set ComCaption of hoHeaderLane to "<img>1</img> A"
						Send Destroy to hoHeaderLane
					Send Destroy to hoLane1
					Variant voLane2
					Get Comitem of hoLanes 1 to voLane2
					Handle hoLane2
					Get Create (RefClass(cComLane)) to hoLane2
					Set pvComObject of hoLane2 to voLane2
						Variant voHeaderLane1
						Get ComHeader of hoLane2 to voHeaderLane1
						Handle hoHeaderLane1
						Get Create (RefClass(cComHeaderLane)) to hoHeaderLane1
						Set pvComObject of hoHeaderLane1 to voHeaderLane1
							Set ComCaption of hoHeaderLane1 to "<img>2</img> B"
						Send Destroy to hoHeaderLane1
					Send Destroy to hoLane2
					Variant voLane3
					Get Comitem of hoLanes 2 to voLane3
					Handle hoLane3
					Get Create (RefClass(cComLane)) to hoLane3
					Set pvComObject of hoLane3 to voLane3
						Variant voHeaderLane2
						Get ComHeader of hoLane3 to voHeaderLane2
						Handle hoHeaderLane2
						Get Create (RefClass(cComHeaderLane)) to hoHeaderLane2
						Set pvComObject of hoHeaderLane2 to voHeaderLane2
							Set ComCaption of hoHeaderLane2 to "<img>3</img> C"
						Send Destroy to hoHeaderLane2
					Send Destroy to hoLane3
				Send Destroy to hoLanes
			Send Destroy to hoLane
		Send Destroy to hoPool
	Send Destroy to hoPools
	Send ComEndUpdate
End_Procedure
26:
How do I change the Lane and Phase strings being displayed on the lanes

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefPoolHeaderCaptionFormat True to "<fgcolor 808080>Faza <off -4><b><font ;6>%i"
	Set ComDefPoolHeaderCaptionFormat False to "<fgcolor 808080>Culoar <off -4><b><font ;6>%i"
	Variant voPools
	Get ComPools to voPools
	Handle hoPools
	Get Create (RefClass(cComPools)) to hoPools
	Set pvComObject of hoPools to voPools
		Variant voPool
		Get ComAdd of hoPools -100 -100 250 250 to voPool
		Handle hoPool
		Get Create (RefClass(cComPool)) to hoPool
		Set pvComObject of hoPool to voPool
			Variant voLane
			Get ComLane of hoPool OLEexLaneHorizontal to voLane
			Handle hoLane
			Get Create (RefClass(cComLane)) to hoLane
			Set pvComObject of hoLane to voLane
				Variant voLanes
				Get ComChildren of hoLane to voLanes
				Handle hoLanes
				Get Create (RefClass(cComLanes)) to hoLanes
				Set pvComObject of hoLanes to voLanes
					Set ComCount of hoLanes to 3
				Send Destroy to hoLanes
			Send Destroy to hoLane
			Variant voLane1
			Get ComLane of hoPool OLEexLaneVertical to voLane1
			Handle hoLane1
			Get Create (RefClass(cComLane)) to hoLane1
			Set pvComObject of hoLane1 to voLane1
				Variant voLanes1
				Get ComChildren of hoLane1 to voLanes1
				Handle hoLanes1
				Get Create (RefClass(cComLanes)) to hoLanes1
				Set pvComObject of hoLanes1 to voLanes1
					Set ComCount of hoLanes1 to 3
				Send Destroy to hoLanes1
			Send Destroy to hoLane1
			Variant voLane2
			Get ComLane of hoPool OLEexLaneVertical to voLane2
			Handle hoLane2
			Get Create (RefClass(cComLane)) to hoLane2
			Set pvComObject of hoLane2 to voLane2
				Variant voLanes2
				Get ComChildren of hoLane2 to voLanes2
				Handle hoLanes2
				Get Create (RefClass(cComLanes)) to hoLanes2
				Set pvComObject of hoLanes2 to voLanes2
					Variant voLane3
					Get Comitem of hoLanes2 1 to voLane3
					Handle hoLane3
					Get Create (RefClass(cComLane)) to hoLane3
					Set pvComObject of hoLane3 to voLane3
						Variant voHeaderLane
						Get ComHeader of hoLane3 to voHeaderLane
						Handle hoHeaderLane
						Get Create (RefClass(cComHeaderLane)) to hoHeaderLane
						Set pvComObject of hoHeaderLane to voHeaderLane
							Set ComCaption of hoHeaderLane to "<fgcolor FF0000><b>NEW"
						Send Destroy to hoHeaderLane
					Send Destroy to hoLane3
				Send Destroy to hoLanes2
			Send Destroy to hoLane2
		Send Destroy to hoPool
	Send Destroy to hoPools
	Send ComEndUpdate
End_Procedure
25:
How can I enlarge the node while AutoSize property is True (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexElementBackColor to (RGB(255,255,255))
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Variant voElement
		Get ComAdd of hoElements "Element" 0 0 to voElement
		Handle hoElement
		Get Create (RefClass(cComElement)) to hoElement
		Set pvComObject of hoElement to voElement
			Variant voElement1
			Get ComCopy of hoElement Nothing Nothing to voElement1
			Handle hoElement1
			Get Create (RefClass(cComElement)) to hoElement1
			Set pvComObject of hoElement1 to voElement1
				Set ComCaption of hoElement1 to "Enlarged Element"
				Set ComInflateSize of hoElement1 to 16
			Send Destroy to hoElement1
		Send Destroy to hoElement
	Send Destroy to hoElements
End_Procedure
24:
How can I enlarge the node while AutoSize property is True (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexElementBackColor to (RGB(255,255,255))
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Variant voElement
		Get ComAdd of hoElements "Element" 0 0 to voElement
		Handle hoElement
		Get Create (RefClass(cComElement)) to hoElement
		Set pvComObject of hoElement to voElement
			Variant voElement1
			Get ComCopy of hoElement Nothing Nothing to voElement1
			Handle hoElement1
			Get Create (RefClass(cComElement)) to hoElement1
			Set pvComObject of hoElement1 to voElement1
				Set ComCaption of hoElement1 to "Enlarged Element"
				Set ComPadding of hoElement1 OLEexPaddingAll to 16
			Send Destroy to hoElement1
		Send Destroy to hoElement
	Send Destroy to hoElements
End_Procedure
23:
How can I get the lane of the element

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voPools
	Get ComPools to voPools
	Handle hoPools
	Get Create (RefClass(cComPools)) to hoPools
	Set pvComObject of hoPools to voPools
		Variant voPool
		Get ComAdd of hoPools -150 -150 500 250 to voPool
		Handle hoPool
		Get Create (RefClass(cComPool)) to hoPool
		Set pvComObject of hoPool to voPool
			Variant voLane
			Get ComLane of hoPool OLEexLaneHorizontal to voLane
			Handle hoLane
			Get Create (RefClass(cComLane)) to hoLane
			Set pvComObject of hoLane to voLane
				Variant voLanes
				Get ComChildren of hoLane to voLanes
				Handle hoLanes
				Get Create (RefClass(cComLanes)) to hoLanes
				Set pvComObject of hoLanes to voLanes
					Set ComCount of hoLanes to 3
				Send Destroy to hoLanes
			Send Destroy to hoLane
		Send Destroy to hoPool
	Send Destroy to hoPools
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Variant voElement
		Get ComAdd of hoElements "Element" Nothing Nothing to voElement
		Handle hoElement
		Get Create (RefClass(cComElement)) to hoElement
		Set pvComObject of hoElement to voElement
			Send ComCenterOnLane of hoElement False
			Variant lane
			Get ComLaneID of hoElement False to lane
			Variant v
				Variant voLane1
				Get ComLaneByID lane to voLane1
				Handle hoLane1
				Get Create (RefClass(cComLane)) to hoLane1
				Set pvComObject of hoLane1 to voLane1
					Variant voHeaderLane
					Get ComHeader of hoLane1 to voHeaderLane
					Handle hoHeaderLane
					Get Create (RefClass(cComHeaderLane)) to hoHeaderLane
					Set pvComObject of hoHeaderLane to voHeaderLane
						Get ComCaption of hoHeaderLane to v
					Send Destroy to hoHeaderLane
				Send Destroy to hoLane1
			Showln v
		Send Destroy to hoElement
	Send Destroy to hoElements
	Send ComEndUpdate
End_Procedure
22:
How can I define a different shape for elements

// A new element has been added to the surface.
Procedure OnComAddElement Variant   llElement
	Forward Send OnComAddElement llElement
	Move to Element
End_Procedure

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 "gBFLBCJwBAEHhEJAAChABAQDg6AADACAxRDQNABQKAAzQFAYahuHKGAAGEaBYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQwDiAUIjIK8IhkGIcZAGIBJCjWGodQLOEgwHIERQjEyUJAGGYqEjaO41SpAdI0PCxUScACnDQiegJRgmQ4cTJSchSAKENx1JaeYReewwAqNd5TRwNIiydZUIhqGC1YRte4ZWiCWoJVzSVDLfbgAT4X60IIlCi5Mi6MIgDZJFDUNLUdRBMKNJ7qagaWoWOaQRbmAQQTRYLQ/TiEXZDQRAAyLJIWVRQWTAAKVbw1LiEcznGCcejzIIDaZpOh4DplWzTOgALjta4IRpvNwAbIAF4gBqsLyXXLcdQyORMiwbxZgSDhgnQbJFC6F5JhECA8CADwIgMeQnmoQJlh0eAfGcXYZjwccOHiWx/moAJ6jed4DC2dJnnmQRxBcKABBoWAcHULZLHyV4mmGOx0FmdpZAMAgQhEQBpBiRxBlQcgZFUdAMEYAxQDECBNgaUYglkCQKBGZANk0QgBgQXAQgcGI0FwJAHA6WI+DGDAjCiVg0g2Yw4mYNg7E0eJ1H+DpkAiYhBg6JApBYRMvDkJhGhKJIImEA4QledZ8H+FJlEEQhWBAJa8loRoCgkdhYBAExZHQKIXmUYRCFQI5mgWfZ4hMJpJC4boTGcCY0m0QJVBAIh2EIZZ5H4VIVAqeZ1H8M5oAmSg7g8TR1n4fQrmUQZCgqF5eEmYhYBgKQJiCD4PmaegKhWJZnAQDZkhqaYKFocYnGadZ8h+KJoiGQhfEIURAmKEAYAgeo1H8OZrAoeoyhGKYngaHInmuCpOjmKAkHMHo+iiSZxmKQoXkGCwWigRQlnqLh7jKSh7DYUYzm0CgAk+DIrFCAo3i6LYKnKWYuk6Wp4keKIqDsLh7BYLhJmaZo5mcYAijAOZtFsXpajubZLG6co8CSShtnYeJrGeVpzjwbxLnafI/mcK5ZnmPgtGuap+j6cIMB8CocDAK43AaQAwjwJwQkSaZsDcBI7jETBHBqRhxkibwWkCMQsgcG5Ii2TB+nkN5yEyJwjkqcJMh8DpKDKTIrB2TBmnyGwFkwMw8mcMpOmQbJbBiTwziyUxBDsc5sD8QJRnQKprEWTg0g0DxNlKMpsF8RpSHUTQ7BuUp0n0VxZi4MxrDSJ40DYDYHGKWJ2E2FxmyADYnGqMRBgeYh0FOLh9kccpcncJsVw7RdjvA2M4eovRmCSFkMwQIoAQEBA" to Nothing
		Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAAChABAIDg6AADACAxRDQNABQKAAzQFAYaBmG6GAAGEaBYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQ1DAAUIjKLMIhmGAYJAGIBJCjWGodQLOEgwHIERQjEyUpIyVAkYw5HqNaQjICoJoSOwAU47IaCIAFJSpCygKKgSjhRpoAAyU5IUgVPC4XSbD6zYDqapaTheEQyDSJNr3DCMUTlFYYLrmaQKMhqZJhWjbFSWXUpJ4pSrLMIyfTwZRJGzIK7jabLIjaP6GUDhVaYbRUL46CiEb5AAJsVpCCZrYRJOYVdQeDYbQCNLDhHQIDqaA6kZRAdQ2bpMBznPSvbovDgLWhGYqhbLCNibRC+d4HNrCYIlCjpMw3CYGIOHOMRsm0OxFjSZppneHQNFcSwRAOaprjqY4dgYe4VgGWwADucRuHYCpdByYROH8AAOC8D4NgEXwYBWEZyGAWoHg2MRCECBAkFAGhGDGUB1ByBhQkUIAPgCRAMEIExhIuNhCEKBAlnAcwQgAYQXAIIRWEUFwJAGQ42CiCoihiLgugsYwDjSZ4MkICJWCaDZjgiZg6EIQQInSV4PmKeIyEKEBkBQDhEgwZBzjSd4SlEQJgk+E5khkRhIhSZA5FIUoVGWCQkl+FpkliTJnhXSYaFaGJOlEIhmC2ZoJgIZIaiWGYuG62IpDyT4TGSM5eGyCpmCnPIcCeQg+H6HZmnoAh6iAaBDjSL4hkUCgmgKHhlHmeIPh8BwKAqEohGkOgOHCI4pAmMoMhUKByj6CQUCkWoGhSKJpGkJoQiOJR6G4cYTmcSQuiKKRqEqPovhmBIJiCN4YEACQGFsN5lliToyiwbAKkKQoSGcWQ2HKERrhiJJvjLUR8leL5sDsBpQiUZZpDaO4eAACZWh+LYtDsSpejQbmJnIEAuEsLJvECRgLiSH46m2W4Gl+OxpFqWo0ECSR7lQaI9m8C4+nqO4uAIHp+B4MAJmcAAeC+YgenmPwwHwHInkKRYMDaWIQGmeh3AmPpxDsCJHkWbhBAIdZDmMGZXBmRZMHwVwikUIwam0MAMC4awiEmOYyHsXwkkIMp5jMLBMDKaRiiqEBsmkNwpkwc5MyiHRrEKfxCiobIaFsQgvmsTBvD2SJuAwNBYkKSh6GsRYbDUDQ7EyVZmEwDwFiKdQ6BQf5XnYDRjD6IIujIfppBgKRcl6BZZnYXYLBWLYpn0KpglqLAtAIZoOneBsZw9RJjnQ+AYQAgCAg=" to Nothing
		Get ComAdd of hoAppearance 3 "gBFLBCJwBAEHhEJAAChABQsMACAADACAxRDQNABQKAAzQFAYawLBgABhGUZoJhUAIIRZGMIjFDcEwxC6NIpAWCYQgUNQCQiNAzxAKQchhD4ZAIkGY4ZhyA42SBAcbyDCEShoGqPRhmCg5UjmM4oQLSFDULC0fSBBIYaSGEY5QoqIYfArGQYQTRUPyUdoOBIACwLChWLA1CTZdowSKoYTXBq3IgqerIapmSYaV7YNh3VY1IR/JSVJYlaYJDoyNI4ThHc5xVLtfSfAiiJrxOKcTAAFJ0QKFUbRUz+OgBTpvaZxagaSpSG5WRpWEI5PAdN4zTa7YDsS67FiSG5oWpEFq2eAGdzlVLMMqhG5gAxqNKzbLfMCXfJIbyrBIcYLoXItCqFYskMTwxlgAY+haFZRlQZQ4HwHR3AoMx5jEch2lMfZGl8eY+jYXBvBsAAHFeRQDmuRR8nsSI2CoEgIEIRQBiQYwdAcUZIGUUIQhGGAGECRAhDYChGFERAMCgQheEcGQgHkEAwkICx2BCFoAj+B5iAiBgigiYhIgid4JkIQBwm2ChijiKgsguYpokYLYMmKQIiDYDgjgEAg6g6Y5InYPoPmOIAiEKEJFgkFIvhGYwIlIMoSTmAhOGgJJJC4UoSiUSIcncKZlp8WoOAOAxeF6FBlEkNhPGcZgJhYU4ZiMMweGoDAmkGfhuhWJoJDgIIUCYeZWGGHYkhkWhuB+ZYhEIcIUmcKZSHeIJmgoFgyCeaIBgKCoYCgGYSHiI5oEoQgsiKBgKCCH4SOAfoGiQaZKPmJ5jGCIJniiZgpk6DonGkKomgOHpnjqFoCiaawKioSYXg0eoGi6KZrBqIo6hgEIal6GosiwCpuDIBgsEqDJniYa4bVuFYkDqepKjCLQJiiR4XCyawGk+JpGgsZIXjabRbEKV4disSYwDCH5OlsIpWjmaA5HKUomCYOp+l6OgkhoUoWiMLpbH6bw7G0KRynOHYuGuXobhWB4MAaaoaimO52naB4hnkYInhERYLBAGAhnECw+H2BwhkmSg7kMMIqHyb49hAECAg=" to Nothing
		Get ComAdd of hoAppearance 4 "gBFLBCJwBAEHhEJAAChABOIDg6AADACAxRDQNABQKAAzQFAYaBqGCGAAGEZRSgmFgAQhFcZQTCsBw7DCEYxjOAwFgmEQxDIOIBQSKYcwiGQaRrkIYgEiONoaR7HchSFIcIxPFKRBhkKYocjyG5GRoBcIyXAcRSYAB2Q4ESoKShePw5UDTcCzHR8RxEDKNRLpOQbDgOUZTWbVUaDKIsXzZCKHbZhG4YRp6CZKRpYEB1bYtKTRKqLKrpeTbOoSHolTbiIATTYlG4THyEZQrDIaDjOSIXZaGFzwSDWGgBJ60bRwHIaAxGWoHRxfEZVfBONQHMSBc5xa64JyHAImWrcUbWfaYYZ0AC6MRkK8cXABPQANixKZsCizE4DDbTYzjRheC2F4nnEOJRG0BRXEWOICEocByiyCJTiQOJVGYIQ8gofpDgsG5uF+ah6D2Xp+GGP5gkCfwRHofwOnuSB2heVpZnIUZQhAIQJBQBoRgwdAdEcIYVEIQhGGAMQDBCBJYEUGgNhCEMcHsXIkCIAAMIILQWAkAZDjYJIJiIWIeCqCRMHiNI/guYwIkYMoMmMSJWDaDZjgiTIzg6Yo4iIPoPGIdAmECChiFKXhGAQJIAmISgQCSSQ2E6E5lAkRhShSZRJFQOoVkCaRkAqFpQhIPhehCY54hYQoRCOYo+GaExOnmJhghqZhJjIYYbmaaJ0l+HJkiCYgtDGY5RkIegfmeSY6GOD4MnoBh1D2aBJkYbYhmcCgigaIhOloEJ3h0aATD4bgWCkQoehaGAnniHhNgwKI6HaConmiSYCF4I5niGQoLDmaoAiKKoaE6eJ2H+HZnFoeohigKwqCwGItmqA4ejIHgrkIHo+iuEA4h6PGMmIHo1i0LIKk6SoMCSWwcm2LAkisAAAgmQgLFYcw3myaxmkmG4GgsdIXjebYjjaVQIC0eQFAONADguBpqjaaIKlwGIuG4GwOkWOYAAqDoljqbIrmIJ41m4O5iGYK5FAwBp0ikag7mqbI+GoCwyEyPgpBCQwOj0KRBGKFgpnAbAjXWMQ8EaeIuG6a5SHWHZxFyBoIjEbA8FQCJJmiZAmmOORwHyCwXgkbwqn8LYoDKOZNAmJpinyOzTm8aZrBWH5QhGAxCCedBMm8L5Fi+fAEFCPgvksVp0h8NQBn8RpLi7NQKBALxLHyF43EaDRPDOMoxkqXp4kYaRLlMTQIDWbQeguR5iluBxCBgNBCH6dIJnaSZjF+LQZgGQSh5DOFEa4dQsi5GILsaA8ReBuHoEYZ4ZwkDFFwJEYo2grjcHOFUAoFA7gJFqFEDYrQyilC+PwNgyRBBLH4C8FIzxiD8CeBYEgUQ9CtAiEwYgtQyDqDWPUTjBhXBrCmAcKoJQ6iGF6DEMA8BpieA4BgMQdxDg9GSOkLQgRCjhHiDMV4Ewfh3AoGULIiBujRAuJ0c4+gEi4ASOkRAfhWgjCKKEFACCAg" to Nothing
		Get ComAdd of hoAppearance 5 "gBFLBCJwBAEHhEJAAChABGgDg6AADACAxRDQNABQKAAzQFAYZBwGiGAAGEaRWgmFgAQhFcZQSKUOQTDKMIziYBYJAKCQ3DTJUBjIKcIhiGsgAzAJIUaw1DqGY7nKZoRioAIoSAMM7DCKUQSLGyQZqBSCQGjsAI+OyHAiABSNJwtHygIRoKqqHg2PoiSAEUZhdRlHShKSqLQiaIRSDUJZsW5EIyjBZ8EznOqbJApOKrCgOTYaWbUdSxPTEUwTFiXJgmKRKIoiOAAY7IEgSFLsThrIKha5yDI4bxyAwXQjeYABbY0E4HQarcqzCrKGp/HYJXyAGgQHYkB5JAaQMBtGpoJrCeKQXDdVyXFwdET1BLZQA2HeUTTRVCScqnaTMZh8DgGxniKfYbngAxFkmVJAnSdougwDhRlMGZ1GEPR9HQapDGWWhyCMe4ugQDx9naYRvm6cQfAUJ47m8cofBYAZOGCHg2mETgCBCERAGkGJHEGVByBkUwUCSIgChAMQIE2BJRiQVQDAoEIWlWIxOgGBBcGyBQYlQXAkAcDpYh4KYKCKKI2CyC5ijONJvgySZ4lQWINkKCJmCWDpjkQaJPg+UA4joMYQiQI4eEYHAkgAYhKBgJJCh43JlAkEgwhSJA5E4VoVE6UQCFoL5lkkBhXhUCR5gYOQKAieYUneGZlEmJhfhqZYJFIWgQCWQp+F6GxigmHJ3BoJ4JmYMw7maKZSH6HxoAiQhvhwZ1VHYFAogmBIXiAZ55jKDIQgeChGG+G5BAoVJHiWaBYkIecznoOoeiMZYCj6IoYmcGhckeCophONoKh4aZagKLYrGkEZggeLJkCmThGDmZg5m6L4nmuOoCHaGJNnsBooAAIopCAcIZEiep2kqLwpnqCIviIBQLA4dolEECZakuK4sksYhYAgLZLOsQJLHuBBIjibR7haWYfGwawhAOJpmBuGpajuJRJkYbxAmgORynCOZvgqApejcAgIG4OYUA0e5em+PhokQXhKAYKx8AsCo+FEcJDA6D5MnwLwDkTWJulQQJuDEIphC2cQsHYbJEDCYJBAOLBrDIHwekUMBIiITgpmMcRhAOKYDgyRwnkyYwMjcK4cnAfAnCmSgzkoGhnkGZ45k6SIxjMTPIFCZOZEKSBxA0Fpui2b5LFoKIqGoaY/FKUY1gmdpQjOKxbBIV4zi0DQ6nmOhmFkUophCLILEMV5YiWCZkH+W5nl2HxfiiMwQmMTZOmqLhaLsx9iUH6JAMI1hCDjECFQawhghjBG2DseoGQzhNHwDwTAMAsgTEeCUZI1Q5jFHyLodYmWxB8GsPEVIPwxhSD6Awb4dgJD2HsAQQIoAQEB" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexElementBackColor to (RGB(255,255,255))
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Variant voElement
		Get ComAdd of hoElements "Rectangular" 0 0 to voElement
		Handle hoElement
		Get Create (RefClass(cComElement)) to hoElement
		Set pvComObject of hoElement to voElement
			Set ComShape of hoElement to OLEexShapeRectangular
		Send Destroy to hoElement
		Variant voElement1
		Get ComAdd of hoElements "Round" 82 0 to voElement1
		Handle hoElement1
		Get Create (RefClass(cComElement)) to hoElement1
		Set pvComObject of hoElement1 to voElement1
			Set ComShape of hoElement1 to OLEexShapeRound
		Send Destroy to hoElement1
		Variant voElement2
		Get ComAdd of hoElements "Rhomb" 138 0 to voElement2
		Handle hoElement2
		Get Create (RefClass(cComElement)) to hoElement2
		Set pvComObject of hoElement2 to voElement2
			Set ComShape of hoElement2 to OLEexShapeRhomb
		Send Destroy to hoElement2
		Variant voElement3
		Get ComAdd of hoElements "Circle" 196 0 to voElement3
		Handle hoElement3
		Get Create (RefClass(cComElement)) to hoElement3
		Set pvComObject of hoElement3 to voElement3
			Set ComShape of hoElement3 to OLEexShapeCircle
		Send Destroy to hoElement3
		Variant voElement4
		Get ComAdd of hoElements "EBN 1" 0 36 to voElement4
		Handle hoElement4
		Get Create (RefClass(cComElement)) to hoElement4
		Set pvComObject of hoElement4 to voElement4
			Set ComBackColor of hoElement4 to |CI$1000000
			Set ComBorder of hoElement4 to OLEexNoLines
		Send Destroy to hoElement4
		Variant voElement5
		Get ComAdd of hoElements "EBN 2" 54 36 to voElement5
		Handle hoElement5
		Get Create (RefClass(cComElement)) to hoElement5
		Set pvComObject of hoElement5 to voElement5
			Set ComBackColor of hoElement5 to |CI$2000000
			Set ComBorder of hoElement5 to OLEexNoLines
		Send Destroy to hoElement5
		Variant voElement6
		Get ComAdd of hoElements "EBN 3" 108 36 to voElement6
		Handle hoElement6
		Get Create (RefClass(cComElement)) to hoElement6
		Set pvComObject of hoElement6 to voElement6
			Set ComBackColor of hoElement6 to |CI$3000000
			Set ComBorder of hoElement6 to OLEexNoLines
		Send Destroy to hoElement6
		Variant voElement7
		Get ComAdd of hoElements "EBN 4   " 160 36 to voElement7
		Handle hoElement7
		Get Create (RefClass(cComElement)) to hoElement7
		Set pvComObject of hoElement7 to voElement7
			Set ComBackColor of hoElement7 to |CI$4000000
			Set ComBorder of hoElement7 to OLEexNoLines
		Send Destroy to hoElement7
		Variant voElement8
		Get ComAdd of hoElements "EBN 5 " 220 36 to voElement8
		Handle hoElement8
		Get Create (RefClass(cComElement)) to hoElement8
		Set pvComObject of hoElement8 to voElement8
			Set ComBackColor of hoElement8 to |CI$5000000
			Set ComMinHeight of hoElement8 to 64
			Set ComMinWidth of hoElement8 to 64
			Set ComBorder of hoElement8 to OLEexNoLines
		Send Destroy to hoElement8
	Send Destroy to hoElements
	Set ComScrollPos False to -160
	Send ComEndUpdate
End_Procedure
21:
Is it possible to add an inner control on the surface

// Occurs once an inside control fires an event.
Procedure OnComOleEvent Variant   llElement Variant   llEv
	Forward Send OnComOleEvent llElement llEv
	Showln llEv
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Variant voElement
		Get ComAdd of hoElements "activex hosting" Nothing Nothing to voElement
		Handle hoElement
		Get Create (RefClass(cComElement)) to hoElement
		Set pvComObject of hoElement to voElement
			Set ComType of hoElement to OLEexElementHostControl
			Set ComControl of hoElement to "Forms.CommandButton.1"
			Set ComCaption of hoElement to "Command Button"
			Set ComHeight of hoElement to 64
			Set ComWidth of hoElement to 128
			Set ComElementFormat of hoElement to "14;"caption"/"client""
			Set ComCaptionAlign of hoElement to OLEexTopCenter
		Send Destroy to hoElement
	Send Destroy to hoElements
End_Procedure
20:
How can I create a copy of the element
Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexElementBackColor to (RGB(255,255,255))
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Variant voElement
		Get ComAdd of hoElements "Element 1" 0 0 to voElement
		Handle hoElement
		Get Create (RefClass(cComElement)) to hoElement
		Set pvComObject of hoElement to voElement
			Variant voElement1
			Get ComCopy of hoElement Nothing Nothing to voElement1
			Handle hoElement1
			Get Create (RefClass(cComElement)) to hoElement1
			Set pvComObject of hoElement1 to voElement1
				Set ComCaption of hoElement1 to "Aka"
			Send Destroy to hoElement1
		Send Destroy to hoElement
	Send Destroy to hoElements
End_Procedure
19:
How can I define an opaque background for elements

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexElementBackColor to (RGB(255,255,255))
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Get ComAdd of hoElements "Element 1" 0 0 to Nothing
	Send Destroy to hoElements
	Variant voElements1
	Get ComElements to voElements1
	Handle hoElements1
	Get Create (RefClass(cComElements)) to hoElements1
	Set pvComObject of hoElements1 to voElements1
		Get ComAdd of hoElements1 "Element 2" 16 16 to Nothing
	Send Destroy to hoElements1
End_Procedure
18:
How can I show a different context-menu for all elements
// Occurs when the user selects an item from the object's context menu.
Procedure OnComActionContextMenu OLEContextMenuObjectActionEnum   llAction OLEContextMenuObjectTypeEnum   llObjectType Variant   llObjectID Integer   llCommandID Boolean   llCommandChecked Variant   llCommandCaption Variant   llCommandValue Boolean   llCancel
	Forward Send OnComActionContextMenu llAction llObjectType llObjectID llCommandID llCommandChecked llCommandCaption llCommandValue llCancel
	Showln llAction llObjectID llCommandID
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComContextMenu OLEexContextMenuElement to "Item 1[id=1000],Item 2[id=2000]"
	Set ComBackground OLEexElementBackColor to (RGB(255,255,255))
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Get ComAdd of hoElements "Element 1" 0 0 to Nothing
	Send Destroy to hoElements
	Variant voElements1
	Get ComElements to voElements1
	Handle hoElements1
	Get Create (RefClass(cComElements)) to hoElements1
	Set pvComObject of hoElements1 to voElements1
		Get ComAdd of hoElements1 "Element 2" 16 16 to Nothing
	Send Destroy to hoElements1
End_Procedure
17:
How can I show a different context-menu for element
Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Variant voElement
		Get ComAdd of hoElements "Element" 0 0 to voElement
		Handle hoElement
		Get Create (RefClass(cComElement)) to hoElement
		Set pvComObject of hoElement to voElement
			Get ComInvokeContextMenu of hoElement "Item 1[id=1000],Item 2[id=2000]" to v
		Send Destroy to hoElement
	Send Destroy to hoElements
	Showln v
End_Procedure
16:
How can I change the design-modes being shown on the control's toolbar

Procedure OnCreate
	Forward Send OnCreate
	Set ComDesignModes to "Read-Only#0,Allow Any#3,Only-Element#1,Only-Pool#2"
End_Procedure
15:
How can I change the default header's background color

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voPools
	Get ComPools to voPools
	Handle hoPools
	Get Create (RefClass(cComPools)) to hoPools
	Set pvComObject of hoPools to voPools
		Variant voPool
		Get ComAdd of hoPools -250 -150 500 250 to voPool
		Handle hoPool
		Get Create (RefClass(cComPool)) to hoPool
		Set pvComObject of hoPool to voPool
			Variant voLane
			Get ComLane of hoPool OLEexLaneHorizontal to voLane
			Handle hoLane
			Get Create (RefClass(cComLane)) to hoLane
			Set pvComObject of hoLane to voLane
				Variant voLanes
				Get ComChildren of hoLane to voLanes
				Handle hoLanes
				Get Create (RefClass(cComLanes)) to hoLanes
				Set pvComObject of hoLanes to voLanes
					Set ComCount of hoLanes to 4
				Send Destroy to hoLanes
			Send Destroy to hoLane
			Variant voLane1
			Get ComLane of hoPool OLEexLaneVertical to voLane1
			Handle hoLane1
			Get Create (RefClass(cComLane)) to hoLane1
			Set pvComObject of hoLane1 to voLane1
				Variant voLanes1
				Get ComChildren of hoLane1 to voLanes1
				Handle hoLanes1
				Get Create (RefClass(cComLanes)) to hoLanes1
				Set pvComObject of hoLanes1 to voLanes1
					Set ComCount of hoLanes1 to 4
				Send Destroy to hoLanes1
			Send Destroy to hoLane1
		Send Destroy to hoPool
	Send Destroy to hoPools
	Set ComBackground OLEexPoolHorizontalHeaderBackColor to (RGB(0,255,0))
	Set ComBackground OLEexPoolVerticalHeaderBackColor to (RGB(0,192,0))
	Send ComEndUpdate
End_Procedure
14:
How can I remove the Design item from the control's toolbar, to be locked ( no-design )

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolBarFormat to "-1,100,101"
	Set ComDesignMode to OLEexDesignLock
End_Procedure
13:
How can I remove/disable the Color and Display-Grid from the surface's context menu

Procedure OnCreate
	Forward Send OnCreate
	Set ComContextMenu OLEexContextMenuSurface to "Delete[id=-32004](All[id=-32000][ttp=Deletes all the objects from the surface],[sep],Elements[id=-32001][ttp=Deletes all elements from the surface],Links[id=-32002][ttp=Deletes all links from the surface],Pools[id=-32003][ttp=Deletes all pools from the surface])"
End_Procedure
12:
How can I change the element's context-menu when the user right-clicks the element

// Occurs when the user selects an item from the object's context menu.
Procedure OnComActionContextMenu OLEContextMenuObjectActionEnum   llAction OLEContextMenuObjectTypeEnum   llObjectType Variant   llObjectID Integer   llCommandID Boolean   llCommandChecked Variant   llCommandCaption Variant   llCommandValue Boolean   llCancel
	Forward Send OnComActionContextMenu llAction llObjectType llObjectID llCommandID llCommandChecked llCommandCaption llCommandValue llCancel
	// ContextMenuObjectFromID(ObjectType,ObjectID).BackColor = RGB(255,255,0)
	Showln llAction llCommandCaption
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Get ComAdd of hoElements "element" 0 0 to Nothing
	Send Destroy to hoElements
	Set ComContextMenu OLEexContextMenuElement to "Simple,Value[edit=123],[sep],Popup(Check 1[chk],Check 2[chk=1])"
	Send ComEndUpdate
End_Procedure
11:
How do I prevent showing the context-menu when user right-clicks the surface
Procedure OnCreate
	Forward Send OnCreate
	Set ComContextMenu OLEexContextMenuSurface to ""
End_Procedure
10:
How do I create parent-child (tree) lanes

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voPools
	Get ComPools to voPools
	Handle hoPools
	Get Create (RefClass(cComPools)) to hoPools
	Set pvComObject of hoPools to voPools
		Variant voPool
		Get ComAdd of hoPools -250 -150 500 250 to voPool
		Handle hoPool
		Get Create (RefClass(cComPool)) to hoPool
		Set pvComObject of hoPool to voPool
			Set ComHeaderSize of hoPool OLEexHeaderTop to 32
			Set ComHeaderVisible of hoPool OLEexHeaderBottom to False
			Variant voLane
			Get ComLane of hoPool OLEexLaneVertical to voLane
			Handle hoLane
			Get Create (RefClass(cComLane)) to hoLane
			Set pvComObject of hoLane to voLane
				Variant voLanes
				Get ComChildren of hoLane to voLanes
				Handle hoLanes
				Get Create (RefClass(cComLanes)) to hoLanes
				Set pvComObject of hoLanes to voLanes
					Set ComCount of hoLanes to 2
					Variant voLane1
					Get Comitem of hoLanes 0 to voLane1
					Handle hoLane1
					Get Create (RefClass(cComLane)) to hoLane1
					Set pvComObject of hoLane1 to voLane1
						Variant voLanes1
						Get ComChildren of hoLane1 to voLanes1
						Handle hoLanes1
						Get Create (RefClass(cComLanes)) to hoLanes1
						Set pvComObject of hoLanes1 to voLanes1
							Set ComCount of hoLanes1 to 2
							Variant voLane2
							Get Comitem of hoLanes1 0 to voLane2
							Handle hoLane2
							Get Create (RefClass(cComLane)) to hoLane2
							Set pvComObject of hoLane2 to voLane2
								Variant voHeaderLane
								Get ComHeader of hoLane2 to voHeaderLane
								Handle hoHeaderLane
								Get Create (RefClass(cComHeaderLane)) to hoHeaderLane
								Set pvComObject of hoHeaderLane to voHeaderLane
									Set ComCaption of hoHeaderLane to "Phase <b>1.1"
								Send Destroy to hoHeaderLane
							Send Destroy to hoLane2
							Variant voLane3
							Get Comitem of hoLanes1 1 to voLane3
							Handle hoLane3
							Get Create (RefClass(cComLane)) to hoLane3
							Set pvComObject of hoLane3 to voLane3
								Variant voHeaderLane1
								Get ComHeader of hoLane3 to voHeaderLane1
								Handle hoHeaderLane1
								Get Create (RefClass(cComHeaderLane)) to hoHeaderLane1
								Set pvComObject of hoHeaderLane1 to voHeaderLane1
									Set ComCaption of hoHeaderLane1 to "Phase <b>1.2"
								Send Destroy to hoHeaderLane1
							Send Destroy to hoLane3
						Send Destroy to hoLanes1
					Send Destroy to hoLane1
				Send Destroy to hoLanes
			Send Destroy to hoLane
		Send Destroy to hoPool
	Send Destroy to hoPools
	Send ComEndUpdate
End_Procedure
9:
How do I create a pool with horizontal and lanes

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voPools
	Get ComPools to voPools
	Handle hoPools
	Get Create (RefClass(cComPools)) to hoPools
	Set pvComObject of hoPools to voPools
		Variant voPool
		Get ComAdd of hoPools -250 -150 500 250 to voPool
		Handle hoPool
		Get Create (RefClass(cComPool)) to hoPool
		Set pvComObject of hoPool to voPool
			Variant voLane
			Get ComLane of hoPool OLEexLaneHorizontal to voLane
			Handle hoLane
			Get Create (RefClass(cComLane)) to hoLane
			Set pvComObject of hoLane to voLane
				Variant voLanes
				Get ComChildren of hoLane to voLanes
				Handle hoLanes
				Get Create (RefClass(cComLanes)) to hoLanes
				Set pvComObject of hoLanes to voLanes
					Set ComCount of hoLanes to 4
				Send Destroy to hoLanes
			Send Destroy to hoLane
			Variant voLane1
			Get ComLane of hoPool OLEexLaneVertical to voLane1
			Handle hoLane1
			Get Create (RefClass(cComLane)) to hoLane1
			Set pvComObject of hoLane1 to voLane1
				Variant voLanes1
				Get ComChildren of hoLane1 to voLanes1
				Handle hoLanes1
				Get Create (RefClass(cComLanes)) to hoLanes1
				Set pvComObject of hoLanes1 to voLanes1
					Set ComCount of hoLanes1 to 4
				Send Destroy to hoLanes1
			Send Destroy to hoLane1
		Send Destroy to hoPool
	Send Destroy to hoPools
	Send ComEndUpdate
End_Procedure
8:
How do I add programatically a pool with horizontal lanes

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voPools
	Get ComPools to voPools
	Handle hoPools
	Get Create (RefClass(cComPools)) to hoPools
	Set pvComObject of hoPools to voPools
		Variant voPool
		Get ComAdd of hoPools -250 -150 500 250 to voPool
		Handle hoPool
		Get Create (RefClass(cComPool)) to hoPool
		Set pvComObject of hoPool to voPool
			Variant voLane
			Get ComLane of hoPool OLEexLaneHorizontal to voLane
			Handle hoLane
			Get Create (RefClass(cComLane)) to hoLane
			Set pvComObject of hoLane to voLane
				Variant voLanes
				Get ComChildren of hoLane to voLanes
				Handle hoLanes
				Get Create (RefClass(cComLanes)) to hoLanes
				Set pvComObject of hoLanes to voLanes
					Set ComCount of hoLanes to 4
				Send Destroy to hoLanes
			Send Destroy to hoLane
		Send Destroy to hoPool
	Send Destroy to hoPools
	Send ComEndUpdate
End_Procedure
7:
How do I add programatically a pool with vertical lanes

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voPools
	Get ComPools to voPools
	Handle hoPools
	Get Create (RefClass(cComPools)) to hoPools
	Set pvComObject of hoPools to voPools
		Variant voPool
		Get ComAdd of hoPools -250 -150 500 250 to voPool
		Handle hoPool
		Get Create (RefClass(cComPool)) to hoPool
		Set pvComObject of hoPool to voPool
			Variant voLane
			Get ComLane of hoPool OLEexLaneVertical to voLane
			Handle hoLane
			Get Create (RefClass(cComLane)) to hoLane
			Set pvComObject of hoLane to voLane
				Variant voLanes
				Get ComChildren of hoLane to voLanes
				Handle hoLanes
				Get Create (RefClass(cComLanes)) to hoLanes
				Set pvComObject of hoLanes to voLanes
					Set ComCount of hoLanes to 4
				Send Destroy to hoLanes
			Send Destroy to hoLane
		Send Destroy to hoPool
	Send Destroy to hoPools
	Send ComEndUpdate
End_Procedure
6:
How can I change the toolbar's visual appearance

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexToolBarAppearance to |CI$1000000
	Set ComBackground OLEexToolBarBackColor to (RGB(255,255,255))
	Set ComBackground OLEexToolBarForeColor to (RGB(40,40,40))
	Set ComBackground OLEexToolBarButtonDownBackColor to |CI$1606060
	Set ComBackground OLEexToolBarButtonDownForeColor to (RGB(240,240,240))
	Set ComBackground OLEexToolBarButtonHotBackColor to |CI$1a0a0a0
	Set ComBackground OLEexToolBarButtonHotForeColor to (RGB(255,255,255))
End_Procedure
5:
How can I change the toolbar's background color

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexToolBarBackColor to (RGB(255,255,255))
End_Procedure
4:
How can I fit or ensure that all elements are in the control's client area
Procedure OnCreate
	Forward Send OnCreate
	Variant voElements
	Get ComElements to voElements
	Handle hoElements
	Get Create (RefClass(cComElements)) to hoElements
	Set pvComObject of hoElements to voElements
		Variant voElement
		Get ComAdd of hoElements "Element A" -500 -500 to voElement
		Handle hoElement
		Get Create (RefClass(cComElement)) to hoElement
		Set pvComObject of hoElement to voElement
			Set ComBackColor of hoElement to (RGB(0,255,0))
		Send Destroy to hoElement
		Variant voElement1
		Get ComAdd of hoElements "Element B" 500 500 to voElement1
		Handle hoElement1
		Get Create (RefClass(cComElement)) to hoElement1
		Set pvComObject of hoElement1 to voElement1
			Set ComBackColor of hoElement1 to (RGB(255,0,0))
		Send Destroy to hoElement1
		Get ComAdd of hoElements "Element C" 48 24 to Nothing
	Send Destroy to hoElements
	Send ComFitToClient
End_Procedure
3:
Context Menu - Microsoft Windows 8.1 - Ribbon Like

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:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn" to Nothing
		Get ComAdd of hoAppearance 2 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn" to Nothing
		Get ComAdd of hoAppearance 12 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn" to Nothing
		Get ComAdd of hoAppearance 14 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn" to Nothing
		Get ComAdd of hoAppearance 17 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn" to Nothing
		Get ComAdd of hoAppearance 18 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn" to Nothing
		Get ComAdd of hoAppearance 30 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio0.ebn" to Nothing
		Get ComAdd of hoAppearance 31 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio1.ebn" to Nothing
		Get ComAdd of hoAppearance 32 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn" to Nothing
		Get ComAdd of hoAppearance 33 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn" to Nothing
		Get ComAdd of hoAppearance 34 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn" to Nothing
		Get ComAdd of hoAppearance 35 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexContextMenuAppearance to |CI$1000000
	Set ComBackground OLEexToolTipAppearance to |CI$1fefefe
	Set ComBackground OLEexContextMenuSelBackColor to |CI$e000000
	Set ComBackground OLEexToolBarAppearance to |CI$1000000
	Set ComBackground OLEexToolBarBackColor to (RGB(255,255,255))
	Set ComBackground OLEexToolBarButtonHotBackColor to |CI$c000000
	Set ComBackground OLEexToolBarButtonDownBackColor to |CI$e000000
	Set ComBackground OLEexContextMenuHotBackColor to |CI$c000000
	Set ComBackground OLEexContextMenuSelHotBackColor to |CI$23000000
	Set ComBackground |CI$2 to |CI$22000000
	Set ComBackground |CI$3 to |CI$23000000
	Set ComBackground OLEexCheckBoxState0 to |CI$20000000
	Set ComBackground OLEexCheckBoxState1 to |CI$21000000
	Set ComBackground OLEexRadioButtonState0 to |CI$1e000000
	Set ComBackground OLEexRadioButtonState1 to |CI$1f000000
	Send ComEndUpdate
End_Procedure
2:
Context Menu - Microsoft Paint - Ribbon Like

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:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn" to Nothing
		Get ComAdd of hoAppearance 2 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn" to Nothing
		Get ComAdd of hoAppearance 3 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn" to Nothing
		Get ComAdd of hoAppearance 4 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn" to Nothing
		Get ComAdd of hoAppearance 5 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn" to Nothing
		Get ComAdd of hoAppearance 6 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn" to Nothing
		Get ComAdd of hoAppearance 7 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn" to Nothing
		Get ComAdd of hoAppearance 8 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn" to Nothing
		Get ComAdd of hoAppearance 9 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn" to Nothing
		Get ComAdd of hoAppearance 10 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn" to Nothing
		Get ComAdd of hoAppearance 11 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn" to Nothing
		Get ComAdd of hoAppearance 12 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn" to Nothing
		Get ComAdd of hoAppearance 13 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn" to Nothing
		Get ComAdd of hoAppearance 14 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn" to Nothing
		Get ComAdd of hoAppearance 15 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn" to Nothing
		Get ComAdd of hoAppearance 16 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn" to Nothing
		Get ComAdd of hoAppearance 17 "CP:16 0 0 0 1" to Nothing
		Get ComAdd of hoAppearance 18 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn" to Nothing
		Get ComAdd of hoAppearance 19 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn" to Nothing
		Get ComAdd of hoAppearance 20 "CP:19 0 0 0 1" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexContextMenuAppearance to |CI$1000000
	Set ComBackground OLEexContextMenuForeColor to (RGB(21,66,139))
	Set ComBackground OLEexContextMenuSelBackColor to |CI$e000000
	Set ComBackground OLEexToolTipAppearance to |CI$1fefefe
	Set ComBackground OLEexToolBarAppearance to |CI$1000000
	Set ComBackground OLEexToolBarBackColor to (RGB(255,255,255))
	Set ComBackground OLEexToolBarButtonHotBackColor to |CI$d000000
	Set ComBackground OLEexToolBarButtonDownBackColor to |CI$1000000
	Set ComBackground |CI$2 to |CI$d000000
	Set ComBackground OLEexContextMenuGroupPopupFrameSingle to |CI$5000000
	Set ComBackground OLEexContextMenuGroupPopupFrameHStart to |CI$6000000
	Set ComBackground OLEexContextMenuGroupPopupFrameHIntermediate to |CI$7000000
	Set ComBackground OLEexContextMenuGroupPopupFrameHEnd to |CI$8000000
	Set ComBackground OLEexContextMenuGroupPopupFrameVStart to |CI$9000000
	Set ComBackground OLEexContextMenuGroupPopupFrameVIntermediate to |CI$a000000
	Set ComBackground OLEexContextMenuGroupPopupFrameVEnd to |CI$b000000
	Set ComBackground OLEexContextMenuHotBackColor to |CI$c000000
	Set ComBackground OLEexContextMenuSelHotBackColor to |CI$f000000
	Send ComEndUpdate
End_Procedure
1:
Context Menu - Microsoft Office - Ribbon Like

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:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_background.ebn" to Nothing
		Get ComAdd of hoAppearance 2 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupt.ebn" to Nothing
		Get ComAdd of hoAppearance 3 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupo.ebn" to Nothing
		Get ComAdd of hoAppearance 4 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_grouphot.ebn" to Nothing
		Get ComAdd of hoAppearance 5 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameh.ebn" to Nothing
		Get ComAdd of hoAppearance 6 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehs.ebn" to Nothing
		Get ComAdd of hoAppearance 7 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehi.ebn" to Nothing
		Get ComAdd of hoAppearance 8 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehe.ebn" to Nothing
		Get ComAdd of hoAppearance 9 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevs.ebn" to Nothing
		Get ComAdd of hoAppearance 10 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevi.ebn" to Nothing
		Get ComAdd of hoAppearance 11 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameve.ebn" to Nothing
		Get ComAdd of hoAppearance 12 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_select.ebn" to Nothing
		Get ComAdd of hoAppearance 13 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_bordert.ebn" to Nothing
		Get ComAdd of hoAppearance 14 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttond.ebn" to Nothing
		Get ComAdd of hoAppearance 15 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttonu.ebn" to Nothing
		Get ComAdd of hoAppearance 16 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tab.ebn" to Nothing
		Get ComAdd of hoAppearance 17 "CP:16 0 0 0 1" to Nothing
		Get ComAdd of hoAppearance 18 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabhot.ebn" to Nothing
		Get ComAdd of hoAppearance 19 "C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabselhot.ebn" to Nothing
		Get ComAdd of hoAppearance 20 "CP:19 0 0 0 1" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexContextMenuAppearance to |CI$1000000
	Set ComBackground OLEexContextMenuForeColor to (RGB(21,66,139))
	Set ComBackground OLEexToolTipAppearance to |CI$1fefefe
	Set ComBackground OLEexToolBarAppearance to |CI$1000000
	Set ComBackground OLEexToolBarBackColor to (RGB(255,255,255))
	Set ComBackground OLEexToolBarButtonHotBackColor to |CI$d000000
	Set ComBackground OLEexToolBarButtonDownBackColor to |CI$1000000
	Set ComBackground |CI$2 to |CI$d000000
	Set ComBackground |CI$3 to |CI$1000000
	Set ComBackground OLEexContextMenuGroupPopupFrameSingle to |CI$5000000
	Set ComBackground OLEexContextMenuGroupPopupFrameHStart to |CI$6000000
	Set ComBackground OLEexContextMenuGroupPopupFrameHIntermediate to |CI$7000000
	Set ComBackground OLEexContextMenuGroupPopupFrameHEnd to |CI$8000000
	Set ComBackground OLEexContextMenuGroupPopupFrameVStart to |CI$9000000
	Set ComBackground OLEexContextMenuGroupPopupFrameVIntermediate to |CI$a000000
	Set ComBackground OLEexContextMenuGroupPopupFrameVEnd to |CI$b000000
	Set ComBackground OLEexContextMenuHotBackColor to |CI$c000000
	Set ComBackground OLEexContextMenuSelBackColor to |CI$e000000
	Set ComBackground OLEexContextMenuSelHotBackColor to |CI$f000000
	Send ComEndUpdate
End_Procedure