public oObject oObject = createobject('MyRoom') if type('oObject') == "O" oObject.Visible = .T. else wait window "No Object" endif define class MyRoom as form procedure Init this.addobject('MyDetector','Detector') this.MyDetector.visible = .T. enddefine define class Detector as Shape Top = 20 Left = 20 procedure click wait window "You clicked me!" endproc enddefine