IF this.WindowState #  1 
	this.prevstate = this.WindowState 
ENDIF

PROCEDURE DoForm

	LPARAMETERS lcFormName, lcPar, lcRet
	
	IF WEXIST(lcFormName)
		ACTIVATE WINDOW &lcformname
		IF _screen.activeform.windowstate =  1 
			_screen.activeform.windowstate = IIF(VARTYPE(_screen.activeform.prevstate) # 'U', ;
												_screen.activeform.prevstate,  0 )
		ENDIF 
		RETURN .t.
	ELSE 
		IF VARTYPE(lcPar)='C'
			IF VARTYPE(lcRet)='C'
				DO FORM (lcFormName) WITH &lcPar TO &lcRet
			ELSE 
				DO FORM (lcFormName) WITH &lcPar
			ENDIF 	
		ELSE
			IF VARTYPE(lcRet)='C' 
				DO FORM (lcFormName) TO &lcRet
			ELSE 
				DO FORM (lcFormName)
			ENDIF 	
		ENDIF 	

		RETURN .f. 	
	ENDIF 

ENDPROC