>The properties do not appear and disappear. Their values change appropriately as the user interacts with the application.
>
>>ActiveControl,Activeform,Activepage are phantom properties.
>>They appear and they disappear.

PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN

DEFINE CLASS form1 AS form

	DoCreate = .T.
	AutoCenter = .T.
	Caption = "SHAKESPEARE issue"
	AllowOutput = .F.
	Name = "Form1"

	ADD OBJECT text1 AS textbox WITH ;
		Height = 23, ;
		Left = 96, ;
		Top = 52, ;
		Width = 100, ;
		Name = "Text1"

	PROCEDURE Init
		CLEAR
	ENDPROC

	PROCEDURE text1.GotFocus
		IF LEN(THISFORM.Tag)>0
			?? IIF(TYPE("thisform.ActiveControl")='U'," or not to be; ","To be, ")
		ENDIF
		IF LEN(THISFORM.Tag)=10
			? "that is the question!"
		ELSE
			KEYBOARD '{TAB}' PLAIN CLEAR
		ENDIF
		THISFORM.Tag=THISFORM.Tag+'1'
	ENDPROC


	PROCEDURE text1.LostFocus
		? IIF(TYPE("thisform.ActiveControl")='U'," or not to be; ","To be, ")
	ENDPROC

ENDDEFINE