Vb.NEt Ridimensione Jpg - Qualità

[ToNyLuCa]

Ciao a tutti, ho un problema con un codice che mi ridimensiona le immagini e devo dire che funge benissimo, la qualità finale è ottima, ma trovo una leggera differenza sui colori finali dopo il ridimensionamento,i colori sono leggermente diversi.Se apro l'immagine originale e la ridimensiono con photoshop i colori rimangono intatti, qualcuno potrebbe aiutarmi a modificarlo? Potrebbe essere diminuzione di qualità?
Ecco un esempio:
Foto originale
Foto Ridimensionata con quel codice

            For i = 0 To lvwImmagini.Items.Count - 1
                Application.DoEvents()
                If lvwImmagini.Items(i).Checked = True Then


                    Dim risultato = "Foto_" & Genera(8).ToUpper & ".jpg"

                    If lvwImmagini.Items(i).SubItems(0).Text.ToString.ToUpper() = nomeimag.ToString.ToUpper() Then nomeimag = risultato
                    ListView1.Items.Add(risultato)
                    Dim originalX
                    Dim originalY
                    Dim bitmap As New Bitmap(FileName.Text & "\" & lvwImmagini.Items(i).SubItems(0).Text) 'path dell'immagine originale
                    Dim bitmap1 As New Bitmap(FileName.Text & "\" & lvwImmagini.Items(i).SubItems(0).Text) 'path dell'immagine originale

                    Dim larghezza As Integer = 140 'larghezza nuova immagine
                    Dim altezza As Integer = 105 'altezza nuova immagine
                    Dim nuova_immagine As New Bitmap(larghezza, altezza)
                    Dim temp As Graphics = Graphics.FromImage(nuova_immagine)

                    originalX = bitmap1.Width
                    originalY = bitmap1.Height
                    Dim altezza1 As Integer
                    Dim larghezza1 As Integer


                    If originalX > originalY Then
                        larghezza1 = "1920" 'larghezza nuova immagine
                        altezza1 = "1280" 'altezza nuova immagine
                    Else
                        larghezza1 = "1280" 'larghezza nuova immagine
                        altezza1 = "1920" 'altezza nuova immagine
                    End If



                    Dim nuova_immagine1 As New Bitmap(larghezza1, altezza1)
                    Dim temp1 As Graphics = Graphics.FromImage(nuova_immagine1)



                    temp1.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
                    temp1.DrawImage(bitmap1, New Rectangle(0, 0, larghezza1, altezza1), New Rectangle(0, 0, bitmap.Width, bitmap.Height), GraphicsUnit.Pixel)

                    temp.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
                    temp.DrawImage(bitmap, New Rectangle(0, 0, larghezza, altezza), New Rectangle(0, 0, bitmap.Width, bitmap.Height), GraphicsUnit.Pixel)




                    nuova_immagine.Save("da_importare\miniature\" & risultato, System.Drawing.Imaging.ImageFormat.Jpeg) 'path dove salvare l'immagine ridimensionata
                    nuova_immagine1.Save("da_importare\grandi\" & risultato, System.Drawing.Imaging.ImageFormat.Jpeg) 'path dove salvare l'immagine ridimensionata



                    sw.WriteLine(risultato)


                    contafotocaricate.Text = "Sto caricando le foto selezionate..Attendere   " & i + 1 & "/" & contaimag.Text

                    temp.Dispose()
                    bitmap.Dispose()
                    nuova_immagine.Dispose()
                    temp1.Dispose()
                    bitmap1.Dispose()
                    nuova_immagine1.Dispose()
                    temp.Dispose()
                    bitmap.Dispose()
                    nuova_immagine.Dispose()



                End If
            Next