Public Class TunnelCommand 
   Inherits Leadtools.ImageProcessing.RasterCommand
   Implements IRasterCommand 

Dim instance As TunnelCommand

public class TunnelCommand : Leadtools.ImageProcessing.RasterCommand, IRasterCommand  

public ref class TunnelCommand : public Leadtools.ImageProcessing.RasterCommand, IRasterCommand  

Public Sub TunnelCommandExample()
   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 command As TunnelCommand = New TunnelCommand
   command.CenterPoint = New LeadPoint(leadImage.Width \ 2, leadImage.Height \ 2)
   command.ZValue = 0
   command.Distance = leadImage.Height
   command.Radius = leadImage.Width \ 2
   command.Repeat = -1
   command.RotationOffset = 0
   command.Stretch = 25
   command.StartBright = 0
   command.EndBright = 100
   command.BrightLength = 20000
   command.BrightColor = New RasterColor(255, 255, 255)
   command.FillColor = New RasterColor(0, 0, 0)
   command.Flags = TunnelCommandFlags.WidthAxis Or TunnelCommandFlags.Color
   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 TunnelCommandExample()
   {
      // Load an image
      RasterCodecs codecs = new RasterCodecs();
      codecs.ThrowExceptionsOnInvalidImages = true;

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

      // Prepare the command
      TunnelCommand command = new  TunnelCommand();
      command.CenterPoint = new LeadPoint(image.Width / 2, image.Height / 2);
      command.ZValue = 0;
      command.Distance = image.Height;
      command.Radius = image.Width / 2;
      command.Repeat = -1;
      command.RotationOffset = 0;
      command.Stretch = 25;
      command.StartBright = 0;
      command.EndBright = 100;
      command.BrightLength = 20000;
      command.BrightColor = new RasterColor(255, 255, 255);
      command.FillColor = new RasterColor(0, 0, 0);
      command.Flags =  TunnelCommandFlags.WidthAxis |  TunnelCommandFlags.Color;
      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";
}