PTKResolution Example for Visual Basic

Private Sub LoadPTK_Click()
   'Set new PTK option
   Dim RasterIO As New LEADRasterIO
   RasterIO.PTKResolution = 120

   ' Now load the PTK file
   RasterIO.Load LEADRasterView1.Raster, "c:\Image1.ptk", 0, 1, 1
End Sub