• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Scrolling Text On Form

Scrolling Text On Form

Scrolling Text On Form

API Declarations



Put One Label on Form and Rename to nScroll
Set Time Interval Of Timer is 10



Rate Scrolling Text On Form

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

 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