'--"Normal" strong Typed List
Dim Ps As New List(Of Product)

'--Add Product :-o
Ps.Add(New Product With {.ID = "123", .Headline = "Test"})

'--Convert to Dictionary (see KeySelector!)
Dim Dict = Ps.ToDictionary(Function(c) c.ID)