Como exibir retas na quantidade informada pelo usuário?

[edmo]

Por exemplo, o usuário informa o número 5 e então aparece 5 linhas na tela. Na verdade eu estava tentando usar o código abaixo mas não tem dado certo:

Dim ContainerVectors(NVectors) As ShapeContainer

Dim TheVector(NVectors) As LineShape

ContainerVectors(NVectors).Parent = Me

TheVector(NVectors).Parent = ContainerVectors(intNVectors - 1)

For i = 1 To NVectors

TheVector(i).StartPoint = New System.Drawing.Point(Xinicio,Yinicio)

TheVector(i).EndPoint = New System.Drawing.Point(Xfim, Yfim)

Editado Julho 12, 2014 por edmo