Public Class CodecsPtokaOptions 

Dim instance As CodecsPtokaOptions

public class CodecsPtokaOptions 

public ref class CodecsPtokaOptions 

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

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

      ' Setting new options.
      codecs.Options.Ptoka.Load.Resolution = 500

      Dim image As RasterImage = codecs.Load(srcFileName)

      ' Clean up
      image.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 CodecsPtokaOptionsExample()
   {
      RasterCodecs codecs = new RasterCodecs();

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

      // Setting new options.
      codecs.Options.Ptoka.Load.Resolution = 500;

      RasterImage image = codecs.Load(srcFileName);

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

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