your welcome..oh and btw this line

Dim imgQuality As EncoderParameter = New EncoderParameter(System.Drawing.Imaging.Encoder.Quality, 80)


is where you specify the quality level. Just change 80 to any number 0 -100..100 being highest quality. D'uh!