Draw a line

[Cool_If_AI]

I want to draw a line, a graphic in an array
I used the BuildFreeForm method to do this:


Dim DrawBase as FreeFormBuilder

Set DrawBase=MyDocument.Shapes.BuildFreeform(msoEditingCorner, A(1).X, A(1).Y)
For I=2 to 144
DrawBase.AddNodes msoSegmentCurve, msoEditingCorner, A(I).X, A(I).Y
Next



The A array values:
407.41, 287.7
408.32, 287.95
409.23, 287.7
410.15, 287.95
411.06, 287.7
411.97, 287.7
412.88, 287.7
413.79, 287.7
414.7, 287.7
415.61, 287.7
416.53, 287.7
417.44, 287.7
418.35, 287.7
419.26, 287.7
420.17, 287.7
421.08, 287.95
421.99, 287.7
422.91, 287.7
423.82, 287.95
424.73, 287.95
425.64, 287.7
426.55, 287.95
427.46, 287.7
428.38, 287.7
429.29, 287.7
430.2, 287.7
431.11, 287.7
432.02, 287.95
432.93, 287.7
433.84, 287.95
434.76, 287.7
435.67, 287.7
436.58, 287.7
437.49, 287.7
438.4, 287.7
439.31, 287.95
440.22, 287.7
441.14, 287.7
442.05, 287.7
442.96, 287.7
443.87, 287.7
444.78, 287.95
445.69, 287.7
446.6, 287.7
447.52, 287.7
448.43, 287.7
449.34, 287.7
450.25, 287.7
451.16, 287.7
452.07, 287.95
452.98, 287.95
453.9, 287.7
454.81, 287.7
455.72, 287.95
456.63, 287.95
457.54, 287.7
458.45, 287.7
459.36, 287.7
460.28, 287.7
461.19, 287.7
462.1, 287.7
463.01, 287.7
463.92, 287.7
464.83, 287.7
465.74, 287.7
466.66, 287.7
467.57, 287.7
468.48, 287.95
469.39, 287.95
470.3, 287.95
471.21, 287.7
472.13, 287.95
473.04, 287.7
473.95, 287.95
474.86, 287.95
475.77, 287.7
476.68, 287.95
477.59, 287.7
478.51, 287.7
479.42, 287.95
480.33, 287.95
481.24, 287.7
482.15, 287.7
483.06, 287.95
483.97, 287.7
484.89, 287.95
485.8, 287.7
486.71, 287.95
487.62, 287.7
488.53, 287.7
489.44, 287.7
490.35, 287.7
491.27, 287.7
492.18, 287.7
493.09, 287.7
494, 287.95
494.91, 287.7
495.82, 287.7
496.73, 287.95
497.65, 287.7
501.29, 287.7
502.2, 287.7
503.11, 287.7
504.03, 287.7
504.94, 287.7
505.85, 287.7
506.76, 287.7
507.67, 287.7
508.58, 287.95
509.49, 287.7
511.32, 287.7
512.23, 287.7
513.14, 287.95
514.05, 287.95
514.96, 287.95
515.88, 287.95
516.79, 287.95
517.7, 287.95
518.61, 287.95
519.52, 287.7
520.43, 287.7
521.34, 287.7
522.26, 287.7
523.17, 287.7
524.08, 287.7
524.99, 287.7
525.9, 287.95
526.81, 287.95
527.72, 287.95
528.64, 287.95
529.55, 287.7
530.46, 287.7
531.37, 287.7
532.28, 287.7
533.19, 287.7
534.1, 287.95
535.02, 287.7
535.93, 287.7
536.84, 287.7

The Makro does'nt drawn line, it drawn a point. While?