Factory

' A Simple Interface

Public Interface IVehicle

    Sub Drive(ByVal miles As Integer)

End Interface

' The Vehicle Factory

Public Class VehicleFactory

    Public Shared Function getVehicle(ByVal Vehicle As String) As IVehicle

        Select Case Vehicle

            Case "Car"

                Return New Car

            Case "Lorry"

                Return New Lorry

            Case Else

                Throw New ApplicationException(String.Format("Vehicle '{0}' cannot be created", Vehicle))

        End Select

    End Function

End Class

' A Car Class that Implements the IVehicle Interface

Public Class Car

    Implements IVehicle

    Public Sub Drive(ByVal miles As Integer) Implements IVehicle.Drive

        ' Drive the Car

    End Sub

End Class

' A Lorry Class that Implements the IVehicle Interface

Public Class Lorry

    Implements IVehicle

    Public Sub Drive(ByVal miles As Integer) Implements IVehicle.Drive

        ' Drive the Lorry

    End Sub

End Class