Problemita con fecha

[E N T E R]

Estoy usando la función DateAdd, lo que quiero es sumar 1 mes por cada fecha pero cuando llega la fecha el 30 de cualquier mes y si se genera hasta febrero ya las otras fecha queda en 29.

Aca dejo el code a ver si me ayudan.

Código: [Seleccionar]

Private Sub Form_Load()
    txtFecha.Text = Date
End Sub


Código: [Seleccionar]

Private Sub Command2_Click()
       
    List1.Clear
    For i = 1 To 10
        txtFecha.Text = DateAdd("m", 1, txtFecha.Text)
        List1.AddItem txtFecha.Text
    Next i

End Sub

[YAcosta]

Es porque en ese loop que haces llega a febrero con 29 dias y suma 1 mes y por eso que los demas te salen con fecha 29.
Te recomiendo este cambio

Código: (vb) [Seleccionar]

    List1.Clear
    For i = 1 To 10
        List1.AddItem DateAdd("m", i, txtFecha.Text)
    Next i


[E N T E R]

Buenisimo muchas gracias YvanB