Commit Method Example

The following example creates a Rectangle iRect, customizes it, then commits these changes.

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