[قناص المدينة]

Dim y = DateDiff("yyyy", txtbirthday.Value, Today)
txtage.Text = y

txtbirthday.Value = text box