Private Sub SpinMonths_ItemClick (Position As Int, Value As Object)
Dim days As Int = MonthDays(Position)
Dim year As Int = SpinYears.Selecteditem
Dim day As Int = spinDays.SelectedIndex + 1
If year Mod 4 = 0 And spinMonths.SelectedIndex = 1 Then days = days + 1
spinDays.Clear
For i = 1 To days
spinDays.Add(NumberFormat(i, 2, 0))
Next
If day > days Then day = days
spinDays.SelectedIndex = day - 1
End Sub
Private Sub SpinYears_ItemClick (Position As Int, Value As Object)
Dim days As Int = MonthDays(spinMonths.SelectedIndex)
Dim year As Int = SpinYears.Selecteditem
Dim day As Int = spinDays.SelectedIndex + 1
If year Mod 4 = 0 And spinMonths.SelectedIndex = 1 Then ' year divisible by 4 and
If Not(year Mod 100 = 0 And year Mod 400 <> 0 ) Then ' century year whose not divisible by 400.
days = days + 1
End If
End If
spinDays.Clear
For i = 1 To days
spinDays.Add(NumberFormat(i, 2, 0))
Next
spinDays.SelectedIndex = day - 1
End Sub