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