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

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