如何用vb编写 实现一个滚动的字幕，最初从左向右移动移出，接着再从右向左移动移出如此循环往复的代码？

Option Explicit
Private Sub Form_Load()
Timer1.Interval = 1
Label1.Left = -Label1.Width
End Sub
Private Sub Timer1_Timer()
Static bRToL As Boolean
If bRToL = False Then
Label1.Left = Label1.Left + 20
If Label1.Left > Me.ScaleWidth Then bRToL = True
Else
Label1.Left = Label1.Left - 20
If Label1.Left <= -Label1.Width Then bRToL = False
End If
End Sub

就是打乒乓球嘛

@yaxboc 哈哈哈哈哈哈哈，百度贴吧不让你讲话……哈哈哈哈