API Documentation > CorelDRAW > 2025-v26 > Segment > IVGSegment
Segment.GetCurveSpeedAt method
Gets the Curve's Speed at the current segment
Syntax:
Function GetCurveSpeedAt(Optional ByVal Offset As Double = 0.5, Optional ByVal OffsetType As cdrSegmentOffsetType = cdrParamSegmentOffset) As Double
Parameters:
Name Type Description
Offset
Double
Specifies the offset, in document units, of the point on the segment's subpath. 5.
OffsetType
Specifies the offset type of the point.
Remarks:
The GetCurveSpeedAt method returns a value that indicates how fast the curvature changes at a specified point. A value close to 0 means that the curvature is steady - for example, in a circle. A value greater than 0 means that the curvature increases - for example, in a spiral. A value of less than 0 value means that the curvature decreases - for example, in an unwinding spiral.
Examples:
The following VBA example displays how fast the curvature changes in the middle of the first segment of the selected curve.
Sub Test()
Dim c As Double
Dim seg As Segment
Set seg = ActiveShape.Curve.Segments(1)
c = seg.GetCurveSpeedAt(0.5, cdrRelativeSegmentOffset)
If Abs(c) < 0.01 Then
  MsgBox "Curvature is steady: " & c
Else
  If c > 0 Then

 MsgBox "Curvature is increasing: " & c
  Else

 MsgBox "Curvature is decreasing: " & c
  End If
End If 
End Sub