Private hnombre As String Private hunidades As Integer Property Read nombre As String Property unidades As Integer Public Sub _new($nombre As String, $unidades As Integer) hnombre = $nombre hunidades = $unidades End Private Function nombre_Read() As String Return hnombre End Private Function unidades_Read() As Integer Return hunidades End Private Sub unidades_Write(Value As Integer) hunidades = Value End Public Sub addIngrediente(cantidad As Float) hunidades += cantidad End