Visual Basic - Definir el tamaño de una lista mediante el valor de un textbox Visual Basic .NET

Dim cont As Integer = 1

For cont = 1 To cont = Val(TextBox2.Text)

    cont = cont + 1

    Nofolio.Text = cont

Next

Dim cont As Integer = 1

For cont = 1 To Val(TextBox2.Text)

Nofolio.Text = cont

cont = cont + 1

Next

'No necesitas un contador cuando tienes FOR ya que el te va haciendo el contador

For cont = 1 To Val(TextBox2.Text)   ' de 1 al numero de textbox2

  lista.additem  cont  'a la lista le valor de cont

Next cont  'aumento el contador

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'Agrega los datos al DGV

    Dim a As New Info

    a.Pieza = TextBox1.Text

    a.Folio = TextBox2.Text

    Dim cont As Integer

    For cont = 1 To Val(TextBox2.Text)

        DataGridView1.Rows.Add(cont)

    Next cont

    Dim index As Integer = Datos.Length

    ReDim Preserve Datos(index)

    Datos(index) = a

    TextBox1.Text = " "

    TextBox2.Text = " "

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button3.Click  'Muestra los datos en DGV

    DataGridView1.DataSource = Datos

End Sub

ListView.Items.Clear()

For cont = 1 To CInt(TextBox2.Text)

  ListView.Items.Add(cont.ToString())

Next cont