Imports Microsoft.Win32
Dim root1 as RegistryKey = Registry.LocalMachine
Dim key1 as RegistryKey = root1.OpenSubKey("SOFTWARE\Microsoft\windows\CurrentVersion\App Paths\chrome.exe",True)
try
Dim paths as String = key1.GetValue(String.empty)
Catch ex As Exception
MsgBox("打开注册表失败")
End Try