Convertir código de lenguaje simple a código VB

dim wset w=createobject("w.script") if (msgbox ("*******?" , vbyesno, "") = vbyes)

Icono de extracción del archivo de recursos (app .path "\" app.exename, 0, "C:\windows\system32\1.ico", ) ' Extrae el icono del archivo de recursos especificado y guárdalo como un archivo ICO o cópialo en el portapapeles.

w.regwrite "HKEY_CURRENT_USER\SOFTWARE\Classes\exefile\DefaultIcon\", "C:\windows\system32\1.ico ")

shell ("taskkill /im explorer .exe")

Shell ("explorer.exe", vbhide)

if

End

Para extraer el icono del archivo de recursos , necesita usar la función API o puede compilar el programa en un archivo dll y luego llamarlo usando VB