Shape 属性形状控件Shape

返回或设置一个值，该值指示一个 Shape 控件的外观。
语法
object.Shape [= value]
Shape 属性的语法包含下面部分：
部分 描述
Object 对象表达式，其值是“应用于”列表中的一个对象。
Value 用来指定控件外观的整数，“设置值”中有详细描述。


设置值
value 的设置值为：
常数 设置值 描述
VbShapeRectangle 0 （缺省值）矩形
VbShapeSquare 1 正方形
VbShapeOval 2 椭圆形
VbShapeOval 3 圆形
VbShapeRoundedRectangle 4 圆角矩形
VbShapeRoundedSquare
 


Private Sub Command1_Click()
For I = 1 To 5
'Shape1(I).Left = Shape1(I - 1).Left + 1000
Shape1(I).Shape = I
Shape1(I).FillStyle = I + 2
CurrentX = CurrentX + 850
Print I;
Next
End Sub