Concentric Circles

Code:

Private Sub Command1_Click()

x = Form1.ScaleWidth / 2

y = Form1.ScaleWidth / 2

radius = 10

For i = 0 To Form1.ScaleHeight / 2

red = 1 + Int(Rnd * 255)

blue = 1 + Int(Rnd * 255)

green = 1 + Int(Rnd * 255)

colo = RGB(red, green, blue)

radius = radius + i

If radius < Form1.ScaleHeight / 2 Then

Form1.Circle (x, y), radius, colo

End If

Next i

End Sub