Examples:
The following VBA example sets the reference point of the document to the lower-left corner and creates a new snap point with coordinates (1, 6), one inch above and six inches to the right of the reference point. A rectangle and ellipse are created, and a connector line is drawn between them, starting at the ninth snap point of the rectangle to the first snap point of the ellipse.
Sub PointStart()
Dim sp As New SnapPoint
Dim s1 As Shape, s2 As Shape, c As Shape
ActiveDocument.ReferencePoint = cdrBottomLeft
sp.PositionX = 1
sp.PositionY = 6
Set s1 = ActiveLayer.CreateRectangle(0, 0, 3, 3)
Set s2 = ActiveLayer.CreateEllipse(4, 4, 6, 1)
Set c = ActiveLayer.CreateConnector(s1.SnapPoints(2), s2.SnapPoints(1))
c.Connector.StartPoint = s1.SnapPoints(2)
c.Connector.EndPoint = s2.SnapPoints(1)
End Sub