Checkboxes and Shadowing, Unshadowing, Highlighting

I have a main form containing 2 checkboxes.

The respective checkboxes when checked cause the SepcialEffect
Property to make all the textboxes to appear Shadowed.

1)Although the Textboxes and Combo Boxes required to appear Shadowed
are almost the same regardless of the checkbox that is checked how do
I cause individual textboxes to appear Flat?

2)How do I cause the Textboxes and Combo Boxes to highlight upon
checking the respective checkbox?

Here is my code:

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.SpecialEffect = 4
    ElseIf ctl.Tag <> "Shadow1" And ctl.ControlType _
    = acTextBox 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.SpecialEffect = 4
    ElseIf ctl.Tag <> "Shadow1" And ctl.ControlType _
    = acTextBox Then
        ctl.SpecialEffect = 1
    End If
  Next


End Sub

Thanks,
John