Public Function New( _
   ByVal sourceImage As RasterImage, _
   ByVal sourcePoint As LeadPoint, _
   ByVal destinationRect As LeadRect, _
   ByVal opacity As Integer _
)

Dim sourceImage As RasterImage
Dim sourcePoint As LeadPoint
Dim destinationRect As LeadRect
Dim opacity As Integer
 
Dim instance As New AlphaBlendCommand(sourceImage, sourcePoint, destinationRect, opacity)

public AlphaBlendCommand( 
   RasterImage sourceImage,
   LeadPoint sourcePoint,
   LeadRect destinationRect,
   int opacity
)

public:
AlphaBlendCommand( 
   RasterImage^ sourceImage,
   LeadPoint sourcePoint,
   LeadRect destinationRect,
   int opacity
)

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

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

   ' Prepare the command
   Dim srcImage As RasterImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "ImageProcessingDemo\image3.cmp"), 24, CodecsLoadByteOrder.Bgr, 1, 1)

   Dim Left As Integer = CType((leadImage.Width / 8), Integer)
   Dim Top As Integer = CType((leadImage.Height / 8), Integer)
   Dim Width As Integer = CType(leadImage.Width, Integer)
   Dim Height As Integer = CType(leadImage.Height, Integer)

   ' Combine srcImage with image, with half opacity.
   Dim command As AlphaBlendCommand = New AlphaBlendCommand(srcImage, New LeadPoint(0, 0), New LeadRect(Left, Top, Width, Height), 128)
   command.Run(leadImage)
   codecs.Save(leadImage, Path.Combine(LEAD_VARS.ImagesDir, "Result.jpg"), RasterImageFormat.Jpeg, 24)

End Sub

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

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

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

      // Prepare the command
      RasterImage srcImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, @"ImageProcessingDemo\Image3.cmp"), 24, CodecsLoadByteOrder.Bgr, 1, 1);
      AlphaBlendCommand command = new AlphaBlendCommand(srcImage, new LeadPoint(0, 0), new LeadRect(image.Width / 8, image.Height / 8, image.Width, image.Height), 128);
      command.Run(image);
      codecs.Save(image, Path.Combine(LEAD_VARS.ImagesDir, "Result.jpg"), RasterImageFormat.Jpeg, 24);

   }

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

public void AlphaBlendConstructorExample(RasterImage image, RasterImage srcImage, Stream outStream)
{
   // Prepare the command
   AlphaBlendCommand command = new AlphaBlendCommand(srcImage, new LeadPoint(0, 0), new LeadRect(image.Width / 8, image.Height / 8, image.Width, image.Height), 128);
   command.Run(image);
   // Save result image
   RasterCodecs codecs = new RasterCodecs();
   codecs.Save(image, outStream, RasterImageFormat.Jpeg, 24);
   image.Dispose();
   srcImage.Dispose();
}

Public Sub AlphaBlendConstructorExample(ByVal image As RasterImage, ByVal srcImage As RasterImage, ByVal outStream As Stream)
   ' Prepare the command
   Dim command As AlphaBlendCommand = New AlphaBlendCommand(srcImage, New LeadPoint(0, 0), New LeadRect(image.Width / 8, image.Height / 8, image.Width, image.Height), 128)
   command.Run(image)
   ' Save result image
   Dim codecs As RasterCodecs = New RasterCodecs()
   codecs.Save(image, outStream, RasterImageFormat.Jpeg, 24)
   image.Dispose()
   srcImage.Dispose()
End Sub