>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 :-)