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 EnddefineCetin