请问木瓜老师 zip 和回调 SetVFPEvents() 获取进度的用法

请教木瓜老师 zip 和回调 SetVFPEvents() 获取进度的用法
调用木瓜老师 的 ZIP 压缩文件，回调 SetVFPEvents() 获取进度。看了很久帮助了，还是搞不懂，哪位老师能帮我写一下，先谢了！
------解决思路----------------------
MyFll.fll 帮助中有例子的，只不过是发送邮件的例子，和Zip的例子综合一下即可：
Clear

Set Library To D:\MyTest\myfll
SetVfpEvents("test()",1)&&这里先设置回调，在发邮件过程中，会调用test函数 
*!* a1=Datetime()
?Zip("d:\att2000.mdb","d:\test1.zip")
*!* ?a1,Datetime()

Procedure test
Lparameters a,b,c,d
    ?"当前ID",a ,"已压缩字节："  ,b ,"总大小字节：",c ,"附加参数：", d
    Return .t.
EndProc