VB 数组之间怎么传递数据

建了两个窗体FORM1和FORM2，上面有很多文本框，在FORM1定放一COMMAND1按钮，按下按钮后，FORM2上的文本框内容等于FORM1里文本框的内容，文本框已定义为数组，因为要把FORM1上的文本框内容写入数据库
有很多文本框，几百个，用FORM2.TEXT1.TEXT=FORM1.TEXT1.TEXT 效率太低了，请教高手？

试下下面的代码：
for i=0 to ubound(text1)-1
form2.text1(i).text=form2.text1(i).text
next i

简单的给你说一句吧! public 数组名（）as long是你的定义 这句是对的,但你放错位置了 不是放窗体中,而是新建模块,放模块中.这样全局有效! 你前半句说的是错的,后面也是错的. public sub define_array() '这里是模块(过程)的头,这句是对的 public 可要可不要. public an_array() as long '在sub()...end sub中不能使用public来什么变量,直接用dim. end sub 关于使用过程:call define_array() '过程名后面不能跟括号,除非里面传有参数 直接call define_array 或 define_array redim an_array(5) '这句是对的 对动态数组分配空间