use employee >oForm=createobject('backcolorbug') >oForm.Show >Read events > >Define CLASS backcolorbug AS form > Top = 0 > Left = 0 > Height = 296 > Width = 558 > ShowWindow = 2 > DoCreate = .T. > Caption = "Form1" > Name = "Form1" > Add OBJECT grid1 AS grid WITH ; > Height = 200, Left = 36, TabIndex = 3, Top = 12, ; > Width = 320, Name = "Grid1" > > Add OBJECT shape1 AS shape WITH ; > Top = 12, Left = 36, Height = 201, Width = 24, BackStyle = 0, ; > BorderStyle = 0, BackColor = RGB(0,255,0), Name = "Shape1" > > Add OBJECT text1 AS textbox WITH ; > Left = 24, TabIndex = 4, Top = 264, Name = "Text1" > > Add OBJECT text2 AS textbox WITH ; > Left = 156, TabIndex = 1, Top = 264, Name = "Text2" > > Add OBJECT text3 AS textbox WITH ; > Left = 288, TabIndex = 5, Top = 264, Name = "Text3" > > Add OBJECT text4 AS textbox WITH ; > Left = 420, TabIndex = 2, Top = 264, Name = "Text4" > > Add OBJECT command1 AS commandbutton WITH ; > Top = 204, Left = 372, Height = 27, Width = 84, ; > Caption = "Command1", Name = "Command1" > > Procedure command1.Click > Thisform.Setall('Enabled',!thisform.text1.Enabled, 'Textbox') >Endproc > > Procedure QueryUnLoad > Clear events >Endproc >Enddefine >Cetin