Something... like this.
Dim tb(1) As TextBox
Private Sub Command1_Click()
With tb(0)
.Visible = True
.Top = 300
.Left = 300
End With
With tb(1)
.Visible = True
.Top = 1000
.Left = 300
End With
End Sub
Private Sub Command2_Click()
MsgBox tb(0).Text
End Sub
Private Sub Form_Load()
Set tb(0) = Me.Controls.Add("
VB.TextBox", "tb0")
Set tb(1) = Me.Controls.Add("
VB.TextBox", "tb1")
End Sub
Hope this helps
With Regards,
Raghavendra Mudugal