返信ありがとうございます。

参考URLを拝見しました。その結果、期待する動作になりました。
本当にありがとうございます。
一応、僕みたいな初心者が見る事もあるかもしれないので乗せておきます。

名前空間: System.Drawing.Drawing2D
Graphics.DrawPath: GraphicsPath を描画します。

[CODE]
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaint(e)
        Dim pa As New GraphicsPath
        Dim points(5) As Point
        Dim w As Integer = MyBase.Width
        Dim h As Integer = MyBase.Height
        pa.StartFigure()
        points(0) = New Point(0, h / 2)
        points(1) = New Point(360 / (h / 2), 0)
        points(2) = New Point(w - (360 / (h / 2)), 0)
        points(3) = New Point(w, h / 2)
        points(4) = New Point(w - (360 / (h / 2)), h)
        points(5) = New Point(360 / (h / 2), h)
        pa.AddPolygon(points)
        pa.CloseFigure()
        Dim rgn As New Region(pa)
        MyBase.Region = rgn
        rgn.Dispose()
        Dim p As New Pen(Color.Aquamarine, 2)
        Dim g As Graphics = e.Graphics
        g.DrawPath(p, pa)
    End Sub
[/CDOE]