Sub GetPoints()
        Dim r As RectangleF
 
        plist.Clear()
        gp.Reset()
        Dim a, b, c, d As PointF
        a.X = bzp(0).X * 1000
        a.Y = bzp(0).Y * 1000
 
        b.X = bzp(1).X * 1000
        b.Y = bzp(1).Y * 1000
 
        c.X = bzp(2).X * 1000
        c.Y = bzp(2).Y * 1000
 
        d.X = bzp(3).X * 1000
        d.Y = bzp(3).Y * 1000
 
        gp.AddBezier(a, b, c, d)
        r.Location = a
        Do
            plist.Add(r)
            Select Case True
                Case gp.IsOutlineVisible(r.X + 1, r.Y - 1, Pens.Black)
                    r.X += 1
                    r.Y -= 1
                    r.Width += 1414
                Case gp.IsOutlineVisible(r.X, r.Y - 1, Pens.Black)
                    r.Y -= 1
                    r.Width += 1000
                Case gp.IsOutlineVisible(r.X + 1, r.Y, Pens.Black)
                    r.X += 1
                    r.Width += 1000
                Case gp.IsOutlineVisible(r.X + 1, r.Y + 1, Pens.Black)
                    r.X += 1
                    r.Y -= 1
                    r.Width += 1414
                Case Else
                    Exit Do
            End Select
            r.Height = (400 - (r.Y - 50)) / 0.4
        Loop
    End Sub