Private Sub form_DNAtemplate_Load(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles Me.Load
        Dim NumOfWells As Integer = My.Settings.DNAtemplate_X * _
        My.Settings.DNAtemplate_Y
        Dim StartPos_X As Integer = 10
        Dim StartPos_y As Integer = 10
        Dim Boxcount As Integer = 1
        Dim TextboxSize_X As Integer = 60
        Dim TextboxSize_Y As Integer = 23
        Dim i As Integer
        Dim j As Integer
 
 
            For i = 1 To My.Settings.DNAtemplate_Y
                For j = 1 To My.Settings.DNAtemplate_X
                    Dim TextBox_new As New TextBox()
 
                    TextBox_new.Location = New Point(StartPos_X, StartPos_y)
                    TextBox_new.Size = New Size(TextboxSize_X, TextboxSize_Y)
                    TextBox_new.Name = "Textbox_" & Boxcount
                    TextBox_new.Text = "Textbox_" & Boxcount
                    Me.Controls.Add(TextBox_new)
                    StartPos_X = StartPos_X + (TextboxSize_X + 5)
                    Boxcount = Boxcount + 1                  
                Next
                StartPos_y = StartPos_y + (TextboxSize_Y + 3)
                StartPos_X = 10
            Next
 
            Dim Button1 As New Button()
        Button1.Text = "Klick"
        Button1.Location = New Point(10, StartPos_y + 30)
        Button1.Size = New Size(75, 23)
        Me.Controls.Add(Button1)
 
    End Sub