Private Sub OpenUrl()SubOpenUrl(ByRefurlAsString) DimbrowserAsString = GetDefaultBrowser() If browser.Length >0Then Dim psi As ProcessStartInfo =New ProcessStartInfo psi.UseShellExecute =False psi.Arguments = url psi.FileName = browser System.Diagnostics.Process.Start(psi) Else System.Diagnostics.Process.Start(url) EndIf End Sub PrivateFunction GetDefaultBrowser()Function GetDefaultBrowser() Dim browser As String=String.Empty Dim key As RegistryKey Try key = Registry.ClassesRoot.OpenSubKey("HTTP\shell\open\command", False) browser = key.GetValue(Nothing).ToString().ToLower().Replace("""", "") IfNot browser.EndsWith(".exe") Then browser = browser.Substring(0, browser.LastIndexOf(".exe") +4) EndIf Catch ex As Exception IfNot key IsNothing Then key.Close() EndIf EndTry GetDefaultBrowser = browser End Function