Sub ResizeImage(ByVal dir As String, ByVal fileName As String, ByVal percentResize As Double)
        'following code resizes picture to fit
 
        Dim bm As New Bitmap("C:\" & dir & "\" & fileName)
 
        Dim width As Integer = bm.Width - (bm.Width * percentResize) 'image width. 
 
        Dim height As Integer = bm.Height - (bm.Height * percentResize)  'image height
 
        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()
 
        'image path.
        thumb.Save("C:\" & dir & "\" & fileName, _
System.Drawing.Imaging.ImageFormat.Jpeg) 'can use any image format 
 
        thumb.Dispose()
 
    End Sub