>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) >