ListaArticulos.Initialize
NewArt.Initialize
NewArt.Put("nombre","Harina COLOLO 0000 1kg.")
NewArt.Put("marca","COLOLO")
NewArt.Put("comercio","'El Campo'")
NewArt.Put("precio", 50)
NewArt.Put("precio antes", 60)
NewArt.Put("categoria","Almacén")
NewArt.Put("unidad", 1)
Sub btn_mas_unidad_Click
NewArt.Get("unidad") = NewArt.Get("unidad") + NewArt.Get("unidad")
End Sub