>Public oFormRef As Object > >m.oFormRef = CreateObject( [FirstLevelSubclass] ) >With m.oFormRef > > .Caption = [Instance of First Level Subclass with AutoCenter False] > .Width = Len(.Caption)*Fontmetric(6) > .AutoCenter = .F. > .Show() > >EndWith && This > >Return .T. > >Define Class FirstLevelSubclass AS MyHighestFormClass > > * AutoCenter is not changed from default > Name = [FirstLevelSubclass] > >EndDefine > >Define Class MyHighestFormClass AS Form > > Name = [Myhighestformclass] > AutoCenter = .T. > >EndDefine