Окраска множества эллипсов в заданной последовательности

Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim x  As Integer, y  As Integer
Dim r As Integer, c As Single, d As Single
'AutoRedraw = True
'DrawWidth = 10
'FillStyle =
Randomize Timer
Picture1.Cls
For i = 1 To 10
x = Picture1.Width * Rnd
y = Picture1.Height * Rnd
r = 1000 * Rnd
c = 3 * Rnd
d = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Circle (x, y), r, d, , , c
 
Next i
 
End Sub

Option Explicit
 
Private Sub Command1_Click()
Dim i As Integer
Dim x  As Integer, y  As Integer, Color&
Dim r As Integer, c As Single, d As Single
Dim aa As Single 
  Randomize Timer 
  Picture1.Cls
  For i = 1 To 50
    x = Picture1.Width * Rnd
    y = Picture1.Height * Rnd
    r = 1000 * Rnd
    c = 3 * Rnd
    aa= 5 * Rnd 
    Color = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
    Picture1.FillStyle = 0
    If (i Mod 3 = 0) Then
       Picture1.FillColor = vbRed
       Picture1.Circle (x, y), r, vbRed,,,aa
    ElseIf (i Mod 3 = 1) Then
       Picture1.FillColor = vbGreen
       Picture1.Circle (x, y), r, vbGreen,,,aa
    Else
       Picture1.FillColor = vbBlue
       Picture1.Circle (x, y), r, vbBlue,,,aa
    End If
  Next i
 
End Sub

Option Explicit
 
Private Sub Command1_Click()
Dim i As Integer
Dim x  As Integer, y  As Integer
Dim r1 As Single, r2 As Single, r3 As Single, c As Single
 
  Randomize Timer
  Picture1.Cls
  For i = 1 To 5
    x = Picture1.Width * Rnd
    y = Picture1.Height * Rnd
    r1 = 500 * Rnd
    r2 = r1 * 1.5
    r3 = r2 * 1.4
    c = 1.5
    
    Picture1.FillColor = vbRed
    Picture1.Circle (x, y), r1, vbRed, , , c
        
    Picture1.FillColor = vbGreen
    Picture1.Circle (x, y), r2, vbGreen, , , c
    
    Picture1.FillColor = vbBlue
    Picture1.Circle (x, y), r3, vbBlue, , , c
    
   
  Next i
 
End Sub

Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim x  As Integer, y  As Integer, c As Single
Dim r As Single, d1 As Single, d2 As Single, d3 As Single
 
  Randomize Timer
  Picture1.Cls
  For i = 1 To 5
    x = Picture1.Width * Rnd
    y = Picture1.Height * Rnd
    r = 1000 * Rnd
    c = 1.5
    
        Picture1.FillColor = vbRed
        Picture1.Circle (x, y), r, vbRed, 1, 3, c
        Picture1.Circle (x, y), r, vbRed, 1, -3, c
        
        Picture1.FillColor = vbGreen
        Picture1.Circle (x, y), r, vbGreen, 3, 5, c
        Picture1.Circle (x, y), r, vbGreen, 3, -5, c
    
        Picture1.FillColor = vbBlue
        Picture1.Circle (x, y), r, vbBlue, 5, 1, c
        Picture1.Circle (x, y), r, vbBlue, 5, -1, c
   
  Next i
 
End Sub

Option Explicit
Private Sub Command1_Click()
Dim x1 As Long, x2 As Long, x3 As Long
    x1 = 500
    Do Until x1 > 3000
        Picture1.Circle (x1, 1000), 200, , , , 1.8
        x1 = x1 + 500
    Loop
    
    x2 = 500
    Do Until x2 > 3000
        Picture1.Circle (x2, 2000), 200, , , , 1.5
        x2 = x2 + 500
    Loop
    
    x3 = 500
    Do Until x3 > 3000
        Picture1.Circle (x3, 3000), 200, , , , 2.4
        x3 = x3 + 500
    Loop
End Sub