Public Class Form1

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub TxtResult_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtResult.TextChanged

    End Sub

    Private Sub Txtmansage_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtmansage.TextChanged

    End Sub

    Private Sub Btncalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btncalc.Click
        Dim mansage As Double
        Dim total As Double

        mansage = Txtmansage.Text
        total = (mansage / 2) + 7

        TxtResult.Text = "The ideal age of his wife is " & total



    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class