CheckBoxRadioButton

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