这样才能是文本框中的内容自动的滚动，而不用控件控制。谢谢

只要是用VB作线程必须用Timer控件，不用控件如何做？请赐教

可以实现。

Private Sub Text1_GotFocus() '获取焦点时自动滚动
  Do While Not Text1.SelStart = Len(Text1.Text) - 50 '尚未达到行尾
      SendKeys "{Down}", 1000 '每一秒自动按下箭头键，使光标向下移动一行
  Loop
End Sub

那么怎样使滚动的内容实现高亮显示呢？谢谢