Public Function New( _
   ByVal image As RasterImage, _
   ByVal region As RasterRegion, _
   ByVal startRow As Integer, _
   ByVal startColumn As Integer, _
   ByVal length As Integer _
)

Dim image As RasterImage
Dim region As RasterRegion
Dim startRow As Integer
Dim startColumn As Integer
Dim length As Integer
 
Dim instance As New LineRemoveCommandEventArgs(image, region, startRow, startColumn, length)

public LineRemoveCommandEventArgs( 
   RasterImage image,
   RasterRegion region,
   int startRow,
   int startColumn,
   int length
)

public:
LineRemoveCommandEventArgs( 
   RasterImage^ image,
   RasterRegion^ region,
   int startRow,
   int startColumn,
   int length
)

Public WithEvents lineRemoveCommand_S4 As LineRemoveCommand
Public Sub LineRemoveCommandEventArgsExample()
   Dim codecs As New RasterCodecs()
   codecs.ThrowExceptionsOnInvalidImages = True

   Dim leadImage As RasterImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Clean.tif"))

   ' Prepare the command
   lineRemoveCommand_S4 = New LineRemoveCommand(LineRemoveCommandFlags.UseGap Or LineRemoveCommandFlags.CallBackRegion, 200, 5, 7, 10, 2, 2, LineRemoveCommandType.Horizontal)
   lineRemoveCommand_S4.Run(leadImage)

End Sub

Private Sub LineRemoveCommand_LineRemove_S4(ByVal sender As Object, ByVal e As LineRemoveCommandEventArgs) Handles lineRemoveCommand_S4.LineRemove
   Dim ee As LineRemoveCommandEventArgs = New LineRemoveCommandEventArgs(e.Image, e.Region, e.StartRow, e.StartColumn, e.Length)
   e.Status = RemoveStatus.Remove
   If Not (e.Region Is Nothing) Then
      e.Image.SetRegion(Nothing, e.Region, RasterRegionCombineMode.AndNotRegion)
   End If
End Sub

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

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

      RasterImage image = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Clean.tif"));

      // Prepare the command
      LineRemoveCommand command = new LineRemoveCommand(LineRemoveCommandFlags.UseGap | LineRemoveCommandFlags.CallBackRegion, 200, 5, 7, 10, 2, 2, LineRemoveCommandType.Horizontal);
      command.LineRemove += new EventHandler<LineRemoveCommandEventArgs>(LineRemoveEvent_S4);
      command.Run(image);

   }

   private void LineRemoveEvent_S4(object sender, LineRemoveCommandEventArgs e)
   {
      LineRemoveCommandEventArgs ee = new LineRemoveCommandEventArgs(e.Image, e.Region, e.StartRow, e.StartColumn, e.Length);
      e.Status= RemoveStatus.Remove;
      if(e.Region != null)
         e.Image.SetRegion(null, e.Region, RasterRegionCombineMode.AndNotRegion);
   }

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

public void LineRemoveCommandEventArgsExample(RasterImage image, Stream outStream)
{
   // Prepare the command
   LineRemoveCommand command = new LineRemoveCommand(LineRemoveCommandFlags.UseGap | LineRemoveCommandFlags.CallBackRegion, 200, 5, 7, 10, 2, 2, LineRemoveCommandType.Horizontal);
   command.LineRemove += new EventHandler<LineRemoveCommandEventArgs>(LineRemoveEvent_S4);
   command.Run(image);
   // Save result image
   RasterCodecs codecs = new RasterCodecs();
   codecs.Save(image, outStream, RasterImageFormat.CcittGroup4, 1);
   image.Dispose();
}

private void LineRemoveEvent_S4(object sender, LineRemoveCommandEventArgs e)
{
    LineRemoveCommandEventArgs ee = new LineRemoveCommandEventArgs(e.Image, null, e.StartRow, e.StartColumn, e.Length);
    e.Status = RemoveStatus.Remove;
}

Public Sub LineRemoveCommandEventArgsExample(ByVal image As RasterImage, ByVal outStream As Stream)
   ' Prepare the command
   Dim command As LineRemoveCommand = New LineRemoveCommand(LineRemoveCommandFlags.UseGap Or LineRemoveCommandFlags.CallBackRegion, 200, 5, 7, 10, 2, 2, LineRemoveCommandType.Horizontal)
   AddHandler command.LineRemove, AddressOf LineRemoveEvent_S4
   command.Run(image)
   ' Save result image
   Dim codecs As RasterCodecs = New RasterCodecs()
   codecs.Save(image, outStream, RasterImageFormat.CcittGroup4, 1)
   image.Dispose()
End Sub

Private Sub LineRemoveEvent_S4(ByVal sender As Object, ByVal e As LineRemoveCommandEventArgs)
    Dim ee As LineRemoveCommandEventArgs = New LineRemoveCommandEventArgs(e.Image, Nothing, e.StartRow, e.StartColumn, e.Length)
    e.Status = RemoveStatus.Remove
End Sub