ASP.NET - Cómo cargar imagen desde la pc en control image de asp.net?

Private Sub CargarImagen

    Dim file As New OpenFileDialog()

    file.Filter = "Archivo JPG|*.jpg"

    If file.ShowDialog() = DialogResult.OK Then

        pbImagen.Image = Image.FromFile(file.FileName)

    End If

End Sub

Dim es As New MemoryStream

pbImagen.Image.Save(es, Imaging.ImageFormat.Jpeg)

Dim fotoC As Byte() = es.GetBuffer

RegistroTablaEjemplo.Imagen = fotoC

If FUpImagen.HasFile Then

    Try

        Dim alto As Integer

        Dim ancho As Integer

        FUpImagen.PostedFile.SaveAs(Server.MapPath("~/img/Imagenes/") + FUpImagen.PostedFile.FileName)

        Dim img As System.Drawing.Image

        Dim imagen As Bitmap = New Bitmap(Server.MapPath("~/img/Imagenes/") + FUpImagen.PostedFile.FileName)

        ancho = imagen.Width

        alto = imagen.Height

        If alto > ancho Then

            img = ResizeImage(imagen, 200, 240)

        Else

            img = ResizeImage(imagen, 280, 200)

        End If

        img.Save(Server.MapPath("~/img/Imagenes/t-") + FUpImagen.PostedFile.FileName)

        Session("ImagenImagenArchivo") = FUpImagen.PostedFile.FileName

        Session("T-ImagenImagenArchivo") = "t-" & FUpImagen.PostedFile.FileName

        Session("ancho") = ancho

        Session("alto") = alto

        ImgEjercicios.ImageUrl = "~/img/Imagenes/t-" & FUpImagen.PostedFile.FileName

    Catch ex As Exception

        lblInfo.Text = ex.Message

    End Try

Else

    lblInfo.Text = "Seleccione una imagen para subir."

End If

Public Shared Function ResizeImage(ByVal srcImage As System.Drawing.Image, ByVal newWidth As Integer, ByVal newHeight As Integer) As System.Drawing.Image

    Using imagenBitmap As Bitmap = New Bitmap(newWidth, newHeight, PixelFormat.Format32bppRgb)

        imagenBitmap.SetResolution(Convert.ToInt32(srcImage.HorizontalResolution), Convert.ToInt32(srcImage.HorizontalResolution))

        Using imagenGraphics As Graphics = Graphics.FromImage(imagenBitmap)

            imagenGraphics.SmoothingMode = SmoothingMode.AntiAlias

            imagenGraphics.InterpolationMode = InterpolationMode.HighQualityBicubic

            imagenGraphics.PixelOffsetMode = PixelOffsetMode.HighQuality

            imagenGraphics.DrawImage(srcImage, New Rectangle(0, 0, newWidth, newHeight), New Rectangle(0, 0, srcImage.Width, srcImage.Height), GraphicsUnit.Pixel)

            Dim imagenMemoryStream As MemoryStream = New MemoryStream()

            imagenBitmap.Save(imagenMemoryStream, ImageFormat.Jpeg)

            srcImage = System.Drawing.Image.FromStream(imagenMemoryStream)

        End Using

    End Using

    Return srcImage

End Function