这不是算法
也不是控件
这是界面的构思与设计的问题

不用动态控件数组, 是一个动态数组变量.
public s() as string
public i%

private sub command1_click()
dim num%

num=text1.text
redim s(num)
end sub

private sub command2_click()

s(i)=text2.text
i = i+1
if i >ubound(s) then
command2.visable=false
end if
end sub


这样就有一个数组来存储所有的人的名字了. 而且不用那么多textbox的. 只有一个,在这里是textbox2

可以把command2的default属性改为ture嘛.
也可以在text2里加一个处理按键的消息.如果是回车就发一个按下command2的消息.

就算你用textbox控件数组,每输入一个也要用一个tap键吧. 难道他会自动识别你什么时候一个名字输入结束了?

加入以下一段代码:
private sub text2_keyup(keycode as integer,shift as integer)
if keycode =vbkeyreturn and shift=0 then
text2.text=""
command2_click
end if
end sub