下标越界,该如何解决

下标越界
Private   Sub   Command1_Click()
Dim   TEXT()   As   TextBox


Dim   j   As   Integer
For   j   =   1   To   4

TEXT(j)   =   TEXT(j   +   1)
Next   j
End   Sub
为什么它老说我下标越界,请邦我

------解决方案--------------------
Dim TEXT() As TextBox

...............................
没new没大小
------解决方案--------------------
在j=4时j+1=5，如果你只有4个控件的话，那当然就越界了啊。
Private Sub Command1_Click()
Dim TEXT() As TextBox
TEXT(4).Text= " "
Dim j As Integer
For j = 1 To 3
TEXT(j).Text = TEXT(j + 1).Text
Next j
End Sub

还有,你用的是VB.NET么?
你的这个程序虽然定义了TextBox控件,但是并没有将它们加载到窗体上,运行时是不会显示的啊.
楼主最好找一本入门的书看一下,呵呵.
我上次给你回复的那个帖子( "五个TEXTBOX的内容复制 ")你再看一下,应该有帮助的.