Public Class Form1
    Dim List() As String
    Dim listsize

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        listsize = listsize + 1
        ReDim Preserve List(listsize)
        List(listsize) = CStr(listsize)






    End Sub