Public Class ShearCommand 
   Inherits RasterCommand
   Implements IRasterCommand 

Dim instance As ShearCommand

public class ShearCommand : RasterCommand, IRasterCommand  

public ref class ShearCommand : public RasterCommand, IRasterCommand  

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

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

      ' Shear the image 15 degrees vertically
      Dim command As ShearCommand = New ShearCommand()
      command.Angle = -15 * 100
      command.FillColor = New RasterColor(255, 255, 255)
      command.Horizontal = False
      command.Run(image)

      ' Save the image back to disk
      codecs.Save(image, destFileName, RasterImageFormat.Bmp, 32)

      ' 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 ShearCommandExample()
   {
      RasterCodecs codecs = new RasterCodecs();

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

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

      // Shear the image 15 degrees vertically
      ShearCommand command = new ShearCommand();
      command.Angle = -15 * 100;
      command.FillColor = new RasterColor(255, 255, 255);
      command.Horizontal = false;
      command.Run(image);

      // Save the image back to disk
      codecs.Save(image, destFileName, RasterImageFormat.Bmp, 32);

      // Clean Up
      image.Dispose();
   }

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

public void ShearCommandExample(RasterImage image, Stream destStream)
{
   RasterCodecs codecs = new RasterCodecs();
   // Shear the image 15 degrees vertically
   ShearCommand command = new ShearCommand();
   command.Angle = -15 * 100;
   command.FillColor = new RasterColor(255, 255, 255);
   command.Horizontal = false;
   command.Run(image);

   // Save the image back to disk
   codecs.Save(image, destStream, RasterImageFormat.Bmp, 32);

   // Clean Up
   image.Dispose();
}

Public Sub ShearCommandExample(ByVal image As RasterImage, ByVal destStream As Stream)
   Dim codecs As RasterCodecs = New RasterCodecs()
   ' Shear the image 15 degrees vertically
   Dim command As ShearCommand = New ShearCommand()
   command.Angle = -15 * 100
   command.FillColor = New RasterColor(255, 255, 255)
   command.Horizontal = False
   command.Run(image)

   ' Save the image back to disk
   codecs.Save(image, destStream, RasterImageFormat.Bmp, 32)

   ' Clean Up
   image.Dispose()
End Sub