Напишите программу, отображающую цветное кольцо. Используя ее как подпрограмму, нарисуйте олимпийский флаг - VB

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

Напишите программу, отображающую цветное кольцо. Используя ее в качестве подпрограммы, нарисуйте олимпийский флаг.

null

вот, что получилось. Кто нибудь знает как каждому кольцу свой цвет прикрепить?

Решение задачи: «Напишите программу, отображающую цветное кольцо. Используя ее как подпрограмму, нарисуйте олимпийский флаг»

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

                            Option Explicit
 
 
Private Sub Command1_Click()
    Dim Col, k As Integer, a As Integer
    Col = Array(vbBlue, vbBlack, vbRed, vbYellow, vbGreen)
    For a = 17 To 33 Step 8
        Call krug(a, 25, Col(k))
        k = k + 1
    Next
    For a = 21 To 29 Step 8
         Call krug(a, 33, Col(k))
         k = k + 1
    Next a
End Sub
 
Private Sub Form_Load()
    Picture1.Scale (0, 0)-(50, 50)
    Picture1.DrawWidth = 8
End Sub
 
 
Private Sub krug(ByVal X As Integer, ByVal Y As Integer, ByVal Col As Long)
     Picture1.Circle (X, Y), 5, Col
End Sub
                        