şu şekilde düzenle

Do While okuyucu.Peek >= 0
ListBox1.Items.Add(okuyucu.ReadLine())
Loop

her ne kadar aynı olsa da peek>-1 kullan genel olarak kullanımı böyledir