\' Gambas class file
Private listaTv As New Collection
Public Sub _new()
Dim p As New Plasma("Sony", 21, "Plateado", 399.99, 90, 0.05)
Dim lcd1 As New LCD("Panasonic", 42, "Plateado", 599.99, 290)
listaTv.Add(p, "Plasma")
listaTv.Add(lcd1, "Lcd")
End
Public Function prototipo(tipo As String) As TV
Return listaTv[tipo].clone()
End