publicclass Test
public Shared Sub Main
Dim Expiration As Date
Dim NewExpiration As Date
Expiration = #1/1/2005#
Expiration.AddYears(3)
NewExpiration = Expiration.AddYears(3)
Console.WriteLine("The new expiration date is: " & NewExpiration)
End Sub
End class