botoigualcalculadora

Public Sub ButtonIgual_Click()

  numero2 = Val(TextBoxMuestra.text)

  Select Case operacion
    Case 1
      TextBoxMuestra.text = Str$(numero1 + numero2)
      numero1 = numero1 + numero2
    Case 2
      TextBoxMuestra.text = Str$(numero1 - numero2)
      numero1 = numero1 + numero2
    Case 3
      TextBoxMuestra.text = Str$(numero1 * numero2)
      numero1 = numero1 * numero2
    Case 4
      Try TextBoxMuestra.text = Str$(numero1 / numero2)
      If Error Then
        Message.Error("Division entre 0")
      Else
        numero2 = numero1 / numero2
      Endif
  End Select

End