'------------------------------------------------------------------------------
' <autogenerated>
'	 This code was generated by CodeSmith.
'	 Version: 2.6.0.117
'
'	 Changes to this file may cause incorrect behavior and will be lost if
'	 the code is regenerated.
' </autogenerated>
'------------------------------------------------------------------------------

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections

Namespace Vehicles
Public Class CarDictionary : Inherits System.Collections.DictionaryBase
	Public Default Property Item(ByVal carID As Integer) As Car
	Get
		Return (CType(Dictionary(carID), Car))
	End Get
	Set
		Dictionary(carID) = Value
	End Set
	End Property

	Public ReadOnly Property Keys() As ICollection
		  Get
			  Return(Dictionary.Keys)
		  End Get
	End Property

	Public ReadOnly Property Values() As ICollection
		  Get
			  Return(Dictionary.Values)
		  End Get
	End Property

	  Public Function Contains(ByVal carID As Integer) As Boolean
		   Return Dictionary.Contains(carID)
	  End Function

	Public Sub Add(ByVal carID As Integer, ByVal car As Car)
		Dictionary.Add(carID, car)
	End Sub

	  Public Sub Remove(ByVal carID As Integer)
		Dictionary.Remove(carID)
	  End Sub
End Class


Public Class TruckDictionary : Inherits System.Collections.DictionaryBase
	Public Default Property Item(ByVal truckID As Integer) As Truck
	Get
		Return (CType(Dictionary(truckID), Truck))
	End Get
	Set
		Dictionary(truckID) = Value
	End Set
	End Property

	Public ReadOnly Property Keys() As ICollection
		  Get
			  Return(Dictionary.Keys)
		  End Get
	End Property

	Public ReadOnly Property Values() As ICollection
		  Get
			  Return(Dictionary.Values)
		  End Get
	End Property

	  Public Function Contains(ByVal truckID As Integer) As Boolean
		   Return Dictionary.Contains(truckID)
	  End Function

	Public Sub Add(ByVal truckID As Integer, ByVal truck As Truck)
		Dictionary.Add(truckID, truck)
	End Sub

	  Public Sub Remove(ByVal truckID As Integer)
		Dictionary.Remove(truckID)
	  End Sub
End Class

End Namespace
