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
