OR8 = &amp;H8
    ILC_COLOR16 = &amp;H10
    ILC_COLOR24 = &amp;H18
    ILC_COLOR32 = &amp;H20
End Enum

Public Enum eilSwapTypes
   eilCopy = ILCF_MOVE
   eilSwap = ILCF_SWAP
End Enum

' ------------------
' Private variables:
' ------------------
Private m_hIml As Long
Private m_lIconSizeX As Long
Private m_lIconSizeY As Long
Private m_eColourDepth As eilColourDepth
Private m_sKey() As String

Private Const MAGIC_NUMBER = &amp;H5745E456

Public Property Get SystemColourDepth() As eilColourDepth
Attribute 