Private Sub btnPower_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)

End class


Private Sub btnPower_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub
Private Sub btnExpo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub btnExponetiate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub
Public Class Form1

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        '''' Add two numbers

        Dim a, b As Double
        Dim result As Double
        Dim s As String = "the sum is:"

        'INPUT: 

        a = Val(Me.txtA.Text)
        b = Val(Me.txtB.Text)

        'PROCESS:

        result = a + b

        'OUTPUT:
        Me.out1.Items.Add(s & result)
    End Sub

    Private Sub BtnSub_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSub.Click
        '''' Sub two numbers

        Dim a, b As Double
        Dim result As Double
        Dim s As String = "the sub is:"

        'INPUT: 

        a = Val(Me.txtA.Text)
        b = Val(Me.txtB.Text)

        'PROCESS:
        result = a - b

        'OUTPUT:
        Me.out1.Items.Add(s & result)

    End Sub

    Private Sub BtnMul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMul.Click
        '''' Mul two numbers

        Dim a, b As Double
        Dim result As Double
        Dim s As String = "the mul is:"

        'INPUT: 

        a = Val(Me.txtA.Text)
        b = Val(Me.txtB.Text)

        'PROCESS:

        result = a * b

        'OUTPUT:
        Me.out1.Items.Add(s & result)

    End Sub

    Private Sub btndiv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndiv.Click
        '''' div two numbers

        Dim a, b As Double
        Dim result As Double
        Dim s As String = "the quotation is:"

        'INPUT: 

        a = Val(Me.txtA.Text)
        b = Val(Me.txtB.Text)

        'PROCESS:

        result = a / b

        'OUTPUT:
        Me.out1.Items.Add(s & result)

    End Sub