Restar 1 año a una fecha

Hola,

Tengo una duda sobre fechas:
¿Cómo puedo restar 1 año de una fecha teniendo la seguridad de que el día y
el mes permanecerán constantes?

Es decir,
si hago esto:

Dim fecha1, fecha2 As DateTime

fecha1 = Now
fecha2 = fecha1.Substract( New TimeSpan( 365,0,0,0 ) )

si fecha1 = 2-12-2005
¿puedo estar seguro de que fecha2 será igual a 2-12-2004?

Saludos y gracias,
Mario Vázquez