Sub OnCurve() Dim s As Shape Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2) s.ConvertToCurves ShowOnCurve 1, 1, s.Curve.IsOnCurve(1, 1) ShowOnCurve 1, 0, s.Curve.IsOnCurve(1, 0) ShowOnCurve 1, 3, s.Curve.IsOnCurve(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 shape" Case cdrOnMarginOfShape s = s & "over the outline" Case cdrInsideShape s = s & "inside the shape" End Select MsgBox sEnd Function