vb.net2005 PictureBox生成bmp彩色图片

  Private Sub drawPicture()       

 Dim G As Graphics = PictureBox1.CreateGraphics()       

 Dim bmp As New Bitmap(100, 30, G)       

 G = Graphics.FromImage(bmp)

 Dim fontFamily As New FontFamily("宋体")       

Dim font1 As New Font(fontFamily, 16, FontStyle.Regular, GraphicsUnit.Pixel)       

 Dim font2 As New Font(fontFamily, 12, FontStyle.Regular, GraphicsUnit.Pixel)       

Dim font3 As New Font(fontFamily, 9, FontStyle.Regular, GraphicsUnit.Pixel)       

Dim brush As New SolidBrush(Color.Black)

G.Clear(Color.White) 

G.DrawString("aaaa", font1, brush, 10, 10) 

G.DrawString("01002", font2, brush, 10, 20)

bmp.Save("c:/show1.bmp") 

G.Dispose() 

End Sub