API Documentation > CorelDRAW > 2025-v26 > SubPath > IVGSubPath
SubPath.Next method
Gets the subpath following this one
Syntax:
Function Next() As SubPath
Remarks:
The Next method returns the next subpath of a curve.
Examples:
The following VBA example connects all open subpaths to each other, forming one larger closed subpath.
Sub Test()
Dim crv As Curve
Dim spath As SubPath, spath1 As SubPath
Set crv = ActiveShape.Curve
Set spath = crv.Subpaths(1)
Do
  If Not spath.Closed Then

 Set spath1 = spath.Next

 Do


If Not spath1.Closed Then Exit Do


  Set spath1 = spath1.Next


  Loop


  spath.EndNode.ConnectWith spath1.StartNode


Else


  Set spath = spath.Next


  If spath.Index = 1 Then Exit Do


  End If


  Loop



End Sub