Controls (TexBoxen) toevoegen aan TabPage

[Jan92]

Goeiedag,

Ik heb een Form met daarop een TabPage. Op deze TabPage staan enkele TextBoxen (8), Labels (8) en één ComboBox.

Ik heb ergens code gevonden om Controls toe te voegen aan een Form en probeer deze nu aan te passen volgens mijn behoeften.

Maar ik geraak er niet. Wie kan mij helpen?

'
    Private Sub ToevoegenTXTboxes()
        '
        'De TextBoxen en Labels declareren
        Dim TB As New TextBox()
        Dim LBL As New Label()
        Dim i, TBoxes As Integer
        '
        'Tel het huidige aantal TextBoxen op TabPage1 (= 8)
        For i = 0 To Me.TabPage1.Controls.Count - 1
            If Me.TabPage1.Controls(i).GetType Is GetType(System.Windows.Forms.TextBox) Then
                TBoxes = TBoxes + 1
            End If
        Next
        'Kontrole (mag nadien weg)
        MsgBox(TBoxes)
        '
        'Tel het aantal Items in ComboBox 'CmbLocaties' (= 7)
        Dim x As Integer
        x = CmbLocatie.Items.Count
        'Kontrole (mag nadien weg)
        MsgBox(x)
        '
        'Zet nieuwe TexBoxen op TabPage1 als het huidige aantal TextBoxen
        'groter is dan het aantal Items in de ComboBox 'CmbLocaties'
        If TBoxes > CmbLocatie.Items.Count Then
            '
            For i = TBoxes To CInt(CmbLocatie.Items.Count)
                '
                TB = New TextBox()
                LBL = New Label()
                '
                If CmbLocatie.Items.Count = 1 Then
                    TB.Top = 470
                    TB.Left = 100
                Else
                    TB.Top = 470
                    TB.Left = TB.Left + 25
                End If
                '
                'Proporties voor de TexBoxen en Labels
                TB.Left = 100
                TB.Top = 470
                TB.Width = 30
                TB.Height = 30
                TB.Text = ""
                TB.TabIndex = 0
                '
                LBL.Left = 100
                LBL.Top = TB.Top + 10
                LBL.Width = 80
                LBL.Height = 30
                LBL.Text = "Item " & i
                '
                'De TexBoxen en Labels (controls) toevoegen
                Me.Controls.Add(TB)
                Me.Controls.Add(LBL)
                '
                'TabIndex van de nieuwe controls bepalen
                TB.TabIndex = Convert.ToInt32(CmbLocatie.Items.Count)
                '
            Next
        Else
            'Als er méér TexBoxen op TabPage1 staan dan er Items zijn
            'in de ConboBox 'CmbLocaties, deze verwijderen
            For i = Me.Controls.Count - 1 To Me.Controls.Count - _
                                        2 * (TBoxes - CInt(CmbLocatie.Items.Count)) Step -2
                Me.Controls.Remove(Controls(i))
                Me.Controls.Remove(Controls(i - 1))
            Next
        End If
    End Sub