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
