Escribir fecha de forma automatica en Textbox

[Bazooka]

Hola gente quiero resolver esto y no puedo:
Tengo un 12 textBox y quiero que al escribir la fecha en el primero (index 0) me vaya poniendo un mes más en el siguiente o sea que si coloco en el

tx(0)=10/04/2011 ---- aqui se escribe
tx(1)=10/05/2011 -----este se rellena automatic.
tx(2)=10/06/2011 -----  ''              ''            ''
............
...........

y asi hasta el 10 contemplando la posibilidad de que si fuera 31 la fecha del 1º habria que chequear si el mes sisguiente tiene esa cantidad de digitos!!!

Algun aporte?

Gracias

[E N T E R]

Proba con este amigo.

Código: [Seleccionar]

Private Sub Command1_Click()
   
    For i = 0 To 12
        Text1(i).Text = DateAdd("m", i, Date)
    Next i

End Sub


[Bazooka]

Buenisimo Ariel!! eso es lo que buscaba con eso me arme una funcion que aqui abajo posteo solo que en vez de colocar en el evento changue del textbox utilize un DateTimePiker para seleccionar la fecha inicial aca el codigo por si alguno lo precisa alguna vez:

Código: [Seleccionar]

Private Sub date1_Change()
On Error Resume Next

Dim n As Integer
    Dim tFecha As Date
    tFecha = date1.Value
   
   
    txFecha(1) = tFecha
   
    For n = 2 To txFecha.UBound
        If txFecha(n).Visible Then
            txFecha(n).text = CalcularMesSiguiente(tFecha)
            tFecha = txFecha(n).text
        End If
    Next

 

End Sub

Private Function CalcularMesSiguiente(fecha As Date) As Date
Dim tmpFecha As Date

    tmpFecha = DateAdd("m", 1, fecha)
    CalcularMesSiguiente = tmpFecha
End Function