Dim value As Integer = CInt(Int((256 * Rnd())))

Public Class Form1
    Dim RanNum As New Random            ' Random number generator
    Dim DistMove As Integer = 10        ' The distance the label moves each time

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ' Add distance to label
        Label1.Left += DistMove
        ' Check if label has reach the right side of window
        If Label1.Left + Label1.Width > Me.ClientRectangle.Width Then
            ' If so make sure none is hidden
            Label1.Left = Me.ClientRectangle.Width - Label1.Width
            ' Reverse the direction - if positive make negative, if negative make positive
            DistMove = Not DistMove
        ElseIf Label1.Left < 0 Then
            ' If label is less than zero make it zero
            Label1.Left = 0
            ' Reverse the direction
            DistMove = Not DistMove
        End If
        ' Change the forecolor of the label. The RanNum.Next gives a number between 0 and 255
        Me.Label1.ForeColor = Color.FromArgb(255, RanNum.Next(0, 255), RanNum.Next(0, 255), RanNum.Next(0, 255))
    End Sub
End Class