Namespace LineClass
 
    Class Line
        Private _LineType As LineType
        Private _Basepoints As Basepoints
 
        Enum LineType
            Empty
            Line
            Spline
        End Enum
 
        Public Property Type As LineType
            Set(ByVal value As LineType)
                _LineType = value
            End Set
            Get
                Return _LineType
            End Get
        End Property
        Public Property Basepoints As Basepoints
            Set(ByVal value As Basepoints)
                _Basepoints = value
            End Set
            Get
                Return _Basepoints
            End Get
        End Property
 
        Public Sub New()
            _Basepoints = New Basepoints(Me)
        End Sub
        Public Sub New(ByVal Basepoints As Basepoints, ByVal LineType As _
          LineType)
            _Basepoints = New Basepoints(Me, Basepoints.Items)
            _LineType = LineType
        End Sub
 
        Public Sub draw()
            'Hier den Code zum zeichnen einfügen.
            'Darauf achten, dass angegeben wird wohin gezeichnet werden soll.
        End Sub
 
    End Class
 
 
    Class Basepoints
        Private _Parent As Line
        Private _Items As New List(Of Basepoint)
 
        Public Property Parent As Line
            Set(ByVal value As Line)
                _Parent = value
            End Set
            Get
                Return _Parent
            End Get
        End Property
        Public Property Items As List(Of Basepoint)
            Set(ByVal value As List(Of Basepoint))
                _Items = value
            End Set
            Get
                Return _Items
            End Get
        End Property
 
        Public Sub New()
        End Sub
        Public Sub New(ByVal Parent As Line)
            _Parent = Parent
        End Sub
        Public Sub New(ByVal Parent As Line, ByVal Items As List(Of Basepoint))
            _Items = Items
            _Parent = Parent
        End Sub
 
    End Class
 
 
    Class Basepoint
        Private _PointType As PointType
        Private _Location As Point
        Private _Parent As Basepoints
 
        Enum PointType
            corner
            tangential
            symetric
        End Enum
 
        Public Property Type As PointType
            Set(ByVal value As PointType)
                _PointType = value
            End Set
            Get
                Return _PointType
            End Get
        End Property
        Public Property Location As Point
            Set(ByVal value As Point)
                _Location = value
            End Set
            Get
                Return _Location
            End Get
        End Property
        Public Property Parent As Basepoints
            Set(ByVal value As Basepoints)
                _Parent = value
            End Set
            Get
                Return _Parent
            End Get
        End Property
 
        Public Sub New()
        End Sub
        Public Sub New(ByVal parent As Basepoints)
            _parent = parent
        End Sub
        Public Sub New(ByVal parent As Basepoints, ByVal Location As Point, _
          ByVal Pointtype As PointType)
            _parent = parent
            _Location = Location
            _PointType = Pointtype
        End Sub
 
    End Class
 
End Namespace