vb测试图形控件shape上下左右移动定位