x=createobject('login') x.show() debug read events define class login as form frmDM = null procedure init frmDM = createobject('datamanager') && nowhere in sight!!! endproc enddefine *-- business object define class datamanager as form datasession = 2 visible = .F. enddefine *--- this works though but this is not how I need it to be (not encapsulated) y=createobject('datamanager') x=createobject('login') x.show() debug read events