Node.NextSegment

Property NextSegment As Segment

Member of Node

The NextSegment property returns the next segment which is adjacent to the node, or it returns Nothing if no segment exists.

The NextSegment property returns a read-only value.

The following code example creates an ellipse on the active layer, converts it to curves, and returns the first segment:

Sub Test() 
 Dim s1 As Shape 
 Dim sg As Segment 
 Set s1 = ActiveLayer.CreateEllipse(0, 0, 2, 2) 
 s1.ConvertToCurves 
 Set sg = s1.Curve.Nodes(1).NextSegment 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.