Checkboxes affecting other controls

[zufie]

I have a main form containing 2 checkboxes, ChckIBCCP and
ChckOtherReferr al

The respective checkboxes when checked cause the SpecialEffect
Property to make ALL the textboxes to appear Shadowed.

The specific Textboxes and specific Combo Boxes required to appear
Shadowed
are ALMOST the same in number regardless which checkbox is checked.

However, there is one Textbox on the main form that must appear Flat
when ChckIBCCP is
checked, but must appear Shadowed when ChckOtherReferr al is checked.

AND However, there are three Textboxes and two Combo Boxes on the main
form that must appear Flat when ChckOtherReferr al is checked, but must
appear Shadowed when ChckIBCCP is checked.

1)How 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?

Thanks,

John

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


Private Sub ChckOtherReferr al_Click()
Dim ctl As Control


For Each ctl In Me.Controls
If ctl.Tag = "Shadow1" And ChckOtherReferr al = True _
And ctl.ControlType = 109 Then
ctl.SpecialEffe ct = 4
ElseIf ctl.Tag <"Shadow1" And ctl.ControlType _
= acTextBox Then
ctl.SpecialEffe ct = 1
End If
Next


End Sub