Public Shared Function ValidateServerCertificate(ByVal sender As Object, ByVal certificate As System.Security.Cryptography.X509Certificates.X509Certificate, ByVal chain As System.Security.Cryptography.X509Certificates.X509Chain, ByVal sslPolicyErrors As System.Net.Security.SslPolicyErrors) As Boolean
        Return True
    End Function
    Private Sub WebBrowser1_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles WebBrowser1.Validated
        System.Net.ServicePointManager.ServerCertificateValidationCallback = AddressOf ValidateServerCertificate
    End Sub

WebBrowser1.ScriptErrorsSuppressed = True