Dim list As New ListItemCollection
Dim item As New ListItem
'Genaration year +- 5
For i As Integer = 0 To 10 - 1
item = New ListItem
item.Value = Now.AddYears(IIf(i < 5, i - 5, i - 5)).Year
item.Text = Now.AddYears(IIf(i < 5, i - 5, i - 5)).Year
list.Add(item)
Next