Writing a sub to change controls

[IanHem]

I have a form with 10 text boxes on it.
depending on a Case

i would like to change the special effect and backcolor

select case colour()
case red

Me.Txt1.specialeffect = 1
Me.Txt1.backcolor = RGB(256,256,256,)

case green
etc

I'm trying to write something so that i can apply both these settings to any text box easily.

Any help is much appreciated.

 

[Mihail]

I think that a better way is to us the Optional Format.