不行，控件的名称不能用变量代替，但是你可以把控件做成控件组，index 从0到3，就可以写成for i =0 to 2if shape1(i).left=x thenshape1(3).left=shape1(3).left-10end if next
