responding to option.checked in a user control ?

[news.microsoft.com]

I have a user control with four option buttons depending which option button
is pressed I store a score into session object. On the load event of a
control the session object is set to 0. There is an optionchecked handler
that handles option1.checked ,option2,checke d etc . This is supposed to
update the sessionobject with a score ie 100

A beak point on the handler shows it is never reached. when this control is
placed on a page

Any idea what I have to do to get the current score from the control.

What I am after is a for each instance of the control on the page, add up
the score to produce a total score.

code of the control is:

any assistance would be appreciated ?

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load

'as this is multiple choice there is one question with up to four possible
answers

'Each answer has a score assigned to it

'when the question is anwered the total score is calculated for the question
and

'returned in the total Score property for the question

Session("TotalS cored") = 0



End Sub

#Region "Properties "

Property QuestionID()

Get

End Get

Set(ByVal Value)

End Set

End Property

Property question()

Get

End Get

Set(ByVal Value)

End Set

End Property

Property Answer1()

Get

End Get

Set(ByVal Value)

End Set

End Property

Property Answer2()

Get

End Get

Set(ByVal Value)

End Set

End Property

Property Answer3()

Get

End Get

Set(ByVal Value)

End Set

End Property

Property Answer4()

Get

End Get

Set(ByVal Value)

End Set

End Property

Property Score1()

Get

End Get

Set(ByVal Value)

End Set

End Property

Property Score2()

Get

End Get

Set(ByVal Value)

End Set

End Property

Property Score3()

Get

End Get

Set(ByVal Value)

End Set

End Property

Property Score4()

Get

End Get

Set(ByVal Value)

End Set

End Property

Property TotalScored()

Get

End Get

Set(ByVal Value)

End Set

End Property

#End Region

'Private Sub btnOK_Click(ByV al sender As System.Object, ByVal e As
System.EventArg s) Handles btnOK.Click

' TotalScored = _Score1 + _Score2 + _Score3 + _Score4

' Me.Visible = False

'End Sub

Private Sub Option_CheckedC hanged(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles Option1.Checked Changed, Option2.Checked Changed,
Option3.Checked Changed, Option4.Checked Changed

Session("TotalS cored") = Session("TotalS cored") + 100

End Sub