Glad to help.

>Hi naomi,
>
>super !
>Your code is very good.
>
>It is very kind of you
>
>
>bernhart
>
>

>LPARAMETERS locontainer
>
>LOCAL loObjet ,;
> loControl
>* 07/2009 UT NAOMI
>*----------------------------------------------------------------------------
>*----------------------------------------------------------------------------
>FOR EACH loObjet IN locontainer.OBJECTS FOXOBJECT
> *---------------------------------------------------------------------------
> IF PEMSTATUS( loObjet, 'OBJECTS',5 )
>  THIS.bindeventgotfocus( loObjet )
> ELSE
>  *--------------------------------------------------------------------------
>  IF PEMSTATUS( loObjet,'GotFocus',5)
>   BINDEVENT( loObjet ,"GotFocus" , THIS, "GotFocusForChildObject" , 0 )
>  ENDIF  && PEMSTATUS( loObjet,'GotFocus',5)
>  *--------------------------------------------------------------------------
> ENDIF && PEMSTATUS( loObjet, 'OBJECTS',5 )
> *---------------------------------------------------------------------------
>ENDFOR
>*---------------------------------------------------------------------------
>*---------------------------------------------------------------
>
>

>
>
>
>.