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. ENDWITHBut you can use TYPE() function:
if TYPE("THISFORM.pgf1.page4.o1.name")="C" THISFORM.pgf1.page4.RemoveObject("o1") endifMartinJ
>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 > >>