Como extrair o ano da data atual

'Este exemplo mostra como extrair o ano da data
'atual

Module Module1
  Sub Main()
    Dim agora As DateTime = DateTime.Now

    'obtém o ano.
    Dim ano As Integer = agora.Year

    Console.WriteLine("O ano para esta data é: " & ano)

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