[SOLUCIONADO] Forecolor aleatorio

[truskyvb]

Hola a todos. No consigo poner el forecolor aleatoriamente a 100 label indexadas.
Espero que podáis ayudarme.
Gracias.

[erbuson]

Puedes probar con algo así:

Código vb:

Private Sub Command1_Click()
  Dim Indice As Integer
  Randomize Timer
  For Indice = 0 To Label1.Count - 1
    Label1(Indice).ForeColor = Rnd(1) * 16777215
    Label1(Indice).BackColor = Rnd(1) * 16777215
  Next
End Sub
 

Saludos

[truskyvb]

Funciona perfectamente. Muchas gracias por la ayuda.
Un saludo.