createsubpathfromarray

Dim crv As Curve Set crv = New Curve Dim i As Integer ce(0).ElementType = cdrElementStart ce(0).PositionX = 0# ce(0).PositionY = 0# For i = 1 To UBound(s) With ce(i) .ElementType = cdrElementLine .PositionY = s(i, 0) .PositionX =...