2012各位新年好： FillPolygon，多谢！

   Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim blueBrush As SolidBrush
        Dim g As Graphics = e.Graphics
        Dim greenPen As New Pen(Color.Green, 2)
        Dim redPen As New Pen(Color.Red, 2)
        Dim p1 As New PointF(40, 40)
        Dim p3 As New PointF(40, 10)
        Dim p4 As New PointF(200, 180)
        Dim p5 As New PointF(200, 100)
        Dim ptsArray As PointF() = {p1, p3, p4, p5}
        blueBrush = New SolidBrush(Color.Red)
        e.Graphics.FillPolygon(blueBrush, ptsArray)

我想在上面图形的一半（下一半用其他颜色），求教高手该如何做，谢谢！！！
      ‘  Dim p12 As New PointF((p5.X + p1.X) / 2, p4.Y / 2 - Math.Abs((p5.Y - p4.Y)) / 4)
       ’  Dim p2 As New PointF(60.0F, 70.0F)
      ‘  Dim p32 As New PointF((p5.X + p1.X) / 2, p5.Y / 2 + Math.Abs((p5.Y - p4.Y)) / 2)
       ’ Dim p42 As New PointF(200, 180)
       ‘ Dim p52 As New PointF(200, 100)
       ’ Dim ptsArray3 As PointF() = {p12, p32, p42, p52}
       
      ‘  blueBrush = New SolidBrush(Color.Blue)
      ’  e.Graphics.FillPolygon(blueBrush, ptsArray3)

        greenPen.Dispose()
        redPen.Dispose()
    End Sub
End Class