'运用StreamReader从一个标准的文本文件读行信息。
Dim srReadLine As New System.IO.StreamReader("D:\1.txt", System.Text.Encoding.GetEncoding("GB2312"))
srReadLine.BaseStream.Seek(0, System.IO.SeekOrigin.Begin)
While srReadLine.Peek() > -1
TextBox1.Text += srReadLine.ReadLine() & vbCrLf
End While
srReadLine.Close()
