vb.net中如何读取txt文件啊

vb.net中怎么读取txt文件啊?
下面是我目前的代码:
              Dim   fs   As   New   System.IO.FileStream( "C:\font.txt ",   IO.FileMode.Open)
                Dim   sr   As   New   System.IO.StreamReader(fs)
                Dim   strTemp   As   String
                strTemp   =   sr.ReadLine
                ListBox2.Items.Add(strTemp)
                sr.Close()
                fs.Close()
运行后发现只读出一行,怎么才能把所有的行都读出来啊?

[解决办法]
Dim fs As New System.IO.FileStream( "C:\font.txt ", IO.FileMode.Open)
Dim sr As New System.IO.StreamReader(fs)
Dim strTemp As String
do while sr.peek() > = 0

strTemp = sr.ReadLine
ListBox2.Items.Add(strTemp)

loop
sr.Close()
fs.Close()