Calculadora 2 (por Lau)

Private Sub C_Click()
Visor.Text = "0"
auxiliar.Caption = "0"
operacion.Caption = ""
End Sub
Private Sub cero_Click()
Visor.Text = Visor.Text + "0"
End Sub
Private Sub cinco_Click()
Visor.Text = Visor.Text + "5"
End Sub
Private Sub cuatro_Click()
Visor.Text = Visor.Text + "4"
End Sub
Private Sub division_Click()
auxiliar.Caption = Visor.Text
Visor.Text = "0"
operacion.Caption = "/"
End Sub
Private Sub dos_Click()
Visor.Text = Visor.Text + "2"
End Sub
Private Sub igual_Click()
If operacion.Caption = "+" Then
Visor.Text = Val(auxiliar.Caption) + Val(Visor.Text)
End If
If operacion.Caption = "-" Then
Visor.Text = Val(auxiliar.Caption) - Val(Visor.Text)
End If
If operacion.Caption = "*" Then
Visor.Text = Val(auxiliar.Caption) * Val(Visor.Text)
End If
If operacion.Caption = "/" Then
Visor.Text = Val(auxiliar.Caption) / Val(Visor.Text)
End If
auxiliar.Caption = "0"
operacion.Caption = ""
End Sub
Private Sub multiplicacion_Click()
auxiliar.Caption = Visor.Text
Visor.Text = "0"
operacion.Caption = "*"
End Sub
Private Sub nueve_Click()
Visor.Text = Visor.Text + "9"
End Sub
Private Sub ocho_Click()
Visor.Text = Visor.Text + "8"
End Sub
Private Sub OFF_Click()
uno.Enabled = False
dos.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
seis.Enabled = False
siete.Enabled = False
ocho.Enabled = False
nueve.Enabled = False
cero.Enabled = False
suma.Enabled = False
resta.Enabled = False
multiplicacion.Enabled = False
division.Enabled = False
OFF.Enabled = False
C.Enabled = False
igual.Enabled = False
punto.Enabled = False
Visor.Text = ""
End Sub
Private Sub ON_Click()
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
cinco.Enabled = True
seis.Enabled = True
siete.Enabled = True
ocho.Enabled = True
nueve.Enabled = True
cero.Enabled = True
suma.Enabled = True
resta.Enabled = True
multiplicacion.Enabled = True
division.Enabled = True
OFF.Enabled = True
C.Enabled = True
igual.Enabled = True
punto.Enabled = True
Visor.Text = "0"
End Sub
Private Sub porcentaje_Click()
auxiliar.Caption = "%"
auxiliar.Caption = Visor.Text
Visor.Text = ""
End Sub
Private Sub punto_Click()
Visor.Text = Visor.Text + "."
End Sub
Private Sub resta_Click()
auxiliar.Caption = Visor.Text
Visor.Text = "0"
operacion.Caption = "-"
End Sub
Private Sub seis_Click()
Visor.Text = Visor.Text + "6"
End Sub
Private Sub siete_Click()
Visor.Text = Visor.Text + "7"
End Sub
Private Sub suma_Click()
auxiliar.Caption = Visor.Text
Visor.Text = "0"
operacion.Caption = "+"
End Sub
Private Sub tres_Click()
Visor.Text = Visor.Text + "3"
End Sub
Private Sub uno_Click()
Visor.Text = Visor.Text + "1"
End Sub