Dim a As new List (of color)a.Add(Color.blue)a.Add(Color.green)a.Add(Color.red)a.Add(Color.gray)
e.form.controls("label1").forecolor = a(Rand.Next(0, a.count))