- Private Function Étoile(Endroit As Object, NbÉtoile As Long, Couleur As ColorConstants, CouleurFond As ColorConstants, Grosseur As Integer)
- Dim I
- Grosseur = Endroit.DrawWidth
- Endroit.BackColor = CouleurFond
- For I = 0 To NbÉtoile
- Endroit.PSet (Rnd * Endroit.ScaleWidth, Rnd * Endroit.ScaleHeight), Couleur
- Next I
- End Function
Private Function Étoile(Endroit As Object, NbÉtoile As Long, Couleur As ColorConstants, CouleurFond As ColorConstants, Grosseur As Integer)
Dim I
Grosseur = Endroit.DrawWidth
Endroit.BackColor = CouleurFond
For I = 0 To NbÉtoile
Endroit.PSet (Rnd * Endroit.ScaleWidth, Rnd * Endroit.ScaleHeight), Couleur
Next I
End Function