EE

ラベルを横長の六角形で描写させたいです。
まずはとりあえず六角形を描写できれば良いかな？と思い下記コードを書きましたが
描写されません。
そこで、コードの間違いをご指摘頂きたく思っています。

        Dim gp As New GraphicsPath



        Dim points(5) As Point

        gp.StartFigure()

        points(0) = New Point(lbl.Left, lbl.Top)

        points(1) = New Point(50, 50)

        points(2) = New Point(50, 66)

        points(3) = New Point(66, 70)

        points(4) = New Point(83, 66)

        points(5) = New Point(83, 50)

        gp.AddPolygon(points)

        gp.CloseFigure()



        Dim rgn As New Region(gp)

	'(lbl as Label) 

        lbl.Region = rgn

        rgn.Dispose()

宜しく御願いします。