Public Class CropCommand 
   Inherits RasterCommand
   Implements IRasterCommand 

Dim instance As CropCommand

public class CropCommand : RasterCommand, IRasterCommand  

public ref class CropCommand : public RasterCommand, IRasterCommand  

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

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

      ' Load the source image from disk
      Dim image As RasterImage = codecs.Load(srcFileName)

      ' Crop 100 pixels from each side of the image
      Dim command As CropCommand = New CropCommand()
      command.Rectangle = New LeadRect(100, 100, image.Width - 100, image.Height - 100)
      command.Run(image)

      ' Save it to disk
      codecs.Save(image, destFileName, RasterImageFormat.Bmp, 24)

      ' Clean Up
      image.Dispose()
   End Sub

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

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

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

      // Load the source image from disk
      RasterImage image = codecs.Load(srcFileName);

      // Crop 100 pixels from each side of the image
      CropCommand command = new CropCommand();
      command.Rectangle = new LeadRect(
         100,
         100,
         image.Width - 100,
         image.Height - 100);
      command.Run(image);

      // Save it to disk
      codecs.Save(image, destFileName, RasterImageFormat.Bmp, 24);

      // Clean Up
      image.Dispose();
   }

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

public void CropCommandExample(RasterImage image, Stream destStream)
{
   RasterCodecs codecs = new RasterCodecs();
   // Crop 100 pixels from each side of the image
   CropCommand command = new CropCommand();
   command.Rectangle = new LeadRect(
      100,
      100,
      image.Width - 100,
      image.Height - 100);
   command.Run(image);

   // Save it to disk
   codecs.Save(image, destStream, RasterImageFormat.Bmp, 24);

   // Clean Up
   image.Dispose();
}

Public Sub CropCommandExample(ByVal image As RasterImage, ByVal destStream As Stream)
   Dim codecs As RasterCodecs = New RasterCodecs()
   ' Crop 100 pixels from each side of the image
   Dim command As CropCommand = New CropCommand()
   command.Rectangle = New LeadRect(100, 100, image.Width - 100, image.Height - 100)
   command.Run(image)

   ' Save it to disk
   codecs.Save(image, destStream, RasterImageFormat.Bmp, 24)

   ' Clean Up
   image.Dispose()
End Sub