by balu (2 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 1st November 2005
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Simple code to build scrolling text application
API Declarations
note:
it uses two timers and it uses left property of the label to accomplish the
task.
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