状态栏中如何实现滚动字幕效果?

其实滚动字幕无非是字符串的变换。给你个例子：
" Hello"
" Hello"
" Hello"
"Hello"
"ello"
"llo"
"lo"
"o"

用定时器显示以上状态就可以了。。。

Dim arr(24) As String
Dim i As Integer
Private Sub Form_Load()
Me.Timer1.Enabled = True
Me.Timer1.Interval = 200
......
......
......

End Sub

Private Sub Timer1_Timer()
If i > 23 Then i = 0
i = i + 1
Me.Text1.Text = arr(i)
End Sub

效果不好,抖动!

何必呢。


Sub Timer()
Dim Len1 As Integer
Len1=1
Text1=Right(Text1,Len(Text1)-Len1) & Left(Text1,Len1)
End Sub