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

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

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

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

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

Using input As Stream = File.OpenRead(fileToCompress)
    Using raw As FileStream = File.Create(fileToCompress & ".gz")
        Using compressor As Stream = New GZipStream(raw, CompressionMode.Compress, CompressionLevel.BestCompression)
            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