PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show DOEVENTS oForm1.Width = oForm1.Width + 10 DEFINE CLASS form1 AS form Caption = "bug: a access to Width fire a Assign !" allowOutput = .f. ADD OBJECT txt1 as textbox WITH anchor=15 PROCEDURE txt1.Width_assign LPARAMETERS vNewVar ? "Assigning Text1 Width." This.Width = vNewVar ENDPROC ENDDEFINE