Topsolid online Help Index
This example shows how to create a basic line.
Dim TopDoc As TopSolid.DocumentDesign
...
Dim cv As TopSolid.Curve
' make line
Set cv = TopDoc.Curves.AddBasicLine(0, 0, 0, 0.03, 0, 0)