Did you remember to assign ThisForm.vv_File_To_Zip and ThisForm.vv_Zip_File?
Maybe it should look more like this:
*---------------------------------------------*
lpara lcItemList, lcZipFile
ThisForm.vv_File_To_Zip = lcItemList
ThisForm.vv_Zip_File = lcZipFile
with thisform.oleZip
.itemList = ThisForm.vv_File_To_Zip
.zipFile = Thisform.vv_Zip_File
_VFP.autoYield = .f.
.actionDZ = 4
endwith
_VFP.autoYield = .t.
*---------------------------------------------*
>
>*lpara lcItemList, lcZipFile
>
>with thisform.oleZip
> .itemList = ThisForm.vv_File_To_Zip
> .zipFile = Thisform.vv_Zip_File
> _VFP.autoYield = .f.
> .actionDZ = 4
>endwith
>_VFP.autoYield = .t.
ICQ 10556 (ya), 254117