在VB.NET　读取TXT文件内容按行

Dim sr As System.IO.StreamReader = New System.IO.StreamReader(Application.StartupPath & "\tmp.Txt", System.Text.Encoding.Default) Dim line As String line = sr.ReadLine Me.ToolStripStatusLabel2.Text = line line = sr.ReadLine Me.ToolStripStatusLabel4.Text = line line = sr.ReadLine Me.ToolStripStatusLabel2.ToolTipText = line line = sr.ReadLine Me.ToolStripStatusLabel4.ToolTipText = line sr.Close()