>Hi,
>
>Is the following code is what you mean ? But I don't know where the code should put into.
>
>

>*** Create the Parameter object
>oParamObj  = CREATEOBJECT( 'parameterobject' )
>*** Instantiate the modal form
>oModalForm = CREATEOBJECT( 'modalformclass', oParamObj )
>*** Check the returned object properties
>IF oParamObj.FormWasOK
>  *** Do whatever 
>ELSE
>  *** Do something else
>ENDIF
> 
>
>

>Can you give me some detail example how to use it ?
>
>Thanks
>
>Derek
Before calling the form

oParamObject = createobject('Empty')

Form's Init

lparameters toParam
thisform.oParam = toParam

Somewhere where you need to set the property.

addproperty(thisform.oParam, 'SelectedCustomer', thisform.txtCustomer.value)

In the calling form:

if pemstatus(oParamObject, 'SelectedCustomer',5)
   lcCustomer = oParamObject.SelectedCustomer
endif