DateTime.IsLeapYear
Imports System.IO Module Module1 Sub Main() Dim Dt As DateTime = Now() If (Dt.IsLeapYear(Dt.Year)) Then Console.WriteLine("This is a leap year") Else Console.WriteLine("This is not a leap year") End If End Sub End Module