Friday, August 27, 2010

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

1 comment:

Jona said...

thank for sharing