Toggle between two checkboxes on a form

I have two checkboxes on a form, ChckIBCCP and ChckOtherReferral.

Each checkbox highlights its respective textboxes and combo boxes on
the form.

Many of the highlighted textboxes and combo boxes are the same for
either checkbox selected.

Some of the highlighted textboxes and combo boxes differ depending
upon which checkbox is selected.

I am unable to toggle between the two differing effects caused by
clicking each respective checkbox.

For example when I click on the second checkbox, ChckOtherReferral,
the highlighted textboxes and combo boxes associated with clicking on
this checkbox remain highlighted even after I click on the first
checkbox, ChckIBCCP!?

Can you help me?

Here is my code if it helps?

Private Sub ChckIBCCP_Click()
Dim ctl As Control

  For Each ctl In Me.Controls
    If ctl.Tag = "Shadow1" And ChckIBCCP = True _
    And ctl.ControlType = 109 Then
        ctl.BackColor = 16777215
    ElseIf ctl.Tag = "" And ctl.ControlType _
    = acTextBox Then
    ctl.BackColor = 65535
    End If
    If ctl.Tag = "Shadow1" And ChckIBCCP = True _
    And ctl.ControlType = 111 Then
        ctl.BackColor = 16777215
    ElseIf ctl.Tag = "" And ctl.ControlType _
    = acComboBox Then
        ctl.BackColor = 65535
    End If
    If ctl.Tag = "Shadow1" And ChckIBCCP = True _
    And ctl.ControlType = 106 Then
        ctl.SpecialEffect = 4
    ElseIf ctl.Tag = "" And ctl.ControlType _
    = acCheckBox Then
        ctl.SpecialEffect = 1
    End If
   Next
End Sub


Private Sub ChckOtherReferral_Click()
Dim ctl As Control

  For Each ctl In Me.Controls
    If ctl.Tag = "Shadow1" And ChckOtherReferral = True _
    And ctl.ControlType = 109 Then
        ctl.BackColor = 16777215
    ElseIf ctl.Tag = "" And ctl.ControlType _
    = acTextBox Then
    ctl.BackColor = 65535
    End If
    If ctl.Tag = "Shadow1" And ChckOtherReferral = True _
    And ctl.ControlType = 111 Then
        ctl.BackColor = 16777215
    ElseIf ctl.Tag = "" And ctl.ControlType _
    = acComboBox Then
        ctl.BackColor = 65535
    End If
    If ctl.Tag = "Shadow1" And ChckOtherReferral = True _
    And ctl.ControlType = 106 Then
        ctl.SpecialEffect = 4
    ElseIf ctl.Tag = "" And ctl.ControlType _
    = acCheckBox Then
        ctl.SpecialEffect = 1
    End If
   Next
End Sub


Thanks!,

John