Private Rot(300), Grün(300), Blau(300), ba, ca, da, ea, Farbe(300) As Long

For ba = 0 To 300 Step 10
Rot(ba) = Round(Rnd * 254)
Grün(ba) = Round(Rnd * 254)
Blau(ba) = Round(Rnd * 254)
Next
 
For ca = 0 To 290 Step 10
For da = 1 + ca To 9 + ca
Rot(da) = Round(Rot(0 + ca) + (((Rot(10 + ca) - Rot(0 + ca)) / 10) * (da - ca)))
Grün(da) = Round(Grün(0 + ca) + (((Grün(10 + ca) - Grün(0 + ca)) / 10) * (da - _
  ca)))
Blau(da) = Round(Blau(0 + ca) + (((Blau(10 + ca) - Blau(0 + ca)) / 10) * (da - _
ca)))
Next
Next
 
For ea = 0 To 300
Farbe(ea) = RGB(Rot(ea), Grün(ea), Blau(ea))
Next