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, txtSecond.TextChanged '' clear the output when input changes. Me.lstAnswers.Items.Clear() End Sub Private Sub sum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click '' calculate the sum display it. ''DECLARATIONS: Dim first, second As Integer 'input values' Dim result As Integer 'output values' Dim answer As Double '' 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) Dim S As String Dim t As String S = "the sum is" t = Format(answer) 'convert # to sting Me.lstAnswers.Items.Add(S + t) 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 Private Sub txtSecond_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSecond.TextChanged End Sub End Class