VB.NET Script for Implementing ICerfificatePolicy

Imports System.Net
Imports System.Security.Cryptography.X509Certificates
Public Class CertPolicy Implements ICertificatePolicy
Public Function CheckValidationResult(ByVal _
svcPnt As ServicePoint, ByVal cert As X509Certificate, _
ByVal req As WebRequest, ByVal certProblem As Integer) _
As Boolean Implements ICertificatePolicy.CheckValidationResult
Return True
End Function
End Class