来帮小弟我

来帮我
Private   Sub   Command1_Click()

Dim   TEXT(4)   As   TextBox

TEXT(4)   =   " "
Dim   j   As   Integer

For   j   =   1   To   3

TEXT(j)   =   TEXT(j   +   1)
Next   j
End   Sub

不能运行,提示没有定义变量,请问错在哪里

------解决方案--------------------
再加个button ,button1画textbox button2你所谓的覆盖 把button1的代码写进load事件也行 另定义的text和form的text冲突，故改为text2 vb2005+.net2.0 通过

Public Class Form1

Dim TEXT2(4) As TextBox

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
For i = 0 To UBound(TEXT2)
TEXT2(i) = New TextBox
TEXT2(i).Text = " "
TEXT2(i).Location = New Point(0, 22 * i)
Me.Controls.Add(TEXT2(i))
Next
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i As Integer
For i = 1 To 3
TEXT2(i).Text = TEXT2(i + 1).Text
Next
End Sub
End Class
------解决方案--------------------
在窗体中加入五个TextBox,分别是TextBox1,TextBox2,TextBox3,TextBox4,TextBox5,和一个Button,Button1。运行后在五个TextBox中填入内容,每点击一次Button,TextBox中的内容就相应地向上移动一格,第五格填入空白。代码如下:

Public Class Form1

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim TextBox() As TextBox = {TextBox1, TextBox2, TextBox3, TextBox4, TextBox5}
Dim i As Int32
For i = 0 To 3
TextBox(i).Text = TextBox(i + 1).Text
Next
TextBox(4).Text = " "
End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Button1.Text = "移动 "
End Sub
End Class