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>
100
Add a pool to cover all visible-elements

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowUndoRedo = True
		With .Elements
			.Add "Item <b>1",-64,-64
			.Add "Item <b>2"
		End With
		.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
		.Pools.Add().HeaderSize(0) = 24
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
99
How can I ensure that a specified pool fits the surface's visible area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		With .Pools
			With .Add().Pattern
				.Type = 6
				.Color = RGB(224,224,224)
			End With
			.Add(2000).EnsureVisible 
		End With
	End With
End Function
</SCRIPT>
</BODY>
98
No property for the pool can be saved/restored through Undo/Redo feature

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.AllowUndoRedo = True
		With .Pools.Add(-54,-47,244,112)
			l = .StartUpdatePool
			With .Lane(1)
				.Color = RGB(240,240,240)
				.Children.Count = 2
			End With
			.EndUpdatePool l
		End With
	End With
End Function
</SCRIPT>
</BODY>
97
Rename Undo/Redo commands into the control's toolbar

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowUndoRedo = True
		.ToolBarFormat = "-1,100,102,101,|,103,104"
		.ToolBarCaption(103) = "Anuleaza <img>4</img>"
		.ToolBarCaption(104) = "<img>5</img>Reface"
		.ToolBarToolTip(103) = "Anuleaza ultima actiune UI. Pentru a anula o actiune apasati Ctrl+Z."
		.ToolBarToolTip(104) = "Inverseaza cea mai recenta operatie de anulare. Pentru a reface o actiune apasati Ctrl+Y."
		.Pools.Add -154,-82,244,122
		With .Elements
			.Add "Item <b>1",-64,-64
			.Add "Item <b>2"
		End With
		.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
96
Add Undo/Redo commands to control's toolbar

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowUndoRedo = True
		.ToolBarFormat = "-1,100,102,101,|,103,104"
		.Pools.Add -154,-82,244,122
		With .Elements
			.Add "Item <b>1",-64,-64
			.Add "Item <b>2"
		End With
		.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
95
Clear Undo/Redo queue (method 2)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowUndoRedo = True
		.Pools.Add -154,-82,244,122
		With .Elements
			.Add "Item <b>1",-64,-64
			.Add "Item <b>2"
		End With
		.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
		c = .UndoRedoQueueLength
		.UndoRedoQueueLength = 0
		.UndoRedoQueueLength = c
		alert( .UndoListAction() )
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
94
Clear Undo/Redo queue (method 1)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowUndoRedo = True
		.Pools.Add -154,-82,244,122
		With .Elements
			.Add "Item <b>1",-64,-64
			.Add "Item <b>2"
		End With
		.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
		.AllowUndoRedo = True
		alert( .UndoListAction() )
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
93
Removes Redo operations

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowUndoRedo = True
		.Pools.Add -154,-82,244,122
		With .Elements
			.Add "Item <b>1",-64,-64
			.Add "Item <b>2"
		End With
		.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
		.Undo 
		.RedoRemoveAction 10
		alert( .RedoListAction() )
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
92
Removes Undo operations

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowUndoRedo = True
		.Pools.Add -154,-82,244,122
		With .Elements
			.Add "Item <b>1",-64,-64
			.Add "Item <b>2"
		End With
		.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
		.UndoRemoveAction 10
		alert( .UndoListAction() )
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
91
Record the UI operations as a block of undo/redo operations

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowUndoRedo = True
		.StartBlockUndoRedo 
		.Pools.Add -154,-82,244,122
		With .Elements
			.Add "Item <b>1",-64,-64
			.Add "Item <b>2"
		End With
		.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
		.EndBlockUndoRedo 
		alert( .UndoListAction() )
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
90
Groups the next to current Undo/Redo Actions in a single block

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowUndoRedo = True
		.Pools.Add -154,-82,244,122
		With .Elements
			.Add "Item <b>1",-64,-64
			.Add "Item <b>2"
		End With
		.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
		.GroupUndoRedoActions 3
		alert( .UndoListAction() )
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
89
Limits the number of entries within the Undo/Redo queue

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowUndoRedo = True
		.UndoRedoQueueLength = 1
		.Pools.Add -154,-82,244,122
		With .Elements
			.Add "Item <b>1",-64,-64
			.Add "Item <b>2"
		End With
		.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
		alert( .UndoListAction() )
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
88
Lists the Redo actions that can be performed on the surface

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowUndoRedo = True
		.Pools.Add -154,-82,244,122
		With .Elements
			.Add "Item <b>1",-64,-64
			.Add "Item <b>2"
		End With
		.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
		.Undo 
		alert( .RedoListAction() )
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
87
Lists the Undo actions that can be performed on the surface

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowUndoRedo = True
		.Pools.Add -154,-82,244,122
		With .Elements
			.Add "Item <b>1",-64,-64
			.Add "Item <b>2"
		End With
		.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
		alert( .UndoListAction() )
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
86
Checks whether the Undo operation is possible

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowUndoRedo = True
		.Pools.Add -154,-82,244,122
		With .Elements
			.Add "Item <b>1",-64,-64
			.Add "Item <b>2"
		End With
		.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
		.Undo 
		alert( "CanRedo" )
		alert( .CanRedo )
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
85
Call Redo by code

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowUndoRedo = True
		.Pools.Add -154,-82,244,122
		With .Elements
			.Add "Item <b>1",-64,-64
			.Add "Item <b>2"
		End With
		.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
		.Undo 
		.Redo 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
84
Checks whether the Undo operation is possible

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowUndoRedo = True
		.Pools.Add -154,-82,244,122
		With .Elements
			.Add "Item <b>1",-64,-64
			.Add "Item <b>2"
		End With
		.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
		alert( "CanUndo" )
		alert( .CanUndo )
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
83
Call Undo by code

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowUndoRedo = True
		.Pools.Add -154,-82,244,122
		With .Elements
			.Add "Item <b>1",-64,-64
			.Add "Item <b>2"
		End With
		.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
		.Undo 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
82
Save the element's properties for Undo/Redo operations, by code

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowUndoRedo = True
		With .Elements
			.Add "Item <b>1",-64,-64
			.Add "Item <b>2"
		End With
		.StartBlockUndoRedo 
		With .Links.Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2))
			h = .StartUpdateLink
			.Color = RGB(255,0,0)
			.Width = 2
			.ShowDir = False
			.ShowLinkType = 2
			.EndUpdateLink h
		End With
		.EndBlockUndoRedo 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
81
No color is restored for the link when Undo/Redo operation is executed

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_AddElement(Element)
	' Element.ShowCheckBox = True
	' Element.CheckBoxAlign = 2
End Function
</SCRIPT>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowUndoRedo = True
		With .Elements
			.Add "Check <b>1",-64,-64
			.Add("Check <b>2").Checked = 1
		End With
		.StartBlockUndoRedo 
		With .Links.Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2))
			h = .StartUpdateLink
			.Color = RGB(255,0,0)
			.Width = 2
			.ShowDir = False
			.ShowLinkType = 2
			.EndUpdateLink h
		End With
		.EndBlockUndoRedo 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
80
Save the element's properties for Undo/Redo operations, by code

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowUndoRedo = True
		.Elements.Add "Item <b>1",-64,-64
		.StartBlockUndoRedo 
		With .Elements.Add("Item <b>2")
			h = .StartUpdateElement
			.BackColor = RGB(0,0,0)
			.ForeColor = RGB(255,255,255)
			.BorderColor = RGB(255,0,0)
			.EndUpdateElement h
		End With
		.EndBlockUndoRedo 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
79
No color is restored for the element when Undo/Redo operation is executed

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowUndoRedo = True
		.Elements.Add "Item <b>1",-64,-64
		.StartBlockUndoRedo 
		With .Elements.Add("Item <b>2")
			h = .StartUpdateElement
			.BackColor = RGB(0,0,0)
			.ForeColor = RGB(255,255,255)
			.BorderColor = RGB(255,0,0)
			.EndUpdateElement h
		End With
		.EndBlockUndoRedo 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
78
How can I ensure that a specified element fits the surface's visible area

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		With .Elements
			With .Add("Element A",-100).Pattern
				.Type = 6
				.Color = RGB(224,224,224)
			End With
			.Add("Element B",2000).EnsureVisible 
		End With
	End With
End Function
</SCRIPT>
</BODY>
77
LayoutEndChanging(exUndo), LayoutEndChanging(exRedo) or LayoutEndChanging(exUndoRedoUpdate) notifiy your application once a Undo/Redo operation is executed (CTRL+Z, CTRL+Y) or updated
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_LayoutEndChanging(Operation)
	With SwimLane1
		alert( "LayoutEndChanging" )
		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 
		.AllowUndoRedo = True
		.Pools.Add -154,-82,244,122
		With .Elements
			.Add "Item <b>1",-64,-64
			.Add "Item <b>2"
		End With
		.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
76
Turn on the Undo/Redo feature

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowUndoRedo = True
		.Pools.Add -154,-82,244,122
		With .Elements
			.Add "Item <b>1",-64,-64
			.Add "Item <b>2"
		End With
		.Links.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
75
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_AddElement(Element)
	' Element.ShowCheckBox = True
End Function
</SCRIPT>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.ImageSize = 32
		.Font.Size = 16
		.ContextMenuFont.Size = 16
		.Images "gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq" & _
	"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" & _
	"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" & _
	"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" & _
	"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" & _
	"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" & _
	"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" & _
	"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" & _
	"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" & _
	"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" & _
	"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" & _
	"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" & _
	"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" & _
	"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" & _
	"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" & _
	"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" & _
	"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA=="
		With .VisualAppearance
			.Add 1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
	"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
	"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" & _
	"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" & _
	"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" & _
	"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" & _
	"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" & _
	"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" & _
	"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" & _
	"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ=="
			.Add 2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
	"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
	"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
	"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" & _
	"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" & _
	"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" & _
	"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" & _
	"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" & _
	"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" & _
	"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" & _
	"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" & _
	"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" & _
	"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" & _
	"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" & _
	"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" & _
	"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" & _
	"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" & _
	"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" & _
	"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" & _
	"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" & _
	"gRBCCQAgQEA=="
			.Add 3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
	"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
	"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
	"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" & _
	"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" & _
	"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" & _
	"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" & _
	"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" & _
	"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" & _
	"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" & _
	"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" & _
	"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" & _
	"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" & _
	"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" & _
	"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" & _
	"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" & _
	"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" & _
	"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" & _
	"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI="
			.Add 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
	"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
	"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
	"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
	"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
	"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
	"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
	"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
	"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="
		End With
		.Background(70) = &H1000000
		.Background(71) = &H2000000
		.Background(72) = &H3000000
		.Background(102) = &H4000000
		.Background(104) = RGB(1,0,0)
		With .Elements
			With .Add("Element Check 2")
				.Checked = 1
				.Pictures = "1,2"
			End With
		End With
		.Home 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
74
ImageSize property on 16 (default) (specifies the size of control' icons)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_AddElement(Element)
	' Element.ShowCheckBox = True
End Function
</SCRIPT>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.ImageSize = 16
		.Images "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq" & _
	"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" & _
	"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" & _
	"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" & _
	"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" & _
	"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="
		With .Elements
			With .Add("Element Check 2")
				.Checked = 1
				.Pictures = "1,2"
			End With
		End With
		.Home 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
73
We want to have option to start/end connectors at the middle of each side of the elements
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.ShowLinks = -1
		With .Elements
			.Add "Element <sha ;;0>1"
			.Add "Element <sha ;;0>2",164,64
			.Add "Element <sha ;;0>3",0,132
		End With
		With .Links
			.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
			.Add SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2)
		End With
		.FitToClient 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
72
How can I determine the position the user clicks within the element's boundaries (Click event)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_Click()
	With SwimLane1
		Set e = .ElementFromPoint(-1,-1)
		X = -1
		Y = -1
		.PointToPosition X,Y
			alert( e )
		alert( X )
		alert( Y )
	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 "Element 1"
			.Add "Element 2",128,64
		End With
		.FitToClient 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
71
How can I determine the position the user clicks within the element's boundaries (MouseMove event)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_MouseMove(Button,Shift,X,Y)
	With SwimLane1
		Set e = .ElementFromPoint(X,Y)
		.PointToPosition X,Y
			alert( e )
		alert( X )
		alert( Y )
	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 "Element 1"
			.Add "Element 2",128,64
		End With
		.FitToClient 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
70
How can I convert the screen position (mouse) to surface position

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_MouseMove(Button,Shift,X,Y)
	With SwimLane1
		alert( "Point " )
		alert( X )
		alert( Y )
		.PointToPosition X,Y
		alert( "Position " )
		alert( X )
		alert( Y )
	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 "Element <sha ;;0>1"
			.Add "Element <sha ;;0>2",164,64
			.Add "Element <sha ;;0>3",0,132
		End With
		With .Links
			.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
			.Add SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2)
			.Add SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(1)
		End With
		.FitToClient 
		.AxisStyle = 192
		.AxisColor = RGB(128,128,128)
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
69
Is is possible to show just the positive coordinates

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.Coord = 17 ' CoordEnum.exAllowPositiveOnly Or CoordEnum.exCartesian
		.AxisColor = RGB(128,128,128)
		.AxisStyle = 259 ' LinesStyleEnum.exLinesThick Or LinesStyleEnum.exLinesDot
		.ShowLinks = -1
		With .Elements
			.Add "Element <sha ;;0>1"
			.Add "Element <sha ;;0>2",164,64
			.Add "Element <sha ;;0>3",0,132
		End With
		With .Links
			.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
			.Add SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2)
		End With
		.FitToClient 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
68
Cartesian coordinates (positive coordinates are shown top-right to the origin)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.Coord = 1
		With .Elements
			.Add "Element <sha ;;0>1"
			.Add "Element <sha ;;0>2",164,64
			.Add "Element <sha ;;0>3",0,132
		End With
		With .Links
			.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
			.Add SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2)
			.Add SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(1)
		End With
		.FitToClient 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
67
Default coordinates (positive coordinates are shown bottom-right to the origin)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.Coord = 0
		With .Elements
			.Add "Element <sha ;;0>1"
			.Add "Element <sha ;;0>2",164,64
			.Add "Element <sha ;;0>3",0,132
		End With
		With .Links
			.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
			.Add SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2)
			.Add SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(1)
		End With
		.FitToClient 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
66
Is it possible to customize the path of the links orthogonally similar with Microsoft Visio tool

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowLinkControlPoint = 31 ' LinkControlPointEnum.exOrthoArrange Or LinkControlPointEnum.exMiddleControlPoint Or LinkControlPointEnum.exControlPoint Or LinkControlPointEnum.exEndControlPoint Or LinkControlPointEnum.exStartControlPoint
		With .Elements
			.Add "Element <sha ;;0>1"
			.Add "Element <sha ;;0>2",164,64
			.Add "Element <sha ;;0>3",0,132
		End With
		With .Links
			.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
			.Add SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(2)
			.Add SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(1)
		End With
		.Zoom = 200
		.FitToClient 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
65
Does your control supports OLE Drag and Drop
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_OLEDragDrop(Data,Effect,Button,Shift,X,Y)
	With SwimLane1
		alert( Data )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_OLEStartDrag(Data,AllowedEffects)
	' Data.SetData("some data to drag")
End Function
</SCRIPT>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.OLEDropMode = 1
		With .Pools.Add(-250,-150,500,250)
			.Lane(0).Children.Count = 2
			.Lane(1).Children.Count = 1
		End With
		With .Elements
			With .Add("Click the Element wait for .5 second until + cursor is shown, to start <b>OLE Drag and Drop</b>")
				.CaptionSingleLine = False
				.AutoSize = False
				.X = -125
				.Y = -105
				.Width = 256
				.Height = 56
			End With
			With .Add("Click the Element wait for .5 second until + cursor is shown, to start <b>OLE Drag and Drop</b>")
				.CaptionSingleLine = False
				.AutoSize = False
				.X = -125
				.Width = 256
				.Height = 56
			End With
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
64
Is it possible to disable customizing the path of a specified 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
				.Color = RGB(128,128,128)
				.AllowControlPoint = 0
			End With
		End With
		.Zoom = 200
		.FitToClient 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
63
How do I let user customizes the link's path

<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
			End With
		End With
		.Zoom = 200
		.FitToClient 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
62
How can I generate a picture/image/graph from my diagram
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		With .Elements
			.Add("Element A").ID = "A"
			.Add("Element B").ID = "B"
			.Add("Element C").ID = "C"
			.Add("Element D").ID = "D"
			.Add("Element E").ID = "E"
			.Add("Element E").ID = "F"
		End With
		With .Links
			.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("B")
			.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("C")
			.Add SwimLane1.Elements.Item("B"),SwimLane1.Elements.Item("D")
			.Add SwimLane1.Elements.Item("B"),SwimLane1.Elements.Item("C")
			.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("E")
			.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("F")
		End With
		.DefArrange(4) = False
		.Arrange 
		var_CopyTo = .CopyTo("c:/temp/xtest.jpg")
		alert( "!!!check the file c:/temp/xtest.jpg!!!" )
	End With
End Function
</SCRIPT>
</BODY>
61
How can I generate a picture/image/graph from my diagram
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		With .Elements
			.Add("Element A").ID = "A"
			.Add("Element B").ID = "B"
			.Add("Element C").ID = "C"
			.Add("Element D").ID = "D"
			.Add("Element E").ID = "E"
			.Add("Element E").ID = "F"
		End With
		With .Links
			.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("B")
			.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("C")
			.Add SwimLane1.Elements.Item("B"),SwimLane1.Elements.Item("D")
			.Add SwimLane1.Elements.Item("B"),SwimLane1.Elements.Item("C")
			.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("E")
			.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("F")
		End With
		.DefArrange(4) = False
		.Arrange 
		With CreateObject("Exontrol.Print")
			.PrintExt = SwimLane1.Object
			.CopyTo "c:/temp/xtest.jpg"
		End With
		alert( "!!!check the file c:/temp/xtest.jpg!!!" )
	End With
End Function
</SCRIPT>
</BODY>
60
How can I print the component
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		With .Elements
			.Add "Element <sha ;;0>A"
			.Add "Element <sha ;;0>B",0,76
			With .Add("Element <sha ;;0>C",-76,32)
				.AutoSize = False
				.Height = 32
			End With
			With .Add("Element <sha ;;0>D",76,32)
				.AutoSize = False
				.Height = 32
			End With
		End With
		With .Links
			With .Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2))
				.StartPos = 1
				.EndPos = 1
			End With
			With .Add(SwimLane1.Elements.Item(2),SwimLane1.Elements.Item(1))
				.StartPos = 1
				.EndPos = 1
			End With
			.Add SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(4)
			With .Add(SwimLane1.Elements.Item(4),SwimLane1.Elements.Item(3))
				.StartPos = 0
				.EndPos = 2
			End With
		End With
		With CreateObject("Exontrol.Print")
			.PrintExt = SwimLane1.Object
			.Preview 
		End With
	End With
End Function
</SCRIPT>
</BODY>
59
How can I show direct-links

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.ShowLinksType = 1
		With .Elements
			.Add("Element A").ID = "A"
			.Add("Element B",128,64).ID = "B"
			.Add("Element C",128,-64).ID = "C"
		End With
		With .Links
			.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("B")
			.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("C")
		End With
	End With
End Function
</SCRIPT>
</BODY>
58
How can I show straight-links

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.ShowLinksType = 2
		With .Elements
			.Add("Element A").ID = "A"
			.Add("Element B",128,64).ID = "B"
			.Add("Element C",128,-64).ID = "C"
		End With
		With .Links
			.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("B")
			.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("C")
		End With
	End With
End Function
</SCRIPT>
</BODY>
57
How can I show round-links

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.ShowLinksType = 3
		With .Elements
			.Add("Element A").ID = "A"
			.Add("Element B",128,64).ID = "B"
			.Add("Element C",128,-64).ID = "C"
		End With
		With .Links
			.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("B")
			.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("C")
		End With
	End With
End Function
</SCRIPT>
</BODY>
56
I've tried to insert a "<br>" in the Caption property text and it just ignores it

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		With .Elements
			With .Add("caption")
				.CaptionSingleLine = False
				.Caption = "first caption<br>second caption<br>third caption"
			End With
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
55
How do I align the extra-caption

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		With .Elements
			With .Add("caption")
				.CaptionAlign = 0
				.AutoSize = False
				.Width = 128
				.Height = 64
				.ExtraCaption = "extra-caption"
				.ExtraCaptionAlign = 34
			End With
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
54
How can I add an extra caption

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		With .Elements
			.Add("caption").ExtraCaption = "extra-caption"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
53
I am using the reserve-neighbors feature, the question is how to shift left/right the neighbors instead of up/down
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowMoveNeighbors = 2
		.DefArrange(0) = 1
		With .Elements
			.Add "Element <sha ;;0>A"
			.Add "Element <sha ;;0>B ( move it )",16,32
			.Add "Element <sha ;;0>C",128,0
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
52
I am using the reserve-neighbors feature, the question is if possible to specify the distance between neighbors
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowMoveNeighbors = 1
		.DefArrange(1) = 0
		.DefArrange(2) = 0
		With .Elements
			.Add "Element <sha ;;0>A"
			.Add "Element <sha ;;0>B ( move it )",0,32
			.Add "Element <sha ;;0>C",0,64
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
51
How do I enable the reserve-neighbors feature
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.AllowMoveNeighbors = 1
		With .Elements
			.Add "Element <sha ;;0>A"
			.Add "Element <sha ;;0>B ( move it )",0,32
			.Add "Element <sha ;;0>C",0,64
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
50
I've noticed that recently, the elements get compacted once the Arrange method is performed. How can I prevent that

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		With .Elements
			.Add("Element A").ID = "A"
			.Add("Element B").ID = "B"
			.Add("Element C").ID = "C"
			.Add("Element D").ID = "D"
			.Add("Element E").ID = "E"
			.Add("Element E").ID = "F"
		End With
		With .Links
			.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("B")
			.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("C")
			.Add SwimLane1.Elements.Item("B"),SwimLane1.Elements.Item("D")
			.Add SwimLane1.Elements.Item("B"),SwimLane1.Elements.Item("C")
			.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("E")
			.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("F")
		End With
		.DefArrange(4) = False
		.Arrange 
	End With
End Function
</SCRIPT>
</BODY>
49
How can I move an element to a specified lane/phase/pool

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.DefPoolHeaderCaptionFormat(True) = "<fgcolor 808080>Faza <off -4><b><font ;6>%i"
		.DefPoolHeaderCaptionFormat(False) = "<fgcolor 808080>Culoar <off -4><b><font ;6>%i"
		With .Pools.Add(-100,-100,250,180)
			.Lane(0).Children.Count = 3
			.Lane(1).Children.Count = 3
			.Lane(1).Children.Item(1).Header.Caption = "<fgcolor FF0000><b>NEW"
		End With
		With .Elements.Add("element 1",200,200)
			.LaneID(True) = "0:H.0,0:V.0"
		End With
		With .Elements.Add("element 2",200,200)
			.LaneID(True) = "0:H.2,0:V.2"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
48
Is it possible to add a link to show from bottom/down to top/up, rather that right to left (method-2)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function SwimLane1_AddLink(Link)
	With SwimLane1
		With Link
		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 "Element <sha ;;0>A"
			.Add "Element <sha ;;0>B",48,48
		End With
		With .Links
			.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
		End With
	End With
End Function
</SCRIPT>
</BODY>
47
Is it possible to add a link to show from bottom/down to top/up, rather that right to left (method-1)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		With .Elements
			.Add "Element <sha ;;0>A"
			.Add "Element <sha ;;0>B",48,48
		End With
		With .Links
			With .Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2))
				.StartPos = 4
				.EndPos = 3
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>
46
How do I enable the cross link support ( mixed )

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		With .Elements
			.Add "Element <sha ;;0>A"
			.Add "Element <sha ;;0>B",0,76
			With .Add("Element <sha ;;0>C",-76,32)
				.AutoSize = False
				.Height = 32
			End With
			With .Add("Element <sha ;;0>D",76,32)
				.AutoSize = False
				.Height = 32
			End With
		End With
		With .Links
			With .Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2))
				.StartPos = 1
				.EndPos = 1
			End With
			With .Add(SwimLane1.Elements.Item(2),SwimLane1.Elements.Item(1))
				.StartPos = 1
				.EndPos = 1
			End With
			.Add SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(4)
			With .Add(SwimLane1.Elements.Item(4),SwimLane1.Elements.Item(3))
				.StartPos = 0
				.EndPos = 2
			End With
		End With
		.ShowLinks = 97 ' ShowExtendedLinksEnum.exShowCrossLinksMixt Or ShowExtendedLinksEnum.exShowExtendedLinks
	End With
End Function
</SCRIPT>
</BODY>
45
How do I enable the cross link support ( triangular )

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		With .Elements
			.Add "Element <sha ;;0>A"
			.Add "Element <sha ;;0>B",0,76
			With .Add("Element <sha ;;0>C",-76,32)
				.AutoSize = False
				.Height = 32
			End With
			With .Add("Element <sha ;;0>D",76,32)
				.AutoSize = False
				.Height = 32
			End With
		End With
		With .Links
			With .Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2))
				.StartPos = 1
				.EndPos = 1
			End With
			With .Add(SwimLane1.Elements.Item(2),SwimLane1.Elements.Item(1))
				.StartPos = 1
				.EndPos = 1
			End With
			.Add SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(4)
			With .Add(SwimLane1.Elements.Item(4),SwimLane1.Elements.Item(3))
				.StartPos = 0
				.EndPos = 2
			End With
		End With
		.ShowLinks = 65 ' ShowExtendedLinksEnum.exShowCrossLinksTriangle Or ShowExtendedLinksEnum.exShowExtendedLinks
	End With
End Function
</SCRIPT>
</BODY>
44
How do I enable the cross link support ( rectangular )

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		With .Elements
			.Add "Element <sha ;;0>A"
			.Add "Element <sha ;;0>B",0,76
			With .Add("Element <sha ;;0>C",-76,32)
				.AutoSize = False
				.Height = 32
			End With
			With .Add("Element <sha ;;0>D",76,32)
				.AutoSize = False
				.Height = 32
			End With
		End With
		With .Links
			With .Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2))
				.StartPos = 1
				.EndPos = 1
			End With
			With .Add(SwimLane1.Elements.Item(2),SwimLane1.Elements.Item(1))
				.StartPos = 1
				.EndPos = 1
			End With
			.Add SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(4)
			With .Add(SwimLane1.Elements.Item(4),SwimLane1.Elements.Item(3))
				.StartPos = 0
				.EndPos = 2
			End With
		End With
		.ShowLinks = 33 ' ShowExtendedLinksEnum.exShowCrossLinksRect Or ShowExtendedLinksEnum.exShowExtendedLinks
	End With
End Function
</SCRIPT>
</BODY>
43
How do I show a link frmo bottom to top, or reverse, not from left to right

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		With .Elements
			.Add "Element <sha ;;0>A"
			.Add "Element <sha ;;0>B",0,64
		End With
		With .Links
			With .Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2))
				.StartPos = 1
				.EndPos = 1
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>
42
Is it possible to control the links, so that they are always centered

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		With .Elements
			.Add("Element A").ID = "A"
			.Add("Element B").ID = "B"
			.Add("Element C").ID = "C"
			.Add("Element D").ID = "D"
		End With
		With .Links
			.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("B")
			.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("C")
			.Add SwimLane1.Elements.Item("B"),SwimLane1.Elements.Item("D")
			.Add SwimLane1.Elements.Item("B"),SwimLane1.Elements.Item("C")
		End With
		.ShowLinks = -1
		.DefArrange(0) = 1
		.Arrange 
	End With
End Function
</SCRIPT>
</BODY>
41
What options to align the elements do I have if I use Arrange method

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		.BeginUpdate 
		.ShowGridLines = True
		With .Elements
			h1 = .Add("Top Alignment").ID
			.Add "Element"
			.Add "Element"
			.Add "Element"
			h2 = .Add("Center Alignment",,96).ID
			.Add "Element",,96
			.Add "Element",,96
			.Add "Element",,96
			h3 = .Add("Bottom Alignment",,178).ID
			.Add "Element",,192
			.Add "Element",,192
			.Add "Element",,192
		End With
		With .Links
			.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
			.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(3)
			.Add SwimLane1.Elements.Item(2),SwimLane1.Elements.Item(4)
			.Add SwimLane1.Elements.Item(2),SwimLane1.Elements.Item(3)
			.Add SwimLane1.Elements.Item(5),SwimLane1.Elements.Item(6)
			.Add SwimLane1.Elements.Item(5),SwimLane1.Elements.Item(7)
			.Add SwimLane1.Elements.Item(6),SwimLane1.Elements.Item(8)
			.Add SwimLane1.Elements.Item(6),SwimLane1.Elements.Item(7)
			.Add SwimLane1.Elements.Item(9),SwimLane1.Elements.Item(10)
			.Add SwimLane1.Elements.Item(9),SwimLane1.Elements.Item(11)
			.Add SwimLane1.Elements.Item(10),SwimLane1.Elements.Item(12)
			.Add SwimLane1.Elements.Item(10),SwimLane1.Elements.Item(11)
		End With
		.DefArrange(3) = 0
		.Arrange h1
		.DefArrange(3) = 1
		.Arrange h2
		.DefArrange(3) = 2
		.Arrange h3
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
40
Is there an auto-arrange feature that will display the flow-chart centered and zoomed correctly after we are finished building it

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		With .Elements
			.Add("Element A").ID = "A"
			.Add("Element B").ID = "B"
			.Add("Element C").ID = "C"
			.Add("Element D").ID = "D"
		End With
		With .Links
			.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("B")
			.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("C")
			.Add SwimLane1.Elements.Item("B"),SwimLane1.Elements.Item("D")
			.Add SwimLane1.Elements.Item("B"),SwimLane1.Elements.Item("C")
		End With
		.Arrange 
	End With
End Function
</SCRIPT>
</BODY>
39
Is it possible to change the distance between elements, when calling the Arrange method

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With SwimLane1
		With .Elements
			.Add("Element A").ID = "A"
			.Add("Element B").ID = "B"
			.Add("Element C").ID = "C"
			.Add("Element D").ID = "D"
		End With
		With .Links
			.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("B")
			.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("C")
			.Add SwimLane1.Elements.Item("B"),SwimLane1.Elements.Item("D")
			.Add SwimLane1.Elements.Item("B"),SwimLane1.Elements.Item("C")
		End With
		.DefArrange(1) = 0
		.DefArrange(2) = 0
		.Arrange 
	End With
End Function
</SCRIPT>
</BODY>