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