GetOverlayBitmap example for Visual Basic

   Dim nRet As Integer
   Dim i As Integer
   Dim strFile As String
   Dim OverlayRaster As New LEADRaster
   Dim RasterProc As New LEADRasterProcess
   Dim RasterIO As New LEADRasterIO
   For i = 0 To 16
      nRet = RasterProc.GetOverlayBitmap(LEADRasterView1.Raster, i, OverlayRaster,   _
     OVERLAY_NOCOPY)
      If (nRet = 0) Then
         strFile = "C:\" + Str(i) + "_copy.cmp"
         nRet = RasterIO.Save(OverlayRaster, strFile, FILE_LEAD1BIT, 1, QFACTOR_LEAD_0, 0)
         If (nRet <> 0) Then
            MsgBox ("Error saving file!")
         End If
      End If
   Next i