Namespace MyApp
 
	Public Class Cars
		Property CarName As String
	End Class
 
	Public Class Planes
		Property PlaneType As String
	End Class
 
	Public Interface ICarComponent
		Function DoSomeThing() As IList(Of Cars)
	End Interface
 
	Public Class CarComponent
		Inherits Component(Of Cars)
		Implements ICarComponent
 
		Private ReadOnly mCarRepository As ICarRepository
 
		Public Sub New(pCarRepository As ICarRepository)
			MyBase.new(pCarRepository)
		End Sub
 
		Private Function DoSomeThing() As IList(Of Cars) Implements _
  ICarComponent.DoSomeThing
			Return mCarRepository.DoSomeThing()
		End Function
 
	End Class
 
 
	Public Interface ICarRepository
		Function DoSomeThing() As IList(Of Cars)
	End Interface
 
	Public Class CarRepository
		Inherits Repository(Of Cars)
		Implements ICarRepository
 
		Public Sub New(unitOfWork As IUnitOfWork)
			MyBase.New(unitOfWork)
		End Sub
 
		Private Function GetAllActive() As IList(Of Cars) Implements _
  ICarRepository.DoSomeThing
			Return GetDataFromDatabase
		End Function
 
	End Class
 
 
 
	Public MustInherit Class Repository(Of TEntity As Class)
		Implements IRepository(Of TEntity)
 
		Private ReadOnly mObjectSet As IObjectSet(Of TEntity)
		Private ReadOnly mUnitOfWork As IEFUnitOfWork
		Private ReadOnly mObjectContext As ObjectContext
 
		Public Sub New(ByVal pUnitOfWork As IUnitOfWork)
			mUnitOfWork = pUnitOfWork
			mObjectContext = mUnitOfWork.Context
 
			If Me.mUnitOfWork IsNot Nothing AndAlso Me.mObjectContext IsNot Nothing Then
				mObjectSet = mObjectContext.CreateObjectSet(Of TEntity)()
			End If
		End Sub
 
	End Class
 
End Namespace