let myDocument = ActivePresentation.Slides.Item(1)
let myShape = myDocument.Shapes

let firstRect = myShape.AddShape(msoShapeRectangle, 100, 50, 200, 100)
let secondRect = myShape.AddShape(msoShapeRectangle, 300, 300, 200, 100)
let lastSite = secondRect.ConnectionSiteCount

let connector1 = myShape.AddConnector(msoConnectorCurve, 0, 0, 100, 100).ConnectorFormat
connector1.BeginConnect(firstRect, 1)
connector1.EndConnect(secondRect, 1)

let connector2 = myShape.AddConnector(msoConnectorCurve, 0, 0, 100, 100).ConnectorFormat
connector2.BeginConnect(firstRect, 1)
connector2.EndConnect(secondRect, lastSite)