Hi Peter,

Try this:

WITH THISFORM
	IF .UseInternal
		.pgf1.ACTIVEPAGE=4
		WITH .pgf1.page4
			if pemstatus(THISFORM.pgf1.page4,"o1",5)
 			   THISFORM.pgf1.page4.RemoveObject("o1")
                  endif

 		      .NEWOBJECT("o1","cntClaimantPage","modules\vCPR3b")
			.o1.VISIBLE=.T.
		ENDWITH

But you can use TYPE() function:

if TYPE("THISFORM.pgf1.page4.o1.name")="C"
   THISFORM.pgf1.page4.RemoveObject("o1")
endif

MartinJ

>I need to add an object at runtime. How can I find out if the object already exists?
>The way I use pemstatus does not seem to work, neither does TRY/ENDTRY as below
>
>
>

>WITH THISFORM
>	IF .UseInternal
>		.pgf1.ACTIVEPAGE=4
>		WITH .pgf1.page4
>			try
>				THISFORM.pgf1.page4.RemoveObject("o1")
>			CATCH
>			ENDTRY
>			.NEWOBJECT("o1","cntClaimantPage","modules\vCPR3b")
>			.o1.VISIBLE=.T.
>		ENDWITH
>
>

>
>
>Thanks
>
>P