Grazie MItaly, seguendo la tua dritta ho modificato il codice in questo modo:

Ho aggiunto questo metodo:

codice:
 Public Function GetEncoder(ByVal format As Imaging.ImageFormat) As Imaging.ImageCodecInfo

        Dim codecs As Imaging.ImageCodecInfo() = Imaging.ImageCodecInfo.GetImageDecoders()

        Dim codec As Imaging.ImageCodecInfo
        For Each codec In codecs
            If codec.FormatID = format.Guid Then
                Return codec
            End If
        Next codec
        Return Nothing

    End Function
Prima di salvare l'immagine imposto la qualità in questo modo:

codice:
Dim jgpEncoder As Imaging.ImageCodecInfo = _img.GetEncoder(Imaging.ImageFormat.Jpeg)

Dim myEncoder As System.Drawing.Imaging.Encoder = System.Drawing.Imaging.Encoder.Quality

Dim myEncoderParameters As New Imaging.EncoderParameters(1)

Dim myEncoderParameter As New Imaging.EncoderParameter(myEncoder, 100)

myEncoderParameters.Param(0) = myEncoderParameter


_imgcopi.Save(CartellaCopyLbl.Text & "/" & _File.Name, jgpEncoder, myEncoderParameters)
Immagine con qualità 100

Il risultato, se pur migliore del precedente, è comunque di qualità inferiore rispetto all'originale

Sbaglio qualcosa?
Era questo che intendevi per impostare la qualità del jpeg più alta?

Grazie