Public Class Form1

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ' Add two numbers
        'INPUT:  (Get the 2 #s)
        Dim a, b, c As Integer
        a = getfirst()
        b = getSecond()

        'PROC:
        Dim answer
        answer = a + b

        'OUTPUT:
        saywhat("The sum is ", answer)

    End Sub

    '==== INPUT METHODS:
    Function getFirsts() As Integer
        'Get first #.
        Dim result As Integer
        result = Val(Me.TextBox1.Text)
        Return result
    End Function
    Function getSeconds() As Integer
        'Get 2nd #.
        Dim result As Integer
        result = Val(Me.TextBox2.Text)
        Return result
    End Function

    '===== OUTPUT METHODS:
    Sub saywhat1(ByVal s As String, ByVal v As Integer)
        'Display a string & a value
        Me.ListBox1.Items.Add(s & v)
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
        ' Multiply two numbers
        'INPUT:  (Get the 2 #s)
        Dim a, b, c As Integer
        a = getfirst()
        b = getSecond()

        'PROC:
        Dim answer
        answer = a * b

        'OUTPUT:
        saywhat("The multiply is ", answer)

    End Sub
    '==== INPUT METHODS:
    Function getfirst() As Integer
        'Get first #.
        Dim result As Integer
        result = Val(Me.TextBox3.Text)
        Return result
    End Function
    Function getSecond() As Integer
        'Get 2nd #.
        Dim result As Integer
        result = Val(Me.TextBox2.Text)
        Return result
    End Function

    '===== OUTPUT METHODS:
    Sub saywhat(ByVal s As String, ByVal v As Integer)
        'Display a string & a value
        Me.ListBox1.Items.Add(s & v)
    End Sub