Error out of memory using PathGradientBrush ?

See more:

VB

hello guy's

please could any one help me with this error : out of memory .
when i try to draw a polygon using the PathGradientBrush
this is my code:

Dim p1 As New Point(140, 130)
     Dim p2 As New Point(180, 130)
     Dim p3 As New Point(200, 150)
     Dim p4 As New Point(180, 170)
     Dim p5 As New Point(140, 170)
     Dim p6 As New Point(120, 150)
     Dim shape As Point() = {p1, p2, p3, p4, p5, p6}
     Dim path As New GraphicsPath(FillMode.Alternate)
     Dim gra1 As New PathGradientBrush(path)
     gra1.CenterColor = Color.FromArgb(200, Color.MediumVioletRed)
     Dim colors As Color() = {Color.FromArgb(200, Color.Red), Color.Yellow}
     gra1.SurroundColors = colors
     path.AddPolygon(shape)
     g.FillPolygon(gra1, shape)