XOR (colour) part of the icon image:
   
      ' First create a compatible DC:
      hDC = CreateCompatibleDC(lHDC) ' we can replace this with desktop DC
      If (hDC &lt;&gt; 0) Then
         ' Create a Bitmap compatible with the device:
         hBmp = CreateCompatibleBitmap(lHDC, m_tIDE(nIndex - 1).bWidth,
          m_tIDE(nIndex - 1).bHeight)
         If (hBmp &lt;&gt; 0) Then
            ' Select the object into the DC:
            hBmpOld = SelectObject(hDC, hBmp)
            If (hBmpOld &lt;&gt; 0) 