Calcular la edad en Visual Basic

Esta aplicacion sirve para calcular la edad en años, meses y dias.
Para crear esta aplicacion necesitaremos los siguientes objetos:

• 4 TextBox 
• 4 Label
• 3 Botones 

Ubicamos los objetos en el formulario, de esta manera

Para la codificacion de los botones:
 Boton  Calcular
damos doble clic e insertamos el siguiente codigo:
Private Sub Calcular_Click()
Text2.Text = DateDiff("yyyy", Text1.Text, Format(Date, "dd/mm/yyyy"))
Text3.Text = DateDiff("d", Text1.Text, Format(Date, "dd/mm/yyyy"))
Text4.Text = DateDiff("m", Text1.Text, Format(Date, "dd/mm/yyyy"))
End Sub
    Nota: text2 es la edad en años, text3 es la edad en dias y text4 es la edad en meses
 Boton  Limpiar
damos doble clic e insertamos el siguiente codigo:
Private Sub Limpiar_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
 Boton Salir
damos doble clic e insertamos el siguiente codigo:
Private Sub Salir_Click()
End
End Sub

Y asi quedarian los botones en la ventana de codigo:

La aplicacion ejecutada:

El formato de la fecha de nacimiento es, dia/mes/año ejemplo: 15/01/2001

Blog creado por: Luis Preciado