Public Class Car
    Private m_LagerNr as integer
    Private m_Typ as string
 
    Public Sub New(LagerNr as integer, Typ as String)
        m_LagerNr = LagerNr
        m_Typ = Typ
    End Sub
 
    Public Readonly Property LagerNr as integer
        Get
            Retrun m_LagerNr
        End Get
    End Property
 
    Public Readonyl Property Typ as string
        Get
            Return m_Typ
        End Get
    End Property
 
    Public Overloads Overrides Function Equals(ByVal obj As Object) As Boolean
        return m_LagerNr = cType(obj, Car).LagerNr
    End Function
End Class
...
Dim fzg as new Arraylist
fzg.Add(new Car(LagerNr, Typ))
fzg.Add(new Car(12321, "Mercedes"))
 
MessageBox.Show(fzg(fzg.IndexOf(New Car(12321,""))).Typ)