Private Sub Button1_Click(ByVal sender As System.Object ByVal e As System.EventArgs) Handles Button1.Click

If TextBox1.Text 1 Then

Dim textbox As New System.Windows.Forms.TextBox

textbox.Name one

textbox.Text hello

Me.Controls.Add(textbox)

Else

Dim button As New System.Windows.Forms.Button

button.Enabled True

Me.Controls.Add(button)

End If

End Sub

By creating array of controls.

Example u want to display as many text boxes as the number of records in table u create a text box on Form set it Index to 0.

and while fetching records let us say rs is the recordset and text1 is the control array

dim ndx as integer

ndx 1

while not rs.eof

load text1(ndx)

text1(ndx).top text1(ndx-1).top+text1(ndx).height

text1(ndx).visible true

rs.movenext

wend