Sub Test() Dim s1 As Shape, sCon As Shape Dim sp As New SnapPoint Set s1 = ActiveLayer.CreatePolygon(1.6, 10, 4.5, 7, 5, 1, 2) sp.PositionX = 1 sp.PositionY = 2 Set sCon = ActiveLayer.CreateConnector(s1.SnapPoints(2), sp)End Sub