[3booody]

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

اذا تقصد حفظ صورة بحجم صغير ...  ممكن تستخدم هذا الكود

كود :

Dim bit As New Bitmap("المسار للصورة") 'الصورة الاصلية
       Dim bit2 As New Bitmap(120, 120) 'الصورة بأختيار الحجم الجديد
       Dim gr As Graphics = Graphics.FromImage(bit2)
       gr.DrawImage(bit, 0, 0, 120, 120)
       bit2.Save("مسار الصورة المصغرة")