CREATE CLASS myShape OF myShape.vcx as Shapeand 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.