Puedes probar con algo así:
Código vb:
Ver originalPrivate 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