• Home
 · 
• String Manipulation
 · 
• Scrolling text (no depedencies)

Scrolling text (no depedencies)

Scrolling text (no depedencies)

API Declarations


'Place cancld = 1 in a cancel button to stop the scroll effect



Rate Scrolling text (no depedencies)

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

cancld = 0

Do
  u = Label1.Caption
  Y = Mid$(u, 1, 1)
  Label1.Caption = Mid$(Label1.Caption, 2, Len(Label1.Caption)) & Y
  For v = 1 To 3000
    DoEvents
  Next v
  Form1.Refresh
Loop Until cancld = 1