Private Sub Btigual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btigual.Click

        b = Val(TxtCalc.Text)

        Select Case OP

            Case "Suma"
                resultado = a + b
                TxtCalc.Text = resultado

            Case "Menos"
                resultado = a - b
                TxtCalc.Text = resultado

            Case "Multi"
                resultado = a * b
                TxtCalc.Text = resultado

            Case "Div"
                resultado = a / b
                TxtCalc.Text = resultado

            Case "Elevado"
                resultado = Math.Pow(a, b)
                TxtCalc.Text = resultado

            Case "Porcento"
                resp = b / 100
                resultado = resp * a
                TxtCalc.Text = resultado

        End Select

    End Sub