VB - JPEG Bild komprimieren

''' <summary>
''' Diese Funktion Komprimiert ein JPEG Bild und speichert dieses als neues Bild ab
''' </summary>
''' <param name="Image">Das Bild welches komprimiert werden soll</param>
''' <param name="OutPutFile">Der Pfad des neuen komprimierten Bilds</param>
''' <param name="Qualitiy">Die Qualitätseinstellung 0-100</param>
Public Sub JPEGCompression(ByVal Image As Image, ByVal OutPutFile As String, ByVal Qualitiy As Integer)
    Dim ImageCodecs() As ImageCodecInfo
    Dim ImageParameters As EncoderParameters

    ImageCodecs = ImageCodecInfo.GetImageEncoders()
    ImageParameters = New EncoderParameters(1)
    ImageParameters.Param(0) = New EncoderParameter(System.Drawing.Imaging.Encoder.Quality, Qualitiy)
    Image.Save(OutPutFile, ImageCodecs(1), ImageParameters)
End Sub