Denis,
Should work anyways, right?
loForm = Createobject('myForm')
loForm.Show(1)
define class myForm as Form
add object oShape as myShape with left = 1, top = 1, width = 30, height = 30
enddefine
define class myShape as Shape
procedure click()
this.BackColor = Getcolor(this.BackColor)
endproc
enddefine
"The five senses obstruct or deform the apprehension of reality."
Jorge L. Borges?
"Premature optimization is the root of all evil in programming."
Donald Knuth, repeating C. A. R. Hoare
"To die for a religion is easier than to live it absolutely"
Jorge L. Borges