哪位高手来看下我这段代码，有何问题？

Question

textbox 如果为控件数组（其index属性有值）则
访问都用textbox1(index).***
Text1(TxtNum).Top 表明为数组
但Text1.Text = ""又不是
。

Answer 1

不是到处拷贝的代码把 
你说你要实现什么 动态生成text?

Answer 2

对阿～动态生成text，自己写的，应该怎么改？

Answer 3

用下面的代碼吧Dim WithEvents mybuttontest As VB.CommandButtonPrivate Sub Form_Load()
    Dim MyControl As Control
    Set MyControl = Me.Controls.Add("vb.textbox", "mytexttest")
    With MyControl
        .Visible = True
        .Left = 200
        .Top = 650
        .Text = "test"
    End With
End Sub

Answer 4

不好意思多了一行Private Sub Form_Load()
Dim MyControl As Control
Set MyControl = Me.Controls.Add("vb.textbox", "mytexttest")
With MyControl
.Visible = True
.Left = 200
.Top = 650
.Text = "test"
End With
End Sub

Answer 5

上面的代码就是动态添加了一个textbox我试试看修改你的代码，但是首先我需要知道你的text1是不是已经做成控件数组，如果不是那么就copy,paste然后选择是
Private Sub Command1_Click()
Dim TxtNum As Integer 'Text1的Index号
Dim Num As Integer '赋给各TextBox的值
TxtNum = 0
Num = 1
Text1(0).Text = "text" & Num
Dim i As Integer
For i = 0 To 4
TxtNum = TxtMun + 1
Load Text1(TxtNum) '--这里做了修改
Text1(TxtNum).Top = Text1(TxtNum - 1).Top + 450
Text1(TxtNum) = "text" & Num
Text1(TxtNum).Visible = True
Next
Command1.Enabled = False
End SubPrivate Sub Form_Load()
Text1(0).text=""
End Sub
你试试看