botonesOperacionesCalculadora

Public Sub ButtonSuma_Click()
  Try numero1 = Val(TextBoxMuestra.text)
  Labeln1.text = "Numero 1: " & TextBoxMuestra.text
  operacion = 1
  TextBoxMuestra.text = ""
End

Public Sub ButtonLimpiar_Click()
  TextBoxMuestra.text = ""
End

Public Sub ButtonResta_Click()
  Try numero1 = Val(TextBoxMuestra.text)
  Labeln1.text = "Numero 1: " & TextBoxMuestra.text
  TextBoxMuestra.text = ""
  operacion = 2
End

Public Sub ButtonMuliplica_Click()
  Try numero1 = Val(TextBoxMuestra.text)
  Labeln1.text = "Numero 1: " & TextBoxMuestra.text
  TextBoxMuestra.text = ""
  operacion = 3
End

Public Sub ButtonDivide_Click()
  Try numero1 = Val(TextBoxMuestra.text)
  Labeln1.text = "Numero 1: " & TextBoxMuestra.text
  TextBoxMuestra.text = ""
  operacion = 4
End