Ejercicio: Calculo de años

Aplicacion de Escritorio que le solicita al usuario su nombre y su fecha de nacimiento para indicarle la edad que tendrá en el año 2030:


Public Class frmCalculoAnos

    Private Sub btnCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalcular.Click
        Dim Mensaje As String
        Dim anios As Integer

        anios = 2030 - nudAnio.Value


        Mensaje = txtNombre.Text & " tendrá " & anios & " en el año 2030"

        MessageBox.Show(Mensaje, "Calculo de Años en el 2030", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub
End Class