[mrnooo2000]

هو نفس الكود فقط الاضافة 

كود :

       Dim Year As Integer = (Timespn.TotalDays \ 365.25)
       Dim Month As Integer = ((Timespn.TotalDays Mod 365.25) \ 30)
       Dim Day As Integer = ((Timespn.TotalDays Mod 365.25) Mod 30)
       MsgBox("Year : " & Year + Val(AgeTextBox.Text.ToString) & ",   Month : " & Month & ",   Day : " & Day)