Private [/color][/size][size=2][color=#0000ff]Sub[/color][/size][size=2] Label1_TextChanged([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] sender [/size][size=2][color=#0000ff]As [/color][/size][size=2][color=#0000ff]Object[/color][/size][size=2], [/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] e [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.EventArgs) [/size][size=2][color=#0000ff]Handles[/color][/size][size=2] Label1.TextChanged
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Label1.ForeColor = Color.Aqua
[/size][size=2][color=#0000ff]End [/color][/size][size=2][color=#0000ff]Sub
Dim colours As Color() = New Color() {Color.Red, Color.Green, Color.Blue}
Dim colourIndex As Integer = -1
Dim myReader As New IO.StreamReader("file path here")
While myReader.Peek() <> -1
If colourIndex = colours.Length - 1
colourIndex = 0
Else
colourIndex += 1
End If
Me.Label1.ForeColor = colours(colourIndex)
Me.Label1.Text = myReader.ReadLine()
End While
myReader.Close()
Dim colours As Color[color=Red]()[/color] = New Color[color=Red]()[/color] [color=SeaGreen]{[/color]Color.Red, Color.Green, Color.Blue[color=SeaGreen]}[/color]