Dim fs As filestream
Dim r As BinaryReader
fs = New FileStream("C:\temp.txt", FileMode.OpenOrCreate)
r = New BinaryReader(fs)
While r.PeekChar <> -1
TextBox1.Text &= CStr(r.ReadChar())
End While

以上方法，我只能读英文，中文部分会变成其它字符，怎么样实现中文英文都可以有？

[此贴子已经被作者于2006-12-28 15:16:15编辑过]

谢谢版主，我改了一下：
Dim a As System.Text.Encoding
Dim sr As New StreamReader("C:\temp.txt", a.Default, True, 1)
TextBox1.Text = sr.ReadToEnd()
sr.Close()