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