Thisform.AddProperty ('oMyClass', CreateObject ('MyClassName')) Thisform.oMyClass.AddProperty ('oMyParent', THISFORM) ... *-- In a MyClassName method THIS.oMyParent.Caption = "Test"Be very careful of releasing the pointer (MyClassName.oMyParent) before releasing the parent form. You can use this code in the Destroy event of the form to assure this:
THIS.oMyClass.oMyParent = NULLHTH
>Thisform.AddProperty('oMyClass', CreateObject('MyClassName') >>