With AxSwimLane1
	.BeginUpdate()
	.AllowDesignHeader = EXSWIMLANELib.AllowDesignHeaderEnum.exDesignHeaderLock
	.AllowLinkControlPoint = EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.LinkControlPointEnum.exStartControlPoint
	.AllowPoolContentUpdate = EXSWIMLANELib.AllowPoolContentUpdateEnum.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(EXSWIMLANELib.LaneTypeEnum.exLaneHorizontal).Children.Count = 2
		.Lane(EXSWIMLANELib.LaneTypeEnum.exLaneVertical).Children.Count = 2
	End With
	.Links.Add(AxSwimLane1.Elements.Item(1),AxSwimLane1.Elements.Item(2),"L1")
	.EndUpdate()
End With

With AxSwimLane1
	.BeginUpdate()
	.AllowDesignHeader = EXSWIMLANELib.AllowDesignHeaderEnum.exDesignHeaderLock
	.AllowLinkControlPoint = EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.LinkControlPointEnum.exStartControlPoint
	.AllowPoolContentUpdate = EXSWIMLANELib.AllowPoolContentUpdateEnum.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(EXSWIMLANELib.LaneTypeEnum.exLaneHorizontal).Children.Count = 2
		.Lane(EXSWIMLANELib.LaneTypeEnum.exLaneVertical).Children.Count = 2
	End With
	.Links.Add(AxSwimLane1.Elements.Item(1),AxSwimLane1.Elements.Item(2),"L1")
	.EndUpdate()
End With

Dim var_CopyTo
With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = &Hffffff80 Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exOrthoArrange Or EXSWIMLANELib.LinkControlPointEnum.exMiddleControlPoint Or EXSWIMLANELib.LinkControlPointEnum.exControlPoint Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		.Add(AxSwimLane1.Elements.Item(3),AxSwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		With .Add(AxSwimLane1.Elements.Item(3),AxSwimLane1.Elements.Item(1))
			.ShowLinkType = EXSWIMLANELib.ShowLinkTypeEnum.exLinkRound
			.StartPos = EXSWIMLANELib.AlignmentEnum.LeftAlignment
			.ArrowSize = 8
			.ArrowColor = RGB(255,255,255)
			.ArrowFrameColor = RGB(0,0,0)
		End With
	End With
	.FitToClient()
	.EndUpdate()
	var_CopyTo = .get_CopyTo("c:/temp/sample.pdf|33.11 in x 46.81 in|0 0 0 0|single")
End With

Dim var_CopyTo
With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = &Hffffff80 Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exOrthoArrange Or EXSWIMLANELib.LinkControlPointEnum.exMiddleControlPoint Or EXSWIMLANELib.LinkControlPointEnum.exControlPoint Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		.Add(AxSwimLane1.Elements.Item(3),AxSwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		With .Add(AxSwimLane1.Elements.Item(3),AxSwimLane1.Elements.Item(1))
			.ShowLinkType = EXSWIMLANELib.ShowLinkTypeEnum.exLinkRound
			.StartPos = EXSWIMLANELib.AlignmentEnum.LeftAlignment
			.ArrowSize = 8
			.ArrowColor = RGB(255,255,255)
			.ArrowFrameColor = RGB(0,0,0)
		End With
	End With
	.FitToClient()
	.EndUpdate()
	var_CopyTo = .get_CopyTo("c:/temp/sample.pdf|6.93 in x 9.84 in||75%")
End With

Dim var_CopyTo
With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = &Hffffff80 Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exOrthoArrange Or EXSWIMLANELib.LinkControlPointEnum.exMiddleControlPoint Or EXSWIMLANELib.LinkControlPointEnum.exControlPoint Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		.Add(AxSwimLane1.Elements.Item(3),AxSwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		With .Add(AxSwimLane1.Elements.Item(3),AxSwimLane1.Elements.Item(1))
			.ShowLinkType = EXSWIMLANELib.ShowLinkTypeEnum.exLinkRound
			.StartPos = EXSWIMLANELib.AlignmentEnum.LeftAlignment
			.ArrowSize = 8
			.ArrowColor = RGB(255,255,255)
			.ArrowFrameColor = RGB(0,0,0)
		End With
	End With
	.FitToClient()
	.EndUpdate()
	var_CopyTo = .get_CopyTo("c:/temp/sample.pdf|||3 x 2f")
End With

Dim var_CopyTo
With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = &Hffffff80 Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exOrthoArrange Or EXSWIMLANELib.LinkControlPointEnum.exMiddleControlPoint Or EXSWIMLANELib.LinkControlPointEnum.exControlPoint Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		.Add(AxSwimLane1.Elements.Item(3),AxSwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		With .Add(AxSwimLane1.Elements.Item(3),AxSwimLane1.Elements.Item(1))
			.ShowLinkType = EXSWIMLANELib.ShowLinkTypeEnum.exLinkRound
			.StartPos = EXSWIMLANELib.AlignmentEnum.LeftAlignment
			.ArrowSize = 8
			.ArrowColor = RGB(255,255,255)
			.ArrowFrameColor = RGB(0,0,0)
		End With
	End With
	.FitToClient()
	.EndUpdate()
	var_CopyTo = .get_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

Dim var_CopyTo
With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = &Hffffff80 Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exOrthoArrange Or EXSWIMLANELib.LinkControlPointEnum.exMiddleControlPoint Or EXSWIMLANELib.LinkControlPointEnum.exControlPoint Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		.Add(AxSwimLane1.Elements.Item(3),AxSwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		With .Add(AxSwimLane1.Elements.Item(3),AxSwimLane1.Elements.Item(1))
			.ShowLinkType = EXSWIMLANELib.ShowLinkTypeEnum.exLinkRound
			.StartPos = EXSWIMLANELib.AlignmentEnum.LeftAlignment
			.ArrowSize = 8
			.ArrowColor = RGB(255,255,255)
			.ArrowFrameColor = RGB(0,0,0)
		End With
	End With
	.FitToClient()
	.EndUpdate()
	var_CopyTo = .get_CopyTo("c:/temp/sample.pdf|8.50 in x 11.00 in||x 2")
End With

Dim var_CopyTo
With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = &Hffffff80 Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exOrthoArrange Or EXSWIMLANELib.LinkControlPointEnum.exMiddleControlPoint Or EXSWIMLANELib.LinkControlPointEnum.exControlPoint Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		.Add(AxSwimLane1.Elements.Item(3),AxSwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		With .Add(AxSwimLane1.Elements.Item(3),AxSwimLane1.Elements.Item(1))
			.ShowLinkType = EXSWIMLANELib.ShowLinkTypeEnum.exLinkRound
			.StartPos = EXSWIMLANELib.AlignmentEnum.LeftAlignment
			.ArrowSize = 8
			.ArrowColor = RGB(255,255,255)
			.ArrowFrameColor = RGB(0,0,0)
		End With
	End With
	.FitToClient()
	.EndUpdate()
	var_CopyTo = .get_CopyTo("c:/temp/sample.pdf|||1 x")
End With

Dim var_CopyTo
With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = &Hffffff80 Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exOrthoArrange Or EXSWIMLANELib.LinkControlPointEnum.exMiddleControlPoint Or EXSWIMLANELib.LinkControlPointEnum.exControlPoint Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		.Add(AxSwimLane1.Elements.Item(3),AxSwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		With .Add(AxSwimLane1.Elements.Item(3),AxSwimLane1.Elements.Item(1))
			.ShowLinkType = EXSWIMLANELib.ShowLinkTypeEnum.exLinkRound
			.StartPos = EXSWIMLANELib.AlignmentEnum.LeftAlignment
			.ArrowSize = 8
			.ArrowColor = RGB(255,255,255)
			.ArrowFrameColor = RGB(0,0,0)
		End With
	End With
	.FitToClient()
	.EndUpdate()
	var_CopyTo = .get_CopyTo("c:/temp/sample.pdf|||single")
End With

With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.Elements.Item(2),"L1")
	.Links.Add(AxSwimLane1.Elements.Item(3),AxSwimLane1.Elements.Item(2),"L2")
	.Links.Add(AxSwimLane1.Elements.Item(2),AxSwimLane1.Elements.Item(1),"L3")
	.ShowLinks = EXSWIMLANELib.ShowExtendedLinksEnum.exChangeColorOnOverlap Or EXSWIMLANELib.ShowExtendedLinksEnum.exShowCrossLinksRect Or EXSWIMLANELib.ShowExtendedLinksEnum.exShowExtendedLinks
	.OverlapLinksColors = "red,orange"
	.LinksColor = RGB(128,128,128)
	.AxisStyle = EXSWIMLANELib.LinesStyleEnum.exNoLines
	.ShowGridLines = False
	.EndUpdate()
End With

With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.Elements.Item(2),"L1")
	.Links.Add(AxSwimLane1.Elements.Item(3),AxSwimLane1.Elements.Item(2),"L2")
	.Links.Add(AxSwimLane1.Elements.Item(2),AxSwimLane1.Elements.Item(1),"L3")
	.ShowLinks = EXSWIMLANELib.ShowExtendedLinksEnum.exChangeColorOnOverlap Or EXSWIMLANELib.ShowExtendedLinksEnum.exPreventOverlapMixt Or EXSWIMLANELib.ShowExtendedLinksEnum.exShowCrossLinksRect Or EXSWIMLANELib.ShowExtendedLinksEnum.exShowExtendedLinks
	.LinksColor = RGB(128,128,128)
	.AxisStyle = EXSWIMLANELib.LinesStyleEnum.exNoLines
	.ShowGridLines = False
	.EndUpdate()
End With

With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.Elements.Item(2),"L1")
	.Links.Add(AxSwimLane1.Elements.Item(3),AxSwimLane1.Elements.Item(2),"L2")
	.Links.Add(AxSwimLane1.Elements.Item(2),AxSwimLane1.Elements.Item(1),"L3")
	.ShowLinks = EXSWIMLANELib.ShowExtendedLinksEnum.exChangeColorOnOverlap Or EXSWIMLANELib.ShowExtendedLinksEnum.exShowCrossLinksRect Or EXSWIMLANELib.ShowExtendedLinksEnum.exShowExtendedLinks
	.LinksColor = RGB(128,128,128)
	.AxisStyle = EXSWIMLANELib.LinesStyleEnum.exNoLines
	.ShowGridLines = False
	.EndUpdate()
End With

With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.Elements.Item(2),"L1")
	.Links.Add(AxSwimLane1.Elements.Item(3),AxSwimLane1.Elements.Item(2),"L2")
	.Links.Add(AxSwimLane1.Elements.Item(2),AxSwimLane1.Elements.Item(1),"L3")
	.ShowLinks = EXSWIMLANELib.ShowExtendedLinksEnum.exPreventOverlap Or EXSWIMLANELib.ShowExtendedLinksEnum.exPreventOverlapMixt Or EXSWIMLANELib.ShowExtendedLinksEnum.exShowCrossLinksRect Or EXSWIMLANELib.ShowExtendedLinksEnum.exShowExtendedLinks
	.LinksColor = RGB(128,128,128)
	.AxisStyle = EXSWIMLANELib.LinesStyleEnum.exNoLines
	.ShowGridLines = False
	.EndUpdate()
End With

With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.Elements.Item(2),"L1")
	.Links.Add(AxSwimLane1.Elements.Item(3),AxSwimLane1.Elements.Item(2),"L2")
	.Links.Add(AxSwimLane1.Elements.Item(2),AxSwimLane1.Elements.Item(1),"L3")
	.ShowLinks = EXSWIMLANELib.ShowExtendedLinksEnum.exPreventOverlap Or EXSWIMLANELib.ShowExtendedLinksEnum.exShowCrossLinksRect Or EXSWIMLANELib.ShowExtendedLinksEnum.exShowExtendedLinks
	.LinksColor = RGB(128,128,128)
	.AxisStyle = EXSWIMLANELib.LinesStyleEnum.exNoLines
	.ShowGridLines = False
	.EndUpdate()
End With

With AxSwimLane1
	.BeginUpdate()
	.ReplaceIcon("gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+O" & _
	"kYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==")
	.ReplaceIcon("C:\images\favicon.ico",0)
	.AllowLinkControlPoint = EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.Elements.Item(2),"L1")
	.EndUpdate()
End With

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub AxSwimLane1_LayoutEndChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutEndChangingEvent) Handles AxSwimLane1.LayoutEndChanging
	With AxSwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 18 ? `exActionContextMenuObject` : value",e.operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub AxSwimLane1_LayoutStartChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutStartChangingEvent) Handles AxSwimLane1.LayoutStartChanging
	With AxSwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 18 ? `exActionContextMenuObject` : value",e.operation) )
	End With
End Sub

With AxSwimLane1
	.BeginUpdate()
	.AllowDesignHeader = EXSWIMLANELib.AllowDesignHeaderEnum.exDesignHeaderLock
	.AllowLinkControlPoint = EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(EXSWIMLANELib.LaneTypeEnum.exLaneHorizontal).Children.Count = 2
		.Lane(EXSWIMLANELib.LaneTypeEnum.exLaneVertical).Children.Count = 2
	End With
	.Links.Add(AxSwimLane1.Elements.Item(1),AxSwimLane1.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 AxSwimLane1_LayoutEndChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutEndChangingEvent) Handles AxSwimLane1.LayoutEndChanging
	With AxSwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 17 ? `exContextMenuObject` : value",e.operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub AxSwimLane1_LayoutStartChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutStartChangingEvent) Handles AxSwimLane1.LayoutStartChanging
	With AxSwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 17 ? `exContextMenuObject` : value",e.operation) )
	End With
End Sub

With AxSwimLane1
	.BeginUpdate()
	.AllowDesignHeader = EXSWIMLANELib.AllowDesignHeaderEnum.exDesignHeaderLock
	.AllowLinkControlPoint = EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(EXSWIMLANELib.LaneTypeEnum.exLaneHorizontal).Children.Count = 2
		.Lane(EXSWIMLANELib.LaneTypeEnum.exLaneVertical).Children.Count = 2
	End With
	.Links.Add(AxSwimLane1.Elements.Item(1),AxSwimLane1.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 AxSwimLane1_LayoutEndChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutEndChangingEvent) Handles AxSwimLane1.LayoutEndChanging
	With AxSwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 16 ? `exMoveLane` : value",e.operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub AxSwimLane1_LayoutStartChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutStartChangingEvent) Handles AxSwimLane1.LayoutStartChanging
	With AxSwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 16 ? `exMoveLane` : value",e.operation) )
	End With
End Sub

With AxSwimLane1
	.BeginUpdate()
	.AllowDesignHeader = EXSWIMLANELib.AllowDesignHeaderEnum.exDesignHeaderLock
	.AllowLinkControlPoint = EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(EXSWIMLANELib.LaneTypeEnum.exLaneHorizontal).Children.Count = 2
		.Lane(EXSWIMLANELib.LaneTypeEnum.exLaneVertical).Children.Count = 2
	End With
	.Links.Add(AxSwimLane1.Elements.Item(1),AxSwimLane1.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 AxSwimLane1_LayoutEndChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutEndChangingEvent) Handles AxSwimLane1.LayoutEndChanging
	With AxSwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 15 ? `exResizeLane` : value",e.operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub AxSwimLane1_LayoutStartChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutStartChangingEvent) Handles AxSwimLane1.LayoutStartChanging
	With AxSwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 15 ? `exResizeLane` : value",e.operation) )
	End With
End Sub

With AxSwimLane1
	.BeginUpdate()
	.AllowDesignHeader = EXSWIMLANELib.AllowDesignHeaderEnum.exDesignHeaderLock
	.AllowLinkControlPoint = EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(EXSWIMLANELib.LaneTypeEnum.exLaneHorizontal).Children.Count = 2
		.Lane(EXSWIMLANELib.LaneTypeEnum.exLaneVertical).Children.Count = 2
	End With
	.Links.Add(AxSwimLane1.Elements.Item(1),AxSwimLane1.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 AxSwimLane1_LayoutEndChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutEndChangingEvent) Handles AxSwimLane1.LayoutEndChanging
	With AxSwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 14 ? `exResizePoolHeader` : value",e.operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub AxSwimLane1_LayoutStartChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutStartChangingEvent) Handles AxSwimLane1.LayoutStartChanging
	With AxSwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 14 ? `exResizePoolHeader` : value",e.operation) )
	End With
End Sub

With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.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 AxSwimLane1_LayoutEndChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutEndChangingEvent) Handles AxSwimLane1.LayoutEndChanging
	With AxSwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 13 ? `exMovePool` : value",e.operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub AxSwimLane1_LayoutStartChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutStartChangingEvent) Handles AxSwimLane1.LayoutStartChanging
	With AxSwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 13 ? `exMovePool` : value",e.operation) )
	End With
End Sub

With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.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 AxSwimLane1_LayoutEndChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutEndChangingEvent) Handles AxSwimLane1.LayoutEndChanging
	With AxSwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 12 ? `exResizePool` : value",e.operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub AxSwimLane1_LayoutStartChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutStartChangingEvent) Handles AxSwimLane1.LayoutStartChanging
	With AxSwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 12 ? `exResizePool` : value",e.operation) )
	End With
End Sub

With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.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 AxSwimLane1_LayoutEndChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutEndChangingEvent) Handles AxSwimLane1.LayoutEndChanging
	With AxSwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 11 ? `exCreatePool` : value",e.operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub AxSwimLane1_LayoutStartChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutStartChangingEvent) Handles AxSwimLane1.LayoutStartChanging
	With AxSwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 11 ? `exCreatePool` : value",e.operation) )
	End With
End Sub

With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.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 AxSwimLane1_LayoutEndChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutEndChangingEvent) Handles AxSwimLane1.LayoutEndChanging
	With AxSwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 10 ? `exDesignMode` : value",e.operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub AxSwimLane1_LayoutStartChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutStartChangingEvent) Handles AxSwimLane1.LayoutStartChanging
	With AxSwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 10 ? `exDesignMode` : value",e.operation) )
	End With
End Sub

With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.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 AxSwimLane1_LayoutEndChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutEndChangingEvent) Handles AxSwimLane1.LayoutEndChanging
	With AxSwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value case (default:value;32:`exUndoRedoUpdate`;33:`exUndo`;34:`exRedo`)",e.operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub AxSwimLane1_LayoutStartChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutStartChangingEvent) Handles AxSwimLane1.LayoutStartChanging
	With AxSwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value case (default:value;32:`exUndoRedoUpdate`;33:`exUndo`;34:`exRedo`)",e.operation) )
	End With
End Sub

With AxSwimLane1
	.BeginUpdate()
	.AllowUndoRedo = True
	.AllowLinkControlPoint = EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.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 AxSwimLane1_LayoutEndChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutEndChangingEvent) Handles AxSwimLane1.LayoutEndChanging
	With AxSwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 9 ? `exLinkObjects` : value",e.operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub AxSwimLane1_LayoutStartChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutStartChangingEvent) Handles AxSwimLane1.LayoutStartChanging
	With AxSwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 9 ? `exLinkObjects` : value",e.operation) )
	End With
End Sub

With AxSwimLane1
	.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 AxSwimLane1_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxSwimLane1.ClickEvent
	' ElementFromPoint(-1,-1).Edit(0)
End Sub

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub AxSwimLane1_LayoutEndChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutEndChangingEvent) Handles AxSwimLane1.LayoutEndChanging
	With AxSwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 8 ? `exEditObject` : value",e.operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub AxSwimLane1_LayoutStartChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutStartChangingEvent) Handles AxSwimLane1.LayoutStartChanging
	With AxSwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 8 ? `exEditObject` : value",e.operation) )
	End With
End Sub

With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.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 AxSwimLane1_LayoutEndChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutEndChangingEvent) Handles AxSwimLane1.LayoutEndChanging
	With AxSwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 7 ? `exCreateObject` : value",e.operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub AxSwimLane1_LayoutStartChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutStartChangingEvent) Handles AxSwimLane1.LayoutStartChanging
	With AxSwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 7 ? `exCreateObject` : value",e.operation) )
	End With
End Sub

With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.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 AxSwimLane1_LayoutEndChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutEndChangingEvent) Handles AxSwimLane1.LayoutEndChanging
	With AxSwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 6 ? `exSelectNothing` : value",e.operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub AxSwimLane1_LayoutStartChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutStartChangingEvent) Handles AxSwimLane1.LayoutStartChanging
	With AxSwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 6 ? `exSelectNothing` : value",e.operation) )
	End With
End Sub

With AxSwimLane1
	.BeginUpdate()
	.AllowSelectNothing = True
	.AllowLinkControlPoint = EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.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 AxSwimLane1_LayoutEndChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutEndChangingEvent) Handles AxSwimLane1.LayoutEndChanging
	With AxSwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 5 ? `exSelectElement` : value",e.operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub AxSwimLane1_LayoutStartChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutStartChangingEvent) Handles AxSwimLane1.LayoutStartChanging
	With AxSwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 5 ? `exSelectElement` : value",e.operation) )
	End With
End Sub

With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.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 AxSwimLane1_LayoutEndChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutEndChangingEvent) Handles AxSwimLane1.LayoutEndChanging
	With AxSwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 4 ? `exMoveElement` : value",e.operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub AxSwimLane1_LayoutStartChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutStartChangingEvent) Handles AxSwimLane1.LayoutStartChanging
	With AxSwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 4 ? `exMoveElement` : value",e.operation) )
	End With
End Sub

With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.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 AxSwimLane1_LayoutEndChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutEndChangingEvent) Handles AxSwimLane1.LayoutEndChanging
	With AxSwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 3 ? `exResizeElement` : value",e.operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub AxSwimLane1_LayoutStartChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutStartChangingEvent) Handles AxSwimLane1.LayoutStartChanging
	With AxSwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 3 ? `exResizeElement` : value",e.operation) )
	End With
End Sub

With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.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 AxSwimLane1_LayoutEndChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutEndChangingEvent) Handles AxSwimLane1.LayoutEndChanging
	With AxSwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 2 ? `exSurfaceHome` : value",e.operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub AxSwimLane1_LayoutStartChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutStartChangingEvent) Handles AxSwimLane1.LayoutStartChanging
	With AxSwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 2 ? `exSurfaceHome` : value",e.operation) )
	End With
End Sub

With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.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 AxSwimLane1_LayoutEndChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutEndChangingEvent) Handles AxSwimLane1.LayoutEndChanging
	With AxSwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 1 ? `exSurfaceZoom` : value",e.operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub AxSwimLane1_LayoutStartChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutStartChangingEvent) Handles AxSwimLane1.LayoutStartChanging
	With AxSwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 1 ? `exSurfaceZoom` : value",e.operation) )
	End With
End Sub

With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.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 AxSwimLane1_LayoutEndChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutEndChangingEvent) Handles AxSwimLane1.LayoutEndChanging
	With AxSwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( .FormatABC("value = 0 ? `exSurfaceMove` : value",e.operation) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub AxSwimLane1_LayoutStartChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutStartChangingEvent) Handles AxSwimLane1.LayoutStartChanging
	With AxSwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( .FormatABC("value = 0 ? `exSurfaceMove` : value",e.operation) )
	End With
End Sub

With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.Elements.Item(2),"L1")
	.EndUpdate()
	Debug.Print( "Click and drag the surface to reposition it" )
End With

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

' Event event - Notifies the application once the control fires an event.
Private Sub AxSwimLane1_Event(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_EventEvent) Handles AxSwimLane1.Event
	With AxSwimLane1
		Debug.Print( .get_EventParam(-2) )
	End With
End Sub

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

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub AxSwimLane1_LayoutEndChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutEndChangingEvent) Handles AxSwimLane1.LayoutEndChanging
	With AxSwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( e.operation )
		Debug.Print( .FocusLink.ID )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub AxSwimLane1_LayoutStartChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutStartChangingEvent) Handles AxSwimLane1.LayoutStartChanging
	With AxSwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( e.operation )
		Debug.Print( .FocusLink.ID )
	End With
End Sub

With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.Elements.Item(2),"L1")
	.FocusLink = "L1"
	.EndUpdate()
End With

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub AxSwimLane1_LayoutEndChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutEndChangingEvent) Handles AxSwimLane1.LayoutEndChanging
	With AxSwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( e.operation )
		Debug.Print( .FocusLink )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub AxSwimLane1_LayoutStartChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutStartChangingEvent) Handles AxSwimLane1.LayoutStartChanging
	With AxSwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( e.operation )
		Debug.Print( .FocusLink )
	End With
End Sub

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

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub AxSwimLane1_LayoutEndChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutEndChangingEvent) Handles AxSwimLane1.LayoutEndChanging
	With AxSwimLane1
		Debug.Print( "LayoutEndChanging" )
		Debug.Print( e.operation )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub AxSwimLane1_LayoutStartChanging(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_LayoutStartChangingEvent) Handles AxSwimLane1.LayoutStartChanging
	With AxSwimLane1
		Debug.Print( "LayoutStartChanging" )
		Debug.Print( e.operation )
	End With
End Sub

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

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

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub AxSwimLane1_AnchorClick(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_AnchorClickEvent) Handles AxSwimLane1.AnchorClick
	With AxSwimLane1
		Debug.Print( e.anchorID )
	End With
End Sub

With AxSwimLane1
	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 = EXSWIMLANELib.CaptionSingleLineEnum.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 = EXSWIMLANELib.CaptionSingleLineEnum.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 = EXSWIMLANELib.CaptionSingleLineEnum.exCaptionBreakWrap
	End With
	With .Links.Add(AxSwimLane1.Elements.Item("Account"),AxSwimLane1.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 AxSwimLane1
	With .Elements.Add("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3")
		.CaptionSingleLine = EXSWIMLANELib.CaptionSingleLineEnum.exCaptionBreakWrap
	End With
End With

With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = &Hffffff80 Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exOrthoArrange Or EXSWIMLANELib.LinkControlPointEnum.exMiddleControlPoint Or EXSWIMLANELib.LinkControlPointEnum.exControlPoint Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		.Add(AxSwimLane1.Elements.Item(3),AxSwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		With .Add(AxSwimLane1.Elements.Item(3),AxSwimLane1.Elements.Item(1))
			.ShowLinkType = EXSWIMLANELib.ShowLinkTypeEnum.exLinkRound
			.StartPos = EXSWIMLANELib.AlignmentEnum.LeftAlignment
			.ArrowSize = 8
			.ArrowColor = RGB(255,255,255)
			.ArrowFrameColor = RGB(0,0,0)
		End With
	End With
	.FitToClient()
	.EndUpdate()
End With

With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = &Hffffff80 Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exOrthoArrange Or EXSWIMLANELib.LinkControlPointEnum.exMiddleControlPoint Or EXSWIMLANELib.LinkControlPointEnum.exControlPoint Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		.Add(AxSwimLane1.Elements.Item(3),AxSwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		With .Add(AxSwimLane1.Elements.Item(3),AxSwimLane1.Elements.Item(1))
			.ShowLinkType = EXSWIMLANELib.ShowLinkTypeEnum.exLinkRound
			.StartPos = EXSWIMLANELib.AlignmentEnum.LeftAlignment
		End With
	End With
	.FitToClient()
	.EndUpdate()
End With

With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = &Hffffff80 Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exOrthoArrange Or EXSWIMLANELib.LinkControlPointEnum.exMiddleControlPoint Or EXSWIMLANELib.LinkControlPointEnum.exControlPoint Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		.Add(AxSwimLane1.Elements.Item(3),AxSwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		With .Add(AxSwimLane1.Elements.Item(3),AxSwimLane1.Elements.Item(1))
			.ShowLinkType = EXSWIMLANELib.ShowLinkTypeEnum.exLinkRound
			.StartPos = EXSWIMLANELib.AlignmentEnum.LeftAlignment
			.ArrowSize = 8
		End With
	End With
	.FitToClient()
	.EndUpdate()
End With

With AxSwimLane1
	.BeginUpdate()
	.AllowLinkControlPoint = &Hffffff80 Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeTo Or EXSWIMLANELib.LinkControlPointEnum.exAllowChangeFrom Or EXSWIMLANELib.LinkControlPointEnum.exOrthoArrange Or EXSWIMLANELib.LinkControlPointEnum.exMiddleControlPoint Or EXSWIMLANELib.LinkControlPointEnum.exControlPoint Or EXSWIMLANELib.LinkControlPointEnum.exEndControlPoint Or EXSWIMLANELib.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(AxSwimLane1.Elements.Item(1),AxSwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		.Add(AxSwimLane1.Elements.Item(3),AxSwimLane1.Elements.Item(2)).CustomPath = "0.5,0.25,0.5,.75"
		With .Add(AxSwimLane1.Elements.Item(3),AxSwimLane1.Elements.Item(1))
			.ShowLinkType = EXSWIMLANELib.ShowLinkTypeEnum.exLinkRound
			.StartPos = EXSWIMLANELib.AlignmentEnum.LeftAlignment
		End With
	End With
	.FitToClient()
	.EndUpdate()
End With

With AxSwimLane1
	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 = EXSWIMLANELib.CaptionSingleLineEnum.exCaptionBreakWrap
		.AutoSize = False
		.Width = 256
		.Height = .AutoHeight
		.CaptionAlign = &H4
	End With
End With

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub AxSwimLane1_AnchorClick(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_AnchorClickEvent) Handles AxSwimLane1.AnchorClick
	With AxSwimLane1
		With .Elements.Item("Account")
			.Height = .AutoHeight
		End With
	End With
End Sub

With AxSwimLane1
	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 = EXSWIMLANELib.CaptionSingleLineEnum.exCaptionBreakWrap
		.AutoSize = False
		.Width = 256
		.Height = .AutoHeight
		.CaptionAlign = &H4
	End With
End With

With AxSwimLane1
	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 = EXSWIMLANELib.CaptionSingleLineEnum.exCaptionBreakWrap
		.BackColor = RGB(248,248,248)
		.AutoSize = False
		.Width = 194
		.Height = 76
		.CaptionAlign = &H4
	End With
End With

With AxSwimLane1
	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 = EXSWIMLANELib.CaptionSingleLineEnum.exCaptionBreakWrap
		.BackColor = RGB(248,248,248)
	End With
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxSwimLane1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_MouseMoveEvent) Handles AxSwimLane1.MouseMoveEvent
	With AxSwimLane1
		.ShowToolTip("new content","",Nothing,"+8","+8")
	End With
End Sub

' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxSwimLane1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXSWIMLANELib._ISwimLaneEvents_MouseMoveEvent) Handles AxSwimLane1.MouseMoveEvent
	With AxSwimLane1
		.ShowToolTip("<null>","<null>",Nothing,"+8","+8")
	End With
End Sub

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