Public Class CopyRectangleCommand 
   Inherits RasterCommand
   Implements IRasterCommand 

Dim instance As CopyRectangleCommand

public class CopyRectangleCommand : RasterCommand, IRasterCommand  

public ref class CopyRectangleCommand : public RasterCommand, IRasterCommand  

Public Sub CopyRectangleCommandExample()
      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, "CopyRectangleCommand.bmp")

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

      ' Create an image from the top/right portion of this image
      Dim command As CopyRectangleCommand = New CopyRectangleCommand()
      command.Rectangle = New LeadRect(srcImage.Width \ 8, srcImage.Height \ 8, srcImage.Width \ 3, srcImage.Height \ 3)
      command.CreateFlags = RasterMemoryFlags.Conventional
      command.Run(srcImage)

      Dim destImage As RasterImage = command.DestinationImage

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

      ' Clean Up
      srcImage.Dispose()
      destImage.Dispose()
   End Sub

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

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

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

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

      // Create an image from the top/right portion of this image
      CopyRectangleCommand command = new CopyRectangleCommand();
      command.Rectangle = new LeadRect(
         srcImage.Width / 8,
         srcImage.Height / 8,
         srcImage.Width / 3,
         srcImage.Height / 3);
      command.CreateFlags = RasterMemoryFlags.Conventional;
      command.Run(srcImage);

      RasterImage destImage = command.DestinationImage;

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

      // Clean Up
      srcImage.Dispose();
      destImage.Dispose();
   }

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

public void CopyRectangleCommandExample(RasterImage srcImage, Stream destStream)
{
   RasterCodecs codecs = new RasterCodecs();
   // Create an image from the top/right portion of this image
   CopyRectangleCommand command = new CopyRectangleCommand();
   command.Rectangle = new LeadRect(
      srcImage.Width / 8,
      srcImage.Height / 8,
      srcImage.Width / 3,
      srcImage.Height / 3);
   command.CreateFlags = RasterMemoryFlags.Conventional;
   command.Run(srcImage);

   RasterImage destImage = command.DestinationImage;

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

   // Clean Up
   srcImage.Dispose();
   destImage.Dispose();
}

Public Sub CopyRectangleCommandExample(ByVal srcImage As RasterImage, ByVal destStream As Stream)
   Dim codecs As RasterCodecs = New RasterCodecs()
   ' Create an image from the top/right portion of this image
   Dim command As CopyRectangleCommand = New CopyRectangleCommand()
   command.Rectangle = New LeadRect(srcImage.Width / 8, srcImage.Height / 8, srcImage.Width / 3, srcImage.Height / 3)
   command.CreateFlags = RasterMemoryFlags.Conventional
   command.Run(srcImage)

   Dim destImage As RasterImage = command.DestinationImage

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

   ' Clean Up
   srcImage.Dispose()
   destImage.Dispose()
End Sub