API Documentation > CorelDRAW > 2025-v26 > SubPath > IVGSubPath
SubPath.AppendLineSegment method
Appends a new line segment to this subpath
Syntax:
Function AppendLineSegment(ByVal x As Double, ByVal y As Double, Optional ByVal AppendAtBeginning As Boolean = False) As Segment
Parameters:
Name Type Description
x
Double
y
Double
AppendAtBeginning
Boolean
Specifies whether the new line segment joins the subpath at the head of the subpath.
Remarks:
The AppendLineSegment method joins a new line segment to the beginning or the end of an open subpath.
Examples:
The following VBA example creates a closed curve and applies a fountain fill to it.
Sub Test()
Dim s As Shape
Dim crv As Curve
Dim sp As SubPath
Dim c As New Color
Set crv = CreateCurve(ActiveDocument)
Set sp = crv.CreateSubPath(0, 0)
sp.AppendLineSegment 3.6, 0, False
sp.AppendCurveSegment 3.6, 0.8, 0.43, 160, 0.43, -160, False
sp.AppendLineSegment 0, 0.8, False
sp.AppendCurveSegment 0, 0, 0.43, -20, 0.43, 20, False
sp.Closed = True
Set s = ActiveLayer.CreateCurve(crv)
c.CMYKAssign 0, 0, 0, 100
With s.Fill.ApplyFountainFill(c, c, , 90, , , , cdrCustomFountainFillBlend).Colors
  .Add CreateCMYKColor(0, 0, 0, 0), 70
End With 
End Sub