Hello Rick

Thanks for your reply.
After some changes i solve my problem like this:

PUBLIC oManipulador as Manipulador

* - Instancia o objeto manipulador
oManipulador = CREATEOBJECT("Manipulador")

* - Associa o método oManipulador.Onlick com o método Click da _Screen
BINDEVENT(m.ObjRecebido.Janela.painelfundo.page1.obj1,"Rightclick",oManipulador,"OnDClick")
BINDEVENT(m.ObjRecebido.Janela.painelfundo.page1.obj1,"click",oManipulador,"OnClick")

*-- Manipulador - Classe que manipulará o evento
DEFINE CLASS Manipulador AS Custom
PROCEDURE OnDClick
MESSAGEBOX("Você clicou no RightClick")
SFT.imprimir.Rightclick()
ENDPROC

PROCEDURE OnClick
MESSAGEBOX("Você clicou no Click")

IF ft.anulado = .F.

SFT.Imprimir.click

Text to msel textmerge noshow
select Isnull(ft2.assinatura,'') as Assinatura from ft2 where ft2.ft2stamp = ?ft.ftstamp
Endtext

IF u_sqlexec(msel,[_Assinou])
Select _Assinou
IF Len(Alltrim(_assinou.Assinatura)) > 0
msg("ok, vou enviar Email")
Else
msg("não faço nada")
Endif
Endif
Else
msg("Este documento foi anulado, logo não irei enviar Certificad0..!!")

SFT.Painelfundo.Page1.Obj2.click
SFT.imprimir.click
Endif

ENDPROC
ENDDEFINE

Best regards
Luis Santos