Private Sub UserControl_Click()
Dim i As Integer
Dim P As Object
Dim ctl As Control
 
    RaiseEvent Click
    Set P = UserControl.Parent
    For Each ctl In P
        If TypeOf ctl Is ctlOption Then
            ctl.Value = False
        End If
    Next
    Value = True
end Sub