Private Sub Page_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Image1.ImageUrl = "getpic.aspx?id=x0001"
    End Sub

 
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Dim id As String = Request.Item("Id")
        Dim img As Bitmap
        Dim g As Graphics
 
        Try
            img = New Bitmap(130, 50)
            g = Graphics.FromImage(img)
            drawImage(id, g)
            Response.Clear()
            Response.ContentType = "image/gif"
            img.Save(Response.OutputStream, _
              System.Drawing.Imaging.ImageFormat.Gif)
        Catch ex As Exception
            ' Was immer....
            Throw ex
        Finally
            If Not g Is Nothing Then g.Dispose()
            If Not img Is Nothing Then img.Dispose()
        End Try
    End Sub
 
    Private Sub drawImage(ByVal id As String, ByVal g As Graphics)
 
        Dim f As Font
        Dim p As Pen
        Try
            g.FillRectangle(Brushes.Black, New Rectangle(0, 0, 130, 50))
            f = New Font("Arial", 15, FontStyle.Bold)
            g.DrawString(ID, f, Brushes.White, 10, 20)
            g.DrawRectangle(Pens.Chartreuse, 5, 5, 120, 40)
            p = New Pen(Color.Red, 4)
            g.DrawLine(p, 7, 15, 124, 15)
        Finally
            If Not f Is Nothing Then f.Dispose()
            If Not p Is Nothing Then p.Dispose()
        End Try
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist