Public Class Form1

    Private Sub remeinder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ' calculate the remeinder display it. 
        Dim first, second As Integer 'input values' 
        Dim result As Integer 'output values'
        ''''input''''
        first = Val(Me.txtFirst.Text)   ' Convert string to #
        second = Val(Me.txtSecond.Text)
        '' PROCESSING'''
        result = first - second         ' Add numbers
        '' OUTPUT'''
        Call saywhat("the remeinder is", result)

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtFirst.TextChanged
        '' clear the output when input changes.
        me.
    End Sub

    Private Sub sum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '' calculate the sum display it. 
        Dim first, second As Integer 'input values' 
        Dim result As Integer 'output values'
        '' input''''
        first = Val(Me.txtFirst.Text)   ' Convert string to #
        second = Val(Me.txtSecond.Text)
        '' PROCESSING'''
        result = first + second         ' Add numbers
        '' OUTPUT'''
        Call saywhat("the sum is", result)

    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ' calculate the product display it. 
        Dim first, second As Integer 'input values' 
        Dim result As Integer 'output values'
        ''''input''''
        first = Val(Me.txtFirst.Text)   ' Convert string to #
        second = Val(Me.txtSecond.Text)
        ''''PROCESSING'''
        result = first * second         ' Add numbers
        '''' OUTPUT'''
        Call saywhat("the product is", result)
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        '''' mod

    End Sub

    Sub saywhat(ByVal s As String, ByVal v As Integer)
        '''display msg and number
    End Sub


End Class