I just can't get the shape for this form to display. This does display an irregularly shaped form, but the shape that should be inside it is never displayed. No errors, just don't see it. The PopupInfo form already has a property created for the laShapePoints array.

In the calling form:

WITH THIS
	.oPopUpInfoForm = CREATEOBJECT("PopupInfo")
	.oPopUpInfoForm.AlwaysOnTop = .T.
	.oPopUpInfoForm.AutoCenter = .T.

	.oPopUpInfoForm.ADDOBJECT("shpBackground", "shape")
	.oPopUpInfoForm.shpBackGround.Top = 25
	.oPopUpInfoForm.shpBackGround.Left = 25
	.oPopUpInfoForm.shpBackGround.FillStyle = 0
	.oPopUpInfoForm.shpBackGround.FillColor = RGB(171,250,173)
	.oPopUpInfoForm.shpBackGround.PolyPoints = "THISFORM.oPopUpInfoForm.laShapePoints"
	.oPopUpInfoForm.shpBackGround.Visible = .T.

ENDWITH

Then in the the INIT of the called form (PopupInfo in the class):

DIMENSION laFormPoints[9,2]

laFormPoints[1,1] = 50
laFormPoints[1,2] = 0
laFormPoints[2,1] = 400
laFormPoints[2,2] = 0
laFormPoints[3,1] = 425
laFormPoints[3,2] = 25
laFormPoints[4,1] = 425
laFormPoints[4,2] = 100
laFormPoints[5,1] = 400
laFormPoints[5,2] = 125
laFormPoints[6,1] = 50
laFormPoints[6,2] = 125
laFormPoints[7,1] = 25
laFormPoints[7,2] = 100
laFormPoints[8,1] = 25
laFormPoints[8,2] = 25
laFormPoints[9,1] = 50
laFormPoints[9,2] = 0

THIS.oTrans.SetFormUDF(THIS, @laFormPoints)

WITH THISFORM

	BumpX = 5
	BumpY = 5

	DIMENSION .laShapePoints[9,2]

	.laShapePoints[1,1] = 50  + BumpX
	.laShapePoints[1,2] = 0   + BumpY
	.laShapePoints[2,1] = 400 - BumpX
	.laShapePoints[2,2] = 0   + BumpY
	.laShapePoints[3,1] = 425 - BumpX
	.laShapePoints[3,2] = 25  + BumpY
	.laShapePoints[4,1] = 425 - BumpX
	.laShapePoints[4,2] = 100 - BumpY
	.laShapePoints[5,1] = 400 - BumpX
	.laShapePoints[5,2] = 125 - BumpY
	.laShapePoints[6,1] = 50  + BumpX
	.laShapePoints[6,2] = 125 - BumpY
	.laShapePoints[7,1] = 25  + BumpX
	.laShapePoints[7,2] = 100 - BumpY
	.laShapePoints[8,1] = 25  + BumpX
	.laShapePoints[8,2] = 25  + BumpY
	.laShapePoints[9,1] = 50  + BumpX
	.laShapePoints[9,2] = 0   + BumpY

	.oTrans.SetFormUDF(THIS, .laShapePoints)

ENDWITH