Public Function New( _
   ByVal centerPoint As LeadPoint, _
   ByVal zValue As Integer, _
   ByVal distance As Integer, _
   ByVal radius As Integer, _
   ByVal repeat As Integer, _
   ByVal rotationOffset As Integer, _
   ByVal stretch As Integer, _
   ByVal startBright As Integer, _
   ByVal endBright As Integer, _
   ByVal brightLength As Integer, _
   ByVal brightColor As RasterColor, _
   ByVal fillColor As RasterColor, _
   ByVal flags As TunnelCommandFlags _
)

Dim centerPoint As LeadPoint
Dim zValue As Integer
Dim distance As Integer
Dim radius As Integer
Dim repeat As Integer
Dim rotationOffset As Integer
Dim stretch As Integer
Dim startBright As Integer
Dim endBright As Integer
Dim brightLength As Integer
Dim brightColor As RasterColor
Dim fillColor As RasterColor
Dim flags As TunnelCommandFlags
 
Dim instance As New TunnelCommand(centerPoint, zValue, distance, radius, repeat, rotationOffset, stretch, startBright, endBright, brightLength, brightColor, fillColor, flags)

public TunnelCommand( 
   LeadPoint centerPoint,
   int zValue,
   int distance,
   int radius,
   int repeat,
   int rotationOffset,
   int stretch,
   int startBright,
   int endBright,
   int brightLength,
   RasterColor brightColor,
   RasterColor fillColor,
   TunnelCommandFlags flags
)

public:
TunnelCommand( 
   LeadPoint centerPoint,
   int zValue,
   int distance,
   int radius,
   int repeat,
   int rotationOffset,
   int stretch,
   int startBright,
   int endBright,
   int brightLength,
   RasterColor brightColor,
   RasterColor fillColor,
   TunnelCommandFlags flags
)

Public Sub TunnelConstructorExample()
   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(New LeadPoint(leadImage.Width \ 2, leadImage.Height \ 2), 0, leadImage.Height, leadImage.Width \ 2, -1, 0, 25, 0, 100, 20000, New RasterColor(255, 255, 255), New RasterColor(0, 0, 0), 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 TunnelConstructorExample()
   {
      // 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(new LeadPoint(image.Width / 2, image.Height / 2), 0, image.Height, image.Width / 2, -1, 0, 25, 0, 100, 20000, new RasterColor(255, 255, 255), new RasterColor(0, 0, 0), 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";
}