Se non scrivi diversamente le matrici hanno base 0.

codice:
TableLayoutPanel1.ColumnCount = 5
        TableLayoutPanel1.RowCount = 2
        Dim a As New System.Drawing.Point
        Dim ar(10) As System.Drawing.Point
        For i = 1 To 10

            Dim textA As New TextBox

            textA.Name = "text" & i
            textA.Margin = New Padding(0, 0, 0, 0)
            textA.ReadOnly = True
            a = textA.Bounds.Location
            ar(i) = a       

            textA.BorderStyle = BorderStyle.None
            TableLayoutPanel1.Controls.Add(textA)
            TableLayoutPanel1.SetColumn(textA, i)

            TableLayoutPanel1.AutoSize = True
        Next