Fejl ved resize af billede ?

Hejsa,

Jeg har en function der resizer og gemmer et billede, men jeg får denne fejl :

A generic error occurred in GDI+.

Og dette er min function :

Public Function SaveImage(ByVal strFile As HttpPostedFile, _
                          ByVal strFileStream As Stream, _
                          ByVal intWidth As Integer, _
                          ByVal intHeight As Integer)
    '--- Reducere billedet til den angivet størrelse.
    Dim bmpFile As Bitmap = New Bitmap(strFileStream)
    Dim cintWidth, cintHeight As Short
    If bmpFile.Width > bmpFile.Height Then
        intWidth = intWidth
        intHeight = bmpFile.Height / (bmpFile.Width / intWidth)
    Else
        intHeight = intHeight
        intWidth = bmpFile.Width / (bmpFile.Height / intHeight)
    End If


    Dim bmpNewBitmap As New Bitmap(intWidth, intHeight)
    Dim bmpGraphics As Graphics = Graphics.FromImage(bmpNewBitmap)

    bmpGraphics.InterpolationMode = InterpolationMode.High

    Dim compressionRectangle As New Rectangle(0, 0, intWidth, intHeight)
    bmpGraphics.DrawImage(bmpFile, compressionRectangle)
    bmpFile.Dispose()

    Dim FileToSave As String
    FileToSave = Mid(strFile.FileName, InStrRev(strFile.FileName, "\") + 1)
    bmpNewBitmap.Save(Current.Server.MapPath(FileToSave), ImageFormat.Jpeg)
    Return "True"
End Function