RosettaCodeData/Task/Leap-year/Visual-Basic-.NET/leap-year.vb

Module Module1

    Sub Main()
        For Each y In {1900, 1994, 1996, Date.Now.Year}
            Console.WriteLine("{0} is {1}a leap year.", y, If(Date.IsLeapYear(y), String.Empty, "not "))
        Next
    End Sub

End Module