>I'd like to add a double click event to my image control. This control has been created using the thisform.addobject.
>
>How can I do this?

* 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