Public Class Form1
Inherits System.Windows.Forms.Form
Private HSpacing As Integer = 10
Private VSpacing As Integer = 40
Private BoxWidth As Integer = 200
Private MaximumBoxes As Integer = 20
Private NumberOfBoxes As Integer = 0
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If NumberOfBoxes < MaximumBoxes Then
Dim TempTextBox As New TextBox
TempTextBox.Name = "MyTextBox" & NumberOfBoxes.ToString
Panel1.Controls.Add(TempTextBox)
TempTextBox.Width = BoxWidth
TempTextBox.Top = (NumberOfBoxes * VSpacing) + Panel1.AutoScrollPosition.Y
TempTextBox.Left = HSpacing
TempTextBox.Visible = True
NumberOfBoxes += 1
End If
End Sub
End Class