local oForm oForm = Createobject('myForm') oForm.show READ event return *---------------- Define Class myForm As Form Procedure Init this.AddObject("image1","Image") WITH this.image1 .visible=.t. .picture="c:\image010.gif" .left=1 .top=1 ENDWITH ON KEY LABEL ALT+t oForm.image1.visible=.t. ON KEY LABEL ALT+f oForm.image1.visible=.f. Endproc Procedure Destroy ON KEY LABEL ALT+t ON KEY LABEL ALT+f CLEAR EVENTS Endproc Enddefine>Sorry !!!