LINQ:複数項目のSelect

'---複数項目Selectする場合は、匿名クラスに値を入れないといけない
Dim list = list6.Select(Function(x) New With {.GrantSum = x.UserGrant + 100, .UserGrant})
For Each x In list
　Console.WriteLine(x.GrantSum & " " & x.UserGrant)
Next

’---Select　+　Where
Dim list2 = list1.Select(Function(x) New With {.GrantSum = x.UserGrant + 100,
　x.UserGrant, x.UserId}) _
　.Where(Function(x) x.GrantSum > 102)
For Each x In list2
　Console.WriteLine(x.ToString)
Next