<%@ WebHandler Language="VB" Class="Bilder" %>
 
Imports System
Imports System.Web
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.IO
 
Public Class Bilder : Implements IHttpHandler
    Public Sub ProcessRequest(ByVal context As HttpContext) Implements _
      IHttpHandler.ProcessRequest
        context.Response.Clear()
        context.Response.ContentType = "image/gif"
        context.Response.AddHeader("Content-Disposition", _
          "inline;filename=NetzBild.gif")
 
        Dim rec As New Rectangle(0, 0, 100, 100)
        Dim Bild As New Bitmap(rec.Width, rec.Height, _
          PixelFormat.Format24bppRgb)
        Bild.MakeTransparent()
        Dim G As Graphics = Graphics.FromImage(Bild)
        G.DrawLine(Pens.Red, 1, 1, 99, 99)
        Bild.Save(context.Response.OutputStream, _
          System.Drawing.Imaging.ImageFormat.Gif)
 
        G.Dispose()
        context.Response.End()
    End Sub
 
    Public ReadOnly Property IsReusable() As Boolean Implements _
      IHttpHandler.IsReusable
        Get
            Return False
        End Get
    End Property
 
End Class