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

				
				
				
				
				
				
				Sub Page_Load
				  Dim objBitmap As Bitmap
				  Dim objGraphics As Graphics
				
				  ' Create Bitmap
				  objBitmap = New Bitmap( 400, 200 )
				
				  ' Create Graphics
				  objGraphics = Graphics.FromImage( objBitmap )
				
				  ' Draw Rectangle
				  objGraphics.DrawRectangle( Pens.Green, 50, 50, 100, 100 )
				
				  ' Display Bitmap
				  objBitmap.Save( Response.OutputStream, ImageFormat.Gif )
				End Sub