哪位有使状态栏文字平滑滚动的源代码？实现立即给分！

Question

哪位有使状态栏文字平滑滚动的源代码，最好是从右向左移动，而且一定要平滑滚动才行呀！！！！！
知道的朋友帮帮忙呀，在此谢了先！！！！

Answer 1

写个TIME事件
每隔1秒让他的left-100

Answer 2

Public tit1, tit2 As StringPrivate Sub Form_Load()
    tit1 = "This title can run and run!.........." + String(50, " ")
    tit2 = "The statusbar SimpleText can run too but slowly!.........." + String(40, " ")
    Form1.Caption = title1
    StatusBar1.Style = sbrSimple
    StatusBar1.SimpleText = tit2
    Timer1.Interval = 200
    Timer2.Interval = 500
End SubPrivate Sub Timer1_Timer()
    L1 = Len(tit1)
    tit1 = Mid(tit1, 2, L1 - 1) + Left(tit1, 1)
    Form1.Caption = tit1
End SubPrivate Sub Timer2_Timer()
    L2 = Len(tit2)
    tit2 = Mid(tit2, 2, L2 - 1) + Left(tit2, 1)
    StatusBar1.SimpleText = tit2
End Sub在窗口中加两个timer，一个状态栏即可。如果你想实现像素级的移动，那么你就不得不进行绘制文本了。相对麻烦些。

Answer 3

调整Timer2.Interval 的值为更小的值，则移动速度加快。

Answer 4

http://community.csdn.net/Expert/topic/4488/4488468.xml?temp=.335293