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)