BumpX = 5 BumpY = 5 DIMENSION laShapePoints[5,2] laShapePoints[1,1] = 0 + BumpX laShapePoints[1,2] = 0 + BumpY laShapePoints[2,1] = 1 - BumpX laShapePoints[2,2] = 0 + BumpY laShapePoints[3,1] = 1 - BumpX laShapePoints[3,2] = 1 - BumpY laShapePoints[4,1] = 0 + BumpX laShapePoints[4,2] = 1 - BumpY laShapePoints[5,1] = 0 + BumpX laShapePoints[5,2] = 0 + BumpY frmMyForm = CREATEOBJECT('Form') frmMyForm.Width = 220 frmMyForm.Height = 110 frmMyForm.AddObject('shpIrregular','Shape') frmMyForm.shpIrregular.Top = 0 frmMyForm.shpIrregular.Left = 0 frmMyForm.shpIrregular.Width = 410 frmMyForm.shpIrregular.Height = 400 frmMyForm.shpIrregular.FillStyle = 0 frmMyForm.shpIrregular.FillColor = RGB(0, 255, 255) frmMyForm.shpIrregular.PolyPoints = "laShapePoints" frmMyForm.shpIrregular.Visible = .T. frmMyForm.Show(1)