VB shape控件的拖动问题
窗体上有个shape1（0），我用load shape1（i）的方法添加了10个shape，但是都不能拖动，现在呢我想把每个灯都拖到窗体预定的位置，关闭保存，再打开就是拖动之后的效果。
[解决办法]
shape控件没有事件，无法拖动，只能用move方向或top,left,width,height属性设置它的位置。可以在shape的容器控件中用mousedown,mousemove,mouseup事件实现shape的拖动
