Dim oSwimLane as P
Dim var_Element as local
Dim var_Elements as P
Dim var_Lanes as local
Dim var_Lanes1 as local
Dim var_Pool as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowDesignHeader = 0
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
oSwimLane.AllowPoolContentUpdate = 2
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	' var_Elements.Add("Node <b>2",64,0).Selected = .t.
	var_Element = var_Elements.Add("Node <b>2",64,0)
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.Selected = True"

	var_Elements.Add("Node <b>3",64,-64)
var_Pool = oSwimLane.Pools.Add(-100,-100,250,160)
	' var_Pool.Lane(0).Children.Count = 2
	var_Lanes = var_Pool.Lane(0).Children
	oSwimLane.TemplateDef = "dim var_Lanes"
	oSwimLane.TemplateDef = var_Lanes
	oSwimLane.Template = "var_Lanes.Count = 2"

	' var_Pool.Lane(1).Children.Count = 2
	var_Lanes1 = var_Pool.Lane(1).Children
	oSwimLane.TemplateDef = "dim var_Lanes1"
	oSwimLane.TemplateDef = var_Lanes1
	oSwimLane.Template = "var_Lanes1.Count = 2"

oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()

Dim oSwimLane as P
Dim var_Element as local
Dim var_Elements as P
Dim var_Lanes as local
Dim var_Lanes1 as local
Dim var_Pool as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowDesignHeader = 0
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
oSwimLane.AllowPoolContentUpdate = 0
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	' var_Elements.Add("Node <b>2",64,0).Selected = .t.
	var_Element = var_Elements.Add("Node <b>2",64,0)
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.Selected = True"

	var_Elements.Add("Node <b>3",64,-64)
var_Pool = oSwimLane.Pools.Add(-100,-100,250,160)
	' var_Pool.Lane(0).Children.Count = 2
	var_Lanes = var_Pool.Lane(0).Children
	oSwimLane.TemplateDef = "dim var_Lanes"
	oSwimLane.TemplateDef = var_Lanes
	oSwimLane.Template = "var_Lanes.Count = 2"

	' var_Pool.Lane(1).Children.Count = 2
	var_Lanes1 = var_Pool.Lane(1).Children
	oSwimLane.TemplateDef = "dim var_Lanes1"
	oSwimLane.TemplateDef = var_Lanes1
	oSwimLane.Template = "var_Lanes1.Count = 2"

oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()

Dim oSwimLane as P
Dim var_CopyTo as 
Dim var_Elements as P
Dim var_Link as local
Dim var_Link1 as local
Dim var_Link2 as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = -1 'ffffff80 + exAllowChangeTo + exAllowChangeFrom + exOrthoArrange + exMiddleControlPoint + exControlPoint + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>A")
	var_Elements.Add("Element <sha ;;0>B",164,64)
	var_Elements.Add("Element <sha ;;0>B",0,132)
var_Links = oSwimLane.Links
	' var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link"
	oSwimLane.TemplateDef = var_Link
	oSwimLane.Template = "var_Link.CustomPath = `0.5,0.25,0.5,.75`"

	' var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link1 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link1"
	oSwimLane.TemplateDef = var_Link1
	oSwimLane.Template = "var_Link1.CustomPath = `0.5,0.25,0.5,.75`"

	var_Link2 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
		var_Link2.ShowLinkType = 3
		var_Link2.StartPos = 0
		var_Link2.ArrowSize = 8
		var_Link2.ArrowColor = 16777215
		var_Link2.ArrowFrameColor = 0
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
var_CopyTo = oSwimLane.CopyTo("c:/temp/sample.pdf|33.11 in x 46.81 in|0 0 0 0|single")

Dim oSwimLane as P
Dim var_CopyTo as 
Dim var_Elements as P
Dim var_Link as local
Dim var_Link1 as local
Dim var_Link2 as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = -1 'ffffff80 + exAllowChangeTo + exAllowChangeFrom + exOrthoArrange + exMiddleControlPoint + exControlPoint + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>A")
	var_Elements.Add("Element <sha ;;0>B",164,64)
	var_Elements.Add("Element <sha ;;0>B",0,132)
var_Links = oSwimLane.Links
	' var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link"
	oSwimLane.TemplateDef = var_Link
	oSwimLane.Template = "var_Link.CustomPath = `0.5,0.25,0.5,.75`"

	' var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link1 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link1"
	oSwimLane.TemplateDef = var_Link1
	oSwimLane.Template = "var_Link1.CustomPath = `0.5,0.25,0.5,.75`"

	var_Link2 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
		var_Link2.ShowLinkType = 3
		var_Link2.StartPos = 0
		var_Link2.ArrowSize = 8
		var_Link2.ArrowColor = 16777215
		var_Link2.ArrowFrameColor = 0
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
var_CopyTo = oSwimLane.CopyTo("c:/temp/sample.pdf|6.93 in x 9.84 in||75%")

Dim oSwimLane as P
Dim var_CopyTo as 
Dim var_Elements as P
Dim var_Link as local
Dim var_Link1 as local
Dim var_Link2 as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = -1 'ffffff80 + exAllowChangeTo + exAllowChangeFrom + exOrthoArrange + exMiddleControlPoint + exControlPoint + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>A")
	var_Elements.Add("Element <sha ;;0>B",164,64)
	var_Elements.Add("Element <sha ;;0>B",0,132)
var_Links = oSwimLane.Links
	' var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link"
	oSwimLane.TemplateDef = var_Link
	oSwimLane.Template = "var_Link.CustomPath = `0.5,0.25,0.5,.75`"

	' var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link1 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link1"
	oSwimLane.TemplateDef = var_Link1
	oSwimLane.Template = "var_Link1.CustomPath = `0.5,0.25,0.5,.75`"

	var_Link2 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
		var_Link2.ShowLinkType = 3
		var_Link2.StartPos = 0
		var_Link2.ArrowSize = 8
		var_Link2.ArrowColor = 16777215
		var_Link2.ArrowFrameColor = 0
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
var_CopyTo = oSwimLane.CopyTo("c:/temp/sample.pdf|||3 x 2f")

Dim oSwimLane as P
Dim var_CopyTo as 
Dim var_Elements as P
Dim var_Link as local
Dim var_Link1 as local
Dim var_Link2 as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = -1 'ffffff80 + exAllowChangeTo + exAllowChangeFrom + exOrthoArrange + exMiddleControlPoint + exControlPoint + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>A")
	var_Elements.Add("Element <sha ;;0>B",164,64)
	var_Elements.Add("Element <sha ;;0>B",0,132)
var_Links = oSwimLane.Links
	' var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link"
	oSwimLane.TemplateDef = var_Link
	oSwimLane.Template = "var_Link.CustomPath = `0.5,0.25,0.5,.75`"

	' var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link1 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link1"
	oSwimLane.TemplateDef = var_Link1
	oSwimLane.Template = "var_Link1.CustomPath = `0.5,0.25,0.5,.75`"

	var_Link2 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
		var_Link2.ShowLinkType = 3
		var_Link2.StartPos = 0
		var_Link2.ArrowSize = 8
		var_Link2.ArrowColor = 16777215
		var_Link2.ArrowFrameColor = 0
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
var_CopyTo = oSwimLane.CopyTo("c:/temp/sample.pdf|16.54 in x 11.69 in|5 mm 5 mm 5 mm 5 mm|3 x 2")

Dim oSwimLane as P
Dim var_CopyTo as 
Dim var_Elements as P
Dim var_Link as local
Dim var_Link1 as local
Dim var_Link2 as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = -1 'ffffff80 + exAllowChangeTo + exAllowChangeFrom + exOrthoArrange + exMiddleControlPoint + exControlPoint + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>A")
	var_Elements.Add("Element <sha ;;0>B",164,64)
	var_Elements.Add("Element <sha ;;0>B",0,132)
var_Links = oSwimLane.Links
	' var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link"
	oSwimLane.TemplateDef = var_Link
	oSwimLane.Template = "var_Link.CustomPath = `0.5,0.25,0.5,.75`"

	' var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link1 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link1"
	oSwimLane.TemplateDef = var_Link1
	oSwimLane.Template = "var_Link1.CustomPath = `0.5,0.25,0.5,.75`"

	var_Link2 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
		var_Link2.ShowLinkType = 3
		var_Link2.StartPos = 0
		var_Link2.ArrowSize = 8
		var_Link2.ArrowColor = 16777215
		var_Link2.ArrowFrameColor = 0
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
var_CopyTo = oSwimLane.CopyTo("c:/temp/sample.pdf|8.50 in x 11.00 in||x 2")

Dim oSwimLane as P
Dim var_CopyTo as 
Dim var_Elements as P
Dim var_Link as local
Dim var_Link1 as local
Dim var_Link2 as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = -1 'ffffff80 + exAllowChangeTo + exAllowChangeFrom + exOrthoArrange + exMiddleControlPoint + exControlPoint + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>A")
	var_Elements.Add("Element <sha ;;0>B",164,64)
	var_Elements.Add("Element <sha ;;0>B",0,132)
var_Links = oSwimLane.Links
	' var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link"
	oSwimLane.TemplateDef = var_Link
	oSwimLane.Template = "var_Link.CustomPath = `0.5,0.25,0.5,.75`"

	' var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link1 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link1"
	oSwimLane.TemplateDef = var_Link1
	oSwimLane.Template = "var_Link1.CustomPath = `0.5,0.25,0.5,.75`"

	var_Link2 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
		var_Link2.ShowLinkType = 3
		var_Link2.StartPos = 0
		var_Link2.ArrowSize = 8
		var_Link2.ArrowColor = 16777215
		var_Link2.ArrowFrameColor = 0
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
var_CopyTo = oSwimLane.CopyTo("c:/temp/sample.pdf|||1 x")

Dim oSwimLane as P
Dim var_CopyTo as 
Dim var_Elements as P
Dim var_Link as local
Dim var_Link1 as local
Dim var_Link2 as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = -1 'ffffff80 + exAllowChangeTo + exAllowChangeFrom + exOrthoArrange + exMiddleControlPoint + exControlPoint + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>A")
	var_Elements.Add("Element <sha ;;0>B",164,64)
	var_Elements.Add("Element <sha ;;0>B",0,132)
var_Links = oSwimLane.Links
	' var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link"
	oSwimLane.TemplateDef = var_Link
	oSwimLane.Template = "var_Link.CustomPath = `0.5,0.25,0.5,.75`"

	' var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link1 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link1"
	oSwimLane.TemplateDef = var_Link1
	oSwimLane.Template = "var_Link1.CustomPath = `0.5,0.25,0.5,.75`"

	var_Link2 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
		var_Link2.ShowLinkType = 3
		var_Link2.StartPos = 0
		var_Link2.ArrowSize = 8
		var_Link2.ArrowColor = 16777215
		var_Link2.ArrowFrameColor = 0
oSwimLane.FitToClient()
oSwimLane.EndUpdate()
var_CopyTo = oSwimLane.CopyTo("c:/temp/sample.pdf|||single")

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
	var_Elements.Add("Node <b>3",64,-64)
	var_Elements.Add("Node <b>4",16,-48)
	var_Elements.Add("Node <b>5",-1024,-48)
	var_Elements.Add("Node <b>6",16,512)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2),"L2")
oSwimLane.Links.Add(oSwimLane.Elements.Item(2),oSwimLane.Elements.Item(1),"L3")
oSwimLane.ShowLinks = 545 'exChangeColorOnOverlap + exShowCrossLinksRect + exShowExtendedLinks
oSwimLane.OverlapLinksColors = "red,orange"
oSwimLane.LinksColor = 8421504
oSwimLane.AxisStyle = -1
oSwimLane.ShowGridLines = .f.
oSwimLane.EndUpdate()

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
	var_Elements.Add("Node <b>3",64,-64)
	var_Elements.Add("Node <b>4",16,-48)
	var_Elements.Add("Node <b>5",-1024,-48)
	var_Elements.Add("Node <b>6",16,512)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2),"L2")
oSwimLane.Links.Add(oSwimLane.Elements.Item(2),oSwimLane.Elements.Item(1),"L3")
oSwimLane.ShowLinks = 673 'exChangeColorOnOverlap + exPreventOverlapMixt + exShowCrossLinksRect + exShowExtendedLinks
oSwimLane.LinksColor = 8421504
oSwimLane.AxisStyle = -1
oSwimLane.ShowGridLines = .f.
oSwimLane.EndUpdate()

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
	var_Elements.Add("Node <b>3",64,-64)
	var_Elements.Add("Node <b>4",16,-48)
	var_Elements.Add("Node <b>5",-1024,-48)
	var_Elements.Add("Node <b>6",16,512)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2),"L2")
oSwimLane.Links.Add(oSwimLane.Elements.Item(2),oSwimLane.Elements.Item(1),"L3")
oSwimLane.ShowLinks = 545 'exChangeColorOnOverlap + exShowCrossLinksRect + exShowExtendedLinks
oSwimLane.LinksColor = 8421504
oSwimLane.AxisStyle = -1
oSwimLane.ShowGridLines = .f.
oSwimLane.EndUpdate()

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
	var_Elements.Add("Node <b>3",64,-64)
	var_Elements.Add("Node <b>4",16,-48)
	var_Elements.Add("Node <b>5",-1024,-48)
	var_Elements.Add("Node <b>6",16,512)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2),"L2")
oSwimLane.Links.Add(oSwimLane.Elements.Item(2),oSwimLane.Elements.Item(1),"L3")
oSwimLane.ShowLinks = 417 'exPreventOverlap + exPreventOverlapMixt + exShowCrossLinksRect + exShowExtendedLinks
oSwimLane.LinksColor = 8421504
oSwimLane.AxisStyle = -1
oSwimLane.ShowGridLines = .f.
oSwimLane.EndUpdate()

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
	var_Elements.Add("Node <b>3",64,-64)
	var_Elements.Add("Node <b>4",16,-48)
	var_Elements.Add("Node <b>5",-1024,-48)
	var_Elements.Add("Node <b>6",16,512)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2),"L2")
oSwimLane.Links.Add(oSwimLane.Elements.Item(2),oSwimLane.Elements.Item(1),"L3")
oSwimLane.ShowLinks = 289 'exPreventOverlap + exShowCrossLinksRect + exShowExtendedLinks
oSwimLane.LinksColor = 8421504
oSwimLane.AxisStyle = -1
oSwimLane.ShowGridLines = .f.
oSwimLane.EndUpdate()

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.ReplaceIcon("gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+OkYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==")
oSwimLane.ReplaceIcon("C:\images\favicon.ico",0)
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <img>1</img>",-64,-64)
	var_Elements.Add("Node <b>2")
	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()

' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 18 ? `exActionContextMenuObject` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 18 ? `exActionContextMenuObject` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Element as local
Dim var_Elements as P
Dim var_Lanes as local
Dim var_Lanes1 as local
Dim var_Pool as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowDesignHeader = 0
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	' var_Elements.Add("Node <b>2").Selected = .t.
	var_Element = var_Elements.Add("Node <b>2")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.Selected = True"

	var_Elements.Add("Node <b>3",64,-64)
var_Pool = oSwimLane.Pools.Add(-100,-100,250,160)
	' var_Pool.Lane(0).Children.Count = 2
	var_Lanes = var_Pool.Lane(0).Children
	oSwimLane.TemplateDef = "dim var_Lanes"
	oSwimLane.TemplateDef = var_Lanes
	oSwimLane.Template = "var_Lanes.Count = 2"

	' var_Pool.Lane(1).Children.Count = 2
	var_Lanes1 = var_Pool.Lane(1).Children
	oSwimLane.TemplateDef = "dim var_Lanes1"
	oSwimLane.TemplateDef = var_Lanes1
	oSwimLane.Template = "var_Lanes1.Count = 2"

oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Right-Click the pool, element or the link to open its context menu, and change a property of it" 

' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 17 ? `exContextMenuObject` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 17 ? `exContextMenuObject` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Element as local
Dim var_Elements as P
Dim var_Lanes as local
Dim var_Lanes1 as local
Dim var_Pool as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowDesignHeader = 0
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	' var_Elements.Add("Node <b>2").Selected = .t.
	var_Element = var_Elements.Add("Node <b>2")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.Selected = True"

	var_Elements.Add("Node <b>3",64,-64)
var_Pool = oSwimLane.Pools.Add(-100,-100,250,160)
	' var_Pool.Lane(0).Children.Count = 2
	var_Lanes = var_Pool.Lane(0).Children
	oSwimLane.TemplateDef = "dim var_Lanes"
	oSwimLane.TemplateDef = var_Lanes
	oSwimLane.Template = "var_Lanes.Count = 2"

	' var_Pool.Lane(1).Children.Count = 2
	var_Lanes1 = var_Pool.Lane(1).Children
	oSwimLane.TemplateDef = "dim var_Lanes1"
	oSwimLane.TemplateDef = var_Lanes1
	oSwimLane.Template = "var_Lanes1.Count = 2"

oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Right-Click the pool, element or the link to open its context menu" 

' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 16 ? `exMoveLane` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 16 ? `exMoveLane` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Element as local
Dim var_Elements as P
Dim var_Lanes as local
Dim var_Lanes1 as local
Dim var_Pool as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowDesignHeader = 0
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	' var_Elements.Add("Node <b>2").Selected = .t.
	var_Element = var_Elements.Add("Node <b>2")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.Selected = True"

	var_Elements.Add("Node <b>3",64,-64)
var_Pool = oSwimLane.Pools.Add(-100,-100,250,160)
	' var_Pool.Lane(0).Children.Count = 2
	var_Lanes = var_Pool.Lane(0).Children
	oSwimLane.TemplateDef = "dim var_Lanes"
	oSwimLane.TemplateDef = var_Lanes
	oSwimLane.Template = "var_Lanes.Count = 2"

	' var_Pool.Lane(1).Children.Count = 2
	var_Lanes1 = var_Pool.Lane(1).Children
	oSwimLane.TemplateDef = "dim var_Lanes1"
	oSwimLane.TemplateDef = var_Lanes1
	oSwimLane.Template = "var_Lanes1.Count = 2"

oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Click the lane's header to drag to a new position" 

' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 15 ? `exResizeLane` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 15 ? `exResizeLane` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Element as local
Dim var_Elements as P
Dim var_Lanes as local
Dim var_Lanes1 as local
Dim var_Pool as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowDesignHeader = 0
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	' var_Elements.Add("Node <b>2").Selected = .t.
	var_Element = var_Elements.Add("Node <b>2")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.Selected = True"

	var_Elements.Add("Node <b>3",64,-64)
var_Pool = oSwimLane.Pools.Add(-100,-100,250,160)
	' var_Pool.Lane(0).Children.Count = 2
	var_Lanes = var_Pool.Lane(0).Children
	oSwimLane.TemplateDef = "dim var_Lanes"
	oSwimLane.TemplateDef = var_Lanes
	oSwimLane.Template = "var_Lanes.Count = 2"

	' var_Pool.Lane(1).Children.Count = 2
	var_Lanes1 = var_Pool.Lane(1).Children
	oSwimLane.TemplateDef = "dim var_Lanes1"
	oSwimLane.TemplateDef = var_Lanes1
	oSwimLane.Template = "var_Lanes1.Count = 2"

oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Click the pool's header to resize it" 

' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 14 ? `exResizePoolHeader` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 14 ? `exResizePoolHeader` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Element as local
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	' var_Elements.Add("Node <b>2").Selected = .t.
	var_Element = var_Elements.Add("Node <b>2")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.Selected = True"

	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Click the pool's header to resize it" 

' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 13 ? `exMovePool` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 13 ? `exMovePool` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Element as local
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	' var_Elements.Add("Node <b>2").Selected = .t.
	var_Element = var_Elements.Add("Node <b>2")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.Selected = True"

	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Click a pool and drag to reposition it" 

' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 12 ? `exResizePool` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 12 ? `exResizePool` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Element as local
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	' var_Elements.Add("Node <b>2").Selected = .t.
	var_Element = var_Elements.Add("Node <b>2")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.Selected = True"

	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Resize a pool" 

' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 11 ? `exCreatePool` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 11 ? `exCreatePool` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Element as local
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	' var_Elements.Add("Node <b>2").Selected = .t.
	var_Element = var_Elements.Add("Node <b>2")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.Selected = True"

	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Hold SHIFT, double-click on the surface, and immediately drag to a new position to create a new pool" 

' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 10 ? `exDesignMode` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 10 ? `exDesignMode` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Element as local
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	' var_Elements.Add("Node <b>2").Selected = .t.
	var_Element = var_Elements.Add("Node <b>2")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.Selected = True"

	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Click the Design Menu and select one of the options" 

' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value case (default:value;32:`exUndoRedoUpdate`;33:`exUndo`;34:`exRedo`)",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value case (default:value;32:`exUndoRedoUpdate`;33:`exUndo`;34:`exRedo`)",Operation) 
end function

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowUndoRedo = .t.
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Press CTRL+Z to Undo, CTRL+Y to Redo" 

' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 9 ? `exLinkObjects` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 9 ? `exLinkObjects` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.EndUpdate()
? "Hold SHIFT, click an element, and drag to another element to create a link between them" 

' Occurs when the user presses and then releases the left mouse button over the control.
function Click as v ()
	' ElementFromPoint(-1,-1).Edit(0)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
end function

' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 8 ? `exEditObject` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 8 ? `exEditObject` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Click an element to edit its caption" 

' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 7 ? `exCreateObject` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 7 ? `exCreateObject` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Element as local
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	' var_Elements.Add("Node <b>2").Selected = .t.
	var_Element = var_Elements.Add("Node <b>2")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.Selected = True"

	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Double-click on the surface and immediately drag to a new position to create an element" 

' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 6 ? `exSelectNothing` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 6 ? `exSelectNothing` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Element as local
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowSelectNothing = .t.
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	' var_Elements.Add("Node <b>2").Selected = .t.
	var_Element = var_Elements.Add("Node <b>2")
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.Selected = True"

	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Select an element, and then click outside to select nothing" 

' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 5 ? `exSelectElement` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 5 ? `exSelectElement` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Hold ALT and click, then drag to select elements within the drawn rectangle. Click an element to select it. CTRL + CLick to unselect it" 

' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 4 ? `exMoveElement` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 4 ? `exMoveElement` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Move an element" 

' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 3 ? `exResizeElement` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 3 ? `exResizeElement` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Element as local
Dim var_Element1 as local
Dim var_Element2 as local
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	' var_Elements.Add("Node <b>1",-64,-64).AutoSize = .f.
	var_Element = var_Elements.Add("Node <b>1",-64,-64)
	oSwimLane.TemplateDef = "dim var_Element"
	oSwimLane.TemplateDef = var_Element
	oSwimLane.Template = "var_Element.AutoSize = False"

	' var_Elements.Add("Node <b>2").AutoSize = .f.
	var_Element1 = var_Elements.Add("Node <b>2")
	oSwimLane.TemplateDef = "dim var_Element1"
	oSwimLane.TemplateDef = var_Element1
	oSwimLane.Template = "var_Element1.AutoSize = False"

	' var_Elements.Add("Node <b>3",64,-64).AutoSize = .f.
	var_Element2 = var_Elements.Add("Node <b>3",64,-64)
	oSwimLane.TemplateDef = "dim var_Element2"
	oSwimLane.TemplateDef = var_Element2
	oSwimLane.Template = "var_Element2.AutoSize = False"

oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Resize an element" 

' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 2 ? `exSurfaceHome` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 2 ? `exSurfaceHome` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Click the Home button" 

' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 1 ? `exSurfaceZoom` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 1 ? `exSurfaceZoom` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Click and drag the surface to reposition it" 

' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? oSwimLane.FormatABC("value = 0 ? `exSurfaceMove` : value",Operation) 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? oSwimLane.FormatABC("value = 0 ? `exSurfaceMove` : value",Operation) 
end function

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()
? "Click and drag the surface to reposition it" 

Dim oSwimLane as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
? oSwimLane.FormatABC("value format ``",1000) 

' Notifies the application once the control fires an event.
function Event as v (EventID  as  N)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? oSwimLane.EventParam(-2) 
end function

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.FreezeEvents(.t.)
? "No event is fired after FreezeEvents(True) call" 
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 3 'exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()

' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? Operation 
	? oSwimLane.FocusLink.ID 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? Operation 
	? oSwimLane.FocusLink.ID 
end function

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 99 'exAllowChangeTo + exAllowChangeFrom + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
	var_Elements.Add("Node <b>3",64,-64)
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.FocusLink = "L1"
oSwimLane.EndUpdate()

' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? Operation 
	? oSwimLane.FocusLink 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? Operation 
	? oSwimLane.FocusLink 
end function

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 3 'exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.EndUpdate()

' Notifies your application once the control's layout has been changed.
function LayoutEndChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutEndChanging" 
	? Operation 
end function

' Occurs when the control's layout is about to be changed.
function LayoutStartChanging as v (Operation  as  OLE::Exontrol.SwimLane.1::LayoutChangingEnum)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? "LayoutStartChanging" 
	? Operation 
end function

Dim oSwimLane as P
Dim var_Elements as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = 3 'exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Node <b>1",-64,-64)
	var_Elements.Add("Node <b>2")
oSwimLane.Pools.Add(-100,-100,250,160)
oSwimLane.Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2),"L1")
oSwimLane.FocusLink = "L1"
oSwimLane.EndUpdate()

Dim oSwimLane as P
Dim var_Element as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.DrawPartsOrder = "extracaption,extrapicture,picture,check,caption,client"
oSwimLane.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\sun.png`" // oSwimLane.HTMLPicture("pic1") = "c:\exontrol\images\sun.png"
var_Element = oSwimLane.Elements.Add("<b>Element")
	var_Element.PicturesAlign = 17
	var_Element.CaptionAlign = 17
	var_Element.Pictures = "pic1"
oSwimLane.EndUpdate()

' Occurs when an anchor element is clicked.
function AnchorClick as v (AnchorID  as  C, Options  as  C)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	? AnchorID 
end function

Dim oSwimLane as P
Dim var_Element as P
Dim var_Element1 as P
Dim var_Element2 as P
Dim var_Link as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
var_Element = oSwimLane.Elements.Add("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECMYAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtuoNXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>+ withdraw(amount: Currency)")
	var_Element.ID = "Account"
	var_Element.X = -256
	var_Element.Y = -164
	var_Element.CaptionSingleLine = 1
	var_Element.CaptionAlign = 4 '4 + 
var_Element1 = oSwimLane.Elements.Add("<solidline> <c><b>Person</b></solidline><br>+ name: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECMYAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtuoNXjoAAEBA=>▲</a><br><solidline># birth: Date</solidline><br>+ getCurrentAge(): int<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a>")
	var_Element1.ID = "Person"
	var_Element1.Y = -164
	var_Element1.CaptionSingleLine = 1
var_Element2 = oSwimLane.Elements.Add("<solidline> <c><b>Student</b></solidline><br><solidline>+ classes: List<Course> <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4AjMGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEBA==>▲</a></solidline><br>- attend(class: Course)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>- sleep()")
	var_Element2.ID = "Student"
	var_Element2.Y = -64
	var_Element2.CaptionSingleLine = 1
var_Link = oSwimLane.Links.Add(oSwimLane.Elements.Item("Account"),oSwimLane.Elements.Item("Student"))
	var_Link.Caption = "<fgcolor A0A0A0><solidline 808080> <c><b>Link</b></solidline><br># count: number <r><a ;exp=12992>➤</a>"

Dim oSwimLane as P
Dim var_Element as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
var_Element = oSwimLane.Elements.Add("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3")
	var_Element.CaptionSingleLine = 1

Dim oSwimLane as P
Dim var_Elements as P
Dim var_Link as local
Dim var_Link1 as local
Dim var_Link2 as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = -1 'ffffff80 + exAllowChangeTo + exAllowChangeFrom + exOrthoArrange + exMiddleControlPoint + exControlPoint + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>A")
	var_Elements.Add("Element <sha ;;0>B",164,64)
	var_Elements.Add("Element <sha ;;0>B",0,132)
var_Links = oSwimLane.Links
	' var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link"
	oSwimLane.TemplateDef = var_Link
	oSwimLane.Template = "var_Link.CustomPath = `0.5,0.25,0.5,.75`"

	' var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link1 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link1"
	oSwimLane.TemplateDef = var_Link1
	oSwimLane.Template = "var_Link1.CustomPath = `0.5,0.25,0.5,.75`"

	var_Link2 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
		var_Link2.ShowLinkType = 3
		var_Link2.StartPos = 0
		var_Link2.ArrowSize = 8
		var_Link2.ArrowColor = 16777215
		var_Link2.ArrowFrameColor = 0
oSwimLane.FitToClient()
oSwimLane.EndUpdate()

Dim oSwimLane as P
Dim var_Elements as P
Dim var_Link as local
Dim var_Link1 as local
Dim var_Link2 as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = -1 'ffffff80 + exAllowChangeTo + exAllowChangeFrom + exOrthoArrange + exMiddleControlPoint + exControlPoint + exEndControlPoint + exStartControlPoint
oSwimLane.LinksArrowSize = 8
oSwimLane.LinksArrowColor = 16777215
oSwimLane.LinksArrowFrameColor = 0
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>A")
	var_Elements.Add("Element <sha ;;0>B",164,64)
	var_Elements.Add("Element <sha ;;0>B",0,132)
var_Links = oSwimLane.Links
	' var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link"
	oSwimLane.TemplateDef = var_Link
	oSwimLane.Template = "var_Link.CustomPath = `0.5,0.25,0.5,.75`"

	' var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link1 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link1"
	oSwimLane.TemplateDef = var_Link1
	oSwimLane.Template = "var_Link1.CustomPath = `0.5,0.25,0.5,.75`"

	var_Link2 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
		var_Link2.ShowLinkType = 3
		var_Link2.StartPos = 0
oSwimLane.FitToClient()
oSwimLane.EndUpdate()

Dim oSwimLane as P
Dim var_Elements as P
Dim var_Link as local
Dim var_Link1 as local
Dim var_Link2 as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = -1 'ffffff80 + exAllowChangeTo + exAllowChangeFrom + exOrthoArrange + exMiddleControlPoint + exControlPoint + exEndControlPoint + exStartControlPoint
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>A")
	var_Elements.Add("Element <sha ;;0>B",164,64)
	var_Elements.Add("Element <sha ;;0>B",0,132)
var_Links = oSwimLane.Links
	' var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link"
	oSwimLane.TemplateDef = var_Link
	oSwimLane.Template = "var_Link.CustomPath = `0.5,0.25,0.5,.75`"

	' var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link1 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link1"
	oSwimLane.TemplateDef = var_Link1
	oSwimLane.Template = "var_Link1.CustomPath = `0.5,0.25,0.5,.75`"

	var_Link2 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
		var_Link2.ShowLinkType = 3
		var_Link2.StartPos = 0
		var_Link2.ArrowSize = 8
oSwimLane.FitToClient()
oSwimLane.EndUpdate()

Dim oSwimLane as P
Dim var_Elements as P
Dim var_Link as local
Dim var_Link1 as local
Dim var_Link2 as P
Dim var_Links as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.BeginUpdate()
oSwimLane.AllowLinkControlPoint = -1 'ffffff80 + exAllowChangeTo + exAllowChangeFrom + exOrthoArrange + exMiddleControlPoint + exControlPoint + exEndControlPoint + exStartControlPoint
oSwimLane.LinksArrowSize = 8
var_Elements = oSwimLane.Elements
	var_Elements.Add("Element <sha ;;0>A")
	var_Elements.Add("Element <sha ;;0>B",164,64)
	var_Elements.Add("Element <sha ;;0>B",0,132)
var_Links = oSwimLane.Links
	' var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link = var_Links.Add(oSwimLane.Elements.Item(1),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link"
	oSwimLane.TemplateDef = var_Link
	oSwimLane.Template = "var_Link.CustomPath = `0.5,0.25,0.5,.75`"

	' var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
	var_Link1 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(2))
	oSwimLane.TemplateDef = "dim var_Link1"
	oSwimLane.TemplateDef = var_Link1
	oSwimLane.Template = "var_Link1.CustomPath = `0.5,0.25,0.5,.75`"

	var_Link2 = var_Links.Add(oSwimLane.Elements.Item(3),oSwimLane.Elements.Item(1))
		var_Link2.ShowLinkType = 3
		var_Link2.StartPos = 0
oSwimLane.FitToClient()
oSwimLane.EndUpdate()

Dim oSwimLane as P
Dim var_Element as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
var_Element = oSwimLane.Elements.Add("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECMYAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtuoNXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>+ withdraw(amount: Currency)")
	var_Element.ID = "Account"
	var_Element.X = -128
	var_Element.CaptionSingleLine = 1
	var_Element.AutoSize = .f.
	var_Element.Width = 256
	var_Element.Height = var_Element.AutoHeight
	var_Element.CaptionAlign = 4 '4 + 

' Occurs when an anchor element is clicked.
function AnchorClick as v (AnchorID  as  C, Options  as  C)
	Dim var_Element as P
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	var_Element = oSwimLane.Elements.Item("Account")
		var_Element.Height = var_Element.AutoHeight
end function

Dim oSwimLane as P
Dim var_Element as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
var_Element = oSwimLane.Elements.Add("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECMYAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtuoNXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>+ withdraw(amount: Currency)")
	var_Element.ID = "Account"
	var_Element.X = -128
	var_Element.CaptionSingleLine = 1
	var_Element.AutoSize = .f.
	var_Element.Width = 256
	var_Element.Height = var_Element.AutoHeight
	var_Element.CaptionAlign = 4 '4 + 

Dim oSwimLane as P
Dim var_Element as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
var_Element = oSwimLane.Elements.Add("<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)")
	var_Element.CaptionSingleLine = 1
	var_Element.BackColor = 16316664
	var_Element.AutoSize = .f.
	var_Element.Width = 194
	var_Element.Height = 76
	var_Element.CaptionAlign = 4 '4 + 

Dim oSwimLane as P
Dim var_Element as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
var_Element = oSwimLane.Elements.Add("<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)")
	var_Element.CaptionSingleLine = 1
	var_Element.BackColor = 16316664

' Occurs when the user moves the mouse.
function MouseMove as v (Button  as  N, Shift  as  N, X  as  OLE::Exontrol.SwimLane.1::OLE_XPOS_PIXELS, Y  as  OLE::Exontrol.SwimLane.1::OLE_YPOS_PIXELS)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	oSwimLane.ShowToolTip("new content","",,"+8","+8")
end function

Dim oSwimLane as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex

' Occurs when the user moves the mouse.
function MouseMove as v (Button  as  N, Shift  as  N, X  as  OLE::Exontrol.SwimLane.1::OLE_XPOS_PIXELS, Y  as  OLE::Exontrol.SwimLane.1::OLE_YPOS_PIXELS)
	oSwimLane = topparent:CONTROL_ACTIVEX1.activex
	oSwimLane.ShowToolTip("<null>","<null>",,"+8","+8")
end function

Dim oSwimLane as P
Dim var_Element as local

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
' oSwimLane.Elements.Add("Element with a Tooltip").ToolTip = "This is a bit of text that should be displayed when cursor hovers the element."
var_Element = oSwimLane.Elements.Add("Element with a Tooltip")
oSwimLane.TemplateDef = "dim var_Element"
oSwimLane.TemplateDef = var_Element
oSwimLane.Template = "var_Element.ToolTip = `This is a bit of text that should be displayed when cursor hovers the element.`"