Public Function New( _
   ByVal shadows As ColorIntensityBalanceCommandData, _
   ByVal midTone As ColorIntensityBalanceCommandData, _
   ByVal highLight As ColorIntensityBalanceCommandData, _
   ByVal luminance As Boolean _
)

Dim shadows As ColorIntensityBalanceCommandData
Dim midTone As ColorIntensityBalanceCommandData
Dim highLight As ColorIntensityBalanceCommandData
Dim luminance As Boolean
 
Dim instance As New ColorIntensityBalanceCommand(shadows, midTone, highLight, luminance)

public ColorIntensityBalanceCommand( 
   ColorIntensityBalanceCommandData shadows,
   ColorIntensityBalanceCommandData midTone,
   ColorIntensityBalanceCommandData highLight,
   bool luminance
)

public:
ColorIntensityBalanceCommand( 
   ColorIntensityBalanceCommandData^ shadows,
   ColorIntensityBalanceCommandData^ midTone,
   ColorIntensityBalanceCommandData^ highLight,
   bool luminance
)

Public Sub ColorIntensityBalanceConstructorExample()
   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 Shadow As ColorIntensityBalanceCommandData = New ColorIntensityBalanceCommandData(60, 0, 0)
   Dim MidTone As ColorIntensityBalanceCommandData = New ColorIntensityBalanceCommandData(40, 0, 0)
   Dim HighLight As ColorIntensityBalanceCommandData = New ColorIntensityBalanceCommandData(70, 0, 0)
   Dim command As ColorIntensityBalanceCommand = New ColorIntensityBalanceCommand(Shadow, MidTone, HighLight, False)

   ' Balance the colors by increasing the red channel values.
   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 ColorIntensityBalanceConstructorExample()
   {
      // Load an image
      RasterCodecs codecs = new RasterCodecs();
      codecs.ThrowExceptionsOnInvalidImages = true;

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

      // Prepare the command
      ColorIntensityBalanceCommandData Shadows = new ColorIntensityBalanceCommandData(60, 0, 0);
      ColorIntensityBalanceCommandData MidTone = new ColorIntensityBalanceCommandData(40, 0, 0);
      ColorIntensityBalanceCommandData HighLight = new ColorIntensityBalanceCommandData(70, 0, 0);
      ColorIntensityBalanceCommand command = new ColorIntensityBalanceCommand(Shadows, MidTone, HighLight, false);
      // Balance the colors by increasing the red channel values.
      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 ColorIntensityBalanceConstructorExample(RasterImage image, Stream outStream)
{
   // Prepare the command
   ColorIntensityBalanceCommandData Shadows = new ColorIntensityBalanceCommandData(60, 0, 0);
   ColorIntensityBalanceCommandData MidTone = new ColorIntensityBalanceCommandData(40, 0, 0);
   ColorIntensityBalanceCommandData HighLight = new ColorIntensityBalanceCommandData(70, 0, 0);
   ColorIntensityBalanceCommand command = new ColorIntensityBalanceCommand(Shadows, MidTone, HighLight, false);
   // Balance the colors by increasing the red channel values.
   command.Run(image);
   // Save result image
   RasterCodecs codecs = new RasterCodecs();
   codecs.Save(image, outStream, RasterImageFormat.Jpeg, 24);
   image.Dispose();
}

Public Sub ColorIntensityBalanceConstructorExample(ByVal image As RasterImage, ByVal outStream As Stream)
   ' Prepare the command
   Dim [Shadows] As ColorIntensityBalanceCommandData = New ColorIntensityBalanceCommandData(60, 0, 0)
   Dim MidTone As ColorIntensityBalanceCommandData = New ColorIntensityBalanceCommandData(40, 0, 0)
   Dim HighLight As ColorIntensityBalanceCommandData = New ColorIntensityBalanceCommandData(70, 0, 0)
   Dim command As ColorIntensityBalanceCommand = New ColorIntensityBalanceCommand([Shadows], MidTone, HighLight, False)
   ' Balance the colors by increasing the red channel values.
   command.Run(image)
   ' Save result image
   Dim codecs As RasterCodecs = New RasterCodecs()
   codecs.Save(image, outStream, RasterImageFormat.Jpeg, 24)
   image.Dispose()
End Sub