Divide Curve Using VBComponent

[loizoju]

Hi to everybody

I would like to fine a solution to divide a curve by a fixed length
using a vb component
I'm working on multiple curves and i would like to create points on
with a fixed interval on each curve to place some squares with
differents scales.
Following the script that i did for one single curve using a divide by
length component before. The output is used to define the width and
the heigth in a rectangle component.

Sub RunScript(ByVal ptsCurve As List(Of On3dPoint), ByVal ptMidle As
On3dPoint, ByVal inCurve As OnCurve)
    Dim ptonCrv As on3dPoint
    Dim ptListe As New List (Of Double)
    Dim Increment As Double
    Increment = 0.02
    For Each ptonCrv In ptsCurve

      ptListe.add(Increment)
      If ptonCrv.x < ptMidle.x Then
        Increment = Increment + 0.0025
      Else Increment = Increment - 0.0025
      End If
    Next
    A = ptListe
  End Sub

Thanks