Public Sub ExportToPDF(ByVal _PathFilePDF As String)
        Dim Report As New ReportDocument
        Report.Load(PathReport)
        Report.RecordSelectionFormula = RecordSelectionFormula
        Report.Refresh()
        Report.ExportToDisk(ExportFormatType.PortableDocFormat, _PathFilePDF)
    End Sub

namespace Nowcom.Quicksilver
{
  public interface IMessage
  {
  }
}
 
namespace Nowcom.Quicksilver
{
    using System.ComponentModel.Composition;

<PersistentAlias("Iif(ApprovedBy != null AND ApprovedBy > 0, True, False)")> _
Public Property IsApproved() As Boolean
    Get
        Return Convert.ToBoolean(EvaluateAlias("IsApproved"))
    End Get
    Set(ByVal Approve As Boolean)
        If IsReady() Then
            If Approve Then
                ApprovedOn = Base.BMSRemote.GetServerDate
                ApprovedBy = Base.CurrentUser(Session)

'Form1.vb
#Region " Import Declaratives "
 
Imports DevExpress.XtraEditors
Imports DevExpress.Utils.Menu
Imports System.IO
Imports System.Xml.Serialization
 
#End Region

class Program
{
    static void Main(string[] args)
    {
        var instance = new Program();
        var cat = new AssemblyCatalog(typeof(Program).Assembly);
        var container = new CompositionContainer(cat);
        container.ComposeParts(instance);
 
        foreach (var plug in instance.Plugins)