VB如何使text控件里的内容滚动显示

Dim i%

Private Sub Form_Load()
i = 1
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If i = 12 Then i = 1 '12 是你要显示的有效字符长度，这里是hello world！的长度。
Text1.Text = Mid("hello world！ ", i, 5) '在你要显示的字符后面加上你要在文本框中显示的长度个空格，这里显示 5 个
i = i + 1
End Sub
'大概意思就这样..

text 右侧属性栏里有一个属性，具体是什么忘了，把值改为FORCE（关闭），就能固定text 窗口大小，如果字数超长就自动换行或添加滚动条。