Visual Basic - Comprimir Descomprimir

Buenas compañeros, aquí estoy de nuevo con otro de mis muchas dudas del mundo de VB. Esta vez me gustaría saaber como puedo comprimir / descomprimir archivos mediante VB. Tengo la OCX ACTIVEZIP pero de donde me la bajé resultó ser una version de 30 días, si alguien me pudiera decir como hacerlo de otra manera o donde conseguir la OCX sin que sea versión de evalución lo agradecería.

Karlos Ruiz Soro

Gracias de antemano

Hola:
Te cuento que si tienes el winzip instalado puedes hacer lo siguiente:

RetVal = Shell("C:\Archivos de programa\WinZip\winzip32.exe C:\bases.zip c:\ScreenNew\Bases\gastos.txt")

El ejemplo dice lo siguiente:
retval = Nombre de una variable cualquiera previamente declarada.
Shell= Ejecuta el comando.
Lo que esta entre parentesis es la ruta de acceso del winzip que esta instalado por defecto en esa carpeta.
Luego el lugar a donde va a comprimir los archivos.
Y por ultimo la ruta del archivo a comprimir.