VB: Programación para imprimir estrellas de diferentes colores en la interfaz

Subcomando privado1_Click()

Para i = 1 a 10

Aleatorizar

Imagen1.CurrentX = Int(Rnd * Imagen1. ScaleWidth)

Imagen1.CurrentY = Int(Rnd * Imagen1.ScaleHeight)

Imagen1.ForeColor = QBColor(Int(16 * Rnd))

Imagen1. Imprimir "☆"

Siguiente i

Fin Sub