DisplaceMap Example for Visual Basic

   Dim RasterProc As New LEADRasterProcess
   Dim TmpRaster As New LEADRaster
   Dim RasterIO As New LEADRasterIO
   RasterIO.Load TmpRaster, "c:\Sample1.jpg", 0, 0, 1
   RasterProc.DisplaceMap LEADRasterView1.Raster, _
   TmpRaster, _
   5, _
   5, _
   RGB(0, 0, 0), _
   FILL_CLR Or _
   DSPL_TILE