Visual Basic

Private Sub importPhoto(ByVal strFileName As String, ByRef Width As Int32, ByRef Height As Int32, ByVal saveLocation As String, ByRef objDataRow As DataRow)
        Dim imgPhoto As New Bitmap(strFileName)
        Dim sourceWidth As Int32 = imgPhoto.Width
        Dim sourceHeight As Int32 = imgPhoto.Height
        Dim sourceX As Int32 = 0
        Dim sourceY As Int32 = 0
        Dim destX As Int32 = 0
        Dim destY As Int32 = 0

        Dim nPercent As Single
        Dim nPercentW As Single
        Dim nPercentH As Single

        'If Not File.Exists(saveLocation & "\" & Path.GetFileName(strFileName)) Then
        nPercentW = Width / CSng(sourceWidth)
        nPercentH = Height / CSng(sourceHeight)

        If nPercentH < nPercentW Then
            nPercent = nPercentH
            destX = System.Convert.ToInt16((Width - (sourceWidth * nPercent)) / 2)
        Else
            nPercent = nPercentW
            destY = System.Convert.ToInt16((Height - (sourceHeight * nPercent)) / 2)
        End If

        Dim destWidth As Int32 = sourceWidth * nPercent
        Dim destHeight As Int32 = sourceHeight * nPercent

        Dim bmPhoto As New Bitmap(Width, Height, PixelFormat.Format24bppRgb)
        bmPhoto.SetResolution(imgPhoto.HorizontalResolution, imgPhoto.VerticalResolution)

        Dim g As Graphics = Graphics.FromImage(bmPhoto)
        g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
        g.Clear(Color.White)
        g.DrawImage(imgPhoto, New Rectangle(destX, destY, destWidth, destHeight), New Rectangle(sourceX, sourceY, sourceWidth, sourceHeight), GraphicsUnit.Pixel)
        g.Dispose()
        imgPhoto.Dispose()

        bmPhoto.Save(saveLocation & "\" & Path.GetFileName(strFileName), Imaging.ImageFormat.Jpeg)
        Dim fs As New FileStream(saveLocation & "\" & Path.GetFileName(strFileName), FileMode.Open, FileAccess.Read)
        Dim Image(fs.Length - 1) As Byte
        fs.Read(Image, 0, Convert.ToInt32(fs.Length))
        fs.Close()
        objDataRow(11) = Image
        File.Delete(saveLocation & "\" & Path.GetFileName(strFileName))
        GC.Collect()
        'Else
        '    Dim fs As New FileStream(saveLocation & "\" & Path.GetFileName(strFileName), FileMode.Open, FileAccess.Read)
        '    Dim Image(fs.Length - 1) As Byte
        '    fs.Read(Image, 0, Convert.ToInt32(fs.Length))
        '    fs.Close()
        '    fs.Dispose()
        '    objDataRow(11) = Image
        '    Image = Nothing
        '    GC.Collect()
        'End If
    End Sub