Getting an overlay bitmap list Example for Visual Basic

   Dim iRet As Integer
   Dim OverlayAttributesDS As LEADOverlayAttributes
   Dim GroupNumber As Long
   Dim bIsOverlayInDataSet As Boolean
   Dim cs As String

   iRet = LEADDICOM1.GetOverlayAttributes (0, 0)
   If (iRet <> 0) Then
      MsgBox ("error")
      Exit Sub
   End If
   Set OverlayAttributesDS = LEADDICOM1.OverlayAttributes
   cs = LEADDICOM1.OverlayActivationLayer(0)
   MsgBox cs

   iRet = LEADDICOM1.GetOverlayBitmapList (0, 0, OverlayAttributesDS.NumberFramesInOverlay, 0)
   If (iRet <> 0) Then
      MsgBox "error"
      Exit Sub
   End If
   LEADRasterView1.Raster.BitmapList = LEADDICOM1.OverlayBitmapList