Protected Sub month_SelectedIndexChanged(sender As Object, e As EventArgs) Handles month.SelectedIndexChanged
        Dim iMonth As Integer = month.SelectedIndex + 1
        'Label1.Text = iMonth.ToString()
        Dim i As Integer
        DDLDay.Items.Clear()
        Select Case iMonth
            Case 2
                For i = 1 To 28
                    Dim j As New ListItem(i)
                    DDLDay.Items.Add(j)
                Next
            Case 1, 3, 5, 7, 8, 10, 12
                For i = 1 To 31
                    Dim j As New ListItem(i)
                    DDLDay.Items.Add(j)
                Next
            Case 4, 6, 9, 11
                For i = 1 To 30
                    Dim j As New ListItem(i)
                    DDLDay.Items.Add(j)
                Next
        End Select
    End Sub