Dim productsOrdered = _
  From c In customers _
  From o In c.Orders _
    Join p In products _
    On o.IdProduct Equals p.IdProduct _
  Select p
Dim expr = Aggregate p In productsOrdered _
  Into Average(p.Price)
