Imports Leadtools
Imports Leadtools.Codecs
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
             
   
     
            using Leadtools;
using Leadtools.Codecs;
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";
}