Dim zip As New XceedZipLib.XceedZipClass()

zip.License( "your license key" ) 

' Specify which files will be added to the zip file
zip.FilesToProcess = "c:\windows\fonts\*" 

' Specify the name and location of the zip file.
' If it does not exist, the zip file will be created.
' If it exists, it will be updated to contain the new files.
zip.ZipFilename = "d:\fonts.zip" 

' Zip the files
Dim result As XceedZipLib.xcdError = zip.Zip()

MessageBox.Show( zip.GetErrorDescription( XceedZipLib.xcdValueType.xvtError, CType( result, Integer ) ) )