Function: Fill Month's Name in dropdownlist

 Private Sub FillMonths()

        Dim month As DateTime = Convert.ToDateTime("1/1/2000")

        Dim NextMont As DateTime '= month.AddMonths(i)

        For iCnt As Int16 = 0 To 11

            NextMont = month.AddMonths(iCnt)

            ddlMonth.Items.Add(New ListItem(NextMont.ToString("MMMM"), iCnt))

        Next

    End Sub