Не могу создать 2-е текстовое поле

Question

У меня проблемы с этим кодом, и я не могу понять, почему.Он работает нормально в первый раз, но вылетает с ошибкой «Параметр не действителен» во второй раз в этой строке:

Dim tbx As TextBox = New Windows.Forms.TextBox

Полный код выглядит следующим образом:

Dim tbx As TextBox = New Windows.Forms.TextBox
tbx.Name = tbxName
tbx.Size = New System.Drawing.Size(55, 12)
tbx.BorderStyle = BorderStyle.None
tbx.TextAlign = HorizontalAlignment.Center
Using f As Font = tbx.Font
  tbx.Font = New Font(f.FontFamily, 8, FontStyle.Bold)
End Using
tbx.Location = New System.Drawing.Point(xCords, 44)
Select Case tbx.Name
  Case "tbxBulk01" : tbx.Text = Bulk01Label
  Case "tbxBulk02" : tbx.Text = Bulk02Label
End Select
Me.Controls.Add(tbx)

Вот трассировка стека:

в System.Drawing.Font.GetHeight (графическая графика) в System.Drawing.Font.GetHeight () в System.Drawing.Font.get_Height () в System.Windows..Windows.Forms.TextBoxBase..ctor () в System.Windows.Forms.TextBox..ctor ()

Любая помощь приветствуется.

Answer 1

Я знаю, что это старый вопрос, но вот мой ответ.

Я подозревал, что

ИСПОЛЬЗОВАНИЕ .... КОНЕЦ ИСПОЛЬЗОВАНИЯ также.

Я только что прочитал это в обратной связи, да ладно, не бери в голову.

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim xCoords As Integer = 80
        Dim myTextBox As TextBox = New TextBox

        For index As Integer = 1 To 2
            myTextBox = New TextBox
            myTextBox.Name = "MyTextBox" & index.ToString
            myTextBox.Size = New System.Drawing.Size(55, 12)
            myTextBox.BorderStyle = BorderStyle.None
            myTextBox.TextAlign = HorizontalAlignment.Center
            myTextBox.Font = New System.Drawing.Font(myTextBox.Font.FontFamily, 8, FontStyle.Bold)
            myTextBox.Location = New System.Drawing.Point(index * xCoords, 44)
            Select Case index
                Case 1 : myTextBox.Text = "Bulk01Label"
                Case 2 : myTextBox.Text = "Bulk02Label"
            End Select
            Me.Controls.Add(myTextBox)
        Next

    End Sub
End Class