You can try creating a custom class, say myShape, in a Class Library

CREATE CLASS myShape OF myShape.vcx as Shape

and add some code to it's Click event.

Thisform.Click( this.name )

Then, in the routine that creates the blocks, change the CreateObject()

thisform.NewObject("myShape","myShape.vcx")

Then, in the Form's Click event, add the parameter of "cShapeName" to catch the Shape's name we are passing it from the shape's Click event.

LPARAMETER cShapeName

Hope this helps.