I have never tried it but lets see...
Ah...
Hmmm... this seems to work
[tt]
Private Sub Form_Load()
Dim O(1, 1) As Object
Set O(0, 0) = Text1
Set O(0, 1) = Text2
Set O(1, 0) = Text3
Set O(1, 1) = Text4
O(0, 0).Left = 0
O(0, 0).Top = 0
O(0, 1).Left = 0
O(0, 1).Top = O(0, 0).Height + 30
O(1, 0).Left = 0
O(1, 0).Top = O(0, 1).Top + O(0, 1).Height + 30
O(1, 1).Left = 0
O(1, 1).Top = O(1, 0).Top + O(1, 0).Height + 30
End Sub
[/tt]
add 4 text boxes (not array (text1,text2,text3,text4)) and run.
Good Luck