oM = newobject('MyObject')
oM.Show()
define class MyObject as form
	name = "MyObject"
	oThis = .NULL.
	procedure oThis_access
		return This
	endproc
	procedure RThis
		return This
	endproc
	procedure Show
		wait window this.oThis.name
		wait window this.RThis.name
	endproc
enddefine