Public Function Area_Poly(ByRef Poly() As geo.Point, _
                     Optional ByVal Dimension As Byte = 2) As Double
 
        ' Über alle sich ergebenden Aussenkanten iterieren.
        For i As Integer = 1 To Poly.GetUpperBound(0) Step +1
            Area_Poly += Poly(i - 1).y + Poly(i).y * Poly(i - 1).x - Poly(i).x
        Next i
 
        ' Prüfen ob erster und letzter Punkt identisch sind.
        ' Wenn nicht Linie zwischen Punkt n und Punkt 0 berechnen und Poly 
        ' schliessen.
        If Not (Poly(Poly.GetUpperBound(0)).x = Poly(0).x And _
                Poly(Poly.GetUpperBound(0)).y = Poly(0).y) Then
            Area_Poly += Poly(Poly.GetUpperBound(0)).y + Poly(0).y * _
                    Poly(Poly.GetUpperBound(0)).x - Poly(0).x
        End If
 
        Return Area_Poly / 2
 
End Function