Dim y As Integer = Date.Today.Year
e.Sender.Items.Clear
e.Sender.Items.Add(y)
e.Sender.Items.Add(y-1)