Public Function New( _
   ByVal stream As Stream, _
   ByVal mode As CompressionMode, _
   ByVal level As CompressionLevel, _
   ByVal leaveOpen As Boolean _
)

Dim stream As Stream
Dim mode As CompressionMode
Dim level As CompressionLevel
Dim leaveOpen As Boolean
 
Dim instance As New GZipStream(stream, mode, level, leaveOpen)

public GZipStream( 
   Stream stream,
   CompressionMode mode,
   CompressionLevel level,
   bool leaveOpen
)

public:
GZipStream( 
   Stream^ stream,
   CompressionMode mode,
   CompressionLevel level,
   bool leaveOpen
)

using (System.IO.Stream input = System.IO.File.OpenRead(fileToCompress))
{
    using (var raw = System.IO.File.Create(outputFile))
    {
        using (Stream compressor = new GZipStream(raw, CompressionMode.Compress, CompressionLevel.BestCompression, true))
        {
            byte[] buffer = new byte[WORKING_BUFFER_SIZE];
            int n;
            while ((n= input.Read(buffer, 0, buffer.Length)) != 0)
            {
                compressor.Write(buffer, 0, n);
            }
        }
    }
}

Dim outputFile As String = (fileToCompress & ".compressed")
Using input As Stream = File.OpenRead(fileToCompress)
    Using raw As FileStream = File.Create(outputFile)
    Using compressor As Stream = New GZipStream(raw, CompressionMode.Compress, CompressionLevel.BestCompression, True)
        Dim buffer As Byte() = New Byte(4096) {}
        Dim n As Integer = -1
        Do While (n <> 0)
            If (n > 0) Then
                compressor.Write(buffer, 0, n)
            End If
            n = input.Read(buffer, 0, buffer.Length)
        Loop
    End Using
    End Using
End Using