Friend WithEvents txtFeld As System.Windows.Forms.TextBox
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim zaehler As Integer
        Dim x, y As Long
        x = 16
        y = 1
 
        For zaehler = 1 To 4
            Me.txtFeld = New System.Windows.Forms.TextBox()
            Me.SuspendLayout()
            Me.txtFeld.Name = "text" & zaehler
            Me.txtFeld.Text = "Textfel nummer " & zaehler
            Me.txtFeld.Location = New System.Drawing.Point(x, y)
            Me.Controls.AddRange(New System.Windows.Forms.TextBox() _
              {Me.txtFeld})
            Me.ResumeLayout(False)
            'x += 10
            y += 30
        Next
    End Sub

Inherits System.Windows.Forms.Form