Verificando se um determinado ano é bissexto

'Este exemplo mostra como verificar se um determinando
'ano é bissexto. Um ano é bissexto quando o mês de
'fevereiro possui 29 dias

Module Module1
  Sub Main()
    For i As Integer = 2000 To 2007 Step 1
      Dim bisext As Boolean = System.DateTime.IsLeapYear(i)
      If bisext Then
        Console.WriteLine(i & " é bissexto")
      Else
        Console.WriteLine(i & " não é bissexto")
      End If
    Next

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module