Set Internet Explorer proxy settings from VB.Net code

Public Sub EnableProxy()
        If objHost.DirectConnection = False Then
            Dim regKey As RegistryKey

            regKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings", True)

            regKey.SetValue("ProxyEnable", True, RegistryValueKind.DWord)
            regKey.SetValue("ProxyServer", objHost.ProxyAddress.ToString + ":" + objHost.ProxyPort.ToString, RegistryValueKind.String)

            If objHost.BypassLocal Then
                regKey.SetValue("ProxyOverride", "<local>", RegistryValueKind.String)
            Else
                regKey.DeleteValue("ProxyOverride", False)
            End If

            regKey.Close()
        Else
            MessageBox.Show("Network Switcher is currently not configured to use a proxy server. " + ControlChars.CrLf + _
                            "Please open Network Switcher settings dialog and configure the proxy server.", "Missing proxy settings", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End If
    End Sub

    Public Sub DisableProxy()
        Dim regKey As RegistryKey

        regKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings", True)

        regKey.SetValue("ProxyEnable", False, RegistryValueKind.DWord)

        regKey.Close()
    End Sub

RESTART THE IE Instance :)

Hi mahadevan_v

When I use your code I get an 'objHost not declared' error. I notice from your code that you do not declare the objHost object. Do I need to import a namespace?