Hola..
Otra pregunta mas a ver si me ayudan.
Como puedo hacer esto..?
Dim Fecha, Fecha1 As Date
Fecha = Now
Fecha2 = Fecha + 6 =Zzz> AQUI ME DA ERROR. ME DICE QUE NO SUMA FECHA CON ENTEROS
txtSemInicio.Text = (Fecha).ToShortDateString()
En Vb6 era tan facil como eso. A cualquier fecha le sumas cualquier numero y listo, ahora todo es un protocolo inmenso y complicado