Enum TYPE_OF_Erinnerung    As Integer
        Wiederholung    = 1
        Erinnerungstext = 2
        TODO            = 3
    End Enum
 
    Class STORE_Erinnerung
        Dim Erinnerung              As TYPE_OF_Erinnerung
        Dim Store_Wiederholung      As WIEDERHOLUNG
        Dim Store_Erinnerungstext   As ERINNERUNGSTEXT
        Dim Store_TODO              As TODO
    End Class
 
    Dim List As System.Collections.Generic.List(Of STORE_Erinnerung)