Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Dim i As Integer
            Dim iYear As Integer
            Dim j As New ListItem(i)
            For i = 1 To 12
                j = New ListItem(i)
                month.Items.Add(j)
            Next
            iYear = Now().Year

            For i = iYear - 5 To iYear - 60 Step -1
                j = New ListItem(i)
                DDLYear.Items.Add(j)
            Next

            For i = 1 To 31
                j = New ListItem(i)
                DDLDay.Items.Add(j)
            Next
        End If
    End Sub