strKey = "HKLM\Software\Microsoft\Internet Explorer\Extensions\{7830DD8F-0362-4a99-BC85-4E4DF385805F}\" strPath = _VFP.FullName WshShell = CreateObject("WScript.Shell") WshShell.RegWrite(strKey + "Default Visible", "Yes", "REG_SZ") WshShell.RegWrite(strKey + "ButtonText", "Run FoxPro", "REG_SZ") WshShell.RegWrite(strKey + "Icon", strPath + ",101", "REG_SZ") WshShell.RegWrite(strKey + "HotIcon", strPath + ",101", "REG_SZ") WshShell.RegWrite(strKey + "CLSID", "{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}", "REG_SZ") WshShell.RegWrite(strKey + "Exec", strPath, "REG_SZ") * Uncomment to uninstall * WshShell.RegDelete(strKey)