Create a textbox class as follows:
DEFINE CLASS txt AS Textbox
lHasFocus = .F.
PROCEDURE GotFocus()
This.lHasFocus = .T.
ENDPROC
PROCEDURE LostFocus()
This.lHasFocus = .F.
ENDPROC
ENDDEFINE
Everything makes sense in someone's mind
public class SystemCrasher :ICrashable
In addition, an integer field is not for irrational people