Как используя операторы цикла и графики составить программу для рисования на экране каскада эллипсов

Dim a#, r#, xc#, yc#
Private Sub Form_Click()
xc = Me.Width / 2
yc = r
Do While yc + a * r < Me.Height
    Me.Circle (xc, yc), r, , , , a
    yc = yc + 2 * r * a
    r = 1.1 * r: a = 0.9 * a
    yc = yc
Loop
End Sub
 
Private Sub Form_Load()
Me.WindowState = 2
a = 1: r = Me.Height / 10
End Sub

Private Sub Command1_Click()
    Me.Picture1.Cls
    Me.Picture1.Scale (-100, 100)-(100, -100)
    yy = Array(0, 60, 25, -10, -40, -60)
    r# = 30
    a# = 0.5
    For i% = 1 To 5
        y# = CDbl(yy(i%))
        Me.Picture1.Circle (0, y#), r#, , , , a#
        y# = y# - 35
        a# = a# - 0.1
        r# = r# + 10
    Next i%
End Sub

Private Sub Command1_Click()
    Me.Picture1.Cls
    Me.Picture1.Scale (-100, 100)-(100, -100)
    r# = 30
    a# = 0.5
    For i% = 1 To 5
         If i%=1 then
            y#=60
         elseIf i%=2 then
            y#=25
         elseIf i%=3 then
            y#=-10
         elseIf i%=4 then
            y#=-40
         else
            y#=-60
        end if
        Me.Picture1.Circle (0, y#), r#, , , , a#
        y# = y# - 35
        a# = a# - 0.1
        r# = r# + 10
    Next i%
End Sub

Private Sub Command1_Click()
a = 1
r = Height / 20
xc = Width / 2
yc = r
Do While yc + r < Height
    Circle (xc, yc), r, , , , a
    yc = yc + 2 * r * a
    r = 1.1 * r
    a = 0.9 * a
Loop
End Sub