FoxPro/Visual FoxPro - pasar este codigo vb a vfp

Como puedo reemplazar este codigo en visual basic a Vicual Foxpro.

Attribute VB_Name = "ZIP"
Function GXZIP(ArchDest As String, ArchOrig() As String) As Integer
Dim comp As New GXZIP
GXZIP = comp.ZIP(ArchDest, ArchOrig())
End Function

Tengo un libreria gxzip.dll

Gracias...
Javier

Por lo que veo quieres hacer una copia del archivo y zipearlo.
no entiendo mucho de VB, pero en fox lo puedes hacer con el comando RUN.
<comandos de DOS>
Ej
RUN
copy c:\origen c:\bkp\destino

investigalo

Yo tengo una libreria en C++ que me perimite generar un zip sin necesidad de tener instalado el winzip, pero esta hecho en VB.