Codigo de la calculadora (Por Kevin H.)

Private Sub borrar_Click()Visor.Caption = ""aux1.Caption = ""aux2.Caption = ""End Sub
Private Sub cero_Click()Visor.Caption = Visor.Caption + "0"End Sub
Private Sub cinco_Click()Visor.Caption = Visor.Caption + "5"End Sub
Private Sub coma_Click()Visor.Caption = Visor.Caption + "."End Sub
Private Sub cuatro_Click()Visor.Caption = Visor.Caption + "4"End Sub
Private Sub dividir_Click()aux1.Caption = Visor.Captionaux2.Caption = "/"Visor.Caption = ""End Sub
Private Sub dos_Click()Visor.Caption = Visor.Caption + "2"End Sub
Private Sub igual_Click()If aux2.Caption = "+" ThenVisor.Caption = Val(aux1.Caption) + Val(Visor.Caption)aux1.Caption = ""aux2.Caption = ""End IfIf aux2.Caption = "-" ThenVisor.Caption = Val(aux1.Caption) - Val(Visor.Caption)aux1.Caption = ""aux2.Caption = ""End IfIf aux2.Caption = "/" ThenVisor.Caption = Val(aux1.Caption) / Val(Visor.Caption)aux1.Caption = ""aux2.Caption = ""End IfIf aux2.Caption = "*" ThenVisor.Caption = Val(aux1.Caption) * Val(Visor.Caption)aux1.Caption = ""aux2.Caption = ""End IfEnd Sub
Private Sub mas_Click()aux1.Caption = Visor.Captionaux2.Caption = "+"Visor.Caption = ""End Sub
Private Sub menos_Click()aux1.Caption = Visor.Captionaux2.Caption = "-"Visor.Caption = ""End Sub
Private Sub multiplicar_Click()aux1.Caption = Visor.Captionaux2.Caption = "*"Visor.Caption = ""End Sub
Private Sub nueve_Click()Visor.Caption = Visor.Caption + "9"End Sub
Private Sub ocho_Click()Visor.Caption = Visor.Caption + "8"End Sub
Private Sub seis_Click()Visor.Caption = Visor.Caption + "6"End Sub
Private Sub siete_Click()Visor.Caption = Visor.Caption + "7"End Sub
Private Sub tres_Click()Visor.Caption = Visor.Caption + "3"End Sub
Private Sub uno_Click()Visor.Caption = Visor.Caption + "1"End Sub