怎样生成动态控件数组？？急急！！！

Question

'        Tip:其实很多问题在以前的贴子里都有过很好的解答,我建议大家提问前先搜一下以前的贴子,会节约很多时间的.
'
'     Author:吴文智
'       Date:2001-11-15
'Description:要试用本例请在窗体中填加一个索引为0的名为Text1的文本框
'            然后在代码窗体中粘贴如下代码
'            Good luck!
'
Option ExplicitPrivate Sub Command1_Click()
    Dim lngIndex As Long
    
    lngIndex = Text1.ubound + 1
    
    '用Controls.Add方法不能指定索引
    Load Text1(lngIndex)
    
    Text1(lngIndex).Left = 0
    Text1(lngIndex).Top = Text1(lngIndex - 1).Top + Text1(lngIndex - 1).Height
    Text1(lngIndex).Visible = True
    Text1(lngIndex).Text = Text1(lngIndex).IndexEnd SubPrivate Sub Text1_Click(Index As Integer)
    MsgBox Text1(Index).Text
End SubPrivate Sub Form_Load()
    Text1(0).Visible = False
    Text1(0).Top = 0
End Sub

Answer 1

谢谢你的帮助，
我会了，
虽然我知道 你不是出于得分来的，当然能得分更好
但是我只好说sorry ,
我不知道怎么给你加分

Answer 2

谢谢你，我试试吧，
有没有兴趣交个朋友，
我OICQ 58151381我在做一个画流程图的程序，
画出的图要写入数据表中

Answer 3

有没有兴趣帮我解决一下下面这个问题主　　题：有没有办法给自编的ActiveX Control加事件？？急急急！！！
作　　者：Mike_Xia
所属论坛：Visual Basic
问题点数：20
回复次数：3
发表时间：2001-11-15 16:46:08
 
  
  我指的是在UserControl上加了个Shape控件，
但Shape控件自身不带事件，
虽然UserControl也带了事件，
但因为被Shape覆盖了，所以激活不了UserControl事件
 

Answer 4

包香？？？地址是
http://www.csdn.net/expert/topic/372/372386.shtm