Display Certificates in the Current User Certificate Store

VB.NET example program to iterate over the certificates in the current user certificate store.

        ' Create a certificate store factory object
        Dim ccs As New Chilkat.CreateCS()
        ' Open the current user cert store
        Dim cstore As Chilkat.CertStore
        cstore = ccs.OpenCurrentUserStore()

        Dim numCerts As Integer
        numCerts = cstore.NumCertificates
        Dim i As Integer
        For i = 0 To numCerts - 1
            Dim cert As Chilkat.Cert
            cert = cstore.GetCertificate(i)

            ' Add the cert's DN to a listbox
            ListBox1.Items.Add(cert.SubjectDN)

            ' Check to see if the certificate has a private key
            If cert.HasPrivateKey() Then
                ListBox1.Items.Add("Has Private Key")
            End If
            ' Check to see if the certificate is expired
            If cert.Expired Then
                ListBox1.Items.Add("Expired!")
            End If
            ' Is the certificate revoked?
            If cert.Revoked Then
                ListBox1.Items.Add("Revoked!")
            End If
            ' Is the certificate's signature verified?
            If Not cert.SignatureVerified Then
                ListBox1.Items.Add("Signature NOT Verified!")
            End If
            ' Does the certificate have a trusted root?
            If Not cert.TrustedRoot Then
                ListBox1.Items.Add("Root not Trusted!")
            End If
            ListBox1.Items.Add("----")
        Next

Important: The download for this example does not contain the ChilkatDotNet.dll which
must be downloaded and installed separately at http://www.chilkatsoft.com/downloads.asp.
Once installed, add a reference to the DLL in the project by following the instructions at
http://www.example-code.com/vbdotnet/step2.asp