image manipulation

[RICK_BR]

I´m using scripts with the System.Drawing.
Because I Want to reduze the size of an image like 1280 to 640 px
But the script turns an image of about 100kb with 1280px into a 500kb with 640kb.
I wanted no only to reduze the size of it, but of course to use less space.
Can someone help me ?

[CardboardHammer]

jpeg to jpeg? You need to pass an EncoderParameter to the Save method.

...
Dim prms As EncoderParameters = New EncoderParameters
prms.Param(0) = New EncoderParameter(Encoder.Quality, 50)
aBitmap.Save(aStream, theCodec, prms)