s an image from the image list."
Dim lIndex As Long
Dim i As Long
   ' Removes an image from the ImageList:
   If (hIml &lt;&gt; 0) Then
      lIndex = ItemIndex(vKey) - 1
      ImageList_Remove hIml, lIndex
      ' Fix up the keys:
      For i = lIndex To ImageCount - 1
         m_sKey(i) = m_sKey(i + 1)
      Next i
      pEnsureKeys
      PropertyChanged "Images"
      PropertyChanged "Size"
      PropertyChanged "Keys"
      PropertyChanged "KeyCount"
      If Not (UserControl.Ambient.UserMode) Then
   