Public Class Form1

    Private Sub BQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BQuit.Click
        'make a window pop up

    End Sub

    Private Sub BBigger_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BBigger.Click
        Dim a, b As Double
        Dim r As Double


        'Input: get the bigger #
        a = get a()
        b = get B()

        'Process: set r to bigger #
        r = calcbigger(a, b)

        'Output: show the #

        Call saywhat("The biggest number is", r)


    End Sub

    Private Sub TxtFirst_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtFirst.TextChanged
        get a () as double
        'return the first #
        Dim s As String
        s = TxtFirst.Text
        Return Val(s)
    End Sub

    Private Sub TxtSecond_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtSecond.TextChanged
 get b () as double
        'return the first #
        Dim s As String
        s = TxtSecond.Text
        Return Val(s)
    End Sub
End Class