Option Button Help , I'm a Gr.10 Student

Hey, I'm a Grade 10 student for VB 6.0,
For my project i am making a quiz. I can check if the answer is correct
or wrong automatically and assing points and deduct points with list
boxes. so the user click on a list box to answer a questions. to have
more variety i wanted to have option button and check boxes to be
available for the user to use while answering the questions. this will
alllow me to change the nature of my questions.

intRandom will go upto 2
'then it will choose one of the 2 questions to ask the usre

Select Case intRanom
Case 1
lblQuestions.caption = "Who is in that picture?"
picPerson (app.Path.. CONTINUED...
Case 2
lblQuestions.caption = "What countries flag is that?"
picPerson (app.Path.. CONTINUED...
End Select

that will allow it to enter the question in the label and make it
random. so if int random is 1 than
it will show the first questions and it will show a picture in a
picPerson Picture Box. So for the answer of this i will say if the
first question pops up the answer should be option button 1 or what
ever option button i want to choose.


NOW THE QUESTION IS HOW WILL it test if the asnwer is correct.. read
below its my actual code for testing for the correct answer with list
boxes please help me asap.. thanks
If you still dont understand my question please feel free to contact me


-----------------------------------------------------------------------------------------------------------------------------------------------
Private Sub Form_Load()

Randomize

intRandom = Int(Rnd * 3) + 1

lblScore.Caption = "Your Current Score is :" & intScore


Select Case intRandom
Case 1
imgActor.Picture = LoadPicture(App.Path & "\Elvis.jpg")
lstAnswer.AddItem ("Elvis Presley")
lstAnswer.AddItem ("Geroge Lucas")
lstAnswer.AddItem ("Hobo Joe")
Case 2
imgActor.Picture = LoadPicture(App.Path & "\Hamza.jpg")
lstAnswer.AddItem ("Jackie Chan")
lstAnswer.AddItem ("Hamza Hamid")
lstAnswer.AddItem ("Avril Lavigne")
Case 3
imgActor.Picture = LoadPicture(App.Path &
"\JessicaAlba.jpg")
lstAnswer.AddItem ("Jackie Chan")
lstAnswer.AddItem ("Owen Wilson")
lstAnswer.AddItem ("Jessica Alba")
End Select

End Sub

Private Sub lstAnswer_Click()
Dim strAnswer As String

strAnswer = lstAnswer.List(lstAnswer.ListIndex)

Select Case intRandom
Case 1
If strAnswer = "Elvis Presley" Then
MsgBox "Correct Answer!"
intScore = intScore + 10
lblScore.Caption = "Your Current Score is :" & intScore
Else
MsgBox "Incorrect Answer"
intScore = intScore - 5
lblScore.Caption = "Your Current Score is :" & intScore
End If
frmEntertainmentQ2.Hide
Case 2
If strAnswer = "Hamza Hamid" Then
MsgBox "Correct Answer!"
intScore = intScore + 10
lblScore.Caption = "Your Current Score is :" & intScore
Else
MsgBox "Incorrect Answer"
intScore = intScore - 5
lblScore.Caption = "Your Current Score is :" & intScore
End If
frmEntertainmentQ2.Hide
Case 3
If strAnswer = "Jessica Alba" Then
MsgBox "Correct Answer!"
intScore = intScore + 10
lblScore.Caption = "Your Current Score is :" & intScore
Else
MsgBox "Incorrect Answer"
intScore = intScore - 5
lblScore.Caption = "Your Current Score is :" & intScore
End If
frmEntertainmentQ2.Hide
End Select

End Sub