 (lH &gt; 0) Then
                  ' Blt from the picture into the bitmap:
                  lR = BitBlt(lHDC, 0, 0, lW, lH, hdc, LeftPixels, TopPixels,
                   SRCCOPY)
                  Debug.Assert (lR &lt;&gt; 0)
              End If
              
              ' We now have the image in the bitmap, so select it out of the DC:
              SelectObject lHDC, lhBmpOld
              ' And add it to the image list:
              'lR = ImageList_AddMasked(hIml, lhBmp, lBackColor)
             