| 
                         Máte štěstí, zrovna před včerejškem jsem něco takového psal, tady je kus kódu: 
    Private Shared Sub SaveImage(ByVal b As Bitmap, ByVal filename As String)
        Dim params As New EncoderParameters(1)
        params.Param(0) = New EncoderParameter(Encoder.Quality, 92)
        b.Save(filename, GetEncoder(), params)
    End Sub
Místo čísla 92 si dejte kvalitu, kterou uznáte za vhodné. 
                        
                     |