Imports Xceed.Compression

Dim data() As Byte = System.Text.Encoding.Default.GetBytes( "This is the data to compress compress compress" )

Dim compressedData() As Byte = QuickCompression.Compress( data )

using Xceed.Compression;

byte[] data = System.Text.Encoding.Default.GetBytes( "This is the data to compress compress compress" );

byte[] compressedData = QuickCompression.Compress( data );

Imports Xceed.Compression
Imports System.IO

Dim data() As Byte = System.Text.Encoding.Default.GetBytes("This is the data to compress compress compress")
Dim sourceStream As New MemoryStream(data)

' If you do not want the inner stream to be closed by the CompressedStream
' then set the CompressedStream's Transient property to true.

Dim destinationStream As New MemoryStream()
Dim compStream As New CompressedStream(destinationStream)

'32K at at time.
Dim buffer(32768) As Byte
Dim bytesRead As Integer = 0

' Loop until we have nothing more to read from the source stream.
Do
  bytesRead = sourceStream.Read(buffer, 0, buffer.Length)

  If bytesRead > 0 Then
    compStream.Write(buffer, 0, bytesRead)
  End If
Loop Until bytesRead = 0

' Close the source stream and the CompressedStream.
'
' Because the CompressedStream will automatically close the destination
' memory stream, there is no need to call Close once we are done with the stream.
sourceStream.Close()
compStream.Close()

' To get access to the MemoryStream's compressed data, you can use:
Dim compressedData() As Byte = destinationStream.ToArray()
' ToArray() works even when the memory stream is closed.