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清空

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

我改啦还是不行