可以设置一个循环，比如；^^^^^^^^^^dim i as singlefor i=0 to form1.scalewidth step 0.02 commond.move inext^^^^^^^^^^
