'Use StreamReader to read line information from a standard text file.
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 () & vbrlf
End while
srreadline.close ()
