ZIP 壓縮(編號:9009)

請問有誰知道
ZIP 要如何用VB 來解
ocx,bas,cls or 演算法 ...
請提供給我 Thanks
要可以解密碼的 ...