BuildObject Method Example

The following example adds a Rectangle to the PictureTestPicture.

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