Marcas de agua o whatermark como las agrego

[affv]

ok gracias a ambos he estado mirando estos codigo y e logrado resumirlos a esto.

Código:

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim Image As System.Drawing.Image
        Image = System.Drawing.Image.FromFile(Server.MapPath("Image.jpg"))
        Dim dummyCallBack As System.Drawing.Image.GetThumbnailImageAbort
        dummyCallBack = New System.Drawing.Image.GetThumbnailImageAbort(AddressOf ThumbnailCallback)
        Dim Graphic As System.Drawing.Image
        Graphic = Image.GetThumbnailImage(800, 600, dummyCallBack, IntPtr.Zero)
        Dim GraphicWithWaterMark As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(Graphic)
        Dim FontFamily As System.Drawing.Font = New System.Drawing.Font("Arial", 5, System.Drawing.FontStyle.Bold)
        Dim FontColor As System.Drawing.SolidBrush = New System.Drawing.SolidBrush(System.Drawing.Color.FromArgb(255, 255, 255, 255))
        GraphicWithWaterMark.DrawImage(System.Drawing.Image.FromFile(Server.MapPath("Image.jpg")), 0, 0, 800, 600)
        GraphicWithWaterMark.DrawString("123", FontFamily, FontColor, 0, 0)
        Graphic.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Jpeg)
        Response.ContentType = "image/jpeg"
    End Sub
    Function ThumbnailCallback() As Boolean
        Return False
    End Function

ya que lo que necesito no es gran cosa como podria resumir aun mas este codigo.
Ustedes que cambios realizarian.