Problemas com arrays de texbox

[HighBass 0]

Tenho um projeto em vb 6 que tem um array de textboxs tipo uma tabela com 10 linhas e 30 colunas tipo assim:

 

textbox1(0) textbox2(0) textbox3(0) textbox4(0)

======= ======= ======= =======

 

textbox1(1) textbox2(1) textbox3(1) textbox4(1)

======= ======= ======= =======

 

textbox1(2) textbox2(2) textbox3(2) textbox4(2)

======= ======= ======= =======

 

 

 

 

e assim por diante.

 

Porem eu precisava fazer com que esses controles ficassem dessa forma (abaixo).

 

 

 

textbox1(0) textbox1(1) textbox1(2) textbox1(3)

======= ======= ======= =======

 

textbox2(0) textbox2(1) textbox2(2) textbox2(3)

======= ======= ======= =======

 

textbox3(0) textbox3(1) textbox3(2) textbox3(3)

======= ======= ======= =======

 

 

 

 

 

Por se tratar de 300 alteraçoes manuais que eu deveria fazer (um por um), gostaria de saber se existe algum meio de alterar isso atraves de codigo.

 

Se alguem souber diz ai pq senao eu to perdido, fazer um por um vai ser loucura.

 

Obrigado.

[Claudio Neto 3]

Fiz algo que pode te ajudar, mas fiz um exemplo com 5 text e 5 index, então não ficou tão grande, mas o seu ficara enorme,veja o que vale mais a pena:

 

Dim ctlControle(24) As Control

For i = 0 To 24
	For Each ctlControle(i) In Controls
		If TypeOf ctlControle(i) Is TextBox Then
			Select Case Right(ctlControle(i).Name, 1)
				Case 1
					ctlControle(i).Top = 120
				Case 2
					ctlControle(i).Top = 720
				Case 3
					ctlControle(i).Top = 1320
				Case 4
					ctlControle(i).Top = 1920
				Case 5
					ctlControle(i).Top = 2520
			End Select
			
			Select Case ctlControle(i).Index
				Case 0
					ctlControle(i).Left = 120
				Case 1
					ctlControle(i).Left = 1440
				Case 2
					ctlControle(i).Left = 2760
				Case 3
					ctlControle(i).Left = 4080
				Case 4
					ctlControle(i).Left = 5400
			End Select
		
		End If
	Next
Next

Abraços...