Resize an image

ResizeImage

Public Function ResizeImage(fs As FileStream,
                            width As Integer,
                            Optional height As Integer = 0) As MemoryStream

    Dim img As New BitmapImage
    Dim enc As New PngBitmapEncoder
    Dim ms As New MemoryStream

    img.BeginInit()
    img.StreamSource = fs
    img.DecodePixelWidth = width
    If height > 0 Then
        img.DecodePixelHeight = height
    End If
    img.EndInit()

    enc.Frames.Add(BitmapFrame.Create(img))
    enc.Save(ms)

    ms.Seek(0, SeekOrigin.Begin)

    Return ms

End Function