document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Inherits VehiculodeTransporte
  4.  
  5. Public Function crearVehiculo() As Vehiculo
  6.  
  7.   Dim mibus As New Bus
  8.  
  9.   mibus.setcodigo(mibus.generarCodigo())
  10.   Return mibus
  11.  
  12. End
');