_screen.Visible = .f. Clear Program Release All Close Databases All Set Resource Off Set Century On Set Mark to "." Set Date to ANSI Set Deleted Off Set MultiLocks On Set Escape On Set Optimize On Set Refresh to 0,0 Set Talk Off Set View Off Set ANSI Off Set Safety Off Set TRBetween On Set Currency Left Set Currency to "$" Set Hours to 12 Set Decimals to 2 Set FDow to 1 Set FWeek to 1 Set Mark to "." Set Separator to "," Set Point to "." Set Notify Off Set Compatible Off Set Bell On Set Escape On Set LogErrors On Set Carry Off Set StrictDate to 1 Set Exact Off Set Near On Set ANSI Off Set Lock On Set Exclusive Off Set MultiLocks On Set Headings On Set Deleted Off Set Optimize On Set Unique Off Set BlockSize to 64 Set Reprocess to 0 Set Collate to ""I make some API references, have some case logic and then I do
_vfp.AutoYield = .f. && For an ActiveX control to behave Do Form mainappform Read Events Clear Read _vfp.AutoYield = .t. && For an ActiveX control to behave Close Tables All Close Databases All Release oApp oApp = .Null. Release oErrorHandler oErrorHandler = .Null. Quit Cancel