API Documentation > CorelDRAW > 2025-v26 > Curve > IVGCurve
Curve.AppendCurve method
Appends subpaths from a source curve to the current one
Syntax:
Sub AppendCurve(ByVal Source As Curve)
Parameters:
Name Type Description
Source
Remarks:
The AppendCurve method appends subpaths from a source curve to the current curve.
Examples:
The following VBA example iterates through all of the shapes on the active page and creates a new curve that contains all of the shapes. The new curve is filled with red.
Sub Test()
Dim crv As Curve, s As Shape
Set crv = CreateCurve(ActiveDocument)
For Each s In ActivePage.Shapes
  crv.AppendCurve s.DisplayCurve
Next s
Set s = ActiveLayer.CreateCurve(crv)
s.Fill.UniformColor.RGBAssign 255, 0, 0 
End Sub