>My program is callin the Form like suggested in the thread 'Do Form With param1 To Var'
>
>Not sure how to implement your suggestion. Can you express in a small example?

I implemented msgsing between objects - this saves me the need to have anything modal, but a little too compilcated to go into here
but as for passing parameters, here is a simple example
(you can do the same with SCX based forms )

loParam=CreateObject("params")
myForm=createObject("formclass",loParam)

? loParam.nSomeValue
myForm.Show(1)
? loParam.nSomeValue

DEFINE CLASS Params as Custom
    nSomeValue=0
ENDDEFINE

DEFINE CLASS formclass as form
	oParam=.null.
	
	PROCEDURE Init
		LPARAMETERS toParam
		this.oParam=toParam
	ENDPROC

	PROCEDURE QueryUnload
		this.oParam.nSomeValue=10
		this.oParam=.null.
	ENDPROC
ENDDEFINE