Нужно сделать тело коричневым, внутренний круг тела серым - VB

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

помогите немного доделать программку, все нарисованно но не могу разобраться как разукрасить, нужно зделать тело коричневым, внутренний круг тела серым, морду тоже наверное коричневой, зделайте плз хотя бы один элемент думаю дальше разберусь че к чему, вот код

Private Sub Command1_Click()
Picture1.Scale (-255, 255)-(255, -255)
Picture1.DrawWidth = 1
Picture1.FillStyle = 0
Picture1.BackColor = QBColor(2)
 
   'ГђГЁГ±ГіГ*Г®ГЄ
   Picture1.Circle (0, -60), 150, vbWhite
   Picture1.Circle (0, -70), 80, vbWhite
   Picture1.Circle (0, 130), 70, vbWhite
   Picture1.Circle (-20, 140), 10, vbWhite
   Picture1.Circle (20, 140), 10, vbWhite
   Picture1.Circle (0, 120), 7, vbWhite
   Picture1.Line (-15, 100)-(15, 100), vbWhite
   Picture1.Line (-70, 130)-(0, 120), vbWhite
   Picture1.Line (-70, 100)-(0, 120), vbWhite
   Picture1.Line (70, 130)-(0, 120), vbWhite
   Picture1.Line (70, 100)-(0, 120), vbWhite
   Picture1.Circle (-50, 190), 17, vbWhite
   Picture1.Circle (50, 190), 17, vbWhite
   Picture1.Line (-200, -110)-(-100, -150), vbWhite
   Picture1.Line (-200, -115)-(-100, -150), vbWhite
   Picture1.Line (-200, -120)-(-100, -150), vbWhite
   Picture1.Line (-200, -125)-(-100, -150), vbWhite
   Picture1.Line (-200, -130)-(-100, -150), vbWhite
   Picture1.Line (-200, -135)-(-100, -150), vbWhite
   Picture1.Line (-200, -140)-(-100, -150), vbWhite
   Picture1.Line (-200, -145)-(-100, -150), vbWhite
   Picture1.Line (-200, -150)-(-100, -150), vbWhite
   Picture1.Line (-200, -155)-(-100, -150), vbWhite
   Picture1.Line (-200, -160)-(-100, -150), vbWhite
   Picture1.Line (-200, -165)-(-100, -150), vbWhite
   Picture1.Line (-200, -170)-(-100, -150), vbWhite
   Picture1.Line (-200, -175)-(-100, -150), vbWhite
   Picture1.Line (-200, -180)-(-100, -150), vbWhite
   Picture1.Line (-200, -185)-(-100, -150), vbWhite
   Picture1.Line (-200, -190)-(-100, -150), vbWhite
   Picture1.Line (-200, -195)-(-100, -150), vbWhite
End Sub

Решение задачи: «Нужно сделать тело коричневым, внутренний круг тела серым»

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

                            Private Sub Command1_Click()
Dim i As Integer
Picture1.Scale (-255, 255)-(255, -255)
Picture1.DrawWidth = 1          'толщина линий
Picture1.FillStyle = 0          'заливка - сплошная
Picture1.BackColor = QBColor(2) ' цвет фона
 
   'Рисунок
   Picture1.FillColor = RGB(120, 70, 60)       'цвет внешней части пуза
   Picture1.Circle (0, -60), 150, vbWhite      'внешняя часть пуза
   Picture1.FillColor = RGB(100, 100, 100)     'цвет внутренней части пуза
   Picture1.Circle (0, -70), 80, vbWhite       'внутренняя часть пуза
   Picture1.FillColor = RGB(120, 70, 60)       'цвет заливки морды
   Picture1.Circle (0, 130), 70, vbWhite       'морда
   Picture1.FillColor = vbBlue                 'цвет заливки глаз
   Picture1.Circle (-20, 140), 10, vbWhite     'левый глаз
   Picture1.Circle (20, 140), 10, vbWhite      'правый глаз
   Picture1.FillColor = vbRed                  'цвет заливки носа
   Picture1.Circle (0, 120), 7, vbWhite        'нос
   Picture1.Line (-15, 100)-(15, 100), vbWhite 'рот
   Picture1.Line (-70, 130)-(0, 120), vbWhite  'усы
   Picture1.Line (-70, 100)-(0, 120), vbWhite  'усы
   Picture1.Line (70, 130)-(0, 120), vbWhite   'усы
   Picture1.Line (70, 100)-(0, 120), vbWhite   'усы
   Picture1.FillColor = RGB(120, 50, 60)       'цвет заливки ушей
   Picture1.Circle (-50, 190), 17, vbWhite     'левое ухо
   Picture1.Circle (50, 190), 17, vbWhite      'правое ухо
   
   For i = 110 To 195 Step 5
       Picture1.Line (-200, -i)-(-100, -150), vbWhite 'хвост
   Next i
   
End Sub
                        