LOCAL oForm as Form oForm = CREATEOBJECT('Form') oForm.AddObject('Grid1','Grid') WITH oForm.Grid1 .Move(20,20) .Anchor = 15 .Visible = .T. ENDWITH oForm.AddObject('Shape1','Shape') WITH oForm.Grid1 oForm.Shape1.Move(.Left-5,.Top-5,.Width+10,.Height+10) ENDWITH WITH oForm.Shape1 .BorderWidth = 5 .BorderColor = RGB(255,0,0) .ZOrder(1) .Anchor = 15 .Visible= .T. ENDWITH oForm.Show(1)hth