Private Sub SfumaCerchio()
Dim X, Y, Raggio, Limite, I Form1.AutoRedraw = True Form1.DrawStyle = 6 Form1.DrawMode = 13 Form1.DrawWidth = 2 Form1.ScaleMode = 3 Form1.ScaleMode = 3 ' Imposta la scala su pixel. X = Form1.ScaleWidth / 2 ' Imposta la posizione X. Y = Form1.ScaleHeight / 2 ' Imposta la posizione Y. If X > Y Then Limite = Y Else Limite = X For Raggio = 0 To Limite ' Imposta il raggio. I = Raggio Circle (X, Y), Raggio, RGB(0, 200, I * 2) Next Raggio End Sub |