This example shows you how to compress (with zlib) and encrypt a bitmap, and then save the new data to a file. To try the example, copy the code to your module, and call the CompressAndEncryptBitmap subroutine in your module. Then run the example.
Private Sub CompressAndEncryptBitmap _
(bFileName As String, nFileName As String, sKey As String)
Dim BMU As VWBitmapUtils.BitmapUtils
'Initialize the BitmapUtils object.
Set BMU = New VWBitmapUtils.BitmapUtils
'Load the Bitmap into memory.
Call BMU.LoadByteData(bFileName)
'Compress the byte data.
BMU.CompressByteData_ZLib
'Encrypt the byte data.
Call BMU.EncryptByteData(sKey)
'Save the byte data to the new file.
Call BMU.SaveByteData(nFileName)
End Sub