Resultado da Idade

[Viveiros]

Pessoal, preciso de uma ajuda.

Tenho um formulário e nele o usuário entra com a data de nascimento. Preciso que, após digitar a data, apareça a idade ao lado, tipo:

Data de Nasc.: 01/01/2001   Idade: 16 Anos

Alguém me ajuda, por favor ?

Grato

 

[Jhonas]

exemplo

Private Sub CmbCalcular_Click()

    Dim datanasc As Date, idade As Integer

    datanasc = CDate(MskDataNasc.Mask)
    idade = CInt((Date - datanasc) / 365)
    TxtIdade = Str(idade) & "anos"

End Sub

ou veja

https://www.google.com.br/?gws_rd=ssl#q=calcular+idade+vb6

abraço