Friend MustInherit Class GeometricBase(Of T)
    Protected ePoint() As Point
    Protected eFormat As String
    Protected eDraw, eDrawCenter As Color
 
    Public MustOverride Property Point(ByVal i As Integer) As Point
    Public MustOverride Property X(ByVal i As Integer) As Double
    Public MustOverride Property Y(ByVal i As Integer) As Double
    Public MustOverride Property Format() As String
    Public MustOverride Property DrawColor() As Color
    Public MustOverride Property DrawCenterColor() As Color
 
    Public MustOverride Function IsBiggerThan(ByVal ComparingObject As T) As _
      Boolean
    Public MustOverride Function IsSmallerThan(ByVal ComparingObject As T) As _
    Boolean
    Public MustOverride Function IsEqual(ByVal ComparingObject As T) As Boolean
    Public MustOverride Overrides Function ToString() As String
 
    Public MustOverride Sub Draw(ByVal Graphic As Graphics, ByVal Einheit As _
      Double)
    Public MustOverride Sub DrawCenter(ByVal Graphic As Graphics, ByVal Einheit _
    As Double)
End Class

Interface IGeometric2D(Of T)
    Function GetFläche() As Double
    Function GetUmfang() As Double
    Sub Move(ByVal X() As Double, ByVal Y() As Double)
    Sub Move(ByVal NewPoint() As Point)
    Sub Move(ByVal Target As T)
    Sub Resize(ByVal Faktor As Double)
    Sub Rotate(ByVal Degree As Double)
End Interface
 
Interface IGeometric3D(Of T)
    Function GetVolumen() As Double
    Sub Move(ByVal X() As Double, ByVal Y() As Double, ByVal Z() As Double)
    Sub Move(ByVal Target As T)
    Sub Resize(ByVal Faktor As Double)
End Interface