Calculadora Visual Basic (por Sabri)

Calculadora

Private Sub Borrar_Click()
Cuentas.Caption = ""
End Sub

Private Sub dividido_Click()
Auxiliar.Caption = Cuentas.Caption
Cuentas.Caption = ""
Auxiliar2.Caption = "/"End Sub

Private Sub igual_Click()
If Auxiliar2.Caption = "+"
Then Cuentas.Caption = Val(Auxiliar.Caption) + Val(Cuentas.Caption)
End If
If Auxiliar2.Caption = "-"
Then Cuentas.Caption = Val(Auxiliar.Caption) - Val(Cuentas.Caption)
End If
If Auxiliar2.Caption = "/"
Then Cuentas.Caption = Val(Auxiliar.Caption) / Val(Cuentas.Caption)
End If
If Auxiliar2.Caption = "*"
Then Cuentas.Caption = Val(Auxiliar.Caption) * Val(Cuentas.Caption)
End If
If Auxiliar2.Caption = "%"
ThenCuentas.Caption = Val(Auxiliar.Caption) / Val(Cuentas.Caption) * 100
End If
End Sub

Private Sub Mas_Click()
Auxiliar.Caption = Cuentas.Caption
Cuentas.Caption = ""Auxiliar2.Caption = "+"
End Sub

Private Sub menos_Click()
Auxiliar.Caption = Cuentas.Caption
Cuentas.Caption = ""
Auxiliar2.Caption = "-"
End Sub
Private Sub por_Click()
Auxiliar.Caption = Cuentas.Caption
Cuentas.Caption = ""
Auxiliar2.Caption = "*"
End Sub
Private Sub porcentaje_Click()
Auxiliar.Caption = Cuentas.Caption
Cuentas.Caption = ""
Auxiliar2.Caption = "%"
End Sub

Private Sub uno_Click()
Cuentas.Caption = Cuentas.Caption + "1"
End Sub
Private Sub dos_Click()
Cuentas.Caption = Cuentas.Caption + "2"
End Sub
Private Sub tres_Click()
Cuentas.Caption = Cuentas.Caption + "3"
End Sub
Private Sub cuatro_Click()
Cuentas.Caption = Cuentas.Caption + "4"
End Sub
Private Sub cinco_Click()
Cuentas.Caption = Cuentas.Caption + "5"
End Sub
Private Sub seis_Click()
Cuentas.Caption = Cuentas.Caption + "6"
End Sub
Private Sub siete_Click()
Cuentas.Caption = Cuentas.Caption + "7"
End Sub
Private Sub ocho_Click()
Cuentas.Caption = Cuentas.Caption + "8"
End Sub
Private Sub nueve_Click()
Cuentas.Caption = Cuentas.Caption + "9"
End Sub
Private Sub cero_Click()
Cuentas.Caption = Cuentas.Caption + "0"
End Sub