public class SignatureInfo

Public Class SignatureInfo

using DevExpress.Office.DigitalSignatures;
using DevExpress.Office.Tsp;
using System;
using System.Diagnostics;
using System.Security.Cryptography.X509Certificates;

static void SignDocument(string path, string output)
{
    DocumentSigner documentSigner = new DocumentSigner();
    documentSigner.Sign(path, output, CreateSignatureOptions(),
     CreateSignatureInfo());
    Process.Start(output);
}

static SignatureInfo CreateSignatureInfo()
{
    SignatureInfo signatureInfo = new SignatureInfo();
    signatureInfo.CommitmentType = CommitmentType.ProofOfApproval;
    signatureInfo.Time = DateTime.UtcNow;
    signatureInfo.ClaimedRoles.Clear();
    signatureInfo.ClaimedRoles.Add("Sales Representative");
    signatureInfo.Country = "USA";
    signatureInfo.City = "Seattle";
    signatureInfo.StateOrProvince = "WA";
    signatureInfo.Address1 = "507 - 20th Ave. E.";
    signatureInfo.Address2 = "Apt. 2A";
    signatureInfo.PostalCode = "98122";
    signatureInfo.Comments = "Demo Digital Signature";
    return signatureInfo;
}
static SignatureOptions CreateSignatureOptions()
{
    X509Certificate2 certificate =
     new X509Certificate2("Certificate/SignDemo.pfx", "dxdemo");
    Uri tsaServer = new Uri("https://freetsa.org/tsr");

    SignatureOptions options = new SignatureOptions();
    options.Certificate = certificate;
    options.DigestMethod = HashAlgorithmType.SHA256;

    return options;
}

Imports DevExpress.Office.DigitalSignatures
Imports DevExpress.Office.Tsp
Imports System
Imports System.Diagnostics
Imports System.Security.Cryptography.X509Certificates

Private Shared Sub SignDocument(ByVal path As String, ByVal output As String)
    Dim documentSigner As New DocumentSigner()
    documentSigner.Sign(path, output, CreateSignatureOptions(),
     CreateSignatureInfo())
    Process.Start(output)
End Sub

Private Shared Function CreateSignatureInfo() As SignatureInfo
    Dim signatureInfo As New SignatureInfo()
    signatureInfo.CommitmentType = CommitmentType.ProofOfApproval
    signatureInfo.Time = DateTime.UtcNow
    signatureInfo.ClaimedRoles.Clear()
    signatureInfo.ClaimedRoles.Add("Sales Representative")
    signatureInfo.Country = "USA"
    signatureInfo.City = "Seattle"
    signatureInfo.StateOrProvince = "WA"
    signatureInfo.Address1 = "507 - 20th Ave. E."
    signatureInfo.Address2 = "Apt. 2A"
    signatureInfo.PostalCode = "98122"
    signatureInfo.Comments = "Demo Digital Signature"
    Return signatureInfo
End Function

Private Shared Function CreateSignatureOptions() As SignatureOptions
    Dim certificate As New X509Certificate2("Certificate/SignDemo.pfx", "dxdemo")
    Dim options As New SignatureOptions()
    options.Certificate = certificate

    options.DigestMethod = HashAlgorithmType.SHA256

    Return options
End Function