Unir arrays

Nas otra vez

Necesito unir varios

Dim LineaIzquierda As Point() = {New Point(0, _AltoPest), New Point(0, 2),
New Point(2, 0)}

Dim LineaArriba As Point() = {New Point(2, 0), New Point
(TamanioCuadro.Width - 5, 0)}

Dim LineaDerecha As Point() = {New Point(TamanioCuadro.Width - 5, 0), New
Point(TamanioCuadro.Width, 5), New Point(TamanioCuadro.Width, _AltoPest)}

arrays en uno solo

Dim Poligono as Point ...

para luego rellenarlo

e.graphics.FillPolygon(New SolidBrush(FondoPoligono), Poligono)

He probado de varias maneras y no soy capaz de hacerlo

Me echais otro cable?