Moving objects
 

Hi,
I have a macro that draws shapes in certain places. After the shapes
are in place, the user has to be able to move the shapes. When the user
is done with that, the macro has to see where the shape is and
calculate some things.
The I can start a routine when the user clicks on one of the shapes,
and see which shape it is (application.caller). But then I have to let
the user move the object and when he (or she) is finished and deselects
the shape in question, the routine must calculate the place. This is
where it went wrong. The best I came up with is something like:

do until sh.left < 50
DoEvents
loop

This works, but instead the "sh.left < 50" there should be something
like "sh < selection", but this does not exists.
Maybe there is an other command, or another way how to solve this
problem.

I hope somebody can help me, I've been puzzling quite a lot on this
one.

Jzz