|
 |
 |
 |
| |
 Couleur Aléatoire
Paramètres en entrée : Aucun
Paramètres en sortie : CouleurAleatoire (long)
Description : donne le numéro d’une couleur choisie au hasard parmi toutes les couleurs disponibles
Public Function CouleurAleatoire() As Long
RndColor& = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
CouleurAleatoire = RndColor&
End Function
|
|
 |
 |
 |
|