Problem With Putting Items to DropDownList

Hi to ALL!

I have 2 dropdownlists, 1 for months & the other for the years. I have this page_load code:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim I As Integer
        Me.Month.Items.AddRange(Threading.Thread.CurrentThread.CurrentCulture.DateTimeFormat.MonthNames)

        For I = Now.Year To Now.Year - 2 Step -1
            Me.Year.Items.Add(I)
        Next
 & ...