PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form AllowOutput = .F. Caption = "Form1" Name = "Form1" ADD OBJECT tx1 AS textbox WITH ; Left = 14, ; Top = 11, ; Width = 100, ; Name = "TX1" PROCEDURE Activate ON KEY LABEL CTRL+F11 _SCREEN.ActiveForm.Release && bug 1+big 2 ON KEY LABEL CTRL+F12 RELEASE WINDOWS _SCREEN.ActiveForm.Name && warning 1 ENDPROC PROCEDURE Deactivate ON KEY LABEL CTRL+F11 && BUG 3 ON KEY LABEL CTRL+F12 ENDPROC PROCEDURE Release ? 'release' ENDPROC PROCEDURE tx1.GotFocus ? 'gotfocus' ENDPROC PROCEDURE tx1.When ? 'when' ENDPROC PROCEDURE tx1.Valid ? 'valid' ENDPROC PROCEDURE tx1.LostFocus ? 'lostfocus' ENDPROC ENDDEFINEbug 1: