VB6.0 Marquee

Private Sub Form_Paint()

Label1.Left = Frame1.Width
Timer1.Interval = 1

End Sub

Private Sub Timer1_Timer()

Label1.Left = Label1.Left - 25
If Label1.Left < Frame1.Left - Label1.Width Then Label1.Left = Frame1.Width

End Sub

//Timer Interval set to 1