VB.net 图片加载内存问题

工作中碰到一个内存泄漏问题。记录一下以备后用。

修改前代码：

    Private Function BitmapToBitmapSource(source As Bitmap) As BitmapSource
        Return System.Windows.Interop.Imaging.CreateBitmapSourceFromHBitmap(
                         source.GetHbitmap(),
                         IntPtr.Zero,
                         Int32Rect.Empty,
                         BitmapSizeOptions.FromEmptyOptions())
    End Function