VB 6.0 Небольшая работа с графикой и моделями

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

Здравствуйте! Помогите пожалуйста доделать задачу. (сделанное мной прикрепил ниже). Она работает, но кроме одной option button... Не знаю что нужно сделать чтобы заработали все комбинации (размеры и линии: Большой - Толстая, Большой - Средняя, Большой - Тонкая). Всё остальное вроде бы работает. Если не сложно, помогите найти причину, и как её устранить. Я с Basic только начал знакомиться, полтора месяца учу, до этого на Си практиковался. Заранее спасибо!

Option Explicit
Dim iInitHeight As Integer
Dim iInitWidth As Integer
Dim iInitStark As Integer
Dim binit As Boolean
 
Sub ShapeShow()
Dim dFactor As Double
Dim iFactorLine As Integer
    If binit Then Exit Sub
    If cdlColorSel.Color <> 0 Then
        shpShape.FillColor = cdlColorSel.Color
    End If
    If optSiz3 Then dFactor = 0.25
    If optSiz2 Then dFactor = 0.5
    If optSiz1 Then dFactor = 1
    shpShape.Width = iInitWidth * dFactor
    shpShape.Height = iInitHeight * dFactor
    If optLin1 Then iFactorLine = 1
    If optLin2 Then iFactorLine = 5
    If optLin3 Then iFactorLine = 25
    shpShape.BorderWidth = iInitStark * iFactorLine
    shpShape.FillStyle = cboFill.ListIndex
    shpShape.Shape = cboForm.ListIndex
    ShapeCenter
End Sub
Sub ShapeCenter()
    shpShape.Left = (picRun.Width - shpShape.Width) / 2
    shpShape.Top = (picRun.Height - shpShape.Height) / 2
End Sub
Private Sub cboForm_Click()
    ShapeShow
End Sub
Private Sub cboFill_Click()
    ShapeShow
End Sub
Private Sub cmdColor_Click()
    cdlColorSel.Flags = cdlCCPreventFullOpen
    cdlColorSel.ShowColor
    ShapeShow
End Sub
Private Sub Form_Load()
    iInitHeight = 2412
    iInitWidth = 4092
    iInitStark = 1
    binit = True
    With cboForm
        .AddItem "Прямоугольник"
        .AddItem "Квадрат"
        .AddItem "Овал"
        .AddItem "Окружность"
        .AddItem "Скругл.прямоугольник"
        .AddItem "Скругл.квадрат"
        .ListIndex = 0
     End With
     With cboFill
        .AddItem "Сплошное"
        .AddItem "Прозрачное"
        .AddItem "Горизонтальные линии"
        .AddItem "Вертикальные линии"
        .AddItem "Нисходящая диагональ"
        .AddItem "Восходящая диагональ"
        .AddItem "Решетка"
        .AddItem "Диагональная решетка"
        .ListIndex = 1
    End With
    binit = False
    ShapeShow
    optLin2.Value = False
    optSiz2.Value = False
End Sub
Private Sub optSizl_Click()
    ShapeShow
End Sub
Private Sub optSiz2_Click()
    ShapeShow
End Sub
Private Sub optSiz3_Click()
    ShapeShow
End Sub
Private Sub optLinl_Click()
    ShapeShow
End Sub
Private Sub optLin2_Click()
    ShapeShow
End Sub
Private Sub optLin3_Click()
    ShapeShow
End Sub

Решение задачи: «VB 6.0 Небольшая работа с графикой и моделями»

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

                            Private Sub optSizl_Click()
    ShapeShow
End Sub
Private Sub optLinl_Click()
    ShapeShow
End Sub
                        