scusate se aggiungo un post dopo l'altro ma ho risolto il problema per quanto riguarda il controllo con un mese di anticipo facendo così "Dim oggi As Date = Today
oggi = Today.AddMonths(1)"

in questo modo alla data corrente viene aggiunto un mese ora mi rimane solo il problema precedente