ShiftMinimumToZero Example for Visual Basic

Dim iShiftAmount As Integer
RasterProc.ShiftMinimumToZero LEADRasterView1.Raster
iShiftAmount = RasterProc.ShiftAmount

RasterProc.MultiScaleEnhancement LEADRasterView1.Raster, 2000, 4, _
MSE_DEFAULT, 0, 0, _
MSE_GAUSSIAN Or MSE_EDGEENH

RasterProc.ShiftZeroToNegative LEADRasterView1.Raster, iShiftAmount, _
-32767, 32766, 0, 65535