Hi James,
I have done what you told me,but new problem appears. When I drag my custom shape from palette to model, it Create a "Shape" object in it not my Custom Shape. Because I have add a mouse double click handler for MyShape,and pass this message from model mousedoubleclick to it. But In the mousedoubleclick handler of model,I get an error of "can't conver shape to myShape". My code is:
dim myShape as MyShape
myshape = selElements.Item(0) ' this cause error msg because of can't convert
myshape.onDoubleClick(e)
Thanks for your Help!
Jam