Imports System
Public Module Module1
Public Sub Main()
Dim year As Integer = 2020
Dim result As String
result = If (((year Mod 4 = 0) AndAlso Not (year Mod 100 = 0)) OrElse
((year Mod 4 = 0) AndAlso (year Mod 100 = 0) AndAlso (year Mod 400 = 0)),
"Leap Year",
"Not Leap Year"
)
Console.WriteLine(result)
End Sub
End Module
' run:
'
' Leap Year
'