let myDocument = Worksheets.Item(1)
let s = myDocument.Shapes
let firstRect = s.AddShape(msoShapeRectangle, 100, 50, 200, 100)
let secondRect = s.AddShape(msoShapeRectangle, 300, 300, 200, 100)
let lastsite = secondRect.ConnectionSiteCount
let Con1 = s.AddConnector(msoConnectorCurve, 0, 0, 100, 100).ConnectorFormat
Con1.BeginConnect(firstRect, 1)
Con1.EndConnect(secondRect, 1)
let Con2 = s.AddConnector(msoConnectorCurve, 0, 0, 100, 100).ConnectorFormat
Con2.BeginConnect(firstRect, 1)
Con2.EndConnect(secondRect, lastsite)