Sub Test() Dim seg As Segment Dim t1 As Double, t2 As Double, n As Long For Each seg In ActiveShape.Curve.Segments n = seg.GetBendPoints(t1, t2) If n > 1 Then MarkPoint seg, t2 If n > 0 Then MarkPoint seg, t1 Next seg End Sub Private Sub MarkPoint(seg As Segment, t As Double) Dim x As Double, y As Double Dim s As Shape seg.GetPointPositionAt x, y, t Set s = ActiveLayer.CreateEllipse2(x, y, 0.03) s.Fill.UniformColor.RGBAssign 255, 255, 0 End Sub