#interpolationmode

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim OFD As New OpenFileDialog

        OFD.Filter = "JPG|*.jpg"

        OFD.Multiselect = True

        If OFD.ShowDialog() = Windows.Forms.DialogResult.Cancel Then Exit Sub

        For Each F As String In OFD.FileNames

            ResizeImage(F, 0.25)

        Next

    End Sub

    Sub ResizeImage(ByVal sFile As String, ByVal percentResize As Double)

        Dim sPath As String = sFile.Substring(0, sFile.LastIndexOf("\") + 1)

        Dim sName As String = sFile.Substring(sFile.LastIndexOf("\") + 1)

        Dim bm As New Bitmap(sFile)

        Dim width As Integer = bm.Width * percentResize

        Dim height As Integer = bm.Height * percentResize

        Dim thumb As New Bitmap(width, height)

        Dim g As Graphics = Graphics.FromImage(thumb)

        g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic

        g.DrawImage(bm, New Rectangle(0, 0, width, height), New Rectangle(0, 0, bm.Width, bm.Height), GraphicsUnit.Pixel)

        g.Dispose()

        bm.Dispose()

        thumb.Save(sPath & sName.Substring(0, sName.LastIndexOf(".")) & " (2)" & sName.Substring(sName.LastIndexOf(".")), System.Drawing.Imaging.ImageFormat.Jpeg)

        thumb.Dispose()