Private Sub DisegnaPunti()
Dim R, G, B, X, Y, I 'Disegnare i punti? For I = 1 To 100 'Registra un colore casuale R = Rnd * 255 G = Rnd * 255 B = Rnd * 255 'Registra una coordinata (X,Y) casuale X = Rnd * Form1.ScaleWidth Y = Rnd * Form1.ScaleHeight 'Disegna il punto Form1.PSet (X, Y), RGB(R, G, B) Next End Sub |