Segment.StartingControlPointX

Property StartingControlPointX As Double

The StartingControlPointX property returns or sets the x-coordinate of the starting control point of a curve segment. This property is measured in document units.

The following code example marks the position of each control point of the selected curve with a small circle:

Sub Test() 
 Dim s As Shape 
 Dim seg As Segment 
 Set s = ActiveShape 
 If s.Type = cdrCurveShape Then 
  For Each seg In s.Curve.Segments 
   If seg.Type = cdrCurveSegment Then 
    ActiveLayer.CreateEllipse2 seg.StartingControlPointX, 
seg.StartingControlPointY, 0.02 
    ActiveLayer.CreateEllipse2 seg.EndingControlPointX, 
seg.EndingControlPointY, 0.02 
   End If 
  Next seg 
 End If 
End Sub