Commit 方法示例

下列示例创建一个矩形iRect，对其进行自定义，然后进行这些修改。

Dim iRect As Object

Set iRect = TestPicture.BuildObject("Rect")

iRect.HorizontalPosition = 10.0

iRect.VerticalPosition = 30.0

iRect.EdgeWidth = 5

iRect.FillStyle = 1

iRect.Commit