WITH NEWOBJECT("form1") .Show(1) ENDWITH DEFINE CLASS form1 AS form Desktop = .T. AutoCenter = .T. Caption = "EveryTime centered" ADD OBJECT system AS olecontrol WITH ; OleClass = "SYSINFO.SysInfo.1" PROCEDURE system.DisplayChanged ThisForm.Autocenter = m.ThisForm.Autocenter ENDPROC ENDDEFINE