Dim countries = {  _
  New Country With { .Name = "Palau", .Area = 458, .Population = 16952 }, _
  New Country With { .Name = "Monaco", .Area = 1.9, .Population = 31719 }, _
  New Country With { .Name = "Belize", .Area = 22960, .Population = 219296 }, _
  New Country With { .Name = "Madagascar", .Area = 587040, .Population _
  =13670507}}

        Dim smallCountries = From country In countries _
                             Where country.Population < 1000000 Select country
 
        For Each country In smallCountries
            Console.WriteLine(country.Name)
        Next

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov