Dim tt As Double
Dim tl As Double
Dim tw As Double
Dim th As Double

Private Sub Form_Load()
tt = Text1(Index).Top
tl = Text1(Index).Left
tw = Text1(Index).Width
th = Text1(Index).Height
End Sub

Private Sub Form_Resize()
Form1.ScaleHeight = 4290
Form1.ScaleWidth = 7065
Text1(Index).Top = tt
Text1(Index).Left = tl
Text1(Index).Width = tw
Text1(Index).Height = th
End Sub
这是我的代码!就是让文本框的大小跟着窗口的大小而改变,我现在用地是一个文本数组!在这有这样一个问题!按我以上去试,只有text1(0)跟着窗口改变其它地就不会!如果把text1(0)这个文本删了就会出错! 你们帮我看看是怎么回事啊!

应该怎么写啊!!可以用数字啊!如果我一个程序里有10个一样地控件其不是要没个都要写啊!