VB添加及删除控件

Do While Text10.Count > 1   '卸载  添加的控件
Unload Text10(Text10.UBound)
Loop

For I = 1 To UBound(v) + 1   '添加的控件
Load Text10(I)
Text10(I).Top = 100 * I * 5
Text10(I).Visible = True
Text10(I) = v(I - 1)
Next I