Imports System.IO Imports System.IO.Compression Imports System.IO.Compression.GZipStream

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sourcefile As FileStream = File.OpenRead("c:\Friends.jpg") Dim desfile As FileStream = File.Create("d:\Friends.gz") Dim compstream As New GZipStream(desfile, CompressionMode.Compress) Dim theByte As Integer = sourcefile.ReadByte() While theByte <> -1 compstream.WriteByte(CType(theByte, Byte)) theByte = sourcefile.ReadByte() End While sourcefile.Dispose() desfile.Dispose() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim sourcefile As FileStream = File.OpenRead("d:\Friends.gz") Dim desfile As FileStream = File.Create("c:\Friends.jpg") Dim compstream As New GZipStream(sourcefile, CompressionMode.Decompress) Dim theByte As Integer = compstream.ReadByte() While theByte <> -1 desfile.WriteByte(CType(theByte, Byte)) theByte = compstream.ReadByte() End While sourcefile.Dispose() desfile.Dispose() End Sub