Viewport.PolyLine(ByVal ArrayOfXValues As Variant, ByVal ArrayOfYValues As Variant) As Boolean
A single dimension array of X ordinate values.
A single dimension array of Y ordinate values.
As Boolean. True - the polygon line was successfully drawn. False - the polygon line could not be drawn.
Draw a polygon line.
Dim XArray(10)
Dim YArray(10)
For I=0 To 10-1
XArray(I) = ...
YArray(I) = ...
Next I
ActiveView.Viewport.PolyLine XArray, YArray