_SCREEN.AddProperty("Development", NOT VERSION(2) = 0) * Or force it here. * _SCREEN.Development = .T. && Normal for running from VFP Command Window. * _SCREEN.Development = .F. && Normal for Runtime and testing as if in Runtime. * For Testing....Development does NO ERROR method and NO READ EVENTS * Run you App Form here. DO FORM MyApp IF NOT _SCREEN.Development AND VARTYPE(m.ThisApp) = "O" * This puts the application in the call stack and allows us to put * all the general Error handling code in the Error method of the ReadEvents * object that gets created in the ReadEvents method. ThisApp.ReadEvents() RELEASE ThisApp && This releases the variable and causes the destroy to run. ENDIF RETURN * snipped from the App Form's Load. IF VARTYPE(m.ThisApp) = "U" PUBLIC ThisApp ENDIF ThisApp = This && Public variable to access the Application object. * You can do a PRIVATE ThisApp in the Main.PRG if desired.The App object should not become a blob. The Form's only messaging to the App is to tell it to Refresh, and a return a few global properties.