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 >Thanks Ken... but I was trying to get away from the ON KEY's (that we have now) and go to a more OOP approach. I was tired of PUSHing and POPping keys, etc.