* utDemo (terry) PUBLIC theform theform=CREATEOBJECT([aForm]) theform.show DEFINE CLASS aform as form caption=[Double Click Image Demo] autocenter=.t. visible=.t. PROCEDURE release this.queryunload ENDPROC PROCEDURE queryunload CLEAR EVENTS ENDPROC ADD OBJECT theImage as anImage ENDDEFINE DEFINE CLASS anImage as Image PROCEDURE init this.Width=thisform.width/2 this.Height=thisform.height/3 this.Top=(thisform.height-this.height)/2 this.left=(thisform.width-this.Width)/2 visible=.t. ENDPROC PROCEDURE dblclick MESSAGEBOX([Image was Double CLicked],0,[Image DBLCLICK]) ENDPROC ENDDEFINE