Dim NumberOfControls As Integer = 5 Dim tbx As Integer = 64 Dim tby As Integer = 278 Dim Labelx As Integer = 45 Dim labely As Integer = 298 Dim tb As New TextBox() Dim lbl As New Label Public Sub CreateTextBoxes() For counter As Integer = 0 To NumberOfControls tb.Width = 150 tb.Height = 18 lbl.Width = 200 lbl.Height = 20 tb.Name = "TextBoxID" & (counter + 1).ToString() lbl.Name = "Label" & (counter).ToString tb.Text = "Enter Title " & counter lbl.Text = "Label" & " " & (counter) & " " & ":".ToString tb.Location = New System.Drawing.Point(tbx, tby) lbl.Location = New System.Drawing.Point(Labelx, labely) tbx = tbx + 10 tby = tby + 10 Labelx += 10 labely += 10 Me.Controls.Add(tb) Me.Controls.Add(lbl) NumberOfControls += 1 Next End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click CreateTextBoxes() End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)