能不能解释一下vb流水灯（用滚动条控制流水速度），就是你曾经回答过的那段，很急啊，谢谢。

Private LOOPNUM As Integer = 1
private BUSSREADME as string="没有共产党就没有新中国，测试信息！可以多写点！"
Private Sub pictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs)
Try
e.Graphics.Clip = New Region(New Rectangle(5, 30, 150, 300))
Dim aa As New RectangleF(8, 300- LOOPNUM * 1, 150, LOOPNUM * 1)
Dim font1 As New Font("宋体",16, FontStyle.Bold)
e.Graphics.DrawString(BUSSREADME, font1, _
New System.Drawing.SolidBrush(color.red), aa)
LOOPNUM += 1
If aa.Height > 600 Then
If aa.Height > (BUSSREADME.Length / (aa.Width / font1.Size * 1.4) + 1) * font1.Size * 2 Then
LOOPNUM = 1
End If
End If
Catch ex As Exception
MessageBox.Show(ex.ToString)
Finally
End Try
End Sub

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
PictureBox1.Refresh()
End Sub
控制TIMER1的时间片即可，一般在10MS比较合适。