>>>Have you heard zlibtools (http://web2.airmail.net/markn/articles/zlibtool/zlibtool.htm), it haven't try >>How do you use it?
>>

I have tried some many different ways:

*!* xyz=createobject('')
*!* xyz=createobject('zlib.application')
*xyz.inputfile="XXXX"

xyz=createobject("xxx")

DEFINE CLASS XXX AS olecontrol <-- this works fine
OleClass="ZLIBTOOL"
inputfile ="program1.prg"
outputfile="m:\program1.zip"
level =9
*xxx.compress()
ENDDEFINE

*xyz=createobject("xxx")
*xyz.compress

All OLE examples use a form and then insert
the OLE control into the form. I don't wish to
do that ... I would like to use the OLE control
independant of a form.

I did get the OLE control registered into NT Workstation
and VFP50 with no problems.

My next attempt will be to create an invisible form
and see if I can run the form from program code
invoking the ZIP OLE control.

Gene