LOCAL ; SaveInPath, ; VcxName, ; ClassName SaveInPath = GetPath("TEMP", .T.) VcxName = SUBS(SYS(2015), 2) + ".vcx" ClassName = "MSChartTempClass" THISFORM.Pageframe1.ReportGraph_Page.Chartarea1.SAVEASCLASS(SaveInPath + VcxName, ClassName, "") THISFORM.VISIBLE = .F. THISFORM.WINDOWSTATE = 0 FullSizeDisplay = NEWOBJECT("FullSizeDisplay", THIS.CLASSLIBRARY) set classlib to (SaveInPath + VcxName) addi *FullSizeDisplay.NEWOBJECT(ClassName, ClassName, (SaveInPath + VcxName)) FullSizeDisplay.AddOBJECT(ClassName, ClassName) FullSizeDisplay.LOCKSCREEN = .T. FullSizeDisplay.VISIBLE = .T. FullSizeDisplay.oCallingForm = ThisForm FullSizeDisplay.&ClassName..TOP = 0 FullSizeDisplay.&ClassName..LEFT = 0 FullSizeDisplay.&ClassName..WIDTH = FullSizeDisplay.WIDTH FullSizeDisplay.&ClassName..HEIGHT = FullSizeDisplay.HEIGHT FullSizeDisplay.&ClassName..VISIBLE = .T. FullSizeDisplay.LOCKSCREEN = .F. FullSizeDisplay.SHOW(1) * *** clean up FullSizeDisplay = .NULL. RELEASE CLASSLIB (SaveInPath + VcxName) * *** for some reason the delete command * *** errors "file in use" *clear CLASSLIB (SaveInPath + VcxName) DELETE FILE (SaveInPath + VcxName) DELETE FILE (SaveInPath + JUSTSTEM(VcxName) + ".vct") THISFORM.VISIBLE = .T.thanks for all your help!