'Create new X509 store from local certificate store.
        Dim store As New X509Store("MY", StoreLocation.CurrentUser)
        store.Open(OpenFlags.OpenExistingOnly Or OpenFlags.ReadWrite)

        'Put certificates from the store into a collection so user can select one.
        Dim fcollection As X509Certificate2Collection = CType(store.Certificates, X509Certificate2Collection)
        Dim collection As X509Certificate2Collection = X509Certificate2UI.SelectFromCollection(fcollection, "Select an X509 Certificate", "Choose a certificate to examine.", X509SelectionFlag.SingleSelection)
        Dim certificate As X509Certificate2 = collection(0)
        'X509Certificate2UI.DisplayCertificate(certificate)
        'Output chain information of the selected certificate.

        ' Строим цепочку.
        Dim ch As X509Chain = New X509Chain()
        ch.Build(certificate)
        ' Выводим информацию о цепочке.
        Me.ListBox1.Items.Add("Цепочка")
        ch.ChainPolicy.RevocationFlag = X509RevocationFlag.ExcludeRoot
        ch.ChainPolicy.RevocationMode = X509RevocationMode.Online
        ch.ChainPolicy.VerificationFlags = X509VerificationFlags.NoFlag




        Me.ListBox1.Items.Add("Флаг проверки цепочки на отзыва: {0}" & _
            ch.ChainPolicy.RevocationFlag)
        Me.ListBox1.Items.Add("Режим проверки цепочки на отзыв: {0}" & _
            ch.ChainPolicy.RevocationMode)
        Me.ListBox1.Items.Add("Условия проверки цепочки: {0}" & _
            ch.ChainPolicy.VerificationFlags)
        Me.ListBox1.Items.Add("Время проверки цепочки: {0}" & _
            ch.ChainPolicy.VerificationTime)
        Me.ListBox1.Items.Add("Длина цепочки состояний: {0}" & _
            ch.ChainStatus.Length)
        Me.ListBox1.Items.Add("Длина массива задающих политику применения " _
            & "и расширенныя использования ключа: {0}" & _
            ch.ChainPolicy.ApplicationPolicy.Count)
        Me.ListBox1.Items.Add("Длина массива политик, поддерживаемых " _
            & ch.ChainPolicy.CertificatePolicy.Count & ", сертификатом: {0} {1}" & _
            Environment.NewLine)

        ' Выводим инормацию об элементах цепочки.
        Me.ListBox1.Items.Add("Элементы цепочки")
        Me.ListBox1.Items.Add("Количество элементов в цепочке: {0}" & _
            ch.ChainElements.Count)
        Me.ListBox1.Items.Add("Статус синхронизации (потокобезопасности) " _
           & ch.ChainElements.IsSynchronized & ", цепочки: {0} {1}" & _
             Environment.NewLine)

        For Each element As X509ChainElement In ch.ChainElements
            Me.ListBox1.Items.Add("Имя: {0} " & _
                element.Certificate.SubjectName.Name)
            Me.ListBox1.Items.Add("Имя издателя: {0} " & _
                element.Certificate.Issuer)
            Me.ListBox1.Items.Add("Сертификат действителен до: {0} " & _
                element.Certificate.NotAfter)
            Me.ListBox1.Items.Add("Сертификат действителен: {0} " & _
                element.Certificate.Verify)
            Me.ListBox1.Items.Add("Длина цепочки состояний сертификата: {0}" & _
                element.ChainElementStatus.Length)
            Me.ListBox1.Items.Add("Информация: {0}" & element.Information)
            Me.ListBox1.Items.Add("Количество расширений сертификата: {0}{1}" & _
                element.Certificate.Extensions.Count & " - " & Environment.NewLine)

            'Me.ListBox1.Items.Add("!--! " & ch.ChainStatus(0).Status)
            'element.ChainElementStatus
            If ch.ChainStatus.Length > 1 Then
                For index As Integer = 0 To element.ChainElementStatus.Length - 1
                    Me.ListBox1.Items.Add(element.ChainElementStatus(index).Status)
                    Me.ListBox1.Items.Add(element.ChainElementStatus(index).StatusInformation)
                Next
            End If
        Next
        store.Close()