Sub Test() Dim s1 As Shape Dim sg As Segment Set s1 = ActiveLayer.CreateEllipse(0, 0, 2, 2) s1.ConvertToCurves Set sg = s1.Curve.Nodes(1).NextSegmentEnd Sub