[VB 2005] Scrolling Text - Right To Left

[knxrb]

Created some scrolling text, can be used for news bulletins, announcements etc.

You need:
Label - name: label1
Timer - name: timscroll - interval: 10 - enabled: true

 
Private Sub timscroll_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timscroll.Tick
        If Label1.Left = 0 - Label1.Width Then
            Label1.Left = Me.Width
            Label1.Left = Label1.Left - 1
        Else
            Label1.Left = Label1.Left - 1
        End If
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Left = Me.Width

    End Sub

Hope It Helps!

-----
knxrb