Private Sub s4_Click()
Dim ruta As String
Dim destino As String
    ruta = App.Path & "/software/DCRPAL/wii-dcr_v2.1_PAL.Elf"
    destino = Dir1.Path & s4.Name
FileCopy ruta, destino
  End Sub

End Sub

Private Sub Iwrc5_Load()
    Iwr2.Hide
    
    If Iwrc2.aelf.Value = True Then
        aelf.Visible = True
        adol.Visible = False
        
    ElseIf Iwrc2.adol.Value = True Then
        aelf.Visible = False
        adol.Visible = True
       
    
End If
   
End Sub


Private Sub Drive1_Change()

On Error GoTo MensajeError

    
    Dir1.Path = Drive1.Drive

Exit Sub

MensajeError:

    If Err.Number = 68 Then MsgBox "La unidad seleccionada no está disponible", vbInformation: Resume Next

End Sub

Private Sub s4_Click()
    
End Sub