153
Allow resizing the elements of the pool/lane/phase when the user resizes it by drag and drop, or, by holding the CTRL key, resize only the frame
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowDesignHeader = 0
		.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
		.AllowPoolContentUpdate = 2
		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(0).Children.Count = 2
			.Lane(1).Children.Count = 2
		End With
		.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

152
Disable resizing the elements of the pool/lane/phase when the user resizes it by drag and drop
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowDesignHeader = 0
		.AllowLinkControlPoint = 99 ' LinkControlPointEnum.exAllowChangeTo Or LinkControlPointEnum.exAllowChangeFrom Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
		.AllowPoolContentUpdate = 0
		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(0).Children.Count = 2
			.Lane(1).Children.Count = 2
		End With
		.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

151
Generates a PDF document on a single A0 page with no margins
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = -1 ' &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 = 3
				.StartPos = 0
				.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
End Function
</SCRIPT>
</BODY>

150
Generates a PDF document that scales the content proportionally by 75% using B3 pages (default margins)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = -1 ' &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 = 3
				.StartPos = 0
				.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
End Function
</SCRIPT>
</BODY>

149
Generates a PDF document that fits the content exactly to 3 A4 pages wide by 2 pages tall (default margins)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = -1 ' &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 = 3
				.StartPos = 0
				.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
End Function
</SCRIPT>
</BODY>

148
Generates a PDF document that fits the content to 3 A3-landscape pages wide by 2 pages tall (custom margins)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = -1 ' &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 = 3
				.StartPos = 0
				.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
End Function
</SCRIPT>
</BODY>

147
Generates a PDF document that fits the content to 2 Letter pages tall, automatically determining the number of pages wide (default margins)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = -1 ' &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 = 3
				.StartPos = 0
				.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
End Function
</SCRIPT>
</BODY>

146
Generates a PDF document that fits the content to 1 page wide and as many A4 pages tall as required (default margins)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = -1 ' &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 = 3
				.StartPos = 0
				.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
End Function
</SCRIPT>
</BODY>

145
Generates a PDF document on a single A4 page (default margins)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = -1 ' &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 = 3
				.StartPos = 0
				.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
End Function
</SCRIPT>
</BODY>

144
Defines the colors, to display overlapping links

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = 99 ' 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 = 545 ' ShowExtendedLinksEnum.exChangeColorOnOverlap Or ShowExtendedLinksEnum.exShowCrossLinksRect Or ShowExtendedLinksEnum.exShowExtendedLinks
		.OverlapLinksColors = "red,orange"
		.LinksColor = RGB(128,128,128)
		.AxisStyle = -1
		.ShowGridLines = False
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

143
The exPreventOverlapMixt flag must always be used alongside either the exPreventOverlap or exChangeColorOnOverlap flag. When used with the exPreventOverlap flag, it ensures that links avoid overlapping with elements or obstacles, enabling their paths to include both rectangular and diagonal lines. When combined with the exChangeColorOnOverlap flag, overlapping links alternately adjust their width in addition to changing colors (sample 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = 99 ' 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 = 673 ' ShowExtendedLinksEnum.exChangeColorOnOverlap Or ShowExtendedLinksEnum.exPreventOverlapMixt Or ShowExtendedLinksEnum.exShowCrossLinksRect Or ShowExtendedLinksEnum.exShowExtendedLinks
		.LinksColor = RGB(128,128,128)
		.AxisStyle = -1
		.ShowGridLines = False
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

142
The exChangeColorOnOverlap flag changes the color for links in areas where they overlap with other links, enhancing clarity and distinction between them

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = 99 ' 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 = 545 ' ShowExtendedLinksEnum.exChangeColorOnOverlap Or ShowExtendedLinksEnum.exShowCrossLinksRect Or ShowExtendedLinksEnum.exShowExtendedLinks
		.LinksColor = RGB(128,128,128)
		.AxisStyle = -1
		.ShowGridLines = False
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

141
The exPreventOverlapMixt flag must always be used alongside either the exPreventOverlap or exChangeColorOnOverlap flag. When used with the exPreventOverlap flag, it ensures that links avoid overlapping with elements or obstacles, enabling their paths to include both rectangular and diagonal lines. When combined with the exChangeColorOnOverlap flag, overlapping links alternately adjust their width in addition to changing colors (sample 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = 99 ' 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 = 417 ' ShowExtendedLinksEnum.exPreventOverlap Or ShowExtendedLinksEnum.exPreventOverlapMixt Or ShowExtendedLinksEnum.exShowCrossLinksRect Or ShowExtendedLinksEnum.exShowExtendedLinks
		.LinksColor = RGB(128,128,128)
		.AxisStyle = -1
		.ShowGridLines = False
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

140
The exPreventOverlap flag adjusts the links to prevent them from overlapping the connected objects. The exPreventOverlap option calculates the path between A and B using the A* (A-star) pathfinding algorithm, which can be a time-consuming operation

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = 99 ' 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 = 289 ' ShowExtendedLinksEnum.exPreventOverlap Or ShowExtendedLinksEnum.exShowCrossLinksRect Or ShowExtendedLinksEnum.exShowExtendedLinks
		.LinksColor = RGB(128,128,128)
		.AxisStyle = -1
		.ShowGridLines = False
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

139
How can I replace or add an icon at runtime

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.ReplaceIcon "gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+O" & _
		"kYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA=="
		.ReplaceIcon "C:\images\favicon.ico",0
		.AllowLinkControlPoint = 99 ' 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
End Function
</SCRIPT>
</BODY>

138
exActionContextMenuObject, An item from object's context menu is executing. Use the AllowContextMenu property to specify the combination of keys that allows the user to open the object's context menu. Use the ContextMenu property to provide a custom context menu for the objects on the surface. The ActionContextMenu event notifies your application once an action occurs within the object's context menu.
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
	With SwimLane1
		alert( "LayoutEndChanging" )
		alert( .FormatABC("value = 18 ? `exActionContextMenuObject` : value",Operation) )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
	With SwimLane1
		alert( "LayoutStartChanging" )
		alert( .FormatABC("value = 18 ? `exActionContextMenuObject` : value",Operation) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowDesignHeader = 0
		.AllowLinkControlPoint = 99 ' 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(0).Children.Count = 2
			.Lane(1).Children.Count = 2
		End With
		.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
		.EndUpdate 
		alert( "Right-Click the pool, element or the link to open its context menu, and change a property of it" )
	End With
End Function
</SCRIPT>
</BODY>

137
exContextMenuObject, The object's context menu is running. The user right-clicks an object on the surface, and it's context menu is shown. Use the AllowContextMenu property to specify the combination of keys that allows the user to open the object's context menu. Use the ContextMenu property to provide a custom context menu for the objects on the surface
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
	With SwimLane1
		alert( "LayoutEndChanging" )
		alert( .FormatABC("value = 17 ? `exContextMenuObject` : value",Operation) )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
	With SwimLane1
		alert( "LayoutStartChanging" )
		alert( .FormatABC("value = 17 ? `exContextMenuObject` : value",Operation) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowDesignHeader = 0
		.AllowLinkControlPoint = 99 ' 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(0).Children.Count = 2
			.Lane(1).Children.Count = 2
		End With
		.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
		.EndUpdate 
		alert( "Right-Click the pool, element or the link to open its context menu" )
	End With
End Function
</SCRIPT>
</BODY>

136
exMoveLane, The user moves/changes the position of the lane of the pool. The AllowMoveLane property specifies the keys combination to allow user to moves/changes the position the lane
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
	With SwimLane1
		alert( "LayoutEndChanging" )
		alert( .FormatABC("value = 16 ? `exMoveLane` : value",Operation) )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
	With SwimLane1
		alert( "LayoutStartChanging" )
		alert( .FormatABC("value = 16 ? `exMoveLane` : value",Operation) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowDesignHeader = 0
		.AllowLinkControlPoint = 99 ' 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(0).Children.Count = 2
			.Lane(1).Children.Count = 2
		End With
		.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
		.EndUpdate 
		alert( "Click the lane's header to drag to a new position" )
	End With
End Function
</SCRIPT>
</BODY>

135
exResizeLane, The user resizes the lane of the pool. The AllowResizePoolHeader property specifies the keys combination to allow user to resize the header of the pool
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
	With SwimLane1
		alert( "LayoutEndChanging" )
		alert( .FormatABC("value = 15 ? `exResizeLane` : value",Operation) )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
	With SwimLane1
		alert( "LayoutStartChanging" )
		alert( .FormatABC("value = 15 ? `exResizeLane` : value",Operation) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowDesignHeader = 0
		.AllowLinkControlPoint = 99 ' 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(0).Children.Count = 2
			.Lane(1).Children.Count = 2
		End With
		.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2),"L1"
		.EndUpdate 
		alert( "Click the pool's header to resize it" )
	End With
End Function
</SCRIPT>
</BODY>

134
exResizePoolHeader, the user resizes the header's pool from the surface
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
	With SwimLane1
		alert( "LayoutEndChanging" )
		alert( .FormatABC("value = 14 ? `exResizePoolHeader` : value",Operation) )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
	With SwimLane1
		alert( "LayoutStartChanging" )
		alert( .FormatABC("value = 14 ? `exResizePoolHeader` : value",Operation) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = 99 ' 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 
		alert( "Click the pool's header to resize it" )
	End With
End Function
</SCRIPT>
</BODY>

133
exMovePool, The user moves the pool from the surface. The AllowMovePool property specifies the keys combination to allow user to move the pool
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
	With SwimLane1
		alert( "LayoutEndChanging" )
		alert( .FormatABC("value = 13 ? `exMovePool` : value",Operation) )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
	With SwimLane1
		alert( "LayoutStartChanging" )
		alert( .FormatABC("value = 13 ? `exMovePool` : value",Operation) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = 99 ' 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 
		alert( "Click a pool and drag to reposition it" )
	End With
End Function
</SCRIPT>
</BODY>

132
exResizePool, The user resizes the pool from the surface. The AllowResizePool property specifies the keys combination to allow user to resize the pool
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
	With SwimLane1
		alert( "LayoutEndChanging" )
		alert( .FormatABC("value = 12 ? `exResizePool` : value",Operation) )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
	With SwimLane1
		alert( "LayoutStartChanging" )
		alert( .FormatABC("value = 12 ? `exResizePool` : value",Operation) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = 99 ' 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 
		alert( "Resize a pool" )
	End With
End Function
</SCRIPT>
</BODY>

131
exCreatePool, The user creates pools on the surface. The AllowCreatePool property specifies the keys combination to allow user to create pools on the surface
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
	With SwimLane1
		alert( "LayoutEndChanging" )
		alert( .FormatABC("value = 11 ? `exCreatePool` : value",Operation) )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
	With SwimLane1
		alert( "LayoutStartChanging" )
		alert( .FormatABC("value = 11 ? `exCreatePool` : value",Operation) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = 99 ' 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 
		alert( "Hold SHIFT, double-click on the surface, and immediately drag to a new position to create a new pool" )
	End With
End Function
</SCRIPT>
</BODY>

130
exDesignMode, The user changes the surface's design mode. The exDesignMode operation occurs, when the user selects a new design-mode, from the control's toolbar.
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
	With SwimLane1
		alert( "LayoutEndChanging" )
		alert( .FormatABC("value = 10 ? `exDesignMode` : value",Operation) )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
	With SwimLane1
		alert( "LayoutStartChanging" )
		alert( .FormatABC("value = 10 ? `exDesignMode` : value",Operation) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = 99 ' 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 
		alert( "Click the Design Menu and select one of the options" )
	End With
End Function
</SCRIPT>
</BODY>

129
exUndo, An Undo operation is performed (CTR + Z), exRedo, A Redo operation is performed (CTR + Y). exUndoRedoUpdate, The Undo/Redo queue is updated
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
	With SwimLane1
		alert( "LayoutEndChanging" )
		alert( .FormatABC("value case (default:value;32:`exUndoRedoUpdate`;33:`exUndo`;34:`exRedo`)",Operation) )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
	With SwimLane1
		alert( "LayoutStartChanging" )
		alert( .FormatABC("value case (default:value;32:`exUndoRedoUpdate`;33:`exUndo`;34:`exRedo`)",Operation) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowUndoRedo = True
		.AllowLinkControlPoint = 99 ' 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 
		alert( "Press CTRL+Z to Undo, CTRL+Y to Redo" )
	End With
End Function
</SCRIPT>
</BODY>

128
exLinkObjects, the user creates an element on the surface. The AllowLinkObjects property specifies the keys combination to allow user to link elements on the surface
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
	With SwimLane1
		alert( "LayoutEndChanging" )
		alert( .FormatABC("value = 9 ? `exLinkObjects` : value",Operation) )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
	With SwimLane1
		alert( "LayoutStartChanging" )
		alert( .FormatABC("value = 9 ? `exLinkObjects` : value",Operation) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		With .Elements
			.Add "Node <b>1",-64,-64
			.Add "Node <b>2"
			.Add "Node <b>3",64,-64
		End With
		.EndUpdate 
		alert( "Hold SHIFT, click an element, and drag to another element to create a link between them" )
	End With
End Function
</SCRIPT>
</BODY>

127
exEditObject, the user edits the element's caption
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_Click()
	' ElementFromPoint(-1,-1).Edit(0)
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
	With SwimLane1
		alert( "LayoutEndChanging" )
		alert( .FormatABC("value = 8 ? `exEditObject` : value",Operation) )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
	With SwimLane1
		alert( "LayoutStartChanging" )
		alert( .FormatABC("value = 8 ? `exEditObject` : value",Operation) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = 99 ' 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 
		alert( "Click an element to edit its caption" )
	End With
End Function
</SCRIPT>
</BODY>

126
exCreateObject, the user creates an element on the surface. The AllowCreateObject property specifies the keys combination to allow user to create elements on the surface
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
	With SwimLane1
		alert( "LayoutEndChanging" )
		alert( .FormatABC("value = 7 ? `exCreateObject` : value",Operation) )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
	With SwimLane1
		alert( "LayoutStartChanging" )
		alert( .FormatABC("value = 7 ? `exCreateObject` : value",Operation) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = 99 ' 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 
		alert( "Double-click on the surface and immediately drag to a new position to create an element" )
	End With
End Function
</SCRIPT>
</BODY>

125
exSelectNothing, the user clicks an empty zone of the surface. The AllowSelectNothing property specifies the keys combination to allow user to select nothing on the surface
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
	With SwimLane1
		alert( "LayoutEndChanging" )
		alert( .FormatABC("value = 6 ? `exSelectNothing` : value",Operation) )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
	With SwimLane1
		alert( "LayoutStartChanging" )
		alert( .FormatABC("value = 6 ? `exSelectNothing` : value",Operation) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowSelectNothing = True
		.AllowLinkControlPoint = 99 ' 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 
		alert( "Select an element, and then click outside to select nothing" )
	End With
End Function
</SCRIPT>
</BODY>

124
exSelectElement, the user clicks the object to get it selected. The AllowSelectObject property specifies the keys combination to allow user to select the object
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
	With SwimLane1
		alert( "LayoutEndChanging" )
		alert( .FormatABC("value = 5 ? `exSelectElement` : value",Operation) )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
	With SwimLane1
		alert( "LayoutStartChanging" )
		alert( .FormatABC("value = 5 ? `exSelectElement` : value",Operation) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = 99 ' 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 
		alert( "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
End Function
</SCRIPT>
</BODY>

123
exMoveElement, the user moves the object. The AllowMoveObject property specifies the keys combination to allow user to move the object
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
	With SwimLane1
		alert( "LayoutEndChanging" )
		alert( .FormatABC("value = 4 ? `exMoveElement` : value",Operation) )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
	With SwimLane1
		alert( "LayoutStartChanging" )
		alert( .FormatABC("value = 4 ? `exMoveElement` : value",Operation) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = 99 ' 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 
		alert( "Move an element" )
	End With
End Function
</SCRIPT>
</BODY>

122
exResizeElement, the user resizes the object. The AllowResizeObject property specifies the keys combination to allow user to resize the object
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
	With SwimLane1
		alert( "LayoutEndChanging" )
		alert( .FormatABC("value = 3 ? `exResizeElement` : value",Operation) )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
	With SwimLane1
		alert( "LayoutStartChanging" )
		alert( .FormatABC("value = 3 ? `exResizeElement` : value",Operation) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = 99 ' 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 
		alert( "Resize an element" )
	End With
End Function
</SCRIPT>
</BODY>

121
exSurfaceHome, the user clicks the Home button on the control's toolbar, so the surface is restored to original position. The Home method has the same effect
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
	With SwimLane1
		alert( "LayoutEndChanging" )
		alert( .FormatABC("value = 2 ? `exSurfaceHome` : value",Operation) )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
	With SwimLane1
		alert( "LayoutStartChanging" )
		alert( .FormatABC("value = 2 ? `exSurfaceHome` : value",Operation) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = 99 ' 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 
		alert( "Click the Home button" )
	End With
End Function
</SCRIPT>
</BODY>

120
exSurfaceZoom, the user magnifies or shrinks the surface. The AllowZoomSurface property specifies the keys combination to allow user to zoom the surface
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
	With SwimLane1
		alert( "LayoutEndChanging" )
		alert( .FormatABC("value = 1 ? `exSurfaceZoom` : value",Operation) )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
	With SwimLane1
		alert( "LayoutStartChanging" )
		alert( .FormatABC("value = 1 ? `exSurfaceZoom` : value",Operation) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = 99 ' 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 
		alert( "Click and drag the surface to reposition it" )
	End With
End Function
</SCRIPT>
</BODY>

119
exSurfaceMove, the user scrolls or moves the surface. The AllowMoveSurface property specifies the keys combination to allow user to move / scroll the surface
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
	With SwimLane1
		alert( "LayoutEndChanging" )
		alert( .FormatABC("value = 0 ? `exSurfaceMove` : value",Operation) )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
	With SwimLane1
		alert( "LayoutStartChanging" )
		alert( .FormatABC("value = 0 ? `exSurfaceMove` : value",Operation) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = 99 ' 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 
		alert( "Click and drag the surface to reposition it" )
	End With
End Function
</SCRIPT>
</BODY>

118
FormatABC method formats the A,B,C values based on the giving expression and returns the result
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		alert( .FormatABC("value format ``",1000) )
	End With
End Function
</SCRIPT>
</BODY>

117
FreezeEvents(Freeze) method prevents firing any event. For instance, FreezeEvents(True) freezes the control's events, no no event is fired, until the FreezeEvents(False) is called
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_Event(EventID)
	With SwimLane1
		alert( .EventParam(-2) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.FreezeEvents True
		alert( "No event is fired after FreezeEvents(True) call" )
		.BeginUpdate 
		.AllowLinkControlPoint = 3 ' 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
End Function
</SCRIPT>
</BODY>

116
The exAllowChangeFrom(0x20)/exAllowChangeTo(0x40) flag of LinkControlPointEnum type allows the user to adjust the link's from/to element by dragging and dropping the start control point (requires the exStartControlPoint/exEndControlPoint flag)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
	With SwimLane1
		alert( "LayoutEndChanging" )
		alert( Operation )
		alert( .FocusLink.ID )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
	With SwimLane1
		alert( "LayoutStartChanging" )
		alert( Operation )
		alert( .FocusLink.ID )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = 99 ' 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
End Function
</SCRIPT>
</BODY>

115
The LayoutStartChanging(exFocusLink)/LayoutEndChanging(exFocusLink) event notifies your application when the user focuses on a new link
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
	With SwimLane1
		alert( "LayoutEndChanging" )
		alert( Operation )
		alert( .FocusLink )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
	With SwimLane1
		alert( "LayoutStartChanging" )
		alert( Operation )
		alert( .FocusLink )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = 3 ' 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
End Function
</SCRIPT>
</BODY>

114
Focus a link
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
	With SwimLane1
		alert( "LayoutEndChanging" )
		alert( Operation )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutStartChanging(Operation)
	With SwimLane1
		alert( "LayoutStartChanging" )
		alert( Operation )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = 3 ' 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
End Function
</SCRIPT>
</BODY>

113
The caption is displayed on the back, so the picture overrides it. How can I place the caption on the foreground

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

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

112
Expandable-caption

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_AnchorClick(AnchorID, Options)
	With SwimLane1
		alert( AnchorID )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 1
			.CaptionAlign = 4 ' &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 = 1
		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 = 1
		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
End Function
</SCRIPT>
</BODY>

111
Expandable-caption

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		With .Elements.Add("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3")
			.CaptionSingleLine = 1
		End With
	End With
End Function
</SCRIPT>
</BODY>

110
Draws a frame arround the link's arrow

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = -1 ' &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 = 3
				.StartPos = 0
				.ArrowSize = 8
				.ArrowColor = RGB(255,255,255)
				.ArrowFrameColor = RGB(0,0,0)
			End With
		End With
		.FitToClient 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

109
Draws a frame arround the arrow for all links

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = -1 ' &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 = 3
				.StartPos = 0
			End With
		End With
		.FitToClient 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

108
Change the size to display the arrow of the link

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = -1 ' &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 = 3
				.StartPos = 0
				.ArrowSize = 8
			End With
		End With
		.FitToClient 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

107
Change the size to display the arrows for all links

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = -1 ' &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 = 3
				.StartPos = 0
			End With
		End With
		.FitToClient 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

106
Extends the caption on the element's width

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 1
			.AutoSize = False
			.Width = 256
			.Height = .AutoHeight
			.CaptionAlign = 4 ' &H4
		End With
	End With
End Function
</SCRIPT>
</BODY>

105
Gets the width/height of the element to fit its content ( as if the AutoSize property is True )

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_AnchorClick(AnchorID, Options)
	With SwimLane1
		With .Elements.Item("Account")
			.Height = .AutoHeight
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 1
			.AutoSize = False
			.Width = 256
			.Height = .AutoHeight
			.CaptionAlign = 4 ' &H4
		End With
	End With
End Function
</SCRIPT>
</BODY>

104
Fullfit the caption on the element's width

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 1
			.BackColor = RGB(248,248,248)
			.AutoSize = False
			.Width = 194
			.Height = 76
			.CaptionAlign = 4 ' &H4
		End With
	End With
End Function
</SCRIPT>
</BODY>

103
Wrap the caption by <br> or "\r\n" sequence only

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 1
			.BackColor = RGB(248,248,248)
		End With
	End With
End Function
</SCRIPT>
</BODY>

102
Display a custom tooltip
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_MouseMove(Button, Shift, X, Y)
	With SwimLane1
		.ShowToolTip "new content","",,"+8","+8"
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()

End Function
</SCRIPT>
</BODY>

101
Shows the tooltip of the object moved relative to its default position
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_MouseMove(Button, Shift, X, Y)
	With SwimLane1
		.ShowToolTip "<null>","<null>",,"+8","+8"
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>