不用动态控件数组, 是一个动态数组变量.
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呢？

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

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

在text2里加一个处理按键的消息

这个怎么实现呢？

我用textbox控件的时候，的确要用到tab或者用鼠标直接点下一个text，见笑了~

加入以下一段代码:
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