I´m trying to do a Backup not attended.

I have this class:

*-- hansqldmo.PRG

DEFINE CLASS hndBackup as Session
IMPLEMENTS BackupSink IN "sqldmo.backup"

PROCEDURE BackupSink_Complete(cmessage as String) as long

PROCEDURE BackupSink_PercentComplete(cmessage as String, percent as Long) as long

PROCEDURE BackupSink_NextMedia(cmessage as String) as long

ENDDEFINE

and my test program are :

SET PROCEDURE TO clas/hansqldmo.PRG
RELEASE h
RELEASE o
o = CREATEOBJECT("sqldmo.backup")
h = CREATEOBJECT("hndbackup")

? EVENTHANDLER(o,h,.t.)
+

EVENTHANDLER() return always .F.

What is wrong in this code.

Regards,
José Luis.