Чтение из текстового файла по строкам

[Ejara]

Скажите пжалста каким образом можно прочитать построчно текстовый файл и записать эти строки в ListBox. У меня получается вот что:
Dim read1 As StreamReader = New StreamReader("br1.txt", Encoding.Default)
Dim mes As String
mes = read1.ReadLine() ' если этого не сделать далее будет ошибка Value cannot be null

While (mes = read1.ReadLine()) <> Nothing)
LBBr1.Items.Add(mes) 'получается бесконечный цикл
End While
read1.Close()

ПОМОГИТЕ ПОЖАЛУЙСТА мучаюсь уже 2 дня
заранее благодарен

[gaidar]

Попробуй выкинуть <> Nothing. Это совсем тут не нужно.

А вообще - читай Quick Starts?

[Warlock]

Ejara
попробую использовать для прочтения файла библиотеку scriptingruntime очень удобная библиотека мне нравиться прижелании могу скинуть пример тебе на мело

[Ejara]

Спасибо за помощь
получилось по старому (VB6):

intFH = FreeFile()
FileOpen(intFH, "br1.txt", OpenMode.Input, OpenAccess.Default)
While Not EOF(intFH)
mes = LineInput(intFH)
LBBr1.Items.Add(mes)
End While
FileClose(intFH)