VB如何在工程里面加vb的LINE数组的话，能不能定义一个1到无穷的循环 I

你用do ....loop 或者 while... wend这两个循环就能无穷了

Dim newline() As Line
dim i as long
do
ReDim Preserve newline(i) as Line ‘动态增加数组
newline(i) = Form1.Add("VB.Line", "newline" & i)
i = i+1
loop

PS:理论上是可以无穷循环，但这也叫死循环，是会吃掉内存与CPU资源而死机的，应该避免。
给个条件让他退出吧，如 do until i=10

Dim newline() As Line
Dim i as Long
Do
Redim Preserve NewLine(i)
i=i+1
newline(i) = Form1.Controls.Add("VB.Line", "newline" & i)
Loop
'LS和我想到一块去了………………
‘还有LZ的代码写错了我帮你改了

不能，我记得Vb的数组是有上限的，好像是65535

我不知道你为何要这么定义，应该是有其他办法可以解决的

你想干嘛，你这思路肯定是不正确的。