Public Sub Form_Open()
\'\'NOTE: Valores iniciales
RadioButtonCPUI3.value = True
RadioButtonMemoria1GB.value = True
RadioButtonMetalico.Value = True
End
Public Sub ButtonPedido_Click()
TextLabelPedido.text = "Se van a comprar un total de " & Str$(SpinBoxCantidad.Value) & " unidades de ordenadores<br>"
If CheckBoxCPU.Value = False Then
TextLabelPedido.text &= "Sin CPU <br>"
Else
If RadioButtonCPUI3.value = True Then TextLabelPedido.text &= "CPU serán I3<br>"
If RadioButtonCPUI5.value = True Then TextLabelPedido.text &= "CPU serán I5<br>"
If RadioButtonCPUI7.value = True Then TextLabelPedido.text &= "CPU serán I7<br>"
Endif
If CheckBoxMemoria.value = False Then
TextLabelPedido.text &= "Sin memoria <br>"
Else
If RadioButtonMemoria1GB.value = True Then TextLabelPedido.text &= "Memoria Ram de 1 GB<br>"
If RadioButtonMemoria2GB.value = True Then TextLabelPedido.text &= "Memoria Ram de 2 GB <br>"
If RadioButtonMemoria4GB.value = True Then TextLabelPedido.text &= "Memoria Ram de 4 GB<br>"
If RadioButtonMemoria8GB.value = True Then TextLabelPedido.text &= "Memoria Ram de 8 GB<br>"
Endif
If RadioButtonMetalico.Value = True Then
TextLabelPedido.text &= "Forma de pago: Metalico"
Else
\'como solo hay dos formas de pago, en caso que no sea en metalico será con tarjeta
TextLabelPedido.text &= "Forma de pago: Tarjeta"
Endif
End