Dim bmp As New Bitmap(100, 100)
Dim gp As Graphics = Graphics.FromImage(bmp)
'画矩形
gp.FillRectangle(Brushes.AliceBlue, 0, 0, 10, 10)
'画点
bmp.SetPixel(10, 10, Color.Black)
PictureBox1.Image = bmp
Dim bmp As New Bitmap(100, 100)
Dim gp As Graphics = Graphics.FromImage(bmp)
'画矩形
gp.FillRectangle(Brushes.AliceBlue, 0, 0, 10, 10)
'画点
bmp.SetPixel(10, 10, Color.Black)
PictureBox1.Image = bmp