ユーザーコントロールにオブジェクトを追加する方法

'(前提としてpanelコントロール｢Panel1｣をUserControl1に貼り付けていることとする。)
Public Class UserControl1
    '(前提として、panelをformに配置して置く)
    Private textBoxWidth As Integer = 100
    Private textBoxHeight As Integer = 20
    Private colCount As Integer = 0
    Public Property textBoxColCount() As Integer
        Get
            Return colCount
        End Get
        Set(ByVal value As Integer)
            If value < 0 Then
                MsgBox("0以下は指定できません。")
                Exit Property
            End If
            Me.SuspendLayout()
            If colCount < value Then
                For colLoopCount As Integer = colCount + 1 To value
                    Dim createTextBox As New TextBox
                    createTextBox.Location = New System.Drawing.Point((colLoopCount - 1) * textBoxWidth, textBoxHeight)
                    createTextBox.Name = "TextBox" & colLoopCount.ToString
                    createTextBox.Multiline = True
                    createTextBox.Size = New System.Drawing.Size(textBoxWidth, textBoxHeight)
                    createTextBox.TabIndex = colLoopCount
                    Me.Panel1.Controls.Add(createTextBox)
                Next
            Else
                For colLoopCount As Integer = colCount To value + 1 Step -1
                    Me.Panel1.Controls.Remove(Me.Panel1.Controls.Item("TextBox" & colLoopCount))
                Next
            End If
            Me.ResumeLayout()
            colCount = value
        End Set
    End Property
End Class