Me.UseWaitCursor = True
 
        Dim quelldatei As String = txtdatei.Text
        Dim stream As New IO.FileStream(quelldatei, IO.FileMode.Open)
        Dim filebytes(stream.Length - 1) As Byte
        stream.Read(filebytes, 0, filebytes.Length)
        stream.Close()
        Dim zieldatei As String = txtzip.Text
        Dim Streamwrite As New IO.FileStream(zieldatei, IO.FileMode.CreateNew)
        Dim compressstream As New IO.Compression.GZipStream(Streamwrite, _
          IO.Compression.CompressionMode.Compress)
        compressstream.Write(filebytes, 0, filebytes.Length)
        compressstream.Flush()
        compressstream.Close()
 
        Me.UseWaitCursor = False