asp.net技术内幕的书配源码

				
				
				
				
				
				
				Sub Page_Load
				  Dim objBitmap As Bitmap
				  Dim objGraphics As Graphics
				
				  ' Create Bitmap
				  objBitmap = New Bitmap( 300, 300 )
				
				  ' Create Graphics
				  objGraphics = Graphics.FromImage( objBitmap )
				
				  ' Draw Ellipse
				  objGraphics.FillEllipse( Brushes.Blue, 10, 10, 200, 200 )
				
				  ' Display Bitmap
				  objBitmap.Save( Response.OutputStream, ImageFormat.Gif )
				End Sub