FabricaBus

' Gambas class file

Inherits VehiculodeTransporte

Public Function crearVehiculo() As Vehiculo

  Dim mibus As New Bus

  mibus.setcodigo(mibus.generarCodigo())
  Return mibus

End