Public Class CodecsPcdOptions 

Dim instance As CodecsPcdOptions

public class CodecsPcdOptions 

public ref class CodecsPcdOptions 

Public Sub CodecsPcdOptionsExample()
      Dim codecs As RasterCodecs = New RasterCodecs()

      Dim srcFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "Image1.pcd")

      ' get the current PCD load resolution
      Dim sz As LeadSize = codecs.Options.Pcd.Load.Resolution
      Console.WriteLine("Before set: {0}", sz)

      ' change it to 100 by 100 pixels
      codecs.Options.Pcd.Load.Resolution = New LeadSize(96, 64)
      sz = codecs.Options.Pcd.Load.Resolution
      Console.WriteLine("After set: {0}", sz)
      Dim srcImage As RasterImage = codecs.Load(srcFileName)

      codecs.Save(srcImage, Path.Combine(LEAD_VARS.ImagesDir, "pcd.bmp"), RasterImageFormat.Bmp, srcImage.BitsPerPixel)

      ' Clean up
      srcImage.Dispose()
      codecs.Dispose()
   End Sub

Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class

public void CodecsPcdOptionsExample()
   {
      RasterCodecs codecs = new RasterCodecs();

      string srcFileName = Path.Combine(LEAD_VARS.ImagesDir, "Image1.pcd");

      // get the current PCD load resolution
      LeadSize sz = codecs.Options.Pcd.Load.Resolution;
      Console.WriteLine("Before set: {0}", sz);

      // change it to 100 by 100 pixels
      codecs.Options.Pcd.Load.Resolution = new LeadSize(96, 64);
      sz = codecs.Options.Pcd.Load.Resolution;
      Console.WriteLine("After set: {0}", sz);
      RasterImage srcImage = codecs.Load(srcFileName);

      codecs.Save(srcImage,  Path.Combine(LEAD_VARS.ImagesDir, "pcd.bmp"), RasterImageFormat.Bmp, srcImage.BitsPerPixel);

      // Clean up
      srcImage.Dispose();
      codecs.Dispose();
   }

static class LEAD_VARS
{
   public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}