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

' this code will scroll text in a label named "Label1" with am interval of 3000 between each "scroll shot"

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