Dim age As Integer = 86400
        Dim now As DateTime = DateTime.Now
        Dim birthday As DateTime = now - TimeSpan.FromSeconds(age)
        MsgBox(age.ToString & vbCrLf & now.ToString & vbCrLf & _
          birthday.ToString)