Adicinando meses a data atual em VB

'Este exemplo mostra como adicionar meses à
'data atual

Module Module1
  Sub Main()
    Dim agora As DateTime = DateTime.Now
    Dim meses As Integer = 2 'vamos adicionar 2 meses

    'exibe a data atual
    Console.WriteLine("Hoje é: " & agora.ToString("dd/MM/yyyy"))

    'adiciona os meses
    agora = agora.AddMonths(meses)

    'exibe a nova data e hora
    Console.WriteLine("Daqui " & meses & " meses será: " _
      & agora.ToString("dd/MM/yyyy"))

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