>DEFINE CLASS txt AS Textbox > > lHasFocus = .F. > > PROCEDURE GotFocus() > This.lHasFocus = .T. > ENDPROC > > PROCEDURE LostFocus() > This.lHasFocus = .F. > ENDPROC > >ENDDEFINE > >Thanks, that would work too. A good exercise in creating properties.