intReturn = Msgbox("Pulse Si para desregistrar No para registrar", vbYesNo, "Protección WMF")

If intReturn = vbYes Then
  Set objShell = CreateObject("WScript.Shell")
  objShell.Run "regsvr32 -u shimgvw.dll"
  nul = Msgbox("Protección habilitada", 0, "shimgvw.dll DESREGISTRADO")
End If

If intReturn = vbNo Then
  Set objShell = CreateObject("WScript.Shell")
  objShell.Run "regsvr32 shimgvw.dll"
  nul = Msgbox("¡Protección deshabilitada! ACTUE CON PRECAUCION", 48, "shimgvw.dll REGISTRADO")
End If