 Or
     m_eColourDepth, 4, 4)
    If (m_hIml &lt;&gt; 0) And (m_hIml &lt;&gt; -1) Then
      ' Ok
      Create = True
    Else
      m_hIml = 0
    End If
    
End Function
Public Sub Destroy()
Attribute Destroy.VB_Description = "Deletes the image list (if any) from
 memory."
   ' Kill the image list if we have one:
    If (hIml &lt;&gt; 0) Then
        ImageList_Destroy hIml
        m_hIml = 0
        Erase m_sKey
    End If
End Sub
Public Sub DrawImage( _
        ByVal vKey As Variant, _
        ByVal hd