About SubPath.AddNodeAt

The Code can not work in CorelDraw 12
'=======================================================
Sub ca2()
For i = 0.9 To 0.1 Step -0.1
ActiveShape.Curve.SubPaths(1).AddNodeAt i, cdrRelativeSegmentOffset
Next
End Sub
'=======================================================

err:
---------------------------
Run-time error '-2147024809 (80070057)':
Type is out of range, its value must be between 0 and 1.
---------------------------



↓↓↓↓↓↓↓↓↓↓↓works fine.
'=========================================
Sub ca()
For i = 0.9 To 0.1 Step -0.1
ActiveShape.Curve.SubPaths(1).AddNodeAt i, cdrAbsoluteSegmentOffset
Next
End Sub
'=============
Sub ca2()
For i = 0.9 To 0.1 Step -0.1
ActiveShape.Curve.SubPaths(1).AddNodeAt i, cdrRelativeSegmentOffset
Next
End Sub
'=========================================