GZipStream Problem Code

السلام عليكم ورحمة الله وبركاته

أريد عمل مشروع بإستخدام بيئة البرمجة Microsoft Visual Basic .Net 2005 والمشروع عبارة عن ضغط

ملفات بإستخدام الدالة GZip Stream ـ وعن طريق محاولاتي تم بالفعل عمل الكود ولكن عند تشغيل الكود يقوم

بضغط الملف ولكن بحجم أكبر من الحجم الأصلي بمعنى إذا كان الملف حجمة الأصلي 49.3 ميجا مثلا المفروض يضغطه بحجم 49.1 ميجا ولكن يصبح حجم الملف بعد ضغطه بالكود 75.6 ميجا بايت وبالتالي لا يستطيع نظام التشغيل فتح الملف.

أجريت محاولاتي الأخري لا نتيجة.

الكود هنا ....

Dim CompressedStream As GZipStream = Nothing
Dim DestStream As New FileStream(txt_DestinationSream.Text, FileMode.OpenOrCreate, FileAccess.Write, FileShare.None)
Dim SourceStream As New FileStream(txt_SourceStream.Text, FileMode.Open, FileAccess.Read, FileShare.Read)
Dim Buffer(SourceStream.Length) As Byte
Dim Position As Integer = SourceStream.Read(Buffer, 0, Buffer.Length)
Dim CurrentLocation As Integer = 0
CompressedStream = New GZipStream(DestStream, CompressionMode.Compress)
CompressedStream.Write(Buffer, 0, Buffer.Length)
CompressedStream.Close()
SourceStream.Close()