System VB.Net by API

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