>Your help is greatly appreciated.
>
>Thanks again.
>
>Pascal
Pascal,
One note about that class. It does all of its job in init. So if later caption changes "shadow" should change. In class designer select class\add new method and add a custom method ie:CapChange with code :

lparameters tcNewCaption
this.caption = tcNewCaption
with evaluate("this.parent."+this.name+"shadow")
  .caption = tcNewCaption
endwith

So in code when you need to change caption :
*Instead of :
thisform.lblSahdowText1.caption = "Newcaption"
* You would call
thisform.lblSahdowText1.CapChange("Newcaption")
Cetin