ght As Long, _
      ByRef hDib As Long _
   ) As Boolean
   With m_tBI(lIndex).bmiHeader
      .biSize = Len(m_tBI(lIndex).bmiHeader)
      .biWidth = lWidth
      .biHeight = lHeight
      .biPlanes = 1
      .biBitCount = 32
      .biCompression = BI_RGB
      .biSizeImage = lWidth * 4 * lHeight
   End With
   hDib = CreateDIBSection( _
         lHDC, _
         m_tBI(lIndex), _
         DIB_RGB_COLORS, _
         m_lPtr(lIndex), _
         0, 0)
   CreateDIB = (hDib &lt;&gt; 0)
End Function

Private Pro