SetOverlayAttributes 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