* Valid
IF LASTKEY() = 13
  RETURN NOT EMPTY(This.Value)
ENDIF

>
>I want to execute following procedure for text1
>I have following codes on keypress event
>
>

>Do Case
>Case m.nkeycode == 27
>
>	Nodefault
>	Thisform.themedtitlepageframe1.themedtitlepage15.ZOrder(0)
>	Thisform.themedtitlepageframe1.Visible= .F.
>
>Case m.nkeycode == 13
>
>	If Empty(This.Value)
>		Return.F.
>	Else
>		Return.T.
>	ENDIF
>	
>Endcase
>

>
>In second case means Case m.nkeycode == 13
>return.f. or return.t. does not work