VB.NET绘图2---绘制一个不规则4边形

 '========================================================
    '函数名称：Drawing2()
    '函数参数：
    '函数功能：绘制一个不规则4边形
    '=======================================================
    Private Sub Drawing2()
        Dim Graphics1 As Graphics = PictureBox1.CreateGraphics '在容器PictureBox1里面 创建画布
        Dim Pen1 As New Pen(Color.Red) ' 创建画笔，并且制定红色
        Dim p(3) As Point '定义四边形的四个顶点的坐标
        p(0).X = 100
        p(0).Y = 15
        p(1).X = 80
        p(1).Y = 90
        p(2).X = 90
        p(2).Y = 120
        p(3).X = 130
        p(3).Y = 150
        Graphics1.DrawPolygon(Pen1, p)
        Graphics1.Dispose() '释放内存
        Pen1.Dispose() '释放内存
    End Sub