VB怎么自动生成文本框

方法一：如果文本框的数量不很多，而且可以知道最多值，可以使用Visible属性，先隐藏，后显示．
方法二：使用文本框控件组，先使用一个，后用语句添加
　　　　先在窗体上放一个Text1(0)，然后添加，命令是Load Text1(n)
不过，新添加的控件默认是不可见的，要这样：
　　　　Load Text1(n)
Text1(n).visible = true
Text1(n).Left=2345
text1(n).top=5555
因为，新添加的控件位置与原来的重合，还要用语句重新定位．

选建立一个文本框 设置 index 为0 代码
Private Sub Text1_Click(Index As Integer)
Dim n As Integer
n = Text1.Count
If Index = n - 1 Then '如果点击的是最后一个文本框

Load Text1(n)
With Text1(n)
.Top = Text1(0).Top + Text1(n - 1).Top + 200
.Left = Text1(0).Left
.Width = Text1(0).Width
.Height = Text1(1).Height
.Visible = True
End With
End If
End Sub