做图片转换时 使用memorystream出现内存溢出

[L13843199721]

Function DJVUChange(ByVal DJVUFileAdd As String, ByVal ChangeType As Integer, ByVal OutputFileAdd As String) As Integer

        Dim ImagECD As BmpBitmapEncoder
        Dim imagetype = System.Drawing.Imaging.ImageFormat.Jpeg
        Dim ImageFrame As BitmapFrame
        Dim ImagDCD As BitmapDecoder = BitmapDecoder.Create(New Uri(DJVUFileAdd, UriKind.Relative), BitmapCreateOptions.None, BitmapCacheOption.Default)

        Dim JPEGOutputFileAdd As String
        Dim LastName As String = ""

        If ChangeType = 1 Then

            LastName = Microsoft.VisualBasic.Strings.Right(OutputFileAdd, OutputFileAdd.Length - OutputFileAdd.LastIndexOf("."))
            JPEGOutputFileAdd = Microsoft.VisualBasic.Strings.Left(OutputFileAdd, OutputFileAdd.LastIndexOf("."))

        Else

            JPEGOutputFileAdd = MidImageURL

        End If

        Dim no As Integer = 12

        For no = 0 To ImagDCD.Frames.Count - 1

            Using stream As MemoryStream = New MemoryStream
                'Using stream As FileStream = New FileStream("123", FileMode.Create)

                ImagECD = New BmpBitmapEncoder

                ImageFrame = ImagDCD.Frames(no)

                ImagECD.Frames.Add(ImageFrame)

                ImagECD.Save(stream)

                MsgBox(no)

                Using Image As System.Drawing.Image = System.Drawing.Image.FromStream(stream)
                    'Using Image As System.Drawing.Image = System.Drawing.Image.FromFile("123")
                    Image.Save(JPEGOutputFileAdd & "(" & (no + 1) & "-" & ImagDCD.Frames.Count & ")" & LastName, imagetype)

                End Using

            End Using

        Next

请问怎么解决啊？