Shape OnClick Event?

[TheInsider]

Hi,

I created a VBA form that I want to pop up whenever a shape is clicked on. This VBA form also has a public property (strNameU), so I can pass the form the NameU (the unique name) of the shape that is being clicked on

i.e.

    frmOptions.Show
    frmOptions.strNameU = ""

Unfortunately, there doesn't seem to be a VBA event like Shape_OnClick() in Visio, and setting =RUNADDON("frmOptions.Show") in the ShapeSheet Events cell doesn't do anything.

Is this possible? If so, how?

TIA!