Public Interface IErinnerungen
    Property Erinnerungsdatum As Date
    Property Erinnerungstext As String
End Interface
 
Public Enum ErinnerungSortierung
    Erinnerungstext
    Erinnerungsdatum
End Enum
 
Public MustInherit Class ErinnerungsBasis
    Implements IErinnerungen
 
    Private myErinnerungsdatum As Date = #1/1/1900#
    Private myErinnerungstext As String = ""
 
 
    Public Overridable Property Erinnerungsdatum As Date Implements _
      IErinnerungen.Erinnerungsdatum
        Get
            Return myErinnerungsdatum
        End Get
        Set(ByVal value As Date)
            myErinnerungsdatum = value
        End Set
    End Property
 
    Public Overridable Property Erinnerungstext As String Implements _
      IErinnerungen.Erinnerungstext
        Get
            Return myErinnerungstext
        End Get
        Set(ByVal value As String)
            myErinnerungstext = value
        End Set
    End Property
End Class
 
Public Class Erinnerung
    Inherits ErinnerungsBasis
 
End Class
 
Public Class Geburtstag
    Inherits ErinnerungsBasis
 
    Private myVorname As String
    Private myNachname As String
 
    Public Property Geburtsdatum As Date
        Get
            Return MyBase.Erinnerungsdatum
        End Get
        Set(ByVal value As Date)
            MyBase.Erinnerungsdatum = value
        End Set
    End Property
 
    Public Overridable Property Vorname As String
        Get
            Return myVorname
        End Get
        Set(ByVal value As String)
            myVorname = value
        End Set
    End Property
 
    Public Overridable Property Nachname As String
        Get
            Return myNachname
        End Get
        Set(ByVal value As String)
            myNachname = value
        End Set
    End Property
 
End Class

_____________________________________________________
Programmieren ist heute ein Wettrennen zwischen Programmierern, die versuchen bessere und idiotensicherere Programme zu entwickeln und dem Universum, dass versucht bessere Idioten zu entwickeln