        ' Create a monochrome bitmap:
         hBmp = CreateCompatibleBitmap(hDC, m_tIDE(nIndex - 1).bWidth,
          m_tIDE(nIndex - 1).bHeight)
         If (hBmp &lt;&gt; 0) Then
            ' Select the mono-bitmap into the DC:
            hBmpOld = SelectObject(hDC, hBmp)
            If (hBmpOld &lt;&gt; 0) Then
               
               ' We need to create a BitmapInfo structure is a monochrome
               ' version of the one provided in the Icon.
               
               ' First, get a