Public Function New( _
   ByVal sourceImage As RasterImage, _
   ByVal sourcePoint As LeadPoint, _
   ByVal destinationRectangle As LeadRect, _
   ByVal maskImage As RasterImage, _
   ByVal maskSourcePoint As LeadPoint _
)

Dim sourceImage As RasterImage
Dim sourcePoint As LeadPoint
Dim destinationRectangle As LeadRect
Dim maskImage As RasterImage
Dim maskSourcePoint As LeadPoint
 
Dim instance As New FeatherAlphaBlendCommand(sourceImage, sourcePoint, destinationRectangle, maskImage, maskSourcePoint)

public FeatherAlphaBlendCommand( 
   RasterImage sourceImage,
   LeadPoint sourcePoint,
   LeadRect destinationRectangle,
   RasterImage maskImage,
   LeadPoint maskSourcePoint
)

public:
FeatherAlphaBlendCommand( 
   RasterImage^ sourceImage,
   LeadPoint sourcePoint,
   LeadRect destinationRectangle,
   RasterImage^ maskImage,
   LeadPoint maskSourcePoint
)

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

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

   ' Prepare the command
   Try
      Dim maskImage As RasterImage
      ' Loading the maskimage.
      maskImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "ImageProcessingDemo\image3.cmp"), 24, CodecsLoadByteOrder.Bgr, 1, 1)
      Dim command As FeatherAlphaBlendCommand = New FeatherAlphaBlendCommand(leadImage, New LeadPoint(leadImage.Width \ 2, leadImage.Height \ 2), New LeadRect(0, 0, leadImage.Width \ 2, leadImage.Height \ 2), maskImage, New LeadPoint(leadImage.Width \ 2, leadImage.Height \ 2))
      command.Run(leadImage)
      codecs.Save(leadImage, Path.Combine(LEAD_VARS.ImagesDir, "Result.jpg"), RasterImageFormat.Jpeg, 24)
   Catch ex As Exception
      MessageBox.Show(ex.Message)
   End Try

End Sub

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

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

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

      // Prepare the command
      try
      {
         RasterImage maskImage;
         // Loading the maskimage.
         maskImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, @"ImageProcessingDemo\Image3.cmp"), 24, CodecsLoadByteOrder.Bgr, 1, 1);
         FeatherAlphaBlendCommand command = new FeatherAlphaBlendCommand(image, new LeadPoint(image.Width / 2, image.Height / 2), new LeadRect(0, 0, image.Width / 2, image.Height / 2), maskImage, new LeadPoint(image.Width / 2, image.Height / 2));
         command.Run(image);
         codecs.Save(image, Path.Combine(LEAD_VARS.ImagesDir, "Result.jpg"), RasterImageFormat.Jpeg, 24);
      }
      catch (Exception exception)
      {
         MessageBox.Show(exception.Message);
      }

   }

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

public void FeatherAlphaBlendConstructorExample_S2(RasterImage image, RasterImage maskImage, Stream outStream)
{
   // Prepare the command
   FeatherAlphaBlendCommand command = new FeatherAlphaBlendCommand(image, new LeadPoint(image.Width / 2, image.Height / 2), new LeadRect(0, 0, image.Width / 2, image.Height / 2), maskImage, new LeadPoint(image.Width / 2, image.Height / 2));
   command.Run(image);
   // Save result image
   RasterCodecs codecs = new RasterCodecs();
   codecs.Save(image, outStream, RasterImageFormat.Jpeg, 24);
   image.Dispose();
   maskImage.Dispose();
}

Public Sub FeatherAlphaBlendConstructorExample_S2(ByVal image As RasterImage, ByVal maskImage As RasterImage, ByVal outStream As Stream)
   ' Prepare the command
   Dim command As FeatherAlphaBlendCommand = New FeatherAlphaBlendCommand(image, New LeadPoint(image.Width / 2, image.Height / 2), New LeadRect(0, 0, image.Width / 2, image.Height / 2), maskImage, New LeadPoint(image.Width / 2, image.Height / 2))
   command.Run(image)
   ' Save result image
   Dim codecs As RasterCodecs = New RasterCodecs()
   codecs.Save(image, outStream, RasterImageFormat.Jpeg, 24)
   image.Dispose()
   maskImage.Dispose()
End Sub