CONTOH PROGRAM TAMPIL TEXTBOX OTOMATIS DENGAN VB.NET

Public Class Form1

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

        Dim jml As Integer = Val(Me.TextBox1.Text)

        Dim i As Integer

        Dim mytxt As TextBox

        For i = 1 To jml

            mytxt = New TextBox()

            mytxt.Name = "txt" & i

            mytxt.Text = "TextBox " & i

            mytxt.Size = New System.Drawing.Size(80, 20)

            mytxt.Height = 20

            mytxt.Location = New System.Drawing.Point(10, ((20 + 10) * i))

            Me.Controls.Add(mytxt)

        Next i

    End Sub

End Class