Hi Ron,
if you want bypass shape, and control click at form level, disable it:

thisform.AddObject("shape1", "shape")
WITH thisform.shape1
.top = 10
.left = 15
.height = 8
.width = 8
.backcolor = RGB(64,0,64)
.visible = .t.
.enabled = .F.
ENDWITH

But for a bunch of squares the correct implementation is:
- define a myShape class
- add to the form a property array
- add to the form the bunch of squares with array name,
this share the methods code.

thisform.Addproperty("Shapes[ShapeCount]",NULL)
..... loop start
 thisform.AddObject("Shapes["+LTRIM(STR(m.k))+"]","myShape",tableParametersforTheShape)
..... loop end

Fabio