Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Response.ContentType = "image/jpeg"
Dim bmp As Bitmap = New Bitmap(60, 30)
Dim gg As Graphics = Graphics.FromImage(bmp)
Dim rad As Random = New Random
Dim code As String = rad.Next(1000, 9999).ToString
gg.DrawString(code, New Font("?S", 20), Brushes.Green, New PointF(0, 0))
bmp.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Jpeg)
End Sub
Response.ContentType = "image/jpeg"
Dim bmp As Bitmap = New Bitmap(60, 30)
Dim gg As Graphics = Graphics.FromImage(bmp)
Dim rad As Random = New Random
Dim code As String = rad.Next(1000, 9999).ToString
gg.DrawString(code, New Font("?S", 20), Brushes.Green, New PointF(0, 0))
bmp.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Jpeg)
End Sub