epth = eDepth
    PropertyChanged "ColourDepth"
End Property

Public Property Get ImageCount() As Integer
Attribute ImageCount.VB_Description = "Gets the number of images in the Image
 List."
Attribute ImageCount.VB_ProcData.VB_Invoke_Property = "ppgImages;Behavior"
   ' Returns the number of images in the ImageList:
   If (hIml &lt;&gt; 0) Then
      ImageCount = ImageList_GetImageCount(hIml)
   End If
End Property
Public Sub RemoveImage(ByVal vKey As Variant)
Attribute RemoveImage.VB_Description = "Remove