Module IsLeapYear
Public Sub Main()
For year As Integer = 1994 to 2014
If DateTime.IsLeapYear(year) Then
Console.WriteLine("{0} is a leap year.", year)
Dim leapDay As New Date(year, 2, 29)
Dim nextYear As Date = leapDay.AddYears(1)
Console.WriteLine(" One year from {0} is {1}.", _
leapDay.ToString("d"), _
nextYear.ToString("d"))
End If
Next
End Sub
End Module