Процедуры и функции: определение центра тяжести плоских геометрических фигур (VB 6.0)

Option Explicit
Dim Index2 As Integer
 
Private Sub cmdD_Click(Index As Integer)
    Image1(Index2).Visible = False
    Image1(Index).Visible = True
    Index2 = Index
End Sub
 
Private Sub Command1_Click()
    End
End Sub

Option Explicit
Dim ix As Integer
 
Private Sub cmdKrug_Click()
    Image1(ix).Visible = False
    Image1(3).Visible = True
    ix = 3
End Sub
 
Private Sub cmdKvad_Click()
    Image1(ix).Visible = False
    Image1(1).Visible = True
    ix = 1
End Sub
 
Private Sub cmdPram_Click()
    Image1(ix).Visible = False
    Image1(4).Visible = True
    ix = 4
End Sub
 
Private Sub cmdRomb_Click()
    Image1(ix).Visible = False
    Image1(0).Visible = True
    ix = 0
End Sub
 
Private Sub cmdTreu_Click()
    Image1(ix).Visible = False
    Image1(2).Visible = True
    ix = 2
End Sub
 
Private Sub Command1_Click()
    End
End Sub

Private Sub cmdKvad_Click() ' заголовок процедуры cmdKvad_Click. 
                             '(cmd - префикс, он часто используется для кнопки) 
                              '(Kvad - сокращение слова Kvadrat - чтобы знать, 
                             'что эта кнопка показывает картинку где нарисован квадрат)
   Image1(ix).Visible = False    ' ix -  индекс. Все картинки имеют индекс
                                               ' ix=0 - ромб
                                               ' ix=1 - квадрат
                                               ' ix=2 - треугольник
                                               ' ix=3 - круг
                                               ' ix=4 - прямоугольник
                                               ' код выше означает, что картинка становится невидимой
   Image1(1).Visible = True  ' Этот код означает, что картинка 1 (квадрат) стан. видимой
   ix = 1                     ' индекс получает значение видимой картинки 
                                  ' То есть при нажатии следующей кнопки уже 
                                   ' эта картинка станет невидимой
                                   ' То есть индекс передает очередь "невидимости"
End Sub        ' конец процедуры.