Создание простого теста для VB!

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

Народ помогите, голова уже не варит!! Надо сделать тест с использованием простых комманд! 10 вопросов(Label) и 4 варианта ответов(OptionButton), правильные ответы я поставил первыми! При нажатии завершить тест, в двух текстовых окнах((1)правильные, (2)неправильные) появляется результат в цифрах. Код должен быть простой, скорее всего массивами!

null

Вот что-то поделал но голова не варит!!

                    Листинг программы
                
 
                        
                          
                    
Dim i As Integer
Dim z As Integer
Private Sub Command1_Click()
If Option1.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
If Option5.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
If Option9.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
If Option13.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
If Option17.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
If Option21.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
If Option25.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
If Option29.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
If Option33.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
If Option37.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
End Sub
 
Private Sub Form_Load()
txtprav.Text = i
txtneprav.Text = z
End Sub

Решение задачи: «Создание простого теста для VB!»

textual
                            Листинг программы 
                        
 MsgBox ("Правильно: i Неправильно: 10-i")