aplicacion win

[mcofy]

hola mira, primero explico, no es un textbox, si no un MaskedTextBox lo que debes usar, esta herramienta es muy flexible para lo que necesitas...
ok,, insertas tu MaskedTextBox, le colocas el formato de fecha que kieras y en el codigo va esto.
obviamente lo siguiente va en el evento keypres


If e.KeyChar = Chr(13) Then

Dim ingreso As Date
Dim hoy As Date
Dim dife As String
ingreso = Me.MaskedTextBox1.Text
hoy = Format(Date.Now, "yyyy-MM-dd") ' fecha actual
dife = DateDiff(DateInterval.Year, ingreso, hoy)
TextBox8.Text = dife
TextBox8.Focus()

Me.MaskedTextBox1.Text = ""
Me.MaskedTextBox1.Focus()

End If
en el ejemplo anterior el texbox8.text es el lugar donde se colocara el resultado.


Bueno,, si te funciona me comentas, gracias! saludos!