Este es el codigo q tengo:
-----------------------------------
'Ruta de la imagen a cargar
Dim strSourceFile As String = "C:\DSCN0001.jpg"
'Ruta del archivo nuevo a guardar
Dim strDestFile As String = "C:\001_tn.jpg"
Try
'Cargar la imagen mediante el método FromFile y almacenarla en la variable imgOriginal.
Dim imgOriginal As Image = Image.FromFile(strSourceFile)
MessageBox.Show(ControlChars.Quote & strSourceFile & _
ControlChars.Quote & " cargados correctamente.")
Dim thumb As Image
'Creacion de la imagen pequeña
thumb = imgOriginal.GetThumbnailImage(500, 400, nothing, Nothing)
'Guardar la imagen original como un archivo con Formato Jpg
thumb.Save(strDestFile, ImageFormat.Jpeg)
------------------------------------------------------
Con este método la imagen se me crea con el tamaño indicado (500x400) pero con una calidad pésima.
¿Como puedo crear una imagen con esas dimensiones y con una calidad aceptable para q pese poco y se vea bien?
Muchas gracias
