Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '//////add the two values
        'INPUT Get the 2 values
        Dim a, b As Double
        a = Val(Me.TextBox1.Text)
        b = Val(Me.TextBox2.Text)

        'PROCESSONG; A THE TWO VALUES
        Dim result As Double
        result = a = b

        'OUTPUT: Display the result
        Call showit("The sum is ", result)
        End Sum




    End Sub
End Class