<DataContractAttribute(Namespace="http://Leadtools.Services.DataContracts/2009/01", Name="LeadPoint")>
Public Structure LeadPoint 
   Inherits System.ValueType

Dim instance As LeadPoint

[DataContractAttribute(Namespace="http://Leadtools.Services.DataContracts/2009/01", Name="LeadPoint")]
public struct LeadPoint : System.ValueType 

[DataContractAttribute(Namespace="http://Leadtools.Services.DataContracts/2009/01", Name="LeadPoint")]
public value class LeadPoint : public System.ValueType 

Public Sub LeadPointExample()
      Dim client As EffectsProcessingServiceClient = New EffectsProcessingServiceClient()
      Dim sourceBinaryData As RawBinaryData = New RawBinaryData()
      sourceBinaryData.Data = File.ReadAllBytes(Path.Combine(LEAD_VARS.ImagesDir, "image1.cmp"))

      Dim convertOptions As RasterConvertOptions = New RasterConvertOptions()

      convertOptions.Source = sourceBinaryData
      convertOptions.Destination = Nothing
      convertOptions.Format = RasterImageFormat.Bmp
      convertOptions.FirstPage = 1
      convertOptions.LastPage = 1
      convertOptions.BitsPerPixel = 24
      convertOptions.QualityFactor = 2

      Dim region As MagicWandRasterRegionData = New MagicWandRasterRegionData()
      region.CombineMode = RasterRegionCombineMode.Set

      ' Specify a pixel in the upper left of the displayed image
      Dim pt As LeadPoint = New LeadPoint()
      pt.X = 100
      pt.Y = 100

      region.Location = pt

      ' Create a magic wand region at this point
      region.LowerToleranceColor = "#00141E96"
      region.UpperToleranceColor = "#000F1E0A"

      Dim request As SharpenRequest = New SharpenRequest()

      request.ConvertOptions = convertOptions
      request.RegionData = region
      request.Sharpness = 1000

      Dim response As CommandResponse = client.Sharpen(request)
      If Not response.Destination Is Nothing Then
         File.WriteAllBytes(Path.Combine(LEAD_VARS.ImagesDir, "magicwandregion.bmp"), (TryCast(response.Destination, RawBinaryData)).Data)
      End If

      client.Close()
   End Sub

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

public void LeadPointExample()
   {
      EffectsProcessingServiceClient client = new EffectsProcessingServiceClient();
      RawBinaryData sourceBinaryData = new RawBinaryData();
      sourceBinaryData.Data = File.ReadAllBytes(Path.Combine(LEAD_VARS.ImagesDir,"image1.cmp"));

      RasterConvertOptions convertOptions = new RasterConvertOptions();

      convertOptions.Source = sourceBinaryData;
      convertOptions.Destination = null;
      convertOptions.Format = RasterImageFormat.Bmp;
      convertOptions.FirstPage = 1;
      convertOptions.LastPage = 1;
      convertOptions.BitsPerPixel = 24;
      convertOptions.QualityFactor = 2;

      MagicWandRasterRegionData region = new MagicWandRasterRegionData();
      region.CombineMode = RasterRegionCombineMode.Set;

      // Specify a pixel in the upper left of the displayed image
      LeadPoint pt = new LeadPoint();
      pt.X = 100;
      pt.Y = 100;

      region.Location = pt;

      // Create a magic wand region at this point
      region.LowerToleranceColor = "#00141E96";
      region.UpperToleranceColor= "#000F1E0A";

      SharpenRequest request = new SharpenRequest();
      request.ConvertOptions = convertOptions;
      request.RegionData = region;
      request.Sharpness = 1000;

      CommandResponse response = client.Sharpen(request);
      if (response.Destination != null)
      {
         if(response.Destination is RawBinaryData)
            File.WriteAllBytes(Path.Combine(LEAD_VARS.ImagesDir,"magicwandregion.bmp"), (response.Destination as RawBinaryData).Data);
      }

      client.Close();
   }

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