e = 0
   CopyMemory m_tBits(iItem).bBits(lPosition), tRGBQ, Len(tRGBQ)
   lPosition = lPosition + Len(tRGBQ)
   
   ' White:
   tRGBQ.rgbRed = 255: tRGBQ.rgbGreen = 255: tRGBQ.rgbBlue = 255
   CopyMemory m_tBits(iItem).bBits(lPosition), tRGBQ, Len(tRGBQ)
   lPosition = lPosition + Len(tRGBQ)
      
End Sub

Public Function LoadIconFromEXE( _
      ByVal sFile As String, _
      Optional ByVal lpID As Long = 0, _
      Optional ByVal lpName As String = "" _
   ) As Boolean
Dim hLibrary As Long
Dim hRsrc As L