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
End Class
...
fzg.Add(new Car(LagerNr, Typ))
fzg.Add(new Car(12321, "Mercedes"))