Scroll Text Using Timer in VB.NET

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


Similar Articles