vb.net 绘图

        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