[C#]
    TSBCertificateExtensions Included;

    TSBCertificateExtensions = Int;
      ceAuthorityKeyIdentifier = Int(1);
      ceSubjectKeyIdentifier = Int(2);
      ceKeyUsage = Int(4);
      cePrivateKeyUsagePeriod = Int(8);
      ceCertificatePolicies = Int(0x10);
      cePolicyMappings = Int(0x20);
      ceSubjectAlternativeName = Int(0x40);
      ceIssuerAlternativeName = Int(0x80);
      ceBasicConstraints = Int(0x100);
      ceNameConstraints = Int(0x200);
      cePolicyConstraints = Int(0x400);
      ceExtendedKeyUsage = Int(0x800);
      ceCRLDistributionPoints = Int(0x1000);
      ceAuthorityInformationAccess = Int(0x2000);
      ceNetscapeCertType = Int(0x4000);
      ceNetscapeBaseURL = Int(0x8000);
      ceNetscapeRevokeURL = Int(0x10000);
      ceNetscapeCARevokeURL = Int(0x20000);
      ceNetscapeRenewalURL = Int(0x40000);
      ceNetscapeCAPolicyURL = Int(0x80000);
      ceNetscapeServerName = Int(0x100000);
      ceNetscapeComment = Int(0x200000);
      ceCommonName = Int(0x400000);
      ceSubjectDirectoryAttributes = Int(0x800000);

[VB.NET]
    Property Included As TSBCertificateExtensions

    TSBCertificateExtensions As Int
      Const ceAuthorityKeyIdentifier As Int = 1
      Const ceSubjectKeyIdentifier As Int = 2
      Const ceKeyUsage As Int = 4
      Const cePrivateKeyUsagePeriod As Int = 8
      Const ceCertificatePolicies As Int = &H10
      Const cePolicyMappings As Int = &H20
      Const ceSubjectAlternativeName As Int = &H40
      Const ceIssuerAlternativeName As Int = &H80
      Const ceBasicConstraints As Int = &H100
      Const ceNameConstraints As Int = &H200
      Const cePolicyConstraints As Int = &H400
      Const ceExtendedKeyUsage As Int = &H800
      Const ceCRLDistributionPoints As Int = &H1000
      Const ceAuthorityInformationAccess As Int = &H2000
      Const ceNetscapeCertType As Int = &H4000
      Const ceNetscapeBaseURL As Int = &H8000
      Const ceNetscapeRevokeURL As Int = &H10000
      Const ceNetscapeCARevokeURL As Int = &H20000
      Const ceNetscapeRenewalURL As Int = &H40000
      Const ceNetscapeCAPolicyURL As Int = &H80000
      Const ceNetscapeServerName As Int = &H100000
      Const ceNetscapeComment As Int = &H200000
      Const ceCommonName As Int = &H400000
      Const ceSubjectDirectoryAttributes As Int = &H800000

[Pascal]
    property Included : TSBCertificateExtensions;

    TSBCertificateExtensions = set of TSBCertificateExtension;
    TSBCertificateExtension = (ceAuthorityKeyIdentifier, ceSubjectKeyIdentifier, ceKeyUsage, cePrivateKeyUsagePeriod, ceCertificatePolicies, cePolicyMappings, ceSubjectAlternativeName, ceIssuerAlternativeName, ceBasicConstraints, ceNameConstraints, cePolicyConstraints, ceExtendedKeyUsage, ceCRLDistributionPoints, ceAuthorityInformationAccess, ceNetscapeCertType, ceNetscapeBaseURL, ceNetscapeRevokeURL, ceNetscapeCARevokeURL, ceNetscapeRenewalURL, ceNetscapeCAPolicyURL, ceNetscapeServerName, ceNetscapeComment, ceCommonName, ceSubjectDirectoryAttributes);

[VB6]
    Sub IElCertificateExtensionsX.IncludeExtension(Extension As TxSBCertificateExtension)
    Sub IElCertificateExtensionsX.ExcludeExtension(Extension As TxSBCertificateExtension)
    Function IElCertificateExtensionsX.IsExtensionIncluded(Extension As TxSBCertificateExtension) As Boolean

    Enum TxSBCertificateExtension
      Const SB_CE_AUTHORITY_KEY_IDENTIFIER = 0
      Const SB_CE_SUBJECT_KEY_IDENTIFIER = 1
      Const SB_CE_KEY_USAGE = 2
      Const SB_CE_PRIVATE_KEY_USAGE_PERIOD = 3
      Const SB_CE_CERTIFICATE_POLICIES = 4
      Const SB_CE_POLICY_MAPPINGS = 5
      Const SB_CE_SUBJECT_ALTERNATIVE_NAME = 6
      Const SB_CE_ISSUER_ALTERNATIVE_NAME = 7
      Const SB_CE_BASIC_CONSTRAINTS = 8
      Const SB_CE_NAME_CONSTRAINTS = 9
      Const SB_CE_POLICY_CONSTRAINTS = 10
      Const SB_CE_EXTENDED_KEY_USAGE = 11
      Const SB_CE_CRL_DISTRIBUTION_POINTS = 12
      Const SB_CE_AUTHORITY_INFORMATION_ACCESS = 13
      Const SB_CE_NETSCAPE_CERT_TYPE = 14
      Const SB_CE_NETSCAPE_BASE_URL = 15
      Const SB_CE_NETSCAPE_REVOKE_URL = 16
      Const SB_CE_NETSCAPE_CAREVOKE_URL = 17
      Const SB_CE_NETSCAPE_RENEWAL_URL = 18
      Const SB_CE_NETSCAPE_CAPOLICY_URL = 19
      Const SB_CE_NETSCAPE_SERVER_NAME = 20
      Const SB_CE_NETSCAPE_COMMENT = 21
      Const SB_CE_COMMON_NAME = 22
    End Enum

[ActiveX]
    HRESULT _stdcall IElCertificateExtensionsX.IncludeExtension([in] TxSBCertificateExtension Extension );
    HRESULT _stdcall IElCertificateExtensionsX.ExcludeExtension([in] TxSBCertificateExtension Extension );
    HRESULT _stdcall IElCertificateExtensionsX.IsExtensionIncluded([in] TxSBCertificateExtension Extension, [out, retval] VARIANT_BOOL * Result );


    typedef enum tagTxSBCertificateExtension
    {
      SB_CE_AUTHORITY_KEY_IDENTIFIER = 0,
      SB_CE_SUBJECT_KEY_IDENTIFIER = 1,
      SB_CE_KEY_USAGE = 2,
      SB_CE_PRIVATE_KEY_USAGE_PERIOD = 3,
      SB_CE_CERTIFICATE_POLICIES = 4,
      SB_CE_POLICY_MAPPINGS = 5,
      SB_CE_SUBJECT_ALTERNATIVE_NAME = 6,
      SB_CE_ISSUER_ALTERNATIVE_NAME = 7,
      SB_CE_BASIC_CONSTRAINTS = 8,
      SB_CE_NAME_CONSTRAINTS = 9,
      SB_CE_POLICY_CONSTRAINTS = 10,
      SB_CE_EXTENDED_KEY_USAGE = 11,
      SB_CE_CRL_DISTRIBUTION_POINTS = 12,
      SB_CE_AUTHORITY_INFORMATION_ACCESS = 13,
      SB_CE_NETSCAPE_CERT_TYPE = 14,
      SB_CE_NETSCAPE_BASE_URL = 15,
      SB_CE_NETSCAPE_REVOKE_URL = 16,
      SB_CE_NETSCAPE_CAREVOKE_URL = 17,
      SB_CE_NETSCAPE_RENEWAL_URL = 18,
      SB_CE_NETSCAPE_CAPOLICY_URL = 19,
      SB_CE_NETSCAPE_SERVER_NAME = 20,
      SB_CE_NETSCAPE_COMMENT = 21,
      SB_CE_COMMON_NAME = 22
     } TxSBCertificateExtension;

[DLL]
    not implemented;