by Kalpesh Patel (2 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 29th December 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Scrolling Text On Form
API Declarations
Put One Label on Form and Rename to nScroll
Set Time Interval Of Timer is 10
nScroll.Left = Me.Width - nScroll.Width
End Sub
Private Sub Timer1_Timer()
nScroll.Left = nScroll.Left - 10
If nScroll.Left < nScroll.Width * -1 Then
nScroll.Left = Me.Width
End If
End Sub