Public Class AutoCropCommand 
   Inherits Leadtools.ImageProcessing.RasterCommand
   Implements IRasterCommand 

Dim instance As AutoCropCommand

public class AutoCropCommand : Leadtools.ImageProcessing.RasterCommand, IRasterCommand  

public ref class AutoCropCommand : public Leadtools.ImageProcessing.RasterCommand, IRasterCommand  

Public Sub AutoCropCommandExample()
   Dim codecs As New RasterCodecs()
   codecs.ThrowExceptionsOnInvalidImages = True

   Dim image As RasterImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Master.jpg"))

   ' Prepare the command
   Dim command As AutoCropCommand = New AutoCropCommand()
   ' AutoCrop the image with 20 tolerance.
   command.Threshold = 20
   command.Run(image)

End Sub

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

public void AutoCropCommandExample()
   {
      // Load an image
      RasterCodecs codecs = new RasterCodecs();
      codecs.ThrowExceptionsOnInvalidImages = true;

      RasterImage image = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Master.jpg"));

      // Prepare the command
      AutoCropCommand command   = new AutoCropCommand();
      //AutoCrop the image with 20 tolerance.
      command.Threshold         = 20;
      command.Run(image);

   }

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

public void AutoCropCommandExample(RasterImage image, Stream outStream)
{
   // Prepare the command
   AutoCropCommand command   = new AutoCropCommand();
   //AutoCrop the image with 20 tolerance.
   command.Threshold         = 20;
   command.Run(image);
   // Save result image
   RasterCodecs codecs = new RasterCodecs();
   codecs.Save(image, outStream, RasterImageFormat.CcittGroup4, 1);
   image.Dispose();
}

Public Sub AutoCropCommandExample(ByVal image As RasterImage, ByVal outStream As Stream)
   ' Prepare the command
   Dim command As AutoCropCommand = New AutoCropCommand()
   'AutoCrop the image with 20 tolerance.
   command.Threshold = 20
   command.Run(image)
   ' Save result image
   Dim codecs As RasterCodecs = New RasterCodecs()
   codecs.Save(image, outStream, RasterImageFormat.CcittGroup4, 1)
   image.Dispose()
End Sub