Dim r As Microsoft.Win32.RegistryKey
 Dim WebBrowser32 As String = “SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION”
 r = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(WebBrowser32, True)
 r.Close()
 有时候需要用到下面的方式来加载 32 位的 IE。
 
1.首先设置生成 -> 平台 选择 x86
 2.定义出 32 位 WebBrowser 版本路径，这个路径可以在注册表中找到（cmd 中运行 regedit）
 
private const string WebBrowser32 = @“SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION”;//32位 WebBrowser 版本路径
 private const string WebBrowser64 = @“SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION”;//64位 WebBrowser 版本路径
 3.通过下面的内置方法去查找注册表中的项，如果存在就设置 WebBrowser 的版本号。
 
var registryKey = Registry.LocalMachine.OpenSubKey(WebBrowser32, true);//找到路径，并指定可以修改版本号
 4.释放 registryKey
 
registryKey.Close();
 就这样，我的 WinForm 就能调用到 32 位的 WebBrowser 了。最后附上各版本号的信息以及对应参数：
 
    10001 (0x2711)  Internet Explorer 10。网页以IE 10的标准模式展现，页面!DOCTYPE无效

    10000 (0x02710) Internet Explorer 10。在IE 10标准模式中按照网页上!DOCTYPE指令来显示网页。Internet Explorer 10 默认值。

    9999 (0x270F)   Windows Internet Explorer 9. 强制IE9显示，忽略!DOCTYPE指令

    9000 (0x2328)   Internet Explorer 9. Internet Explorer 9默认值，在IE9标准模式中按照网页上!DOCTYPE指令来显示网页。

    8888 (0x22B8)   Internet Explorer 8，强制IE8标准模式显示，忽略!DOCTYPE指令

    8000 (0x1F40)   Internet Explorer 8默认设置，在IE8标准模式中按照网页上!DOCTYPE指令展示网页

    7000 (0x1B58)   使用WebBrowser Control控件的应用程序所使用的默认值，在IE7标准模式中按照网页上!DOCTYPE指令来展示网页。 
 
Dim R As Microsoft.Win32.Registry
With R.ClassesRoot
  dim key as Dim key As Microsoft.Win32.RegistryKey
  key = .OpenSubKey("指定项的名称")
  dim arr() as string
  arr=key.GetSubKeyNames()
  dim i as integer
  for i=0 to arr.length
     'arr(i)就是你要的枚举了 
  next
end with
 
'读注册表
Dim rk As Win32.RegistryKey = Win32.Registry.ClassesRoot
'读注册表下某一项,加true意味着此项可写
Dim eKey As RegistryKey = dKey.OpenSubKey("Software").OpenSubKey("pc_sys", True)
'写注册表,如果上面没有true就写不上,也不提示
eKey.SetValue("servername", ComboBox1.Text.ToString)
'读pc_sys项下的connid值(此处假设没有connid就为Nothing,如果有就返回值)
If eKey.GetValue("connid") = 0 Or eKey.GetValue("connid") Is Nothing Then
.....
End If