Option Explicit

Private Sub Check2_Click()
    txt_pociones.Enabled = Not txt_pociones.Enabled
End Sub

Private Sub cmd_cancelar_Click()
    Unload Me
End Sub

Private Sub cmd_Retar_Click()
    If Not IsNumeric(txt_oro.Text) Or Not IsNumeric(oro_2vs2.Text) Then
        Call MsgBox("El oro tiene que ser valor numérico", vbCritical, "Error")
        txt_oro.Text = 1
        Exit Sub
    End If

    If IsNumeric(txt_oponente.Text) Or IsNumeric(oponente1_txt.Text) Or IsNumeric(oponente2.txt.Text) Then
        Call MsgBox("Nombre inválido.", vbCritical, "Error")
        txt_oponente.Text = vbNullString
        Exit Sub
    End If

    If option_1vs1.value = True Then
        Call WriteEnviarReto1vs1(txt_oponente.Text, CLng(txt_oro.Text), check_objetos.value)
    ElseIf option_2vs2.value = True Then
        Call WriteSendReto(pareja_Txt.Text, oponente1_txt.Text, oponente2_txt.Text, CLng(oro_2vs2.Text), check_objetos2vs2.value, IIf(IsNumeric(txt_pociones2vs2.Text), CInt(txt_pociones2vs2.Text), 0))
    End If

    Unload Me
End Sub

Private Sub Form_Load()
    option_1vs1.value = True
End Sub

Private Sub option_1vs1_Click()
    option_2vs2.value = Not option_2vs2.value
    frame_1vs1.Visible = Not frame_1vs1.Visible
    frame_2vs2.Visible = Not frame_2vs2.Visible
End Sub

Private Sub option_2vs2_Click()
    option_1vs1.value = Not option_1vs1.value
    frame_1vs1.Visible = Not frame_1vs1.Visible
    frame_2vs2.Visible = Not frame_2vs2.Visible
End Sub