Dim customers As Customer() = { _
  New Customer With {.Name = "Paolo", .City = "Brescia", _
    .Orders = New Order() { _
      New Order With {.IdOrder = 1, .EuroAmount = 100, .Description = "Poad 1"}, _
      New Order With {.IdOrder = 2, .EuroAmount = 150, .Description = "Poad 2"}, _
      New Order With {.IdOrder = 3, .EuroAmount = 230, .Description = "Poad 3"} _
}}, _
  New Customer With {.Name = "Marco", .City = "Torino", _
    .Orders = New Order() { _
      New Order With {.IdOrder = 4, .EuroAmount = 320, .Description = "Poad 4"}, _
      New Order With {.IdOrder = 5, .EuroAmount = 170, .Description = "Poad 5"} _
}}}

Dim ordersQuery = _
  From c In customers, _
      o In c.Orders _
  Select c.Name, o.IdOrder, o.EuroAmount

For Each item In ordersQuery
  Console.WriteLine(item)
Next
