PUBLIC oform1 oform1=CREATEOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form Name = "Form1" ADD OBJECT text1 AS textbox WITH ; Left = 36, ; Top = 60, ; Name = "Text1" ADD OBJECT text2 AS textbox WITH ; Left = 36, ; Top = 108, ; Name = "Text2" PROCEDURE text1.GotFocus on key label alt+f _screen.activeform.activecontrol.backcolor = rgb(255,0,0) ENDPROC PROCEDURE text1.LostFocus on key label alt+f ENDPROC ENDDEFINE