Public Sub Test() Dim s As Shape, spath As SubPath Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2) s.ConvertToCurves Set spath = s.Curve.Subpaths(1) ShowOnCurve 1, 1, spath.IsOnSubPath(1, 1) ShowOnCurve 1, 0, spath.IsOnSubPath(1, 0) ShowOnCurve 1, 3, spath.IsOnSubPath(1, 3)End SubPrivate Function ShowOnCurve(x As Double, y As Double, v As cdrPositionOfPointOverShape) Dim s As String s = "Point (" & x & "," & y & ") is " Select Case v Case cdrOutsideShape s = s & "outside the subpath" Case cdrOnMarginOfShape s = s & "over the outline" Case cdrInsideShape s = s & "inside the subpath" End Select MsgBox sEnd Function