EASIEST way to have scrolling marquee text!

This is the EASIEST way to have scrolling marquee text in a label.
‘No long useless code.

Original Author: Crash404

Assumptions

Create a timer called ‘Timer1’ (with an interval of 1) and a label called ‘Label1’

Code

Private Sub Timer1_Timer()
If Label1.Left < -1000 Then
Label1.Left = 7000
Else
Label1.Left = Val(Label1.Left) - 40
End If
End Sub