Scrolling Text - VB#1

Code:
Timer1 Tick:

Label1.top-=1

To add looping, add this line to the event:

If Label1.bottom=Me.Clientrectangle.top Then
  Label1.top=Me.Clientrectangle.bottom
End If