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它老说我下标越界,我有四个TEXT,想做覆盖,TEXT4给TEXT3,TEXT3给TEXT2.一直给TEXT1最后变成空内容.全部TEXT清空

很明显下标越界呀
For j = 1 To 4

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

j=4的时候 text(4) = text(5) 你说越界不越界?

而且你这代码怎么看怎么别扭

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

我改啦还是不行