[VB] Create running text effect and change background color

Imports vb = Microsoft.VisualBasic.Strings
Public Class Form1
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim X, Y As String
        X = vb.Left(Label1.Text, 1)
        Y = vb.Right(Label1.Text, Len(Label1.Text) - 1)
        Label1.Text = Y + X
        Dim rand As New Random()
        Dim A As Integer = rand.[Next](0, 255)
        Dim R As Integer = rand.[Next](0, 255)
        Dim G As Integer = rand.[Next](0, 255)
        Dim B As Integer = rand.[Next](0, 255)
        Label1.ForeColor = Color.FromArgb(A, R, G, B)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
    End Sub
End Class