With SwimLane1
	.BeginUpdate 
	.AllowDesignHeader = exDesignHeaderLock
	.AllowLinkControlPoint = LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	.AllowPoolContentUpdate = exEnableCtrlMixt
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add("Node <b>2",64,0).Selected = True
		.Add "Node <b>3",64,-64
	End With
	With .Pools.Add(-100,-100,250,160)
		.Lane(exLaneHorizontal).Children.Count = 2
		.Lane(exLaneVertical).Children.Count = 2
	End With
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.EndUpdate 
End With

With SwimLane1
	.BeginUpdate 
	.AllowDesignHeader = exDesignHeaderLock
	.AllowLinkControlPoint = LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	.AllowPoolContentUpdate = exDisable
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add("Node <b>2",64,0).Selected = True
		.Add "Node <b>3",64,-64
	End With
	With .Pools.Add(-100,-100,250,160)
		.Lane(exLaneHorizontal).Children.Count = 2
		.Lane(exLaneVertical).Children.Count = 2
	End With
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.EndUpdate 
End With

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = &Hffffff80 Or LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Element <sha ;;0>A"
		.Add "Element <sha ;;0>B",164,64
		.Add "Element <sha ;;0>B",0,132
	End With
	With .Links
		.Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		.Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		With .Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(1))
			.ShowLinkType = exLinkRound
			.StartPos = LeftAlignment
			.ArrowSize = 8
			.ArrowColor = RGB(255,255,255)
			.ArrowFrameColor = RGB(0,0,0)
		End With
	End With
	.FitToClient 
	.EndUpdate 
	var_CopyTo = .CopyTo("c:/temp/sample.pdf|33.11 in x 46.81 in|0 0 0 0|single")
End With

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = &Hffffff80 Or LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Element <sha ;;0>A"
		.Add "Element <sha ;;0>B",164,64
		.Add "Element <sha ;;0>B",0,132
	End With
	With .Links
		.Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		.Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		With .Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(1))
			.ShowLinkType = exLinkRound
			.StartPos = LeftAlignment
			.ArrowSize = 8
			.ArrowColor = RGB(255,255,255)
			.ArrowFrameColor = RGB(0,0,0)
		End With
	End With
	.FitToClient 
	.EndUpdate 
	var_CopyTo = .CopyTo("c:/temp/sample.pdf|6.93 in x 9.84 in||75%")
End With

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = &Hffffff80 Or LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Element <sha ;;0>A"
		.Add "Element <sha ;;0>B",164,64
		.Add "Element <sha ;;0>B",0,132
	End With
	With .Links
		.Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		.Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		With .Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(1))
			.ShowLinkType = exLinkRound
			.StartPos = LeftAlignment
			.ArrowSize = 8
			.ArrowColor = RGB(255,255,255)
			.ArrowFrameColor = RGB(0,0,0)
		End With
	End With
	.FitToClient 
	.EndUpdate 
	var_CopyTo = .CopyTo("c:/temp/sample.pdf|||3 x 2f")
End With

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = &Hffffff80 Or LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Element <sha ;;0>A"
		.Add "Element <sha ;;0>B",164,64
		.Add "Element <sha ;;0>B",0,132
	End With
	With .Links
		.Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		.Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		With .Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(1))
			.ShowLinkType = exLinkRound
			.StartPos = LeftAlignment
			.ArrowSize = 8
			.ArrowColor = RGB(255,255,255)
			.ArrowFrameColor = RGB(0,0,0)
		End With
	End With
	.FitToClient 
	.EndUpdate 
	var_CopyTo = .CopyTo("c:/temp/sample.pdf|16.54 in x 11.69 in|5 mm 5 mm 5 mm 5 mm|3 x 2")
End With

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = &Hffffff80 Or LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Element <sha ;;0>A"
		.Add "Element <sha ;;0>B",164,64
		.Add "Element <sha ;;0>B",0,132
	End With
	With .Links
		.Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		.Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		With .Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(1))
			.ShowLinkType = exLinkRound
			.StartPos = LeftAlignment
			.ArrowSize = 8
			.ArrowColor = RGB(255,255,255)
			.ArrowFrameColor = RGB(0,0,0)
		End With
	End With
	.FitToClient 
	.EndUpdate 
	var_CopyTo = .CopyTo("c:/temp/sample.pdf|8.50 in x 11.00 in||x 2")
End With

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = &Hffffff80 Or LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Element <sha ;;0>A"
		.Add "Element <sha ;;0>B",164,64
		.Add "Element <sha ;;0>B",0,132
	End With
	With .Links
		.Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		.Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		With .Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(1))
			.ShowLinkType = exLinkRound
			.StartPos = LeftAlignment
			.ArrowSize = 8
			.ArrowColor = RGB(255,255,255)
			.ArrowFrameColor = RGB(0,0,0)
		End With
	End With
	.FitToClient 
	.EndUpdate 
	var_CopyTo = .CopyTo("c:/temp/sample.pdf|||1 x")
End With

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = &Hffffff80 Or LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Element <sha ;;0>A"
		.Add "Element <sha ;;0>B",164,64
		.Add "Element <sha ;;0>B",0,132
	End With
	With .Links
		.Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		.Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		With .Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(1))
			.ShowLinkType = exLinkRound
			.StartPos = LeftAlignment
			.ArrowSize = 8
			.ArrowColor = RGB(255,255,255)
			.ArrowFrameColor = RGB(0,0,0)
		End With
	End With
	.FitToClient 
	.EndUpdate 
	var_CopyTo = .CopyTo("c:/temp/sample.pdf|||single")
End With

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add "Node <b>2"
		.Add "Node <b>3",64,-64
		.Add "Node <b>4",16,-48
		.Add "Node <b>5",-1024,-48
		.Add "Node <b>6",16,512
	End With
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.Links.Add SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2),"L2"
	.Links.Add SwimLane1.Elements.Item(2),SwimLane1.Elements.Item(1),"L3"
	.ShowLinks = ShowExtendedLinksEnum.exChangeColorOnOverlap Or ShowExtendedLinksEnum.exShowCrossLinksRect Or ShowExtendedLinksEnum.exShowExtendedLinks
	.OverlapLinksColors = "red,orange"
	.LinksColor = RGB(128,128,128)
	.AxisStyle = exNoLines
	.ShowGridLines = False
	.EndUpdate 
End With

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add "Node <b>2"
		.Add "Node <b>3",64,-64
		.Add "Node <b>4",16,-48
		.Add "Node <b>5",-1024,-48
		.Add "Node <b>6",16,512
	End With
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.Links.Add SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2),"L2"
	.Links.Add SwimLane1.Elements.Item(2),SwimLane1.Elements.Item(1),"L3"
	.ShowLinks = ShowExtendedLinksEnum.exChangeColorOnOverlap Or ShowExtendedLinksEnum.exPreventOverlapMixt Or ShowExtendedLinksEnum.exShowCrossLinksRect Or ShowExtendedLinksEnum.exShowExtendedLinks
	.LinksColor = RGB(128,128,128)
	.AxisStyle = exNoLines
	.ShowGridLines = False
	.EndUpdate 
End With

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add "Node <b>2"
		.Add "Node <b>3",64,-64
		.Add "Node <b>4",16,-48
		.Add "Node <b>5",-1024,-48
		.Add "Node <b>6",16,512
	End With
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.Links.Add SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2),"L2"
	.Links.Add SwimLane1.Elements.Item(2),SwimLane1.Elements.Item(1),"L3"
	.ShowLinks = ShowExtendedLinksEnum.exChangeColorOnOverlap Or ShowExtendedLinksEnum.exShowCrossLinksRect Or ShowExtendedLinksEnum.exShowExtendedLinks
	.LinksColor = RGB(128,128,128)
	.AxisStyle = exNoLines
	.ShowGridLines = False
	.EndUpdate 
End With

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add "Node <b>2"
		.Add "Node <b>3",64,-64
		.Add "Node <b>4",16,-48
		.Add "Node <b>5",-1024,-48
		.Add "Node <b>6",16,512
	End With
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.Links.Add SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2),"L2"
	.Links.Add SwimLane1.Elements.Item(2),SwimLane1.Elements.Item(1),"L3"
	.ShowLinks = ShowExtendedLinksEnum.exPreventOverlap Or ShowExtendedLinksEnum.exPreventOverlapMixt Or ShowExtendedLinksEnum.exShowCrossLinksRect Or ShowExtendedLinksEnum.exShowExtendedLinks
	.LinksColor = RGB(128,128,128)
	.AxisStyle = exNoLines
	.ShowGridLines = False
	.EndUpdate 
End With

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add "Node <b>2"
		.Add "Node <b>3",64,-64
		.Add "Node <b>4",16,-48
		.Add "Node <b>5",-1024,-48
		.Add "Node <b>6",16,512
	End With
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.Links.Add SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2),"L2"
	.Links.Add SwimLane1.Elements.Item(2),SwimLane1.Elements.Item(1),"L3"
	.ShowLinks = ShowExtendedLinksEnum.exPreventOverlap Or ShowExtendedLinksEnum.exShowCrossLinksRect Or ShowExtendedLinksEnum.exShowExtendedLinks
	.LinksColor = RGB(128,128,128)
	.AxisStyle = exNoLines
	.ShowGridLines = False
	.EndUpdate 
End With

With SwimLane1
	.BeginUpdate 
	.ReplaceIcon "gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+O" & _
	"kYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA=="
	.ReplaceIcon "C:\images\favicon.ico",0
	.AllowLinkControlPoint = LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Node <img>1</img>",-64,-64
		.Add "Node <b>2"
		.Add "Node <b>3",64,-64
	End With
	.Pools.Add -100,-100,250,160
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.EndUpdate 
End With

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub SwimLane1_LayoutEndChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 18 ? `exActionContextMenuObject` : value",Operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub SwimLane1_LayoutStartChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 18 ? `exActionContextMenuObject` : value",Operation) )
	End With
End Sub

With SwimLane1
	.BeginUpdate 
	.AllowDesignHeader = exDesignHeaderLock
	.AllowLinkControlPoint = LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add("Node <b>2").Selected = True
		.Add "Node <b>3",64,-64
	End With
	With .Pools.Add(-100,-100,250,160)
		.Lane(exLaneHorizontal).Children.Count = 2
		.Lane(exLaneVertical).Children.Count = 2
	End With
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.EndUpdate 
	Debug.Print( "Right-Click the pool, element or the link to open its context menu, and change a property of it" )
End With

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub SwimLane1_LayoutEndChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 17 ? `exContextMenuObject` : value",Operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub SwimLane1_LayoutStartChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 17 ? `exContextMenuObject` : value",Operation) )
	End With
End Sub

With SwimLane1
	.BeginUpdate 
	.AllowDesignHeader = exDesignHeaderLock
	.AllowLinkControlPoint = LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add("Node <b>2").Selected = True
		.Add "Node <b>3",64,-64
	End With
	With .Pools.Add(-100,-100,250,160)
		.Lane(exLaneHorizontal).Children.Count = 2
		.Lane(exLaneVertical).Children.Count = 2
	End With
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.EndUpdate 
	Debug.Print( "Right-Click the pool, element or the link to open its context menu" )
End With

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub SwimLane1_LayoutEndChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 16 ? `exMoveLane` : value",Operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub SwimLane1_LayoutStartChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 16 ? `exMoveLane` : value",Operation) )
	End With
End Sub

With SwimLane1
	.BeginUpdate 
	.AllowDesignHeader = exDesignHeaderLock
	.AllowLinkControlPoint = LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add("Node <b>2").Selected = True
		.Add "Node <b>3",64,-64
	End With
	With .Pools.Add(-100,-100,250,160)
		.Lane(exLaneHorizontal).Children.Count = 2
		.Lane(exLaneVertical).Children.Count = 2
	End With
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.EndUpdate 
	Debug.Print( "Click the lane's header to drag to a new position" )
End With

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub SwimLane1_LayoutEndChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 15 ? `exResizeLane` : value",Operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub SwimLane1_LayoutStartChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 15 ? `exResizeLane` : value",Operation) )
	End With
End Sub

With SwimLane1
	.BeginUpdate 
	.AllowDesignHeader = exDesignHeaderLock
	.AllowLinkControlPoint = LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add("Node <b>2").Selected = True
		.Add "Node <b>3",64,-64
	End With
	With .Pools.Add(-100,-100,250,160)
		.Lane(exLaneHorizontal).Children.Count = 2
		.Lane(exLaneVertical).Children.Count = 2
	End With
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.EndUpdate 
	Debug.Print( "Click the pool's header to resize it" )
End With

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub SwimLane1_LayoutEndChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 14 ? `exResizePoolHeader` : value",Operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub SwimLane1_LayoutStartChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 14 ? `exResizePoolHeader` : value",Operation) )
	End With
End Sub

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add("Node <b>2").Selected = True
		.Add "Node <b>3",64,-64
	End With
	.Pools.Add -100,-100,250,160
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.EndUpdate 
	Debug.Print( "Click the pool's header to resize it" )
End With

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub SwimLane1_LayoutEndChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 13 ? `exMovePool` : value",Operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub SwimLane1_LayoutStartChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 13 ? `exMovePool` : value",Operation) )
	End With
End Sub

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add("Node <b>2").Selected = True
		.Add "Node <b>3",64,-64
	End With
	.Pools.Add -100,-100,250,160
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.EndUpdate 
	Debug.Print( "Click a pool and drag to reposition it" )
End With

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub SwimLane1_LayoutEndChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 12 ? `exResizePool` : value",Operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub SwimLane1_LayoutStartChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 12 ? `exResizePool` : value",Operation) )
	End With
End Sub

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add("Node <b>2").Selected = True
		.Add "Node <b>3",64,-64
	End With
	.Pools.Add -100,-100,250,160
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.EndUpdate 
	Debug.Print( "Resize a pool" )
End With

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub SwimLane1_LayoutEndChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 11 ? `exCreatePool` : value",Operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub SwimLane1_LayoutStartChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 11 ? `exCreatePool` : value",Operation) )
	End With
End Sub

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add("Node <b>2").Selected = True
		.Add "Node <b>3",64,-64
	End With
	.Pools.Add -100,-100,250,160
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.EndUpdate 
	Debug.Print( "Hold SHIFT, double-click on the surface, and immediately drag to a new position to create a new pool" )
End With

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub SwimLane1_LayoutEndChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 10 ? `exDesignMode` : value",Operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub SwimLane1_LayoutStartChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 10 ? `exDesignMode` : value",Operation) )
	End With
End Sub

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add("Node <b>2").Selected = True
		.Add "Node <b>3",64,-64
	End With
	.Pools.Add -100,-100,250,160
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.EndUpdate 
	Debug.Print( "Click the Design Menu and select one of the options" )
End With

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub SwimLane1_LayoutEndChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value case (default:value;32:`exUndoRedoUpdate`;33:`exUndo`;34:`exRedo`)",Operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub SwimLane1_LayoutStartChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value case (default:value;32:`exUndoRedoUpdate`;33:`exUndo`;34:`exRedo`)",Operation) )
	End With
End Sub

With SwimLane1
	.BeginUpdate 
	.AllowUndoRedo = True
	.AllowLinkControlPoint = LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add "Node <b>2"
		.Add "Node <b>3",64,-64
	End With
	.Pools.Add -100,-100,250,160
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.EndUpdate 
	Debug.Print( "Press CTRL+Z to Undo, CTRL+Y to Redo" )
End With

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub SwimLane1_LayoutEndChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 9 ? `exLinkObjects` : value",Operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub SwimLane1_LayoutStartChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 9 ? `exLinkObjects` : value",Operation) )
	End With
End Sub

With SwimLane1
	.BeginUpdate 
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add "Node <b>2"
		.Add "Node <b>3",64,-64
	End With
	.EndUpdate 
	Debug.Print( "Hold SHIFT, click an element, and drag to another element to create a link between them" )
End With

' Click event - Occurs when the user presses and then releases the left mouse button over the control.
Private Sub SwimLane1_Click()
	' ElementFromPoint(-1,-1).Edit(0)
End Sub

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub SwimLane1_LayoutEndChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 8 ? `exEditObject` : value",Operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub SwimLane1_LayoutStartChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 8 ? `exEditObject` : value",Operation) )
	End With
End Sub

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add "Node <b>2"
		.Add "Node <b>3",64,-64
	End With
	.Pools.Add -100,-100,250,160
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.EndUpdate 
	Debug.Print( "Click an element to edit its caption" )
End With

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub SwimLane1_LayoutEndChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 7 ? `exCreateObject` : value",Operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub SwimLane1_LayoutStartChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 7 ? `exCreateObject` : value",Operation) )
	End With
End Sub

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add("Node <b>2").Selected = True
		.Add "Node <b>3",64,-64
	End With
	.Pools.Add -100,-100,250,160
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.EndUpdate 
	Debug.Print( "Double-click on the surface and immediately drag to a new position to create an element" )
End With

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub SwimLane1_LayoutEndChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 6 ? `exSelectNothing` : value",Operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub SwimLane1_LayoutStartChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 6 ? `exSelectNothing` : value",Operation) )
	End With
End Sub

With SwimLane1
	.BeginUpdate 
	.AllowSelectNothing = True
	.AllowLinkControlPoint = LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add("Node <b>2").Selected = True
		.Add "Node <b>3",64,-64
	End With
	.Pools.Add -100,-100,250,160
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.EndUpdate 
	Debug.Print( "Select an element, and then click outside to select nothing" )
End With

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub SwimLane1_LayoutEndChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 5 ? `exSelectElement` : value",Operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub SwimLane1_LayoutStartChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 5 ? `exSelectElement` : value",Operation) )
	End With
End Sub

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add "Node <b>2"
		.Add "Node <b>3",64,-64
	End With
	.Pools.Add -100,-100,250,160
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.EndUpdate 
	Debug.Print( "Hold ALT and click, then drag to select elements within the drawn rectangle. Click an element to select it. CTRL + CLick to uns" & _
	"elect it" )
End With

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub SwimLane1_LayoutEndChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 4 ? `exMoveElement` : value",Operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub SwimLane1_LayoutStartChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 4 ? `exMoveElement` : value",Operation) )
	End With
End Sub

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add "Node <b>2"
		.Add "Node <b>3",64,-64
	End With
	.Pools.Add -100,-100,250,160
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.EndUpdate 
	Debug.Print( "Move an element" )
End With

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub SwimLane1_LayoutEndChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 3 ? `exResizeElement` : value",Operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub SwimLane1_LayoutStartChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 3 ? `exResizeElement` : value",Operation) )
	End With
End Sub

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add("Node <b>1",-64,-64).AutoSize = False
		.Add("Node <b>2").AutoSize = False
		.Add("Node <b>3",64,-64).AutoSize = False
	End With
	.Pools.Add -100,-100,250,160
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.EndUpdate 
	Debug.Print( "Resize an element" )
End With

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub SwimLane1_LayoutEndChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 2 ? `exSurfaceHome` : value",Operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub SwimLane1_LayoutStartChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 2 ? `exSurfaceHome` : value",Operation) )
	End With
End Sub

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add "Node <b>2"
		.Add "Node <b>3",64,-64
	End With
	.Pools.Add -100,-100,250,160
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.EndUpdate 
	Debug.Print( "Click the Home button" )
End With

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub SwimLane1_LayoutEndChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 1 ? `exSurfaceZoom` : value",Operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub SwimLane1_LayoutStartChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 1 ? `exSurfaceZoom` : value",Operation) )
	End With
End Sub

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add "Node <b>2"
		.Add "Node <b>3",64,-64
	End With
	.Pools.Add -100,-100,250,160
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.EndUpdate 
	Debug.Print( "Click and drag the surface to reposition it" )
End With

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub SwimLane1_LayoutEndChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 0 ? `exSurfaceMove` : value",Operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub SwimLane1_LayoutStartChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 0 ? `exSurfaceMove` : value",Operation) )
	End With
End Sub

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add "Node <b>2"
		.Add "Node <b>3",64,-64
	End With
	.Pools.Add -100,-100,250,160
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.EndUpdate 
	Debug.Print( "Click and drag the surface to reposition it" )
End With

With SwimLane1
	Debug.Print( .FormatABC("value format ``",1000) )
End With

' Event event - Notifies the application once the control fires an event.
Private Sub SwimLane1_Event(ByVal EventID As Long)
	With SwimLane1
		Debug.Print( .EventParam(-2) )
	End With
End Sub

With SwimLane1
	.FreezeEvents True
	Debug.Print( "No event is fired after FreezeEvents(True) call" )
	.BeginUpdate 
	.AllowLinkControlPoint = LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add "Node <b>2"
	End With
	.Pools.Add -100,-100,250,160
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.EndUpdate 
End With

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub SwimLane1_LayoutEndChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( Operation )
		Debug.Print( .FocusLink.ID )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub SwimLane1_LayoutStartChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( Operation )
		Debug.Print( .FocusLink.ID )
	End With
End Sub

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add "Node <b>2"
		.Add "Node <b>3",64,-64
	End With
	.Pools.Add -100,-100,250,160
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.FocusLink = "L1"
	.EndUpdate 
End With

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub SwimLane1_LayoutEndChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( Operation )
		Debug.Print( .FocusLink )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub SwimLane1_LayoutStartChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( Operation )
		Debug.Print( .FocusLink )
	End With
End Sub

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add "Node <b>2"
	End With
	.Pools.Add -100,-100,250,160
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.EndUpdate 
End With

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub SwimLane1_LayoutEndChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( Operation )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub SwimLane1_LayoutStartChanging(ByVal Operation As EXSWIMLANELibCtl.LayoutChangingEnum)
	With SwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( Operation )
	End With
End Sub

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Node <b>1",-64,-64
		.Add "Node <b>2"
	End With
	.Pools.Add -100,-100,250,160
	.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
	.FocusLink = "L1"
	.EndUpdate 
End With

With SwimLane1
	.BeginUpdate 
	.DrawPartsOrder = "extracaption,extrapicture,picture,check,caption,client"
	.HTMLPicture("pic1") = "c:\exontrol\images\sun.png"
	With .Elements.Add("<b>Element")
		.PicturesAlign = exMiddleCenter
		.CaptionAlign = exMiddleCenter
		.Pictures = "pic1"
	End With
	.EndUpdate 
End With

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub SwimLane1_AnchorClick(ByVal AnchorID As String, ByVal Options As String)
	With SwimLane1
		Debug.Print( AnchorID )
	End With
End Sub

With SwimLane1
	With .Elements.Add("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECM" & _
	"YAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtu" & _
	"oNXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AEC" & _
	"MwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAE" & _
	"BA==>▲</a><br>+ withdraw(amount: Currency)")
		.ID = "Account"
		.X = -256
		.Y = -164
		.CaptionSingleLine = exCaptionBreakWrap
		.CaptionAlign = &H4
	End With
	With .Elements.Add("<solidline> <c><b>Person</b></solidline><br>+ name: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECMYAjsCMw" & _
	"AM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtuoNXjoAA" & _
	"EBA=>▲</a><br><solidline># birth: Date</solidline><br>+ getCurrentAge(): int<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAH" & _
	"AAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a>")
		.ID = "Person"
		.Y = -164
		.CaptionSingleLine = exCaptionBreakWrap
	End With
	With .Elements.Add("<solidline> <c><b>Student</b></solidline><br><solidline>+ classes: List<Course> <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAE" & _
	"CMcTi4AMwAM4AjMGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq" & _
	"1Ln1QtVSjQAAEBA==>▲</a></solidline><br>- attend(class: Course)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoA" & _
	"MoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>- sleep()")
		.ID = "Student"
		.Y = -64
		.CaptionSingleLine = exCaptionBreakWrap
	End With
	With .Links.Add(SwimLane1.Elements.Item("Account"),SwimLane1.Elements.Item("Student"))
		.Caption = "<fgcolor A0A0A0><solidline 808080> <c><b>Link</b></solidline><br># count: number <r><a ;exp=12992>➤</a>"
	End With
End With

With SwimLane1
	With .Elements.Add("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3")
		.CaptionSingleLine = exCaptionBreakWrap
	End With
End With

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = &Hffffff80 Or LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Element <sha ;;0>A"
		.Add "Element <sha ;;0>B",164,64
		.Add "Element <sha ;;0>B",0,132
	End With
	With .Links
		.Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		.Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		With .Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(1))
			.ShowLinkType = exLinkRound
			.StartPos = LeftAlignment
			.ArrowSize = 8
			.ArrowColor = RGB(255,255,255)
			.ArrowFrameColor = RGB(0,0,0)
		End With
	End With
	.FitToClient 
	.EndUpdate 
End With

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = &Hffffff80 Or LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	.LinksArrowSize = 8
	.LinksArrowColor = RGB(255,255,255)
	.LinksArrowFrameColor = RGB(0,0,0)
	With .Elements
		.Add "Element <sha ;;0>A"
		.Add "Element <sha ;;0>B",164,64
		.Add "Element <sha ;;0>B",0,132
	End With
	With .Links
		.Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		.Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		With .Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(1))
			.ShowLinkType = exLinkRound
			.StartPos = LeftAlignment
		End With
	End With
	.FitToClient 
	.EndUpdate 
End With

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = &Hffffff80 Or LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	With .Elements
		.Add "Element <sha ;;0>A"
		.Add "Element <sha ;;0>B",164,64
		.Add "Element <sha ;;0>B",0,132
	End With
	With .Links
		.Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		.Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		With .Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(1))
			.ShowLinkType = exLinkRound
			.StartPos = LeftAlignment
			.ArrowSize = 8
		End With
	End With
	.FitToClient 
	.EndUpdate 
End With

With SwimLane1
	.BeginUpdate 
	.AllowLinkControlPoint = &Hffffff80 Or LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
	.LinksArrowSize = 8
	With .Elements
		.Add "Element <sha ;;0>A"
		.Add "Element <sha ;;0>B",164,64
		.Add "Element <sha ;;0>B",0,132
	End With
	With .Links
		.Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		.Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		With .Add(SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(1))
			.ShowLinkType = exLinkRound
			.StartPos = LeftAlignment
		End With
	End With
	.FitToClient 
	.EndUpdate 
End With

With SwimLane1
	With .Elements.Add("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECM" & _
	"YAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtu" & _
	"oNXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AEC" & _
	"MwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAE" & _
	"BA==>▲</a><br>+ withdraw(amount: Currency)")
		.ID = "Account"
		.X = -128
		.CaptionSingleLine = exCaptionBreakWrap
		.AutoSize = False
		.Width = 256
		.Height = .AutoHeight
		.CaptionAlign = &H4
	End With
End With

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub SwimLane1_AnchorClick(ByVal AnchorID As String, ByVal Options As String)
	With SwimLane1
		With .Elements.Item("Account")
			.Height = .AutoHeight
		End With
	End With
End Sub

With SwimLane1
	With .Elements.Add("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAAgAA4AAwisXjMYH0TAECM" & _
	"YAjsCMwAM4AkMGhEGOUei0Yl8bkQAOAAlsGmsSlp0h0SgkCF8DgsNhUMhEKiESkYAoMlk8phssmcCltLMNTAFOlFDlc2l0amMxjomAAjAA5AA2tMaHcfplZk1blVDqtu" & _
	"oNXjoAAEBA=>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AEC" & _
	"MwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAE" & _
	"BA==>▲</a><br>+ withdraw(amount: Currency)")
		.ID = "Account"
		.X = -128
		.CaptionSingleLine = exCaptionBreakWrap
		.AutoSize = False
		.Width = 256
		.Height = .AutoHeight
		.CaptionAlign = &H4
	End With
End With

With SwimLane1
	With .Elements.Add("<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</s" & _
	"olidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)")
		.CaptionSingleLine = exCaptionBreakWrap
		.BackColor = RGB(248,248,248)
		.AutoSize = False
		.Width = 194
		.Height = 76
		.CaptionAlign = &H4
	End With
End With

With SwimLane1
	With .Elements.Add("<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</s" & _
	"olidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)")
		.CaptionSingleLine = exCaptionBreakWrap
		.BackColor = RGB(248,248,248)
	End With
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub SwimLane1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
	With SwimLane1
		.ShowToolTip "new content","",,"+8","+8"
	End With
End Sub

' MouseMove event - Occurs when the user moves the mouse.
Private Sub SwimLane1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
	With SwimLane1
		.ShowToolTip "<null>","<null>",,"+8","+8"
	End With
End Sub

With SwimLane1
	.Elements.Add("Element with a Tooltip").ToolTip = "This is a bit of text that should be displayed when cursor hovers the element."
End With