Listbox problem

[atesh]

Why do I get Specified argument was out of the range of valid values.?

Dim z as integer = 0
        While srReader.Peek() > -1
            z += 1
            ListBox(1).Items.Item(z) = srReader.ReadLine()
            ListBox(1).Items.Add(ListBox(1).Items.Item(z))
        End While

Total it is supposed to load a little over 7000 lines into the listbox. I dont know if this has anything to do with it.

 

[mutant]

Its probably because you add one to z before doing anything to the listbox and it overflows by one. Try putting z =+ 1 after modifying the listbox.