 m_sKey(lIndex) = vKey
   End If
End Sub
Public Property Get hIml() As Long
Attribute hIml.VB_Description = "Gets the COMCTL32 hImageList handle to the
 current image list, or 0 if there is no image list."
Attribute hIml.VB_UserMemId = 0
   ' Returns the ImageList handle:
    hIml = m_hIml
End Property
Public Property Get ImagePictureStrip( _
      Optional ByVal vStartKey As Variant, _
      Optional ByVal vEndKey As Variant, _
      Optional ByVal oBackColor As OLE_COLOR = vbButtonFace _
   ) As IPicture
