how to create dynamic text boxes in a form

[kavimani]

i want to create given number of textboxes during runtime how to write code for it

kavimani

[gavio]

Welcome to the forums

Here's a simple sample:

Option Explicit

Private Sub Form_Load()
  AddTextBoxes 5
End Sub

Private Sub AddTextBoxes(number As Integer)
  Static x As Single
  
  Dim i As Integer
  
  Dim txt As TextBox
  
  For i = 1 To number
    Set txt = Me.Controls.Add("VB.TextBox", "txt" & i)
    
    If x = 0 Then
      x = 200
    Else
      x = x + 200 + 200
    End If
    
    txt.Move 200, x, 2000, 200
    txt.Visible = True
    
    Set txt = Nothing
  Next i
End Sub

[Hack]

Here is an example to play with.