Private Sub S1_Click()
            
    Dim Ruta As String
    
    Select Case True
        Case Wcrpal: Ruta = App.Path & "/software/DCRPAL/wii-dcr_v2.1_PAL.dol,wii-dcr_v2.1_PAL.Elf"
        Case Wcrusa: Ruta = App.Path & "/software/DCRUSA/wii-dcr_v2.1_USA.dol,wii-dcr_v2.1_USA.Elf"
        Case Wcrjap: Ruta = App.Path & "/software/DCRJAP/wii-dcr_v2.1_JAP.dol,wii-dcr_v2.1_JAP.Elf"
    End Select
 
    MsgBox Ruta
  
    If Wcrpal = True Then

        Iwrc2.Show
        Iwrc.Hide
        
    ElseIf Wcrusa = True Then

        Iwrc3.Show
        Iwrc.Hide
        
    ElseIf Wcrjap = True Then

        Iwrc4.Show
        Iwrc.Hide

    End If
End Sub

Private Sub Iwrc2_Load()
    Iwrc.Hide
    
    If Iwrc.Wcrpal.Value = True Then
        Wcrpal.Visible = True
        Wcrusa.Visible = False
        Wcrjap.Visible = False
    ElseIf Iwrc.Wcrusa.Value = True Then
        Wcrpal.Visible = False
        Wcrusa.Visible = True
        Wcrjap.Visible = False
    Else
        Wcrpal.Visible = False
        Wcrusa.Visible = False
        Wcrjap.Visible = True
    End If
    
End Sub


Private Sub a1_Click()
  
  Iwrc2.Hide
  Iwrc.Show
  
End Sub

Private Sub Form_Load()

End Sub

Private Sub s2_Click()

Dim Ruta As String
    
    Select Case True
        Case aelf: Ruta = App.Path & "/software/DCRPAL/wii-dcr_v2.1_PAL.Elf"
        Case adol: Ruta = App.Path & "/software/DCRPAL/wii-dcr_v2.1_PAL.dol"
    End Select
    
    MsgBox Ruta
    
End Sub

Private Sub Iwrc3_Load()
    Iwrc.Hide
    
    If Iwrc.Wcrpal.Value = True Then
        Wcrpal.Visible = True
        Wcrusa.Visible = False
        Wcrjap.Visible = False
    ElseIf Iwrc.Wcrusa.Value = True Then
        Wcrpal.Visible = False
        Wcrusa.Visible = True
        Wcrjap.Visible = False
    Else
        Wcrpal.Visible = False
        Wcrusa.Visible = False
        Wcrjap.Visible = True
    End If
    
End Sub

Private Sub a2_Click()

    Iwrc3.Hide
    Iwrc.Show
    
End Sub

Private Sub Form_Load()

End Sub

Private Sub s3_Click()

Dim Ruta As String
    
    Select Case True
        Case aelf2: Ruta = App.Path & "/software/DCRUSA/wii-dcr_v2.1_Usa.Elf"
        Case adol2: Ruta = App.Path & "/software/DCRUSA/wii-dcr_v2.1_Usa.dol"
    End Select
    
    MsgBox Ruta
    
End Sub

Private Sub Iwrc4_Load()
    Iwrc.Hide
    
    If Iwrc.Wcrpal.Value = True Then
        Wcrpal.Visible = True
        Wcrusa.Visible = False
        Wcrjap.Visible = False
    ElseIf Iwrc.Wcrusa.Value = True Then
        Wcrpal.Visible = False
        Wcrusa.Visible = True
        Wcrjap.Visible = False
    Else
        Wcrpal.Visible = False
        Wcrusa.Visible = False
        Wcrjap.Visible = True
    End If
    
End Sub

Private Sub a3_Click()

    Iwrc4.Hide
    Iwrc.Show
    
End Sub

Private Sub Form_Load()

End Sub

Private Sub s4_Click()

Dim Ruta As String
    
    Select Case True
        Case aelf3: Ruta = App.Path & "/software/DCRJAP/wii-dcr_v2.1_JAP.Elf"
        Case adol3: Ruta = App.Path & "/software/DCRJAP/wii-dcr_v2.1_JAP.dol"
    End Select
    
    MsgBox Ruta
    
End Sub