>Bind a memo expression with NULL value destroy VFP
>
>

>PUBLIC oform1
>
>oform1=NEWOBJECT("form1")
>oform1.Show
>
>DEFINE CLASS form1 AS form
>
>	egb = (CAST(NULL AS M))	&& CAST TO M
>
>	ADD OBJECT edit1 AS editbox WITH ;
>		ControlSource = "(THISFORM.EGB)"	&& FORCE A () EXPRESSION
>*		ControlSource = "(CAST(NULL AS M))"  && DIRECT WAY
>ENDDEFINE
>

UPDATE: I didn't notice your comment FORCE A () EXPRESSION :-)