Not sure why you need Index
, but this code will work:
Dim CurYear As Integer = Date.Now.Year
Dim CurYearMinus100 As Integer = CurYear - 100
Do While CurYear >= CurYearMinus100
DropDownListYear.Items.Add(New ListItem(CurYear.ToString(), CurYear.ToString()))
CurYear -= 1
Loop