VB program to dispaly age from birth date

Design Window:- Code: Private Sub cmdClear_Click() Text1.Text = "" Text2.Text = "" Text1.SetFocus End Sub Private Sub cmdDisplay_Click() Dim b As Date Dim d As Date Dim age As Date b = Text1.Text d = Format$(Now, "dd/mm/yyyy hh:mm:ss ") age = Format$(d - b, "dd/mm/yyyy hh:mm:ss") Text2.Text = Year(age) Text3.Text = Month(age) Text4.Text = Day(age) Text5.Text = Hour(age) Text6.Text = Minute(age) Text7.Text = Second(age) End Sub Private Sub cmdExit_Click() Unload Me End Sub =================================================== OUTPUT