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