UpdateOverlayBits example for Visual Basic

Dim OverlayRaster As New LEADRaster
Dim nRet As Integer
  
RasterIO.Load OverlayRaster, "c:\pic1.cmp", 0, 0, 1
nRet = RasterProc.SetOverlayBitmap(LEADRasterView1.Raster, 0,  _
OverlayRaster, OVERLAY_MOVE)
   
If nRet = 0 Then
RasterProc.OverlayAttributes.Color = RGB(255, 255, 255)
RasterProc.OverlayAttributes.Flags = OVERLAY_AUTOPROCESS  + _
 OVERLAY_AUTOPAINT

RasterProc.OverlayAttributes.OriginX = 0
RasterProc.OverlayAttributes.OriginY = 0
RasterProc.OverlayAttributes.BitPosition =  LEADRasterView1.Raster.BitmapBits - 1

RasterProc.SetOverlayAttributes LEADRasterView1.Raster, 0, _ OVERLAYATTRIBUTES_COLOR + OVERLAYATTRIBUTES_FLAGS + OVERLAYATTRIBUTES_ORIGIN + OVERLAYATTRIBUTES_BITINDEX
End If
   
RasterProc.UpdateOverlayBits LEADRasterView1.Raster, 0, SETOVERLAYBITS_FROMOVERLAY