怎样动态的生成文本框

Question

Option Explicit
Private WithEvents txtMytext as textBox  '告诉程序响应所有特text事件
Private sub Form_load()
   Set txtText=Controls.Add("VB.TextBox","Text")
   with txtText
        .visible=true
        .Width=3000
        .Top=1000
        .Left=1000
   end with
end sub

Answer 1

为文本框text1设一个索引值为0，然后根据recordcount的值来加载文本框。
dim i as integer
for i=1 to recordcount
loadtext1(i)
text1(i).top.....
text1(i).left.........
...
....
next

Answer 2

为什么一定要动态加载呢,在需要时通过设置它的visiable属性来实现功能不是很方便吗