Public Function LoadPsdLayer( _
   ByVal fileName As String, _
   ByVal bitsPerPixel As Integer, _
   ByVal order As CodecsLoadByteOrder, _
   ByVal layer As Integer, _
   ByVal layerInfo As CodecsPsdLayerInfo _
) As RasterImage

Dim instance As RasterCodecs
Dim fileName As String
Dim bitsPerPixel As Integer
Dim order As CodecsLoadByteOrder
Dim layer As Integer
Dim layerInfo As CodecsPsdLayerInfo
Dim value As RasterImage
 
value = instance.LoadPsdLayer(fileName, bitsPerPixel, order, layer, layerInfo)

public RasterImage LoadPsdLayer( 
   string fileName,
   int bitsPerPixel,
   CodecsLoadByteOrder order,
   int layer,
   CodecsPsdLayerInfo layerInfo
)

public:
RasterImage^ LoadPsdLayer( 
   String^ fileName,
   int bitsPerPixel,
   CodecsLoadByteOrder order,
   int layer,
   CodecsPsdLayerInfo^ layerInfo
) 

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

      Dim layerFileNames As String() = _
      { _
         Path.Combine(LEAD_VARS.ImagesDir, "Sample1.cmp"), _
         Path.Combine(LEAD_VARS.ImagesDir, "Sample2.cmp"), _
         Path.Combine(LEAD_VARS.ImagesDir, "Sample3.cmp") _
      }

      Dim srcFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "Image1.cmp")
      Dim destFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "Image1.psd")

      ' Load the layer images (as pages in 1 image)
      Dim layersImage As RasterImage = Nothing
      For Each layerFileName As String In layerFileNames
         Dim layerImage As RasterImage = codecs.Load(layerFileName)
         If layersImage Is Nothing Then
            layersImage = layerImage
         Else
            layersImage.AddPage(layerImage)
         End If
      Next layerFileName

      ' Load the image that is made up of all the layers
      Dim image As RasterImage = codecs.Load(srcFileName, 24, CodecsLoadByteOrder.BgrOrGray, 1, 1)

      ' Save this image and all the layers
      codecs.SavePsdWithLayers(image, destFileName, 0, layersImage, Nothing)
      image.Dispose()
      layersImage.Dispose()

      Dim imageInfo As CodecsImageInfo = codecs.GetInformation(destFileName, False)
      If imageInfo.Psd.Layers > 0 Then
         Dim layer As Integer = 0
         Dim layerInfo As CodecsPsdLayerInfo = New CodecsPsdLayerInfo()
         Dim layerImage As RasterImage = codecs.LoadPsdLayer(destFileName, 0, CodecsLoadByteOrder.BgrOrGray, layer, layerInfo)

         Dim blendModeKey As String = Encoding.ASCII.GetString(layerInfo.GetBlendModeKey())

         Console.WriteLine("Loaded layer at index {0}, size is {1} by {2}, Blend mode key:{3}", layer, layerImage.Width, layerImage.Height, blendModeKey)
         Console.WriteLine("TransparencyProtected is {1}, Visible is {2}, Obsolete is {3} and Psd5OrLater is {4}", _
            layerInfo.TransparencyProtected, layerInfo.Visible, layerInfo.Obsolete, layerInfo.Psd5OrLater)
         layerImage.Dispose()
      Else
         Console.WriteLine("No layers found in this PSD file")
      End If

      ' Clean up
      codecs.Dispose()
   End Sub

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

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

      string[] layerFileNames =
      {
         Path.Combine(LEAD_VARS.ImagesDir, "Sample1.cmp"),
         Path.Combine(LEAD_VARS.ImagesDir, "Sample2.cmp"),
         Path.Combine(LEAD_VARS.ImagesDir, "Sample3.cmp"),
      };

      string srcFileName = Path.Combine(LEAD_VARS.ImagesDir, "Image1.cmp");
      string destFileName = Path.Combine(LEAD_VARS.ImagesDir, "Image1.psd");

      // Load the layer images (as pages in 1 image)
      RasterImage layersImage = null;
      foreach(string layerFileName in layerFileNames)
      {
         RasterImage layerImage = codecs.Load(layerFileName);
         if(layersImage == null)
            layersImage = layerImage;
         else
            layersImage.AddPage(layerImage);
      }

      // Load the image that is made up of all the layers
      RasterImage image = codecs.Load(srcFileName, 24, CodecsLoadByteOrder.BgrOrGray, 1, 1);

      // Save this image and all the layers
      codecs.SavePsdWithLayers(image, destFileName, 0, layersImage, null);
      image.Dispose();
      layersImage.Dispose();

      CodecsImageInfo imageInfo = codecs.GetInformation(destFileName, false);
      if(imageInfo.Psd.Layers > 0)
      {
         int layer = 0;
         CodecsPsdLayerInfo layerInfo = new CodecsPsdLayerInfo();
         RasterImage layerImage = codecs.LoadPsdLayer(destFileName, 0, CodecsLoadByteOrder.BgrOrGray, layer, layerInfo);

         string blendModeKey = Encoding.ASCII.GetString(layerInfo.GetBlendModeKey());

         Console.WriteLine("Loaded layer at index {0}, size is {1} by {2}, Blend mode key:{3}", layer, layerImage.Width, layerImage.Height, blendModeKey);
         Console.WriteLine("TransparencyProtected is {0}, Visible is {1}, Obsolete is {2} and Psd5OrLater is {3}",
            layerInfo.TransparencyProtected, layerInfo.Visible, layerInfo.Obsolete, layerInfo.Psd5OrLater);
         layerImage.Dispose();
      }
      else
         Console.WriteLine("No layers found in this PSD file");

      // Clean up
      codecs.Dispose();
   }

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