PUBLIC X X=CREATEOBJECT("FORM1") X.SHOW DEFINE CLASS form1 AS form ShowWindow = 2 DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT text1 AS textbox WITH ; Height = 23, ; Left = 108, ; Top = 72, ; Width = 100, ; Name = "Text1" ADD OBJECT check1 AS checkbox WITH ; Top = 36, ; Left = 180, ; Height = 17, ; Width = 60, ; Alignment = 0, ; Caption = "Preview", ; ControlSource = "thisform.KeyPreview", ; Name = "Check1" PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl IF nKeyCode=3 AND nShiftAltCtrl=2 MESSAGEBOX("CTRL+C","FORM") ENDIF ENDPROC PROCEDURE text1.KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl IF nKeyCode=3 AND nShiftAltCtrl=2 MESSAGEBOX("CTRL+C","TEXTBOX") ENDIF ENDPROC ENDDEFINE