[VB.NET] creazione dinamica di una tabella

[ludoweb.it]

Quello che non capisco è come mai che mi inserisce la textbox solo all'ultima cella della seconda riga, che sto sbagliando?

Dim
 objTable_1 AsNewTable()

            objTable_1.BorderWidth = 1


            
Dim ar AsNewArrayList()            
Dim count AsInteger = 0            
Dim x AsInteger = 0            
Dim txtBox AsNewTextBox()            
For i AsInteger = 1 To 2
Dim tRow_1 AsNewTableRow()                
For x = count To ar.Count - 1                    
Dim tCell_1 AsNewTableCell()
tCell_1.Text = ar(x)
tRow_1.Cells.Add(tCell_1)
Dim tCell_2 AsNewTableCell()

                    tCell_2.Controls.Add(txtBox)

                    tRow_1.Cells.Add(tCell_2)

                    
If x = 2 ThenExit For

                
Next

                count = x + 1

                objTable_1.Rows.Add(tRow_1)

                
'objTable_1.Rows.Add(tRow_2)

            
Next