'-----code begin-----

    Imports System.Drawing

    Imports System.Drawing.Bitmap

    Imports System.Drawing.Graphics

    Public Class WebForm1

    Inherits System.Web.UI.Page

    #Region " Web 窗体设计器生成的代码 "

    '此处省略了窗体设计器生成的代码

    #End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    '在此处放置初始化页的用户代码

    '声明bitmap对象

    'Bitmap对象就相当于一个画布，有了画布我们才可以在上面做出图形

    Dim objBitmap As Bitmap

    Dim i As Integer

    '声明随机种子，用来随机产生1000个象素点的坐标

    Dim objRandom As Random

    ' Create Bitmap

    objBitmap = New Bitmap(300, 100)

    ' Set 1000 Pixels

    objRandom = New Random

    For i = 1 To 5000

    objBitmap.SetPixel(objRandom.Next(300), objRandom.Next(100), Color.White)

    Next

    '将objGraphics对象以指定的图形格式（这里是Gif）保存到指定的Stream对象，

    '并输出到客户端。save方法有5个重载，可以保存到硬盘中，可以选择不同的图片格式

    objBitmap.Save(Response.OutputStream, Drawing.Imaging.ImageFormat.Gif)

    End Sub

    End Class

    '---------code end -----