loForm = NEWOBJECT("myForm") loForm.Show(1) DEFINE CLASS myForm AS Form DoCreate = .T. Name = "Form1" ADD OBJECT shape1 AS shape WITH ; Top = 33, ; Left = 71, ; Height = 176, ; Width = 268, ; PolyPoints = "thisform.aPoints", ; Name = "Shape1" PROCEDURE Load this.AddProperty('aPoints(1)') DIMENSION this.aPoints[4,2] lnScale = 1 && Change to 0.33333 for a second run and to 2 for a third this.aPoints[1,1] = 0 * lnScale this.aPoints[1,2] = 0 * lnScale this.aPoints[2,1] = 100 * lnScale this.aPoints[2,2] = 0 * lnScale this.aPoints[3,1] = 100 * lnScale this.aPoints[3,2] = 100 * lnScale this.aPoints[4,1] = 0 * lnScale this.aPoints[4,2] = 100 * lnScale ENDPROC ENDDEFINE