Calculadora 3 (por alan)

Private Sub Borrar_Click()
Numeros.Caption = "0"
coma.Enabled = True
End Sub

Private Sub Command10_Click()

End Sub

Private Sub Command13_Click()

End Sub

Private Sub Command2_Click()

End Sub

Private Sub Command3_Click()

End Sub

Private Sub Command4_Click()

End Sub

Private Sub Command5_Click()

End Sub

Private Sub Command6_Click()

End Sub

Private Sub Command7_Click()

End Sub

Private Sub Command8_Click()

End Sub

Private Sub Command9_Click()

End Sub

Private Sub cero_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "0"
Else
Numeros.Caption = Numeros.Caption + "0"
End If
End Sub

Private Sub cinco_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "5"
Else
Numeros.Caption = Numeros.Caption + "5"
End If
End Sub

Private Sub coma_Click()
Numeros.Caption = Numeros.Caption + ","
coma.Enabled = False
End Sub

Private Sub cuatro_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "4"
Else
Numeros.Caption = Numeros.Caption + "4"
End If
End Sub

Private Sub dividir_Click()
Auxiliar.Caption = Numeros.Caption
Numeros.Caption = "0"
Auxiliar5.Caption = "/"
coma.Enabled = True
End Sub

Private Sub dos_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "2"
Else
Numeros.Caption = Numeros.Caption + "2"
End If
End Sub

Private Sub Igual_Click()
If Auxiliar5.Caption = "+" Then
Numeros.Caption = Val(Auxiliar.Caption) + Val(Numeros.Caption)
Auxiliar.Caption = ""
End If
If Auxiliar5.Caption = "-" Then
Numeros.Caption = Val(Auxiliar.Caption) - Val(Numeros.Caption)
Auxiliar.Caption = ""
End If
If Auxiliar5.Caption = "/" Then
Numeros.Caption = Val(Auxiliar.Caption) / Val(Numeros.Caption)
Auxiliar.Caption = ""
End If
If Auxiliar5.Caption = "*" Then
Numeros.Caption = Val(Auxiliar.Caption) * Val(Numeros.Caption)
Auxiliar.Caption = ""
Else
If Auxiliar5.Caption = "%" Then
Numeros.Caption = Val(auxiliar2.Caption) * 100 / Val(Numeros.Caption)
auxiliar2.Caption = ""
End If
End If
End Sub

Private Sub masmenos_Click()
Numeros.Caption = Numeros.Caption * -1
coma.Enabled = True
End Sub

Private Sub multiplicar_Click()
Auxiliar.Caption = Numeros.Caption
Numeros.Caption = "0"
Auxiliar5.Caption = "*"
coma.Enabled = True
End Sub

Private Sub nueve_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "9"
Else
Numeros.Caption = Numeros.Caption + "9"
End If
End Sub

Private Sub ocho_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "8"
Else
Numeros.Caption = Numeros.Caption + "8"
End If
End Sub

Private Sub Porcentaje_Click()
Auxiliar5.Caption = "%"
auxiliar2.Caption = Numeros.Caption
Numeros.Caption = "0"
coma.Enabled = True
End Sub

Private Sub raiz_Click()
If Numeros.Caption < caption = "Error" caption =" Sqr(Numeros.Caption)" enabled =" True" caption =" Numeros.Caption" caption = "0" caption = "-" enabled =" True" caption =" 0" caption = "" caption = "6" caption =" Numeros.Caption" caption =" 0" caption = "" caption = "7" caption =" Numeros.Caption" caption =" Numeros.Caption" caption = "0" caption = "+" enabled =" True" caption =" 0" caption = "" caption = "3" caption =" Numeros.Caption" caption =" 0" caption = "" caption = "1" caption =" Numeros.Caption">