Jobs
Author: balu Date Submitted: 1/11/2005 Category: Forms Compatibility: VB 6 This code has been accessed 6782 times.
Email Yourself this snippet:
no declarations. note: it uses two timers and it uses left property of the label to accomplish the task.
Code
Private Sub Timer1_Timer() Label1.ForeColor = vbCyan If Label1.Left < 10000 Then Label1.Left = Label1.Left + 400 Else Timer1.Enabled = False Timer2.Enabled = True End If End Sub Private Sub Timer2_Timer() Label1.ForeColor = vbRed If Label1.Left <> 0 Then Label1.Left = Label1.Left - 400 Else Timer2.Enabled = False Timer1.Enabled = True End If End Sub
