Here I will show you how to scroll text message in both the directions from left to right and from right to left.

Program
Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Label1.Text = Mid(Label1.Text, Len(Label1.Text)) & Mid(Label1.Text, 1, Len(Label1.Text) - 1)

Label1.ForeColor = Color.White

Label1.BackColor = Color.Red

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

Label2.Text = Mid(Label2.Text, 2, Len(Label2.Text)) & Mid(Label2.Text, 1, 1)

Label2.ForeColor = Color.White

Label2.BackColor = Color.Red

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Timer1.Enabled = True

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Timer2.Enabled = True

End Sub

End Class

Output

Scroll-text-using-timer.gif