VB. net уменьшить размер файла изображения с интерполяциейMode не работает

Question

после нажатия кнопки 1, это дает мне test_reduce с размером файла 4,87 МБ
оригинальный размер файла составляет 1,91 МБ, InterpolationMode не работает вообще ...
Я хочу уменьшить размер файла с 1,91 МБ до менее чем 1 МБ с InterpolationMode

исходное изображение: https://images.alphacoders.com/943/943148.jpg

это мой код

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim jpg As Image = Image.FromFile("test.jpg")
        Dim tp As Bitmap = reduce(jpg, 1920, 1080)
        jpg.Dispose()
        jpg = tp
        jpg.Save("test_reduce.jpg")
    End Sub

    Private Function reduce(ByVal img As Image, ByVal width As Integer, ByVal height As Integer) As Image
        Dim imaf As New Bitmap(width, height)
        Dim pic As Graphics = Graphics.FromImage(imaf)
        pic.InterpolationMode = Drawing2D.InterpolationMode.Bicubic
        pic.DrawImage(img, 0, 0, width, height)
        Return imaf
    End Function

Answer 1

jpg.Save("test_reduce.jpg")

изменить на

jpg.Save("test_reduce.jpeg", Imaging.ImageFormat.Jpeg)