Смена фигур, их цветов - VB

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

Всем доброй ночи. Начали изучать VB. Ну соответственно дали задание. Нужно сделать двумя способами, первым сделал, помогите пожалуйста со вторым. Не могу в select case разобраться.

                    Листинг программы
                
 
                            
                        
Option Explicit
Dim a As Integer
 
Private Sub Form_Load()
Picture1.Scale (-10, 10)-(10, -10)
Picture1.FillStyle = 1
Picture1.DrawWidth = 4
 
End Sub
Private Sub Command2_Click()
Picture1.Cls
End Sub
Private Sub Command1_Click()
If (Option1.Value = True) And (Option6.Value = True) Then Picture1.Circle (0, 0), 6, vbRed
If (Option2.Value = True) And (Option6.Value = True) Then Picture1.Circle (0, 0), 6, vbYellow
If (Option3.Value = True) And (Option6.Value = True) Then Picture1.Circle (0, 0), 6, vbCyan
If (Option4.Value = True) And (Option6.Value = True) Then Picture1.Circle (0, 0), 6, vbGreen
If (Option5.Value = True) And (Option6.Value = True) Then Picture1.Circle (0, 0), 6, vbBlue
 
If (Option1.Value = True) And (Option7.Value = True) Then Picture1.Line (-6, 6)-(6, -6), vbRed, B
If (Option2.Value = True) And (Option7.Value = True) Then Picture1.Line (-6, 6)-(6, -6), vbYellow, B
If (Option3.Value = True) And (Option7.Value = True) Then Picture1.Line (-6, 6)-(6, -6), vbCyan, B
If (Option4.Value = True) And (Option7.Value = True) Then Picture1.Line (-6, 6)-(6, -6), vbGreen, B
If (Option5.Value = True) And (Option7.Value = True) Then Picture1.Line (-6, 6)-(6, -6), vbBlue, B
 
If (Option1.Value = True) And (Option8.Value = True) Then
Picture1.Line (0, 6)-(6, -5), vbRed
Picture1.Line (0, 6)-(-6, -5), vbRed
Picture1.Line (-6, -5)-(6, -5), vbRed
End If
If (Option2.Value = True) And (Option8.Value = True) Then
Picture1.Line (0, 6)-(6, -5), vbYellow
Picture1.Line (0, 6)-(-6, -5), vbYellow
Picture1.Line (-6, -5)-(6, -5), vbYellow
 
End If
If (Option3.Value = True) And (Option8.Value = True) Then
Picture1.Line (0, 6)-(6, -5), vbCyan
Picture1.Line (0, 6)-(-6, -5), vbCyan
Picture1.Line (-6, -5)-(6, -5), vbCyan
End If
If (Option4.Value = True) And (Option8.Value = True) Then
Picture1.Line (0, 6)-(6, -5), vbGreen
Picture1.Line (0, 6)-(-6, -5), vbGreen
Picture1.Line (-6, -5)-(6, -5), vbGreen
End If
If (Option5.Value = True) And (Option8.Value = True) Then
Picture1.Line (0, 6)-(6, -5), vbBlue
Picture1.Line (0, 6)-(-6, -5), vbBlue
Picture1.Line (-6, -5)-(6, -5), vbBlue
End If
 
End Sub

Решение задачи: «Смена фигур, их цветов»

textual
                            Листинг программы 
                        
 
                            
                        
Option Explicit
Dim color As String, ind As Integer, cind As String
Private Sub Form_Load()
Picture1.Scale (-10, 10)-(10, -10)
Picture1.DrawWidth = 4
End Sub
Private Sub Command2_Click() 'вот вместо этой кнопки
Picture1.Cls
End Sub
Private Sub Command1_Click()
If Option1.Value = True Then cind = 0
If Option2.Value = True Then cind = 1
If Option3.Value = True Then cind = 2
If Option4.Value = True Then cind = 3
If Option5.Value = True Then cind = 4
 
Select Case cind
Case 0: color = 255
Case 1: color = 65535
Case 2: color = 16776960
Case 3: color = 65280
Case 4: color = 16711680
End Select
 
If Option6.Value = True Then ind = 0
If Option7.Value = True Then ind = 1
If Option8.Value = True Then ind = 2
 
Select Case ind
Case 0: Picture1.FillStyle = 0: Picture1.FillColor = color: Picture1.Circle (0, 0), 6, color
Case 1: Picture1.FillStyle = 1: Picture1.Line (-6, -6)-(6, 6), color, B
Case 2:
        Picture1.Line (-6, -6)-(0, 6), color
        Picture1.Line (0, 6)-(6, -6), color
        Picture1.Line (6, -6)-(-6, -6), color
End Select
End Sub