Marquee label in visual basic 2010 / 2012 Simple Codes

Hi for new project,

Again open Visual Basic and new project, insert 1 timer, 1 label and 1 trackbar. And code;

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TrackBar1.Maximum = 1000
        TrackBar1.Minimum = 1
        Timer1.Interval = 100
        Timer1.Start()

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

        Label1.Text = Label1.Text.Substring(1) + Label1.Text.Substring(0, 1)

    End Sub
    Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
        Timer1.Interval = TrackBar1.Value
    End Sub
End Class

By...