Public Class Car
    Dim strTyp As String
    Dim DateBaujahr As Date
 
    Public Property typ() As String
 
        Get
            typ = strTyp
        End Get
        Set(ByVal value As String)
            strTyp = value
 
        End Set
    End Property
 
    Public Property Baujahr() As Date
        Get
            Baujahr = DateBaujahr
 
        End Get
        Set(ByVal value As Date)
 
            DateBaujahr = value
        End Set
    End Property
End Class

Public Class fahrzeug
 
    Dim hCar As New Hashtable
    Dim newCar As New Car
 
    Public Sub add(ByVal LagerNr As String, ByVal typ As String, ByVal baujahr _
      As Date)
 
        newCar = New Car
 
        newCar.typ = typ
        newCar.Baujahr = baujahr
        hCar.Add(LagerNr, newCar)
 
    End Sub
 
    Public Function baujahr(ByVal LagerNr As String) As Date
 
        Return CType(hCar(LagerNr), Car).Baujahr
 
    End Function
 
    Public Function typ(ByVal LagerNr As String) As String
        Return CType(hCar(LagerNr), Car).typ
    End Function
 
End Class

 Dim fzg As New fahrzeug
 
 
        fzg.add("1", "Mercedes", "12.12.1959")
        fzg.add("2", "BMW", "01.01.1970")
 
        MsgBox(fzg.baujahr("1"))
        MsgBox(fzg.typ("2"))