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

Формулировка задачи:

Здравствуйте! Помогите, пожалуйста, практическими алгоритмами кода.

Меня интересует: 1) Как залить (полностью окрасить) эллипсы случайными цветами? 2) Как залить (полностью окрасить) эллипсы определёнными заранее цветами, используя индекс (i) по признаку делимости на 2, 3 (без остатка) и прочие. Всего три цвета окраски. 3) Как залить (полностью окрасить) эллипсы определёнными заранее цветами, используя индекс (i) для группы, например: For i = 1 To 3 — vbRed; For i = 4 To 6 — vbGreen; For i = 4 To 6 — vbBlue. Всего три цвета окраски.

Не по теме:

Столкнулся на форуме с распространённым явлением. Многие из участников почему-то пытаются скрыть подобные сведения. Не знаю их мотивов. По мне: сравниваю их с мальчиком Васей из детского садика — считающего, что у него лучшие фантики (обёртки от конфет) в мире. Поэтому Вася никому и никогда не рассказывает: откуда они взяты. Одна только мама Васи догадывается — откуда, поскольку Вася любит гулять возле мусорных баков. Они сейчас возле каждого многоэтажного дома. "Клондайк". В литературе есть образ Плюшкина.

Вот ниже код, как просто залить (полностью окрасить) эллипсы случайными цветами?

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

Решение задачи: «Окраска множества эллипсов в заданной последовательности»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Me.FillStyle = 0
wd = Me.ScaleWidth: ht = Me.ScaleHeight
For n = 1 To 20
        x = wd * Rnd
        y = ht * Rnd
        r = 800 * Rnd + 200
        c = 3 * Rnd
          
        Select Case n
                    Case 1 To 7
                         Colors = vbGreen
                    Case 8 To 14
                        Colors = vbRed
                    Case 14 To 20
                      Colors = vbBlue
         End Select
         
          Me.FillColor = Colors
          Me.Circle (x, y), r, Colors, , , c
 
 Next n
End Sub
 
Private Sub Command2_Click()
Me.FillStyle = 0
wd = Me.ScaleWidth: ht = Me.ScaleHeight
For n = 1 To 20
        x = wd * Rnd
        y = ht * Rnd
        r = 800 * Rnd + 200
        c = 3 * Rnd
        Colors = RGB(255 * Rnd(), 255 * Rnd(), 255 * Rnd())
    Me.FillColor = Colors
    Me.Circle (x, y), r, Colors, , , c
 
 Next n
 
End Sub
                        