关于vb6创建对象的有关问题

关于vb6创建对象的问题
vb2005可以这么写：
Private   Sub   Form1_Load(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   MyBase.Load
                Dim   txt(3)   As   TextBox
                Dim   i
                For   i   =   0   To   3
                        txt(i)   =   New   TextBox
                        txt(i).Left   =   i   *   100
                        Me.Controls.Add(txt(i))
                Next
End   Sub

vb6里该怎么写？

[解决办法]
Dim txt(3) As TextBox
Dim i
For i = 0 To 3
Set txt(i) = Me.Controls.Add( "VB.TextBox ", "txt " & i)
txt(i).Visible = True
txt(i).Left = i * 100
Next