是这个办法的,只是要加一句:
成都创新互联公司2013年至今，是专业互联网技术服务公司，拥有项目成都做网站、成都网站建设、成都外贸网站建设网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元晋江做网站,已为上家服务,为晋江各地企业和个人服务,联系电话:18982081108
TextBox1.SelectionLength = 0
TextBox1.SelectionStart = TextBox1.Text.Length
TextBox1.ScrollToCaret()
另外,文本框的内容修改后要再次执行上面的三句代码
能，在tabcontrol的drawitem事件中加一个方法，函数内容可以是
Private Sub leftDraw(ByVal sender As Object, ByVal e As DrawItemEventArgs)
Dim sf As StringFormat = New StringFormat
sf.LineAlignment = StringAlignment.Center
sf.Alignment = StringAlignment.Center
Dim tc As TabControl = sender
e.Graphics.DrawString(tc.TabPages(e.Index).Text, SystemInformation.MenuFont, New SolidBrush(Color.Black), e.Bounds, sf)
End Sub
VB.net的，我刚刚写的， 试过了，可以用。
Dim st As New System.IO.StreamReader("E:\User Documents\Master\My Documents\电子阅读\一元二次方程.txt", System.Text.Encoding.Default)
Do Until st.EndOfStream
TextBox1.AppendText(st.ReadLine() vbCrLf)
Loop
st.Close()
可以用定时器Timer控件啊，设置循环时间间隔，比如300毫秒，
定义N个字符串变量存储要输出的第N行内容，然后，当开始执行定时器时候，每次用不同的顺序合并这N个变量，并显示。
计算字符串的"字节长度":
dim dLength=System.Text.Encoding.Default.GetByteCount(theText)
注意,此方法只适用于"等宽"字体
